chelper: fixed default tab selection and parameters loading (broken by previous change)

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2198 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
skalogryz
2011-12-25 05:24:55 +00:00
parent 552ef34e87
commit c073635355
2 changed files with 4 additions and 4 deletions

View File

@ -14,14 +14,14 @@ object CtoPasConfig: TCtoPasConfig
Height = 564 Height = 564
Top = 10 Top = 10
Width = 648 Width = 648
ActivePage = ConvPage ActivePage = MainPage
Align = alClient Align = alClient
BorderSpacing.Left = 5 BorderSpacing.Left = 5
BorderSpacing.Top = 5 BorderSpacing.Top = 5
BorderSpacing.Right = 5 BorderSpacing.Right = 5
BorderSpacing.Bottom = 5 BorderSpacing.Bottom = 5
BorderSpacing.Around = 5 BorderSpacing.Around = 5
TabIndex = 1 TabIndex = 0
TabOrder = 0 TabOrder = 0
object MainPage: TTabSheet object MainPage: TTabSheet
Caption = 'Main' Caption = 'Main'

View File

@ -7,7 +7,7 @@ interface
uses uses
Classes,SysUtils,FileUtil,Forms,Controls,Graphics,Dialogs,StdCtrls,ExtCtrls, Classes,SysUtils,FileUtil,Forms,Controls,Graphics,Dialogs,StdCtrls,ExtCtrls,
converteridesettings, ctopasconvert, converteridesettings, ctopasconvert,
//LazIDEIntf, LazIDEIntf,
ComCtrls; ComCtrls;
type type
@ -117,7 +117,7 @@ begin
except except
end; end;
end; end;
//LazarusIDE.DoOpenEditorFile(edtDefines.Text, 0, 0, [ofQuiet, ofRegularFile, ofDoNotLoadResource, ofDoLoadResource]); LazarusIDE.DoOpenEditorFile(edtDefines.Text, 0, 0, [ofQuiet, ofRegularFile, ofDoNotLoadResource, ofDoLoadResource]);
end; end;
procedure TCtoPasConfig.FormClose(Sender:TObject;var CloseAction:TCloseAction); procedure TCtoPasConfig.FormClose(Sender:TObject;var CloseAction:TCloseAction);