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

Comparing ibx/trunk/design/ibsqleditor.pas (file contents):
Revision 33 by tony, Sat Jul 18 12:30:52 2015 UTC vs.
Revision 45 by tony, Tue Dec 6 10:33:46 2016 UTC

# Line 31 | Line 31 | interface
31  
32   uses
33    Classes, SysUtils, FileUtil,  Forms, Controls, Graphics, Dialogs,
34 <  StdCtrls, ExtCtrls, ComCtrls, IBSystemTables, IBSQL, IBDatabase;
34 >  StdCtrls, ExtCtrls, ComCtrls, IBSystemTables, IBSQL, IBDatabase, IB;
35  
36   type
37  
# 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