ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/design/ibsqleditor.pas
(Generate patch)

Comparing ibx/trunk/design/ibsqleditor.pas (file contents):
Revision 36 by tony, Sat Jul 18 12:30:52 2015 UTC vs.
Revision 37 by tony, Mon Feb 15 14:44:25 2016 UTC

# Line 103 | Line 103 | type
103      FTableName: string;
104      FIBSystemTables: TIBSystemTables;
105      FExecuteOnly: boolean;
106 +  protected
107 +    procedure Loaded; override;
108    public
109      { public declarations }
110      constructor Create(TheOwner: TComponent); override;
# Line 370 | Line 372 | begin
372    FIBSystemTables.GetFieldNames(InsertTableNames.Text,InsertFieldsList.Items);
373   end;
374  
375 + procedure TIBSQLEditorForm.Loaded;
376 + begin
377 +  inherited Loaded;
378 +  {$IFDEF WINDOWS}
379 +  if assigned(PageControl) then
380 +    PageControl.TabPosition := tpTop;
381 +  {$ENDIF}
382 + end;
383 +
384   constructor TIBSQLEditorForm.Create(TheOwner: TComponent);
385   begin
386    inherited Create(TheOwner);

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines