mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-11-02 17:59:50 +01:00
IDE: improve layout anchors in 2 forms.
git-svn-id: trunk@47569 -
This commit is contained in:
juha
parent
4945b58a15
commit
1495974c5f
@ -10,7 +10,7 @@ object BuildModesForm: TBuildModesForm
|
||||
OnDestroy = FormDestroy
|
||||
OnShow = FormShow
|
||||
Position = poScreenCenter
|
||||
LCLVersion = '1.1'
|
||||
LCLVersion = '1.5'
|
||||
object BuildModesGroupBox: TGroupBox
|
||||
Left = 6
|
||||
Height = 305
|
||||
@ -20,20 +20,20 @@ object BuildModesForm: TBuildModesForm
|
||||
Anchors = [akTop, akLeft, akRight, akBottom]
|
||||
BorderSpacing.Around = 6
|
||||
Caption = 'BuildModesGroupBox'
|
||||
ClientHeight = 286
|
||||
ClientHeight = 280
|
||||
ClientWidth = 596
|
||||
TabOrder = 0
|
||||
object BuildModesStringGrid: TStringGrid
|
||||
AnchorSideTop.Control = AddSpeedButton
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 0
|
||||
Height = 263
|
||||
Top = 23
|
||||
Height = 251
|
||||
Top = 29
|
||||
Width = 596
|
||||
Align = alBottom
|
||||
Anchors = [akTop, akLeft, akRight, akBottom]
|
||||
AutoFillColumns = True
|
||||
BorderSpacing.Top = 1
|
||||
BorderSpacing.Top = 7
|
||||
ColCount = 3
|
||||
Columns = <
|
||||
item
|
||||
@ -131,19 +131,17 @@ object BuildModesForm: TBuildModesForm
|
||||
AnchorSideTop.Control = DiffSpeedButton
|
||||
AnchorSideTop.Side = asrCenter
|
||||
Left = 160
|
||||
Height = 15
|
||||
Top = 4
|
||||
Width = 63
|
||||
Height = 20
|
||||
Top = 1
|
||||
Width = 69
|
||||
Caption = 'NoteLabel'
|
||||
ParentColor = False
|
||||
end
|
||||
object btnCreateDefaultModes: TButton
|
||||
AnchorSideTop.Control = NoteLabel
|
||||
AnchorSideTop.Side = asrCenter
|
||||
Left = 362
|
||||
Height = 25
|
||||
Top = -1
|
||||
Width = 228
|
||||
Left = 339
|
||||
Height = 30
|
||||
Top = -7
|
||||
Width = 251
|
||||
Anchors = [akTop, akRight]
|
||||
AutoSize = True
|
||||
Caption = 'Create Debug and Release modes'
|
||||
@ -153,8 +151,8 @@ object BuildModesForm: TBuildModesForm
|
||||
end
|
||||
object ButtonPanel1: TButtonPanel
|
||||
Left = 6
|
||||
Height = 41
|
||||
Top = 319
|
||||
Height = 38
|
||||
Top = 322
|
||||
Width = 600
|
||||
OKButton.Name = 'OKButton'
|
||||
OKButton.DefaultCaption = True
|
||||
|
||||
@ -2,40 +2,40 @@ object MacroListView: TMacroListView
|
||||
Left = 390
|
||||
Height = 365
|
||||
Top = 249
|
||||
Width = 340
|
||||
Width = 424
|
||||
Caption = 'MacroListView'
|
||||
ClientHeight = 365
|
||||
ClientWidth = 340
|
||||
ClientWidth = 424
|
||||
Constraints.MinHeight = 365
|
||||
Constraints.MinWidth = 300
|
||||
OnActivate = FormActivate
|
||||
OnDeactivate = FormActivate
|
||||
LCLVersion = '1.1'
|
||||
LCLVersion = '1.5'
|
||||
object Panel1: TPanel
|
||||
AnchorSideRight.Control = pnlButtons
|
||||
Left = 6
|
||||
Height = 313
|
||||
Height = 309
|
||||
Top = 6
|
||||
Width = 211
|
||||
Width = 274
|
||||
Align = alLeft
|
||||
Anchors = [akTop, akLeft, akRight, akBottom]
|
||||
BorderSpacing.Left = 6
|
||||
BorderSpacing.Top = 6
|
||||
BorderSpacing.Right = 6
|
||||
BevelOuter = bvNone
|
||||
ClientHeight = 313
|
||||
ClientWidth = 211
|
||||
ClientHeight = 309
|
||||
ClientWidth = 274
|
||||
TabOrder = 0
|
||||
object lbRecordedView: TListView
|
||||
Left = 0
|
||||
Height = 264
|
||||
Height = 260
|
||||
Top = 24
|
||||
Width = 211
|
||||
Width = 274
|
||||
Align = alClient
|
||||
AutoWidthLastColumn = True
|
||||
Columns = <
|
||||
item
|
||||
Width = 207
|
||||
Width = 270
|
||||
end>
|
||||
PopupMenu = PopupMenu1
|
||||
RowSelect = True
|
||||
@ -49,7 +49,7 @@ object MacroListView: TMacroListView
|
||||
Left = 0
|
||||
Height = 24
|
||||
Top = 0
|
||||
Width = 211
|
||||
Width = 274
|
||||
AutoSize = True
|
||||
BorderSpacing.InnerBorder = 1
|
||||
EdgeBorders = [ebLeft, ebTop, ebRight]
|
||||
@ -69,7 +69,7 @@ object MacroListView: TMacroListView
|
||||
end
|
||||
object tbProject: TToolButton
|
||||
Tag = 1
|
||||
Left = 72
|
||||
Left = 97
|
||||
Top = 2
|
||||
Caption = 'tbProject'
|
||||
Grouped = True
|
||||
@ -78,19 +78,35 @@ object MacroListView: TMacroListView
|
||||
end
|
||||
object tbIDE: TToolButton
|
||||
Tag = 1
|
||||
Left = 128
|
||||
Left = 173
|
||||
Top = 2
|
||||
Caption = 'tbIDE'
|
||||
Grouped = True
|
||||
OnClick = tbIDEClick
|
||||
Style = tbsCheck
|
||||
end
|
||||
object ToolButton3: TToolButton
|
||||
Left = 89
|
||||
Height = 22
|
||||
Top = 2
|
||||
Width = 8
|
||||
Caption = 'ToolButton3'
|
||||
Style = tbsSeparator
|
||||
end
|
||||
object ToolButton4: TToolButton
|
||||
Left = 165
|
||||
Height = 22
|
||||
Top = 2
|
||||
Width = 8
|
||||
Caption = 'ToolButton4'
|
||||
Style = tbsSeparator
|
||||
end
|
||||
end
|
||||
object ToolBar2: TToolBar
|
||||
Left = 0
|
||||
Height = 22
|
||||
Top = 291
|
||||
Width = 211
|
||||
Top = 287
|
||||
Width = 274
|
||||
Align = alBottom
|
||||
AutoSize = True
|
||||
BorderSpacing.Top = 3
|
||||
@ -102,20 +118,20 @@ object MacroListView: TMacroListView
|
||||
Left = 1
|
||||
Height = 22
|
||||
Top = 0
|
||||
Width = 54
|
||||
Width = 67
|
||||
Align = alLeft
|
||||
Caption = 'lbMoveTo'
|
||||
Layout = tlCenter
|
||||
ParentColor = False
|
||||
end
|
||||
object tbMoveProject: TToolButton
|
||||
Left = 55
|
||||
Left = 68
|
||||
Top = 0
|
||||
Caption = 'tbMoveProject'
|
||||
OnClick = tbMoveProjectClick
|
||||
end
|
||||
object tbMoveIDE: TToolButton
|
||||
Left = 141
|
||||
Left = 173
|
||||
Top = 0
|
||||
Caption = 'tbMoveIDE'
|
||||
OnClick = tbMoveIDEClick
|
||||
@ -124,9 +140,9 @@ object MacroListView: TMacroListView
|
||||
end
|
||||
object ButtonPanel1: TButtonPanel
|
||||
Left = 6
|
||||
Height = 34
|
||||
Top = 325
|
||||
Width = 328
|
||||
Height = 38
|
||||
Top = 321
|
||||
Width = 412
|
||||
OKButton.Name = 'OKButton'
|
||||
OKButton.DefaultCaption = True
|
||||
HelpButton.Name = 'HelpButton'
|
||||
@ -140,15 +156,15 @@ object MacroListView: TMacroListView
|
||||
ShowButtons = [pbClose, pbHelp]
|
||||
end
|
||||
object pnlButtons: TPanel
|
||||
Left = 223
|
||||
Height = 319
|
||||
Left = 286
|
||||
Height = 315
|
||||
Top = 0
|
||||
Width = 117
|
||||
Width = 138
|
||||
Align = alRight
|
||||
AutoSize = True
|
||||
BevelOuter = bvNone
|
||||
ClientHeight = 319
|
||||
ClientWidth = 117
|
||||
ClientHeight = 315
|
||||
ClientWidth = 138
|
||||
Constraints.MinHeight = 250
|
||||
TabOrder = 2
|
||||
object btnSelect: TButton
|
||||
@ -158,9 +174,9 @@ object MacroListView: TMacroListView
|
||||
AnchorSideRight.Side = asrBottom
|
||||
AnchorSideBottom.Side = asrBottom
|
||||
Left = 6
|
||||
Height = 25
|
||||
Height = 30
|
||||
Top = 6
|
||||
Width = 105
|
||||
Width = 126
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
AutoSize = True
|
||||
BorderSpacing.Left = 6
|
||||
@ -178,9 +194,9 @@ object MacroListView: TMacroListView
|
||||
AnchorSideRight.Side = asrBottom
|
||||
AnchorSideBottom.Side = asrBottom
|
||||
Left = 6
|
||||
Height = 25
|
||||
Top = 37
|
||||
Width = 105
|
||||
Height = 30
|
||||
Top = 42
|
||||
Width = 126
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
AutoSize = True
|
||||
BorderSpacing.Left = 6
|
||||
@ -197,9 +213,9 @@ object MacroListView: TMacroListView
|
||||
AnchorSideRight.Side = asrBottom
|
||||
AnchorSideBottom.Control = chkRepeat
|
||||
Left = 6
|
||||
Height = 25
|
||||
Top = 180
|
||||
Width = 105
|
||||
Height = 30
|
||||
Top = 156
|
||||
Width = 126
|
||||
Anchors = [akLeft, akRight, akBottom]
|
||||
AutoSize = True
|
||||
BorderSpacing.Left = 6
|
||||
@ -217,9 +233,9 @@ object MacroListView: TMacroListView
|
||||
AnchorSideRight.Side = asrBottom
|
||||
AnchorSideBottom.Control = btnRecordStop
|
||||
Left = 6
|
||||
Height = 25
|
||||
Top = 263
|
||||
Width = 105
|
||||
Height = 30
|
||||
Top = 249
|
||||
Width = 126
|
||||
Anchors = [akLeft, akRight, akBottom]
|
||||
AutoSize = True
|
||||
BorderSpacing.Left = 6
|
||||
@ -238,9 +254,9 @@ object MacroListView: TMacroListView
|
||||
AnchorSideBottom.Control = pnlButtons
|
||||
AnchorSideBottom.Side = asrBottom
|
||||
Left = 6
|
||||
Height = 25
|
||||
Top = 294
|
||||
Width = 105
|
||||
Height = 30
|
||||
Top = 285
|
||||
Width = 126
|
||||
Anchors = [akLeft, akRight, akBottom]
|
||||
AutoSize = True
|
||||
BorderSpacing.Left = 6
|
||||
@ -257,9 +273,9 @@ object MacroListView: TMacroListView
|
||||
AnchorSideRight.Side = asrBottom
|
||||
AnchorSideBottom.Control = edRepeat
|
||||
Left = 6
|
||||
Height = 19
|
||||
Top = 208
|
||||
Width = 105
|
||||
Height = 24
|
||||
Top = 189
|
||||
Width = 126
|
||||
Anchors = [akLeft, akRight, akBottom]
|
||||
BorderSpacing.Left = 6
|
||||
BorderSpacing.Top = 3
|
||||
@ -277,8 +293,8 @@ object MacroListView: TMacroListView
|
||||
AnchorSideBottom.Control = btnRecord
|
||||
Left = 6
|
||||
Height = 23
|
||||
Top = 230
|
||||
Width = 105
|
||||
Top = 216
|
||||
Width = 126
|
||||
Anchors = [akLeft, akRight, akBottom]
|
||||
AutoSize = False
|
||||
BorderSpacing.Left = 6
|
||||
@ -298,9 +314,9 @@ object MacroListView: TMacroListView
|
||||
AnchorSideRight.Side = asrBottom
|
||||
AnchorSideBottom.Side = asrBottom
|
||||
Left = 6
|
||||
Height = 25
|
||||
Top = 130
|
||||
Width = 105
|
||||
Height = 30
|
||||
Top = 150
|
||||
Width = 126
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
AutoSize = True
|
||||
BorderSpacing.Left = 6
|
||||
@ -318,9 +334,9 @@ object MacroListView: TMacroListView
|
||||
AnchorSideRight.Side = asrBottom
|
||||
AnchorSideBottom.Side = asrBottom
|
||||
Left = 6
|
||||
Height = 25
|
||||
Top = 68
|
||||
Width = 105
|
||||
Height = 30
|
||||
Top = 78
|
||||
Width = 126
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
AutoSize = True
|
||||
BorderSpacing.Left = 6
|
||||
@ -338,9 +354,9 @@ object MacroListView: TMacroListView
|
||||
AnchorSideRight.Side = asrBottom
|
||||
AnchorSideBottom.Side = asrBottom
|
||||
Left = 6
|
||||
Height = 25
|
||||
Top = 99
|
||||
Width = 105
|
||||
Height = 30
|
||||
Top = 114
|
||||
Width = 126
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
AutoSize = True
|
||||
BorderSpacing.Left = 6
|
||||
|
||||
@ -192,6 +192,8 @@ type
|
||||
ToolBar2: TToolBar;
|
||||
tbMoveProject: TToolButton;
|
||||
tbMoveIDE: TToolButton;
|
||||
ToolButton3: TToolButton;
|
||||
ToolButton4: TToolButton;
|
||||
procedure btnDeleteClick(Sender: TObject);
|
||||
procedure btnEditClick(Sender: TObject);
|
||||
procedure btnPlayClick(Sender: TObject);
|
||||
@ -305,7 +307,7 @@ procedure DoEditorMacroStateChanged;
|
||||
begin
|
||||
if EditorMacroForRecording= nil then exit;
|
||||
|
||||
if not(EditorMacroForRecording.State in [emRecording, emRecPaused]) and
|
||||
if not(EditorMacroForRecording.State in [emRecording, emRecPaused]) and
|
||||
(CurrentRecordingMacro <> nil)
|
||||
then begin
|
||||
// finished recording
|
||||
@ -1404,7 +1406,7 @@ begin
|
||||
tbIDE.Hint := lisSavedWithIDESettings;
|
||||
tbMoveProject.Caption := lisProjectMacro;
|
||||
tbMoveIDE.Caption := lisIDE;
|
||||
lbMoveTo.Caption := lisMoveTo;
|
||||
lbMoveTo.Caption := lisMoveTo + ' '; // Anchors do not work here. Use spaces.
|
||||
|
||||
btnSelect.Caption := lisMenuSelect;
|
||||
btnRename.Caption := lisRename2;
|
||||
|
||||
Loading…
Reference in New Issue
Block a user