paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-02 20:29:28 +01:00
Code Issues Packages Projects Releases Wiki Activity

IDE: fixed anchors in show compiler options

Browse Source 
git-svn-id: trunk@25147 -
This commit is contained in:
mattias 2010-05-03 08:43:46 +00:00
parent db2c2f2cbc
commit aa3bf01500
3 changed files with 11 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
ide/compileroptions.pp
View File

@ -2759,6 +2759,7 @@ begin
}
// append -o Option if neccessary
//DebugLn(['TBaseCompilerOptions.MakeOptionsString ',ccloDoNotAppendOutFileOption in Flags,' TargetFilename="',TargetFilename,'" CurMainSrcFile="',CurMainSrcFile,'" CurOutputDir="',CurOutputDir,'"']);
if (not (ccloDoNotAppendOutFileOption in Flags)) and
((TargetFilename<>'') or (CurMainSrcFile<>'') or (CurOutputDir<>'')) then
begin

2
ide/compileroptionsdlg.pp
View File

@ -282,7 +282,7 @@ type
procedure SetCompilerMessages;
function GetUseAsDefault: Boolean;
public
CompilerOpts: TBaseCompilerOptions;
CompilerOpts: TBaseCompilerOptions; // real options
OldCompOpts: TBaseCompilerOptions; // set on loading, used for revert
constructor Create(TheOwner: TComponent); override;

24
ide/showcompileropts.lfm
View File

@ -3,6 +3,7 @@ object ShowCompilerOptionsDlg: TShowCompilerOptionsDlg
Height = 194
Top = 320
Width = 390
ActiveControl = CmdLineMemo
AutoSize = True
Caption = 'Compiler Options'
ClientHeight = 194
@ -13,30 +14,23 @@ object ShowCompilerOptionsDlg: TShowCompilerOptionsDlg
Position = poOwnerFormCenter
LCLVersion = '0.9.29'
object CmdLineGroupbox: TGroupBox
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner
AnchorSideRight.Control = Owner
AnchorSideBottom.Control = CloseButton
Left = 6
Height = 150
Height = 144
Top = 6
Width = 378
Align = alTop
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Around = 6
Caption = 'Command line parameters'
ClientHeight = 132
ClientHeight = 125
ClientWidth = 374
TabOrder = 0
object CmdLineMemo: TMemo
AnchorSideLeft.Control = CmdLineGroupbox
AnchorSideTop.Control = CmdLineGroupbox
AnchorSideRight.Control = CmdLineGroupbox
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = CmdLineGroupbox
AnchorSideBottom.Side = asrBottom
Left = 6
Height = 120
Height = 113
Top = 6
Width = 362
Align = alClient
@ -53,9 +47,9 @@ object ShowCompilerOptionsDlg: TShowCompilerOptionsDlg
AnchorSideTop.Control = CloseButton
AnchorSideTop.Side = asrCenter
Left = 6
Height = 17
Top = 167
Width = 131
Height = 22
Top = 161
Width = 171
Caption = 'RelativePathsCheckBox'
Checked = True
OnChange = RelativePathsCheckBoxChange
@ -70,8 +64,8 @@ object ShowCompilerOptionsDlg: TShowCompilerOptionsDlg
AnchorSideBottom.Control = Owner
AnchorSideBottom.Side = asrBottom
Left = 309
Height = 26
Top = 162
Height = 32
Top = 156
Width = 75
Anchors = [akRight, akBottom]
AutoSize = True