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

IDE, Build Lazarus dialog: increase its default size to make this dialog look better with e.g. GTK2

Browse Source 
git-svn-id: trunk@28219 -
This commit is contained in:
maxim 2010-11-14 18:51:12 +00:00
parent abcb512c7b
commit 6462b81ca7
2 changed files with 117 additions and 116 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

224
ide/buildlazdialog.lfm
View File

@ -2,12 +2,12 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
Left = 333 Left = 333
Height = 529 Height = 529
Top = 113 Top = 113
Width = 664 Width = 700
VertScrollBar.Visible = False VertScrollBar.Visible = False
BorderIcons = [biSystemMenu] BorderIcons = [biSystemMenu]
Caption = 'ConfigureBuildLazarusDlg' Caption = 'ConfigureBuildLazarusDlg'
ClientHeight = 529 ClientHeight = 529
ClientWidth = 664 ClientWidth = 700
Constraints.MinHeight = 500 Constraints.MinHeight = 500
Constraints.MinWidth = 462 Constraints.MinWidth = 462
OnCreate = FormCreate OnCreate = FormCreate
@ -17,19 +17,19 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
LCLVersion = '0.9.29' LCLVersion = '0.9.29'
object DetailsPanel: TPanel object DetailsPanel: TPanel
Left = 0 Left = 0
Height = 486 Height = 491
Top = 0 Top = 0
Width = 664 Width = 700
Align = alClient Align = alClient
ClientHeight = 486 ClientHeight = 491
ClientWidth = 664 ClientWidth = 700
TabOrder = 0 TabOrder = 0
object BuildProfileLabel: TLabel object BuildProfileLabel: TLabel
AnchorSideTop.Control = DetailsPanel AnchorSideTop.Control = DetailsPanel
Left = 8 Left = 8
Height = 16 Height = 14
Top = 12 Top = 12
Width = 89 Width = 69
BorderSpacing.Top = 5 BorderSpacing.Top = 5
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'Profile to Build' Caption = 'Profile to Build'
@ -41,8 +41,8 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 6 Left = 6
Height = 24 Height = 24
Top = 38 Top = 36
Width = 354 Width = 410
DragReorder = False DragReorder = False
Sections = <> Sections = <>
OnSectionClick = MakeModeListHeaderSectionClick OnSectionClick = MakeModeListHeaderSectionClick
@ -57,9 +57,9 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = LCLWidgetTypeComboBox AnchorSideBottom.Control = LCLWidgetTypeComboBox
Left = 4 Left = 4
Height = 181 Height = 198
Top = 62 Top = 60
Width = 356 Width = 412
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Bottom = 6 BorderSpacing.Bottom = 6
ItemHeight = 25 ItemHeight = 25
@ -77,15 +77,15 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
AnchorSideTop.Control = BuildProfileLabel AnchorSideTop.Control = BuildProfileLabel
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = BuildProfileButton AnchorSideRight.Control = BuildProfileButton
Left = 103 Left = 83
Height = 24 Height = 21
Hint = 'Name of the active profile.' Hint = 'Name of the active profile.'
Top = 8 Top = 9
Width = 513 Width = 566
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 6 BorderSpacing.Left = 6
BorderSpacing.Right = 6 BorderSpacing.Right = 6
ItemHeight = 0 ItemHeight = 13
OnSelect = BuildProfileComboBoxSelect OnSelect = BuildProfileComboBoxSelect
ParentShowHint = False ParentShowHint = False
ShowHint = True ShowHint = True
@ -98,11 +98,11 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
AnchorSideRight.Control = DetailsPanel AnchorSideRight.Control = DetailsPanel
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 622 Left = 655
Height = 24 Height = 23
Hint = 'Manage profiles' Hint = 'Manage profiles'
Top = 8 Top = 8
Width = 35 Width = 38
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
AutoSize = True AutoSize = True
BorderSpacing.Left = 6 BorderSpacing.Left = 6
@ -117,9 +117,9 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
AnchorSideLeft.Control = LCLWidgetTypeLabel AnchorSideLeft.Control = LCLWidgetTypeLabel
AnchorSideTop.Control = OptionsMemo AnchorSideTop.Control = OptionsMemo
Left = 6 Left = 6
Height = 16 Height = 14
Top = 283 Top = 295
Width = 49 Width = 38
Alignment = taRightJustify Alignment = taRightJustify
BorderSpacing.Top = 4 BorderSpacing.Top = 4
Caption = 'Options' Caption = 'Options'
@ -132,11 +132,11 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
AnchorSideRight.Control = BuildProfileButton AnchorSideRight.Control = BuildProfileButton
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = TargetDirectoryComboBox AnchorSideBottom.Control = TargetDirectoryComboBox
Left = 140 Left = 120
Height = 56 Height = 56
Hint = 'Options passed to compiler' Hint = 'Options passed to compiler'
Top = 279 Top = 291
Width = 517 Width = 573
Anchors = [akLeft, akRight, akBottom] Anchors = [akLeft, akRight, akBottom]
BorderSpacing.Bottom = 6 BorderSpacing.Bottom = 6
Lines.Strings = ( Lines.Strings = (
@ -153,10 +153,10 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = MakeModeListHeader AnchorSideTop.Control = MakeModeListHeader
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 367 Left = 423
Height = 16 Height = 14
Top = 42 Top = 41
Width = 47 Width = 37
BorderSpacing.Left = 7 BorderSpacing.Left = 7
Caption = 'Defines' Caption = 'Defines'
ParentColor = False ParentColor = False
@ -169,11 +169,11 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = MakeModeListBox AnchorSideBottom.Control = MakeModeListBox
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 367 Left = 423
Height = 183 Height = 201
Hint = 'Defines without -d' Hint = 'Defines without -d'
Top = 60 Top = 57
Width = 290 Width = 270
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Top = 2 BorderSpacing.Top = 2
ItemHeight = 0 ItemHeight = 0
@ -187,9 +187,9 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
AnchorSideTop.Control = LCLWidgetTypeComboBox AnchorSideTop.Control = LCLWidgetTypeComboBox
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 6 Left = 6
Height = 16 Height = 14
Top = 253 Top = 267
Width = 102 Width = 82
BorderSpacing.Left = 5 BorderSpacing.Left = 5
Caption = 'LCL Widget Type' Caption = 'LCL Widget Type'
ParentColor = False ParentColor = False
@ -200,14 +200,14 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = OptionsMemo AnchorSideBottom.Control = OptionsMemo
Left = 140 Left = 120
Height = 24 Height = 21
Top = 249 Top = 264
Width = 163 Width = 163
Anchors = [akLeft, akBottom] Anchors = [akLeft, akBottom]
BorderSpacing.Left = 32 BorderSpacing.Left = 32
BorderSpacing.Bottom = 6 BorderSpacing.Bottom = 6
ItemHeight = 0 ItemHeight = 13
Style = csDropDownList Style = csDropDownList
TabOrder = 4 TabOrder = 4
end end
@ -216,9 +216,9 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
AnchorSideTop.Control = TargetDirectoryComboBox AnchorSideTop.Control = TargetDirectoryComboBox
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 6 Left = 6
Height = 16 Height = 14
Top = 344 Top = 356
Width = 102 Width = 80
Alignment = taRightJustify Alignment = taRightJustify
Caption = 'Target Directory' Caption = 'Target Directory'
ParentColor = False ParentColor = False
@ -228,14 +228,14 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = TargetDirectoryButton AnchorSideRight.Control = TargetDirectoryButton
AnchorSideBottom.Control = TargetOSComboBox AnchorSideBottom.Control = TargetOSComboBox
Left = 140 Left = 120
Height = 23 Height = 21
Top = 341 Top = 353
Width = 476 Width = 529
Anchors = [akLeft, akRight, akBottom] Anchors = [akLeft, akRight, akBottom]
BorderSpacing.Right = 6 BorderSpacing.Right = 6
BorderSpacing.Bottom = 6 BorderSpacing.Bottom = 6
ItemHeight = 0 ItemHeight = 13
TabOrder = 6 TabOrder = 6
end end
object TargetOSLabel: TLabel object TargetOSLabel: TLabel
@ -243,9 +243,9 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
AnchorSideTop.Control = TargetOSComboBox AnchorSideTop.Control = TargetOSComboBox
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 6 Left = 6
Height = 16 Height = 14
Top = 373 Top = 383
Width = 63 Width = 50
Alignment = taRightJustify Alignment = taRightJustify
Caption = 'Target OS' Caption = 'Target OS'
ParentColor = False ParentColor = False
@ -255,9 +255,9 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
AnchorSideTop.Control = TargetCPUComboBox AnchorSideTop.Control = TargetCPUComboBox
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 6 Left = 6
Height = 16 Height = 14
Top = 402 Top = 410
Width = 69 Width = 56
Alignment = taRightJustify Alignment = taRightJustify
Caption = 'Target CPU' Caption = 'Target CPU'
ParentColor = False ParentColor = False
@ -268,11 +268,11 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
AnchorSideTop.Control = CleanAllCheckBox AnchorSideTop.Control = CleanAllCheckBox
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 467 Left = 417
Height = 21 Height = 17
Hint = 'Increment revision? (ToDo: get a better hint)' Hint = 'Increment revision? (ToDo: get a better hint)'
Top = 371 Top = 382
Width = 199 Width = 155
BorderSpacing.Left = 12 BorderSpacing.Left = 12
BorderSpacing.Top = 6 BorderSpacing.Top = 6
Caption = 'UpdateRevisionIncCheckBox' Caption = 'UpdateRevisionIncCheckBox'
@ -286,11 +286,11 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
AnchorSideTop.Control = TargetOSComboBox AnchorSideTop.Control = TargetOSComboBox
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 322 Left = 302
Height = 21 Height = 17
Hint = 'Like "make clean" on cmd line' Hint = 'Like "make clean" on cmd line'
Top = 371 Top = 382
Width = 133 Width = 103
BorderSpacing.Left = 19 BorderSpacing.Left = 19
Caption = 'CleanAllCheckBox' Caption = 'CleanAllCheckBox'
ParentShowHint = False ParentShowHint = False
@ -303,13 +303,13 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
AnchorSideRight.Control = TargetOSComboBox AnchorSideRight.Control = TargetOSComboBox
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = CommonsDividerBevel AnchorSideBottom.Control = CommonsDividerBevel
Left = 140 Left = 120
Height = 23 Height = 21
Top = 399 Top = 407
Width = 163 Width = 163
Anchors = [akLeft, akRight, akBottom] Anchors = [akLeft, akRight, akBottom]
BorderSpacing.Bottom = 6 BorderSpacing.Bottom = 6
ItemHeight = 0 ItemHeight = 13
TabOrder = 9 TabOrder = 9
end end
object WithStaticPackagesCheckBox: TCheckBox object WithStaticPackagesCheckBox: TCheckBox
@ -317,11 +317,11 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
AnchorSideTop.Control = TargetCPUComboBox AnchorSideTop.Control = TargetCPUComboBox
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 322 Left = 302
Height = 21 Height = 17
Hint = 'Compile selected static packages into Lazarus binary' Hint = 'Compile selected static packages into Lazarus binary'
Top = 400 Top = 409
Width = 207 Width = 159
Caption = 'WithStaticPackagesCheckBox' Caption = 'WithStaticPackagesCheckBox'
ParentShowHint = False ParentShowHint = False
ShowHint = True ShowHint = True
@ -333,8 +333,8 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
AnchorSideBottom.Control = DefinesButton AnchorSideBottom.Control = DefinesButton
Left = 8 Left = 8
Height = 17 Height = 17
Top = 428 Top = 434
Width = 650 Width = 686
Caption = 'CommonsDividerBevel' Caption = 'CommonsDividerBevel'
Anchors = [akLeft, akRight, akBottom] Anchors = [akLeft, akRight, akBottom]
BorderSpacing.Left = 7 BorderSpacing.Left = 7
@ -347,10 +347,10 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 8 Left = 8
Height = 21 Height = 17
Hint = 'Restart Lazarus automatically after building the IDE. Has no effect when building other parts' Hint = 'Restart Lazarus automatically after building the IDE. Has no effect when building other parts'
Top = 453 Top = 460
Width = 190 Width = 148
BorderSpacing.Top = 4 BorderSpacing.Top = 4
Caption = 'RestartAfterBuildCheckBox' Caption = 'RestartAfterBuildCheckBox'
ParentShowHint = False ParentShowHint = False
@ -361,11 +361,11 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
AnchorSideLeft.Control = RestartAfterBuildCheckBox AnchorSideLeft.Control = RestartAfterBuildCheckBox
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = RestartAfterBuildCheckBox AnchorSideTop.Control = RestartAfterBuildCheckBox
Left = 210 Left = 168
Height = 21 Height = 17
Hint = 'Show confirmation dialog when building directly from Tools menu' Hint = 'Show confirmation dialog when building directly from Tools menu'
Top = 453 Top = 460
Width = 160 Width = 124
BorderSpacing.Left = 12 BorderSpacing.Left = 12
Caption = 'ConfirmBuildCheckBox' Caption = 'ConfirmBuildCheckBox'
ParentShowHint = False ParentShowHint = False
@ -378,11 +378,11 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = DetailsPanel AnchorSideBottom.Control = DetailsPanel
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 558 Left = 610
Height = 24 Height = 23
Hint = 'Edit list of defines which can be used by any profile' Hint = 'Edit list of defines which can be used by any profile'
Top = 451 Top = 457
Width = 99 Width = 83
Anchors = [akRight, akBottom] Anchors = [akRight, akBottom]
AutoSize = True AutoSize = True
BorderSpacing.Bottom = 10 BorderSpacing.Bottom = 10
@ -399,10 +399,10 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
AnchorSideRight.Control = DetailsPanel AnchorSideRight.Control = DetailsPanel
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 622 Left = 655
Height = 24 Height = 23
Top = 340 Top = 352
Width = 35 Width = 38
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
AutoSize = True AutoSize = True
BorderSpacing.Left = 6 BorderSpacing.Left = 6
@ -417,33 +417,33 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
AnchorSideRight.Control = LCLWidgetTypeComboBox AnchorSideRight.Control = LCLWidgetTypeComboBox
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = TargetCPUComboBox AnchorSideBottom.Control = TargetCPUComboBox
Left = 140 Left = 120
Height = 23 Height = 21
Top = 370 Top = 380
Width = 163 Width = 163
Anchors = [akLeft, akRight, akBottom] Anchors = [akLeft, akRight, akBottom]
BorderSpacing.Bottom = 6 BorderSpacing.Bottom = 6
ItemHeight = 0 ItemHeight = 13
TabOrder = 8 TabOrder = 8
end end
end end
object CBLDBtnPanel: TPanel object CBLDBtnPanel: TPanel
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 0 Left = 0
Height = 43 Height = 38
Top = 486 Top = 491
Width = 664 Width = 700
Align = alBottom Align = alBottom
AutoSize = True AutoSize = True
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 43 ClientHeight = 38
ClientWidth = 664 ClientWidth = 700
TabOrder = 1 TabOrder = 1
object CancelButton: TBitBtn object CancelButton: TBitBtn
Left = 563 Left = 617
Height = 31 Height = 26
Top = 6 Top = 6
Width = 95 Width = 77
Align = alRight Align = alRight
AutoSize = True AutoSize = True
BorderSpacing.Around = 6 BorderSpacing.Around = 6
@ -455,10 +455,10 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
TabOrder = 4 TabOrder = 4
end end
object SaveSettingsButton: TBitBtn object SaveSettingsButton: TBitBtn
Left = 446 Left = 520
Height = 31 Height = 26
Top = 6 Top = 6
Width = 111 Width = 91
Align = alRight Align = alRight
AutoSize = True AutoSize = True
BorderSpacing.Around = 6 BorderSpacing.Around = 6
@ -468,10 +468,10 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
TabOrder = 3 TabOrder = 3
end end
object CompileButton: TBitBtn object CompileButton: TBitBtn
Left = 219 Left = 331
Height = 31 Height = 26
Top = 6 Top = 6
Width = 75 Width = 63
Align = alRight Align = alRight
AutoSize = True AutoSize = True
BorderSpacing.Around = 6 BorderSpacing.Around = 6
@ -482,9 +482,9 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
end end
object HelpButton: TBitBtn object HelpButton: TBitBtn
Left = 6 Left = 6
Height = 31 Height = 26
Top = 6 Top = 6
Width = 82 Width = 66
Align = alLeft Align = alLeft
AutoSize = True AutoSize = True
BorderSpacing.Around = 6 BorderSpacing.Around = 6
@ -495,10 +495,10 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
TabOrder = 0 TabOrder = 0
end end
object CompileAdvancedButton: TBitBtn object CompileAdvancedButton: TBitBtn
Left = 300 Left = 400
Height = 31 Height = 26
Top = 6 Top = 6
Width = 140 Width = 114
Align = alRight Align = alRight
AutoSize = True AutoSize = True
BorderSpacing.Around = 6 BorderSpacing.Around = 6

9
ide/buildlazdialog.pas
View File

@ -175,6 +175,7 @@ implementation
const const
DefaultIDEMakeOptionFilename = 'idemake.cfg'; DefaultIDEMakeOptionFilename = 'idemake.cfg';
ButtonSize = 24; ButtonSize = 24;
ModeColumnWidth = 170;
function GetTranslatedMakeModes(MakeMode: TMakeMode): string; function GetTranslatedMakeModes(MakeMode: TMakeMode): string;
begin begin
@ -751,14 +752,14 @@ begin
end; end;
with MakeModeListHeader.Sections.Add do with MakeModeListHeader.Sections.Add do
begin begin
Width := MakeModeListHeader.Width - 120 - 3 * ButtonSize; Width := MakeModeListHeader.Width - ModeColumnWidth - 3 * ButtonSize;
MinWidth := Width; MinWidth := Width;
MaxWidth := Width; MaxWidth := Width;
Text := lisLazBuildABOPart; Text := lisLazBuildABOPart;
end; end;
with MakeModeListHeader.Sections.Add do with MakeModeListHeader.Sections.Add do
begin begin
Width := 120; Width := ModeColumnWidth;
MinWidth := Width; MinWidth := Width;
MaxWidth := Width; MaxWidth := Width;
Text := lisLazBuildABOAction; Text := lisLazBuildABOAction;
@ -882,7 +883,7 @@ end;
procedure TConfigureBuildLazarusDlg.MakeModeListHeaderResize(Sender: TObject); procedure TConfigureBuildLazarusDlg.MakeModeListHeaderResize(Sender: TObject);
begin begin
if MakeModeListHeader.Sections.Count >= 3 then if MakeModeListHeader.Sections.Count >= 3 then
MakeModeListHeader.Sections[3].Width := MakeModeListHeader.Width - 120 - 3 * ButtonSize; MakeModeListHeader.Sections[3].Width := MakeModeListHeader.Width - ModeColumnWidth - 3 * ButtonSize;
end; end;
procedure TConfigureBuildLazarusDlg.MakeModeListHeaderSectionClick( procedure TConfigureBuildLazarusDlg.MakeModeListHeaderSectionClick(
@ -958,7 +959,7 @@ begin
MakeModeListBox.Canvas.TextOut(x+2, ARect.Top+(ARect.Bottom-ARect.Top-TxtH) div 2, MakeModeListBox.Canvas.TextOut(x+2, ARect.Top+(ARect.Bottom-ARect.Top-TxtH) div 2,
CurMmDef.Description); CurMmDef.Description);
// draw make mode text // draw make mode text
x:=MakeModeListBox.ClientWidth-120; x:=MakeModeListBox.ClientWidth-ModeColumnWidth;
MakeModeListBox.Canvas.TextOut(x+2, ARect.Top+(ARect.Bottom-ARect.Top-TxtH) div 2, MakeModeListBox.Canvas.TextOut(x+2, ARect.Top+(ARect.Bottom-ARect.Top-TxtH) div 2,
GetTranslatedMakeModes(CurMmVal)); GetTranslatedMakeModes(CurMmVal));
end; end;