paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-23 21:39:31 +01:00
Code Issues Packages Projects Releases Wiki Activity

JCF2: improved 'Preprocessor' page layout

Browse Source 
git-svn-id: trunk@24935 -
This commit is contained in:
maxim 2010-04-25 20:17:12 +00:00
parent 6b4ddf6139
commit 4b074a1cc2
2 changed files with 42 additions and 29 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

53
components/jcf2/Ui/Settings/frPreProcessor.lfm
View File

@ -4,47 +4,76 @@ inherited fPreProcessor: TfPreProcessor
ClientHeight = 282 ClientHeight = 282
ClientWidth = 409 ClientWidth = 409
OnResize = FrameResize OnResize = FrameResize
TabOrder = 0
DesignLeft = 627 DesignLeft = 627
DesignTop = 292 DesignTop = 292
object lblSymbols: TLabel[0] object lblSymbols: TLabel[0]
Left = 8 AnchorSideLeft.Control = Owner
AnchorSideTop.Control = cbEnable
AnchorSideTop.Side = asrBottom
Left = 6
Height = 14 Height = 14
Top = 30 Top = 29
Width = 210 Width = 210
BorderSpacing.Around = 6
Caption = 'Symbols defined for conditional compilation:' Caption = 'Symbols defined for conditional compilation:'
ParentColor = False ParentColor = False
end end
object lblCompilerOptions: TLabel[1] object lblCompilerOptions: TLabel[1]
Left = 8 AnchorSideLeft.Control = Owner
AnchorSideTop.Control = mSymbols
AnchorSideTop.Side = asrBottom
Left = 6
Height = 14 Height = 14
Top = 138 Top = 140
Width = 250 Width = 250
BorderSpacing.Top = 6
BorderSpacing.Around = 6
Caption = 'Compiler options defined for conditional compilation:' Caption = 'Compiler options defined for conditional compilation:'
ParentColor = False ParentColor = False
end end
object mSymbols: TMemo[2] object mSymbols: TMemo[2]
Left = 8 AnchorSideLeft.Control = Owner
AnchorSideTop.Control = lblSymbols
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 6
Height = 79 Height = 79
Top = 50 Top = 49
Width = 364 Width = 397
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Around = 6
ScrollBars = ssVertical ScrollBars = ssVertical
TabOrder = 1 TabOrder = 1
end end
object cbEnable: TCheckBox[3] object cbEnable: TCheckBox[3]
Left = 8 AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner
Left = 6
Height = 17 Height = 17
Top = 6 Top = 6
Width = 154 Width = 154
BorderSpacing.Around = 6
Caption = 'Enable preprocessor parsing' Caption = 'Enable preprocessor parsing'
Checked = True Checked = True
State = cbChecked State = cbChecked
TabOrder = 0 TabOrder = 0
end end
object mOptions: TMemo[4] object mOptions: TMemo[4]
Left = 8 AnchorSideLeft.Control = Owner
Height = 79 AnchorSideTop.Control = lblCompilerOptions
Top = 158 AnchorSideTop.Side = asrBottom
Width = 364 AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = Owner
AnchorSideBottom.Side = asrBottom
Left = 6
Height = 116
Top = 160
Width = 397
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Around = 6
ScrollBars = ssVertical ScrollBars = ssVertical
TabOrder = 2 TabOrder = 2
end end

18
components/jcf2/Ui/Settings/frPreProcessor.pas
View File

@ -107,24 +107,8 @@ begin
end; end;
procedure TfPreProcessor.FrameResize(Sender: TObject); procedure TfPreProcessor.FrameResize(Sender: TObject);
var
liClientHeight: integer;
begin begin
liClientHeight := ClientHeight - mSymbols.Height := (mSymbols.Height+mOptions.Height) div 2;
(cbEnable.Top + cbEnable.Height +
lblCompilerOptions.Height + lblSymbols.Height +
(GUI_PAD * 3));
mSymbols.Height := (liClientHeight div 2);
mSymbols.Left := 0;
mSymbols.Width := ClientWidth;
lblCompilerOptions.Top := mSymbols.Top + mSymbols.Height + GUI_PAD;
mOptions.Top := lblCompilerOptions.Top + lblCompilerOptions.Height + GUI_PAD;
mOptions.Height := ClientHeight - mOptions.Top;
mOptions.Left := 0;
mOptions.Width := ClientWidth;
end; end;
initialization initialization