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
Top = 10
Width = 648
ActivePage = ConvPage
ActivePage = MainPage
Align = alClient
BorderSpacing.Left = 5
BorderSpacing.Top = 5
BorderSpacing.Right = 5
BorderSpacing.Bottom = 5
BorderSpacing.Around = 5
TabIndex = 1
TabIndex = 0
TabOrder = 0
object MainPage: TTabSheet
Caption = 'Main'

View File

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