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

IdeIntf: Remember the layout of String property editors, and ToolbarConfig dialog. Issue .

Browse Source 
git-svn-id: trunk@55987 -
This commit is contained in:
juha 2017-10-06 10:06:02 +00:00
parent 1f7440575f
commit 60b135d29f
6 changed files with 69 additions and 31 deletions

25
components/ideintf/keyvalpropeditdlg.lfm
View File

@ -8,9 +8,10 @@ object KeyValPropEditorFrm: TKeyValPropEditorFrm
ClientWidth = 400
Constraints.MinHeight = 160
Constraints.MinWidth = 180
OnClose = FormClose
OnCreate = FormCreate
Position = poScreenCenter
LCLVersion = '1.3'
LCLVersion = '1.9.0.0'
object TextGroupBox: TGroupBox
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner
@ -18,13 +19,13 @@ object KeyValPropEditorFrm: TKeyValPropEditorFrm
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = BtnPanel
Left = 6
Height = 251
Height = 257
Top = 6
Width = 388
Align = alTop
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Around = 6
ClientHeight = 247
ClientHeight = 253
ClientWidth = 384
TabOrder = 0
object StatusLabel: TLabel
@ -32,8 +33,8 @@ object KeyValPropEditorFrm: TKeyValPropEditorFrm
AnchorSideBottom.Side = asrBottom
Left = 9
Height = 15
Top = 226
Width = 74
Top = 232
Width = 71
Anchors = [akLeft, akBottom]
BorderSpacing.Around = 6
Caption = 'StatusLabel'
@ -43,10 +44,10 @@ object KeyValPropEditorFrm: TKeyValPropEditorFrm
AnchorSideLeft.Side = asrBottom
AnchorSideRight.Control = TextGroupBox
AnchorSideRight.Side = asrBottom
Left = 268
Left = 274
Height = 25
Top = 6
Width = 110
Width = 104
Anchors = [akTop, akRight]
AutoSize = True
BorderSpacing.Around = 6
@ -60,9 +61,9 @@ object KeyValPropEditorFrm: TKeyValPropEditorFrm
AnchorSideRight.Control = SortButton
AnchorSideBottom.Control = StatusLabel
Left = 6
Height = 214
Height = 220
Top = 6
Width = 256
Width = 262
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Around = 6
DefaultColWidth = 100
@ -76,14 +77,14 @@ object KeyValPropEditorFrm: TKeyValPropEditorFrm
)
ColWidths = (
100
152
158
)
end
end
object BtnPanel: TButtonPanel
Left = 6
Height = 33
Top = 263
Height = 27
Top = 269
Width = 388
OKButton.Name = 'OKButton'
OKButton.DefaultCaption = True

14
components/ideintf/keyvalpropeditdlg.pas
View File

@ -14,8 +14,11 @@ unit KeyValPropEditDlg;
interface
uses
Classes, SysUtils, LCLProc, Forms, Controls, Buttons, Dialogs, StdCtrls,
TextTools, ObjInspStrConsts, ExtCtrls, ButtonPanel, ValEdit;
SysUtils,
// LCL
Forms, StdCtrls, ButtonPanel, ValEdit,
// IdeIntf
TextTools, ObjInspStrConsts, IDEWindowIntf;
type
@ -27,6 +30,7 @@ type
StatusLabel: TLabel;
SortButton: TButton;
TextGroupBox: TGroupBox;
procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure SortButtonClick(Sender: TObject);
public
@ -44,6 +48,12 @@ begin
Caption := oisStringsEditorDialog;
StatusLabel.Caption := ois0Lines0Chars;
//SortButton.Caption := oisSort;
IDEDialogLayoutList.ApplyLayout(Self);
end;
procedure TKeyValPropEditorFrm.FormClose(Sender: TObject; var CloseAction: TCloseAction);
begin
IDEDialogLayoutList.SaveLayout(Self);
end;
procedure TKeyValPropEditorFrm.SortButtonClick(Sender: TObject);

31
components/ideintf/stringspropeditdlg.lfm
View File

