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

ide: replace environment->files groupboxes with labels

Browse Source 
git-svn-id: trunk@24292 -
This commit is contained in:
dmitry 2010-03-30 08:58:52 +00:00
parent 113cf66c0f
commit e13602a3ea
2 changed files with 217 additions and 239 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

314
ide/frames/files_options.lfm
View File

@ -1,19 +1,19 @@
inherited FilesOptionsFrame: TFilesOptionsFrame inherited FilesOptionsFrame: TFilesOptionsFrame
Height = 462 Height = 460
Width = 569 Width = 569
ClientHeight = 462 ClientHeight = 460
ClientWidth = 569 ClientWidth = 569
TabOrder = 0 TabOrder = 0
Visible = False Visible = False
DesignLeft = 353 DesignLeft = 406
DesignTop = 175 DesignTop = 93
object MaxRecentOpenFilesLabel: TLabel[0] object MaxRecentOpenFilesLabel: TLabel[0]
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner AnchorSideTop.Control = Owner
Left = 0 Left = 0
Height = 18 Height = 16
Top = 0 Top = 0
Width = 165 Width = 139
Caption = 'MaxRecentOpenFilesLabel' Caption = 'MaxRecentOpenFilesLabel'
ParentColor = False ParentColor = False
end end
@ -22,9 +22,9 @@ inherited FilesOptionsFrame: TFilesOptionsFrame
AnchorSideTop.Control = MaxRecentOpenFilesComboBox AnchorSideTop.Control = MaxRecentOpenFilesComboBox
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 0 Left = 0
Height = 18 Height = 16
Top = 53 Top = 45
Width = 175 Width = 147
BorderSpacing.Top = 6 BorderSpacing.Top = 6
Caption = 'MaxRecentProjectFilesLabel' Caption = 'MaxRecentProjectFilesLabel'
ParentColor = False ParentColor = False
@ -36,11 +36,11 @@ inherited FilesOptionsFrame: TFilesOptionsFrame
AnchorSideRight.Control = Owner AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 0 Left = 0
Height = 29 Height = 23
Top = 18 Top = 16
Width = 569 Width = 569
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
ItemHeight = 0 ItemHeight = 15
Items.Strings = ( Items.Strings = (
'5' '5'
'10' '10'
@ -58,11 +58,11 @@ inherited FilesOptionsFrame: TFilesOptionsFrame
AnchorSideRight.Control = Owner AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 0 Left = 0
Height = 29 Height = 23
Top = 71 Top = 61
Width = 569 Width = 569
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
ItemHeight = 0 ItemHeight = 15
Items.Strings = ( Items.Strings = (
'5' '5'
'10' '10'
@ -79,9 +79,9 @@ inherited FilesOptionsFrame: TFilesOptionsFrame
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 0 Left = 0
Height = 22 Height = 19
Top = 106 Top = 90
Width = 238 Width = 195
BorderSpacing.Top = 6 BorderSpacing.Top = 6
Caption = 'OpenLastProjectAtStartCheckBox' Caption = 'OpenLastProjectAtStartCheckBox'
TabOrder = 2 TabOrder = 2
@ -92,238 +92,216 @@ inherited FilesOptionsFrame: TFilesOptionsFrame
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 0 Left = 0
Height = 22 Height = 19
Top = 128 Top = 109
Width = 213 Width = 180
Caption = 'ShowCompileDialogCheckBox' Caption = 'ShowCompileDialogCheckBox'
TabOrder = 3 TabOrder = 3
end end
object LazarusDirGroupBox: TGroupBox[6] object LazarusDirLabel: TLabel[6]
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
AnchorSideTop.Control = ShowCompileDialogCheckBox AnchorSideTop.Control = ShowCompileDialogCheckBox
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 0 Left = 0
Height = 54 Height = 16
Top = 156 Top = 138
Width = 569 Width = 83
Anchors = [akTop, akLeft, akRight] BorderSpacing.Top = 10
BorderSpacing.Top = 6 Caption = 'LazarusDirLabel'
Caption = 'LazarusDirGroupBox' ParentColor = False
ClientHeight = 35
ClientWidth = 565
TabOrder = 4
object LazarusDirComboBox: TComboBox
AnchorSideLeft.Control = LazarusDirGroupBox
AnchorSideRight.Control = LazarusDirButton
Left = 6
Height = 29
Top = 3
Width = 528
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 6
ItemHeight = 0
TabOrder = 0
Text = 'LazarusDirComboBox'
end end
object LazarusDirButton: TButton object LazarusDirButton: TButton[7]
AnchorSideLeft.Control = LazarusDirGroupBox
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = LazarusDirComboBox AnchorSideTop.Control = LazarusDirComboBox
AnchorSideRight.Control = LazarusDirGroupBox AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = LazarusDirComboBox AnchorSideBottom.Control = LazarusDirComboBox
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 534 Left = 544
Height = 29 Height = 23
Top = 3 Top = 154
Width = 25 Width = 25
Anchors = [akTop, akRight, akBottom] Anchors = [akTop, akRight, akBottom]
BorderSpacing.Right = 6
Caption = '...' Caption = '...'
OnClick = DirectoriesButtonClick OnClick = DirectoriesButtonClick
TabOrder = 1 TabOrder = 4
end end
end object LazarusDirComboBox: TComboBox[8]
object CompilerPathGroupBox: TGroupBox[7]
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
AnchorSideTop.Control = LazarusDirGroupBox AnchorSideTop.Control = LazarusDirLabel
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner AnchorSideRight.Control = LazarusDirButton
AnchorSideRight.Side = asrBottom
Left = 0 Left = 0
Height = 54 Height = 23
Top = 210 Top = 154
Width = 569 Width = 544
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
Caption = 'CompilerPathGroupBox' ItemHeight = 15
ClientHeight = 35
ClientWidth = 565
TabOrder = 5 TabOrder = 5
object CompilerPathComboBox: TComboBox Text = 'LazarusDirComboBox'
AnchorSideLeft.Control = CompilerPathGroupBox end
object CompilerPathComboBox: TComboBox[9]
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = CompilerPathLabel
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = CompilerPathButton AnchorSideRight.Control = CompilerPathButton
Left = 6 Left = 0
Height = 29 Height = 23
Top = 3 Top = 199
Width = 528 Width = 544
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 6 ItemHeight = 15
ItemHeight = 0 TabOrder = 6
TabOrder = 0
Text = 'CompilerPathComboBox' Text = 'CompilerPathComboBox'
end end
object CompilerPathButton: TButton object CompilerPathButton: TButton[10]
AnchorSideTop.Control = CompilerPathComboBox AnchorSideTop.Control = CompilerPathComboBox
AnchorSideRight.Control = CompilerPathGroupBox AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = CompilerPathComboBox AnchorSideBottom.Control = CompilerPathComboBox
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 534 Left = 544
Height = 29 Height = 23
Top = 3 Top = 199
Width = 25 Width = 25
Anchors = [akTop, akRight, akBottom] Anchors = [akTop, akRight, akBottom]
BorderSpacing.Right = 6
Caption = '...' Caption = '...'
OnClick = FilesButtonClick OnClick = FilesButtonClick
TabOrder = 1 TabOrder = 7
end end
end object CompilerPathLabel: TLabel[11]
object FPCSourceDirGroupBox: TGroupBox[8]
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
AnchorSideTop.Control = CompilerPathGroupBox AnchorSideTop.Control = LazarusDirComboBox
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 0 Left = 0
Height = 54 Height = 16
Top = 264 Top = 183
Width = 569 Width = 102
Anchors = [akTop, akLeft, akRight] BorderSpacing.Top = 6
Caption = 'FPCSourceDirGroupBox' Caption = 'CompilerPathLabel'
ClientHeight = 35 ParentColor = False
ClientWidth = 565 end
TabOrder = 6 object FPCSourceDirComboBox: TComboBox[12]
object FPCSourceDirComboBox: TComboBox AnchorSideLeft.Control = Owner
AnchorSideLeft.Control = FPCSourceDirGroupBox AnchorSideTop.Control = FPCSourceDirLabel
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = FPCSourceDirButton AnchorSideRight.Control = FPCSourceDirButton
Left = 6 Left = 0
Height = 29 Height = 23
Top = 3 Top = 244
Width = 528 Width = 544
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 6 ItemHeight = 15
ItemHeight = 0 TabOrder = 8
TabOrder = 0
Text = 'FPCSourceDirComboBox' Text = 'FPCSourceDirComboBox'
end end
object FPCSourceDirButton: TButton object FPCSourceDirButton: TButton[13]
AnchorSideTop.Control = FPCSourceDirComboBox AnchorSideTop.Control = FPCSourceDirComboBox
AnchorSideRight.Control = FPCSourceDirGroupBox AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = FPCSourceDirComboBox AnchorSideBottom.Control = FPCSourceDirComboBox
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 534 Left = 544
Height = 29 Height = 23
Top = 3 Top = 244
Width = 25 Width = 25
Anchors = [akTop, akRight, akBottom] Anchors = [akTop, akRight, akBottom]
BorderSpacing.Right = 6
Caption = '...' Caption = '...'
OnClick = DirectoriesButtonClick OnClick = DirectoriesButtonClick
TabOrder = 1 TabOrder = 9
end end
end object FPCSourceDirLabel: TLabel[14]
object MakePathGroupBox: TGroupBox[9]
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
AnchorSideTop.Control = FPCSourceDirGroupBox AnchorSideTop.Control = CompilerPathComboBox
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 0 Left = 0
Height = 54 Height = 16
Top = 228
Width = 101
BorderSpacing.Top = 6
Caption = 'FPCSourceDirLabel'
ParentColor = False
end
object MakePathLabel: TLabel[15]
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = FPCSourceDirComboBox
AnchorSideTop.Side = asrBottom
Left = 0
Height = 16
Top = 273
Width = 82
BorderSpacing.Top = 6
Caption = 'MakePathLabel'
ParentColor = False
end
object TestBuildDirLabel: TLabel[16]
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = MakePathComboBox
AnchorSideTop.Side = asrBottom
Left = 0
Height = 16
Top = 318 Top = 318
Width = 569 Width = 93
Anchors = [akTop, akLeft, akRight] BorderSpacing.Top = 6
Caption = 'MakePathGroupBox' Caption = 'TestBuildDirLabel'
ClientHeight = 35 ParentColor = False
ClientWidth = 565 end
TabOrder = 7 object MakePathComboBox: TComboBox[17]
object MakePathComboBox: TComboBox AnchorSideLeft.Control = Owner
AnchorSideLeft.Control = MakePathGroupBox AnchorSideTop.Control = MakePathLabel
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = MakePathButton AnchorSideRight.Control = MakePathButton
Left = 6 Left = 0
Height = 29 Height = 23
Top = 3 Top = 289
Width = 528 Width = 544
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 6 ItemHeight = 15
ItemHeight = 0 TabOrder = 10
TabOrder = 0
Text = 'MakePathComboBox' Text = 'MakePathComboBox'
end end
object MakePathButton: TButton object MakePathButton: TButton[18]
AnchorSideTop.Control = MakePathComboBox AnchorSideTop.Control = MakePathComboBox
AnchorSideRight.Control = MakePathGroupBox AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = MakePathComboBox AnchorSideBottom.Control = MakePathComboBox
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 534 Left = 544
Height = 29 Height = 23
Top = 3 Top = 289
Width = 25 Width = 25
Anchors = [akTop, akRight, akBottom] Anchors = [akTop, akRight, akBottom]
BorderSpacing.Right = 6
Caption = '...' Caption = '...'
OnClick = FilesButtonClick OnClick = FilesButtonClick
TabOrder = 1 TabOrder = 11
end end
end object TestBuildDirComboBox: TComboBox[19]
object TestBuildDirGroupBox: TGroupBox[10]
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
AnchorSideTop.Control = MakePathGroupBox AnchorSideTop.Control = TestBuildDirLabel
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 0
Height = 54
Top = 372
Width = 569
Anchors = [akTop, akLeft, akRight]
Caption = 'TestBuildDirGroupBox'
ClientHeight = 35
ClientWidth = 565
TabOrder = 8
object TestBuildDirComboBox: TComboBox
AnchorSideLeft.Control = TestBuildDirGroupBox
AnchorSideRight.Control = TestBuildDirButton AnchorSideRight.Control = TestBuildDirButton
Left = 6 Left = 0
Height = 29 Height = 23
Top = 3 Top = 334
Width = 528 Width = 544
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 6 ItemHeight = 15
ItemHeight = 0 TabOrder = 12
TabOrder = 0
Text = 'TestBuildDirComboBox' Text = 'TestBuildDirComboBox'
end end
object TestBuildDirButton: TButton object TestBuildDirButton: TButton[20]
AnchorSideTop.Control = TestBuildDirComboBox AnchorSideTop.Control = TestBuildDirComboBox
AnchorSideRight.Control = TestBuildDirGroupBox AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = TestBuildDirComboBox AnchorSideBottom.Control = TestBuildDirComboBox
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 534 Left = 544
Height = 29 Height = 23
Top = 3 Top = 334
Width = 25 Width = 25
Anchors = [akTop, akRight, akBottom] Anchors = [akTop, akRight, akBottom]
BorderSpacing.Right = 6
Caption = '...' Caption = '...'
OnClick = DirectoriesButtonClick OnClick = DirectoriesButtonClick
TabOrder = 1 TabOrder = 13
end
end end
end end

40
ide/frames/files_options.pas
View File

@ -34,27 +34,27 @@ type
{ TFilesOptionsFrame } { TFilesOptionsFrame }
TFilesOptionsFrame = class(TAbstractIDEOptionsEditor) TFilesOptionsFrame = class(TAbstractIDEOptionsEditor)
CompilerPathButton: TButton; CompilerPathButton:TButton;
CompilerPathComboBox: TComboBox; CompilerPathComboBox:TComboBox;
CompilerPathGroupBox: TGroupBox; FPCSourceDirButton:TButton;
FPCSourceDirButton: TButton; FPCSourceDirComboBox:TComboBox;
FPCSourceDirComboBox: TComboBox; CompilerPathLabel:TLabel;
FPCSourceDirGroupBox: TGroupBox; FPCSourceDirLabel:TLabel;
LazarusDirButton: TButton; MakePathButton:TButton;
LazarusDirComboBox: TComboBox; MakePathComboBox:TComboBox;
LazarusDirGroupBox: TGroupBox; TestBuildDirButton:TButton;
MakePathButton: TButton; TestBuildDirComboBox:TComboBox;
MakePathComboBox: TComboBox; TestBuildDirLabel:TLabel;
MakePathGroupBox: TGroupBox; MakePathLabel:TLabel;
LazarusDirButton:TButton;
LazarusDirComboBox:TComboBox;
LazarusDirLabel:TLabel;
MaxRecentOpenFilesComboBox: TComboBox; MaxRecentOpenFilesComboBox: TComboBox;
MaxRecentOpenFilesLabel: TLabel; MaxRecentOpenFilesLabel: TLabel;
MaxRecentProjectFilesComboBox: TComboBox; MaxRecentProjectFilesComboBox: TComboBox;
MaxRecentProjectFilesLabel: TLabel; MaxRecentProjectFilesLabel: TLabel;
OpenLastProjectAtStartCheckBox: TCheckBox; OpenLastProjectAtStartCheckBox: TCheckBox;
ShowCompileDialogCheckBox: TCheckBox; ShowCompileDialogCheckBox: TCheckBox;
TestBuildDirButton: TButton;
TestBuildDirComboBox: TComboBox;
TestBuildDirGroupBox: TGroupBox;
procedure FilesButtonClick(Sender: TObject); procedure FilesButtonClick(Sender: TObject);
procedure DirectoriesButtonClick(Sender: TObject); procedure DirectoriesButtonClick(Sender: TObject);
private private
@ -171,7 +171,7 @@ begin
MaxRecentProjectFilesLabel.Caption:=dlgMaxRecentProjs; MaxRecentProjectFilesLabel.Caption:=dlgMaxRecentProjs;
OpenLastProjectAtStartCheckBox.Caption:=dlgQOpenLastPrj; OpenLastProjectAtStartCheckBox.Caption:=dlgQOpenLastPrj;
ShowCompileDialogCheckBox.Caption:=dlgQShowCompileDialog; ShowCompileDialogCheckBox.Caption:=dlgQShowCompileDialog;
LazarusDirGroupBox.Caption:=dlgLazarusDir; LazarusDirLabel.Caption:=dlgLazarusDir;
with LazarusDirComboBox.Items do with LazarusDirComboBox.Items do
begin begin
@ -180,9 +180,9 @@ begin
EndUpdate; EndUpdate;
end; end;
CompilerPathGroupBox.Caption:=Format(dlgFpcPath,[GetDefaultCompilerFilename]); CompilerPathLabel.Caption:=Format(dlgFpcPath,[GetDefaultCompilerFilename]);
FPCSourceDirGroupBox.Caption:=dlgFpcSrcPath; FPCSourceDirLabel.Caption:=dlgFpcSrcPath;
MakePathGroupBox.Caption:=dlgMakePath; MakePathLabel.Caption:=dlgMakePath;
with MakePathComboBox.Items do with MakePathComboBox.Items do
begin begin
@ -192,7 +192,7 @@ begin
EndUpdate; EndUpdate;
end; end;
TestBuildDirGroupBox.Caption:=dlgTestPrjDir; TestBuildDirLabel.Caption:=dlgTestPrjDir;
with TestBuildDirComboBox.Items do with TestBuildDirComboBox.Items do
begin begin