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

IDE: BuildModeDiff dialog layout improvements. Issue #28297, patch from Alexey Torgashin.

Browse Source 
git-svn-id: trunk@49348 -
This commit is contained in:
juha 2015-06-16 11:32:46 +00:00
parent e0a68da24d
commit f7aef7afe0
2 changed files with 42 additions and 41 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

79
ide/buildmodediffdlg.lfm
View File

@ -1,27 +1,32 @@
object BuildModeDiffDialog: TBuildModeDiffDialog object BuildModeDiffDialog: TBuildModeDiffDialog
Left = 453 Left = 407
Height = 316 Height = 409
Top = 261 Top = 266
Width = 493 Width = 476
BorderIcons = [biSystemMenu, biMaximize]
Caption = 'BuildModeDiffDialog' Caption = 'BuildModeDiffDialog'
ClientHeight = 316 ClientHeight = 409
ClientWidth = 493 ClientWidth = 476
OnCreate = FormCreate OnCreate = FormCreate
Position = poScreenCenter Position = poScreenCenter
LCLVersion = '0.9.29' LCLVersion = '1.5'
object ButtonPanel: TButtonPanel object ButtonPanel: TButtonPanel
Left = 6 Left = 6
Height = 34 Height = 26
Top = 276 Top = 377
Width = 481 Width = 464
OKButton.Name = 'OKButton' OKButton.Name = 'OKButton'
OKButton.DefaultCaption = True
OKButton.Enabled = False OKButton.Enabled = False
HelpButton.Name = 'HelpButton' HelpButton.Name = 'HelpButton'
HelpButton.DefaultCaption = True
HelpButton.Enabled = False HelpButton.Enabled = False
CloseButton.Name = 'CloseButton' CloseButton.Name = 'CloseButton'
CloseButton.DefaultCaption = True
CancelButton.Name = 'CancelButton' CancelButton.Name = 'CancelButton'
CancelButton.DefaultCaption = True
CancelButton.Enabled = False CancelButton.Enabled = False
TabOrder = 0 TabOrder = 2
ShowButtons = [pbClose] ShowButtons = [pbClose]
ShowBevel = False ShowBevel = False
end end
@ -30,9 +35,9 @@ object BuildModeDiffDialog: TBuildModeDiffDialog
AnchorSideTop.Control = ModeComboBox AnchorSideTop.Control = ModeComboBox
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 6 Left = 6
Height = 14 Height = 15
Top = 9 Top = 10
Width = 52 Width = 59
BorderSpacing.Left = 6 BorderSpacing.Left = 6
Caption = 'ModeLabel' Caption = 'ModeLabel'
ParentColor = False ParentColor = False
@ -43,40 +48,36 @@ object BuildModeDiffDialog: TBuildModeDiffDialog
AnchorSideTop.Control = Owner AnchorSideTop.Control = Owner
AnchorSideRight.Control = Owner AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 64 Left = 71
Height = 21 Height = 23
Top = 6 Top = 6
Width = 423 Width = 399
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Around = 6 BorderSpacing.Around = 6
ItemHeight = 13 ItemHeight = 15
OnChange = ModeComboBoxChange OnChange = ModeComboBoxChange
TabOrder = 1 Style = csDropDownList
Text = 'ModeComboBox' TabOrder = 0
end end
object DiffsGroupBox: TGroupBox object DiffLabel: TLabel
AnchorSideTop.Control = ModeComboBox Left = 6
Height = 15
Top = 33
Width = 47
Caption = 'DiffLabel'
ParentColor = False
end
object DiffTreeView: TTreeView
AnchorSideTop.Control = DiffLabel
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 6 Left = 6
Height = 237 Height = 317
Top = 33 Top = 54
Width = 481 Width = 464
Align = alBottom Align = alBottom
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'DiffsGroupBox' DefaultItemHeight = 18
ClientHeight = 219 TabOrder = 1
ClientWidth = 477
TabOrder = 2
object DiffTreeView: TTreeView
Left = 6
Height = 207
Top = 6
Width = 465
Align = alClient
BorderSpacing.Around = 6
DefaultItemHeight = 15
TabOrder = 0
end
end end
end end

4
ide/buildmodediffdlg.pas
View File

@ -41,7 +41,7 @@ type
TBuildModeDiffDialog = class(TForm) TBuildModeDiffDialog = class(TForm)
ButtonPanel: TButtonPanel; ButtonPanel: TButtonPanel;
DiffsGroupBox: TGroupBox; DiffLabel: TLabel;
DiffTreeView: TTreeView; DiffTreeView: TTreeView;
ModeComboBox: TComboBox; ModeComboBox: TComboBox;
ModeLabel: TLabel; ModeLabel: TLabel;
@ -84,7 +84,7 @@ begin
Caption:=lisBuildModeDiffDifferencesBetweenBuildModes; Caption:=lisBuildModeDiffDifferencesBetweenBuildModes;
ModeLabel.Caption:=lisBuildModeDiffMode; ModeLabel.Caption:=lisBuildModeDiffMode;
DiffsGroupBox.Caption:=lisBuildModeDiffDifferencesToOtherBuildModes; DiffLabel.Caption:=lisBuildModeDiffDifferencesToOtherBuildModes;
ButtonPanel.CloseButton.Caption:=lisBtnClose; ButtonPanel.CloseButton.Caption:=lisBtnClose;
end; end;