paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-02 09:40:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

ide: fix show compiler options position

Browse Source 
git-svn-id: trunk@19401 -
This commit is contained in:
paul 2009-04-13 06:25:52 +00:00
parent 3897ab3717
commit 56e942b3a1
4 changed files with 31 additions and 29 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ide/compileroptionsdlg.pp
View File

@ -484,8 +484,8 @@ end;
procedure TfrmCompilerOptions.ButtonShowOptionsClicked(Sender: TObject);
begin
// Test MakeOptionsString function
if not PutCompilerOptions(ccomlWarning) then exit;
ShowCompilerOptionsDialog(CompilerOpts);
if PutCompilerOptions(ccomlWarning) then
ShowCompilerOptionsDialog(Self, CompilerOpts);
end;
procedure TfrmCompilerOptions.FileBrowseBtnClick(Sender: TObject);

1
ide/showcompileropts.lfm
View File

@ -7,6 +7,7 @@ object ShowCompilerOptionsDlg: TShowCompilerOptionsDlg
ClientHeight = 194
ClientWidth = 390
OnCreate = FormCreate
Position = poOwnerFormCenter
LCLVersion = '0.9.27'
object CmdLineGroupbox: TGroupBox
AnchorSideLeft.Control = Owner

49
ide/showcompileropts.lrs
View File