@ -9,9 +9,10 @@ object StringsPropEditorFrm: TStringsPropEditorFrm
ClientWidth = 400
Constraints.MinHeight = 160
Constraints.MinWidth = 180
OnClose = FormClose
OnCreate = FormCreate
Position = poScreenCenter
LCLVersion = '1.7'
LCLVersion = '1.9.0.0'
object TextGroupBox: TGroupBox
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner
@ -19,22 +20,22 @@ object StringsPropEditorFrm: TStringsPropEditorFrm
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = BtnPanel
Left = 6
Height = 258
Height = 257
Top = 6
Width = 388
Align = alTop
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Around = 6
ClientHeight = 240
ClientHeight = 253
ClientWidth = 384
TabOrder = 0
object StatusLabel: TLabel
AnchorSideBottom.Control = TextGroupBox
AnchorSideBottom.Side = asrBottom
Left = 9
Height = 14
Top = 220
Width = 57
Height = 15
Top = 232
Width = 71
Anchors = [akLeft, akBottom]
BorderSpacing.Around = 6
Caption = 'StatusLabel'
@ -45,7 +46,7 @@ object StringsPropEditorFrm: TStringsPropEditorFrm
AnchorSideRight.Control = SortButton
AnchorSideBottom.Control = StatusLabel
Left = 6
Height = 208
Height = 220
Top = 6
Width = 291
Anchors = [akTop, akLeft, akRight, akBottom]
@ -61,7 +62,7 @@ object StringsPropEditorFrm: TStringsPropEditorFrm
AnchorSideRight.Control = TextGroupBox
AnchorSideRight.Side = asrBottom
Left = 303
Height = 23
Height = 25
Top = 6
Width = 75
Anchors = [akTop, akRight]
@ -80,7 +81,7 @@ object StringsPropEditorFrm: TStringsPropEditorFrm
AnchorSideRight.Side = asrBottom
Left = 303
Height = 27
Top = 39
Top = 37
Width = 75
Anchors = [akTop, akLeft, akRight]
Caption = 'Clear'
@ -90,9 +91,17 @@ object StringsPropEditorFrm: TStringsPropEditorFrm
end
object BtnPanel: TButtonPanel
Left = 6
Height = 26
Top = 270
Height = 27
Top = 269
Width = 388
OKButton.Name = 'OKButton'
OKButton.DefaultCaption = True
HelpButton.Name = 'HelpButton'
HelpButton.DefaultCaption = True
CloseButton.Name = 'CloseButton'
CloseButton.DefaultCaption = True
CancelButton.Name = 'CancelButton'
CancelButton.DefaultCaption = True
TabOrder = 1
ShowButtons = [pbOK, pbCancel]
ShowBevel = False

19
components/ideintf/stringspropeditdlg.pas
View File

@ -16,9 +16,14 @@ unit StringsPropEditDlg;
interface
uses
Classes, SysUtils, Forms, Controls, Buttons, Dialogs, StdCtrls,
TextTools, ObjInspStrConsts, ExtCtrls, ButtonPanel, LazUTF8;
SysUtils,
// LCL
Forms, Controls, StdCtrls, ButtonPanel,
// LazUtils
LazUTF8,
// IdeIntf
TextTools, ObjInspStrConsts, IDEWindowIntf;
type
{ TStringsPropEditorFrm }
@ -31,6 +36,7 @@ type
TextGroupBox: TGroupBox;
Memo: TMemo;
procedure ClearButtonClick(Sender: TObject);
procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure MemoChange(Sender: TObject);
procedure SortButtonClick(Sender: TObject);
@ -51,8 +57,13 @@ begin
StatusLabel.Caption := ois0Lines0Chars;
SortButton.Caption := oisSort;
ClearButton.Caption := oisClear;
AddButtons;
IDEDialogLayoutList.ApplyLayout(Self);
end;
procedure TStringsPropEditorFrm.FormClose(Sender: TObject; var CloseAction: TCloseAction);
begin
IDEDialogLayoutList.SaveLayout(Self);
end;
procedure TStringsPropEditorFrm.ClearButtonClick(Sender: TObject);

1
ide/toolbarconfig.lfm
View File

@ -8,6 +8,7 @@ object ToolBarConfig: TToolBarConfig
ClientWidth = 696
Constraints.MinHeight = 350
Constraints.MinWidth = 500
OnClose = FormClose
OnCreate = FormCreate
OnDestroy = FormDestroy
Position = poScreenCenter

10
ide/toolbarconfig.pas
View File

@ -32,7 +32,7 @@ uses
// LazUtils
Laz2_XMLCfg,
// IdeIntf
ToolBarIntf, IDEImagesIntf,
ToolBarIntf, IDEImagesIntf, IDEWindowIntf,
// IDE
LazarusIDEStrConsts;
@ -65,6 +65,7 @@ type
Splitter1: TSplitter;
TV: TTreeView;
procedure btnHelpClick(Sender: TObject);
procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure lvToolbarDblClick(Sender: TObject);
@ -180,7 +181,6 @@ begin
TIDEImages.AssignImage(FilterEdit.Glyph, 'btnfiltercancel');
btnAddDivider.Caption := '---';
btnAdd.Hint := lisCoolBarAddSelected;
btnRemove.Hint := lisCoolBarRemoveSelected;
btnMoveUp.Hint := lisCoolBarMoveSelectedUp;
@ -197,6 +197,12 @@ begin
Image := TBitmap.Create;
SetupCaptions;
LoadCategories;
IDEDialogLayoutList.ApplyLayout(Self);
end;
procedure TToolBarConfig.FormClose(Sender: TObject; var CloseAction: TCloseAction);
begin
IDEDialogLayoutList.SaveLayout(Self);
end;
procedure TToolBarConfig.FormDestroy(Sender: TObject);