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:
parent
552ef34e87
commit
c073635355
@ -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'
|
||||
|
@ -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);
|
||||
|
Loading…
Reference in New Issue
Block a user