@ -4,28 +4,29 @@ LazarusResources.Add('TShowCompilerOptionsDlg','FORMDATA',[
'TPF0'#23'TShowCompilerOptionsDlg'#22'ShowCompilerOptionsDlg'#4'Left'#3'U'#1#6
+'Height'#3#194#0#3'Top'#3'@'#1#5'Width'#3#134#1#7'Caption'#6#16'Compiler Opt'
+'ions'#12'ClientHeight'#3#194#0#11'ClientWidth'#3#134#1#8'OnCreate'#7#10'For'
+'mCreate'#10'LCLVersion'#6#6'0.9.27'#0#9'TGroupBox'#15'CmdLineGroupbox'#22'A'
+'nchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#5'Owner'#23'A'
+'nchorSideRight.Control'#7#5'Owner'#4'Left'#2#6#6'Height'#3#148#0#3'Top'#2#6
+#5'Width'#3'z'#1#5'Align'#7#5'alTop'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRi'
+'ght'#8'akBottom'#0#20'BorderSpacing.Around'#2#6#7'Caption'#6#23'Command lin'
+'e parameters'#12'ClientHeight'#3#130#0#11'ClientWidth'#3'v'#1#8'TabOrder'#2
+#0#0#5'TMemo'#11'CmdLineMemo'#22'AnchorSideLeft.Control'#7#15'CmdLineGroupbo'
+'x'#21'AnchorSideTop.Control'#7#15'CmdLineGroupbox'#23'AnchorSideRight.Contr'
+'ol'#7#15'CmdLineGroupbox'#20'AnchorSideRight.Side'#7#9'asrBottom'#24'Anchor'
+'SideBottom.Control'#7#15'CmdLineGroupbox'#21'AnchorSideBottom.Side'#7#9'asr'
+'Bottom'#4'Left'#2#6#6'Height'#2'v'#3'Top'#2#6#5'Width'#3'j'#1#5'Align'#7#8
+'alClient'#20'BorderSpacing.Around'#2#6#13'Lines.Strings'#1#6#11'CmdLineMemo'
+#0#8'TabOrder'#2#0#0#0#0#9'TCheckBox'#21'RelativePathsCheckBox'#22'AnchorSid'
+'eLeft.Control'#7#15'CmdLineGroupbox'#18'AnchorSideTop.Side'#7#9'asrCenter'#4
+'Left'#2#6#6'Height'#2#17#3'Top'#3#161#0#5'Width'#3#133#0#7'Caption'#6#21'Re'
+'lativePathsCheckBox'#7'Checked'#9#8'OnChange'#7#27'RelativePathsCheckBoxCha'
+'nge'#5'State'#7#9'cbChecked'#8'TabOrder'#2#1#0#0#7'TBitBtn'#8'OkButton'#21
+'AnchorSideTop.Control'#7#15'CmdLineGroupbox'#18'AnchorSideTop.Side'#7#9'asr'
+'Bottom'#23'AnchorSideRight.Control'#7#15'CmdLineGroupbox'#20'AnchorSideRigh'
+'t.Side'#7#9'asrBottom'#24'AnchorSideBottom.Control'#7#5'Owner'#21'AnchorSid'
+'eBottom.Side'#7#9'asrBottom'#4'Left'#3'5'#1#6'Height'#2#23#3'Top'#3#160#0#5
+'Width'#2'K'#7'Anchors'#11#5'akTop'#7'akRight'#0#8'AutoSize'#9#6'Cancel'#9#7
+'Caption'#6#2'Ok'#21'Constraints.MinHeight'#2#22#20'Constraints.MinWidth'#2
+'K'#9'NumGlyphs'#2#0#7'OnClick'#7#13'OkButtonCLICK'#8'TabOrder'#2#2#0#0#0
+'mCreate'#8'Position'#7#17'poOwnerFormCenter'#10'LCLVersion'#6#6'0.9.27'#0#9
+'TGroupBox'#15'CmdLineGroupbox'#22'AnchorSideLeft.Control'#7#5'Owner'#21'Anc'
+'horSideTop.Control'#7#5'Owner'#23'AnchorSideRight.Control'#7#5'Owner'#4'Lef'
+'t'#2#6#6'Height'#3#148#0#3'Top'#2#6#5'Width'#3'z'#1#5'Align'#7#5'alTop'#7'A'
+'nchors'#11#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0#20'BorderSpacing.Aro'
+'und'#2#6#7'Caption'#6#23'Command line parameters'#12'ClientHeight'#3#130#0
+#11'ClientWidth'#3'v'#1#8'TabOrder'#2#0#0#5'TMemo'#11'CmdLineMemo'#22'Anchor'
+'SideLeft.Control'#7#15'CmdLineGroupbox'#21'AnchorSideTop.Control'#7#15'CmdL'
+'ineGroupbox'#23'AnchorSideRight.Control'#7#15'CmdLineGroupbox'#20'AnchorSid'
+'eRight.Side'#7#9'asrBottom'#24'AnchorSideBottom.Control'#7#15'CmdLineGroupb'
+'ox'#21'AnchorSideBottom.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2'v'#3'T'
+'op'#2#6#5'Width'#3'j'#1#5'Align'#7#8'alClient'#20'BorderSpacing.Around'#2#6
+#13'Lines.Strings'#1#6#11'CmdLineMemo'#0#8'TabOrder'#2#0#0#0#0#9'TCheckBox'
+#21'RelativePathsCheckBox'#22'AnchorSideLeft.Control'#7#15'CmdLineGroupbox'
+#18'AnchorSideTop.Side'#7#9'asrCenter'#4'Left'#2#6#6'Height'#2#17#3'Top'#3
+#161#0#5'Width'#3#133#0#7'Caption'#6#21'RelativePathsCheckBox'#7'Checked'#9#8
+'OnChange'#7#27'RelativePathsCheckBoxChange'#5'State'#7#9'cbChecked'#8'TabOr'
+'der'#2#1#0#0#7'TBitBtn'#8'OkButton'#21'AnchorSideTop.Control'#7#15'CmdLineG'
+'roupbox'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7
+#15'CmdLineGroupbox'#20'AnchorSideRight.Side'#7#9'asrBottom'#24'AnchorSideBo'
+'ttom.Control'#7#5'Owner'#21'AnchorSideBottom.Side'#7#9'asrBottom'#4'Left'#3
+'5'#1#6'Height'#2#23#3'Top'#3#160#0#5'Width'#2'K'#7'Anchors'#11#5'akTop'#7'a'
+'kRight'#0#8'AutoSize'#9#6'Cancel'#9#7'Caption'#6#2'Ok'#21'Constraints.MinHe'
+'ight'#2#22#20'Constraints.MinWidth'#2'K'#9'NumGlyphs'#2#0#7'OnClick'#7#13'O'
+'kButtonCLICK'#8'TabOrder'#2#2#0#0#0
]);

6
ide/showcompileropts.pas
View File

@ -58,18 +58,18 @@ type
property CompilerOpts: TBaseCompilerOptions read FCompilerOpts write SetCompilerOpts;
end;
function ShowCompilerOptionsDialog(
function ShowCompilerOptionsDialog(Owner: TComponent;
CompilerOpts: TBaseCompilerOptions): TModalResult;
implementation
function ShowCompilerOptionsDialog(
function ShowCompilerOptionsDialog(Owner: TComponent;
CompilerOpts: TBaseCompilerOptions): TModalResult;
var
ShowCompilerOptionsDlg: TShowCompilerOptionsDlg;
begin
Result:=mrOk;
ShowCompilerOptionsDlg:=TShowCompilerOptionsDlg.Create(nil);
ShowCompilerOptionsDlg:=TShowCompilerOptionsDlg.Create(Owner);
ShowCompilerOptionsDlg.CompilerOpts:=CompilerOpts;
ShowCompilerOptionsDlg.ShowModal;
ShowCompilerOptionsDlg.Free;