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

Designer: don't use IDEDialogLayoutList for AnchorEditor and TabOrderEditor. They are modeless IDE windows.

Browse Source 
git-svn-id: trunk@33004 -
This commit is contained in:
juha 2011-10-21 15:44:12 +00:00
parent 53f2b8e11b
commit 436d4002ce
4 changed files with 1 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
designer/anchoreditor.lfm
View File

@ -9,7 +9,6 @@ object AnchorDesigner: TAnchorDesigner
ClientWidth = 596
Constraints.MinHeight = 282
Constraints.MinWidth = 476
OnClose = FormClose
OnCreate = AnchorDesignerCreate
OnDestroy = AnchorDesignerDestroy
OnShow = AnchorDesignerShow

8
designer/anchoreditor.pas
View File

@ -136,7 +136,6 @@ type
procedure AnchorDesignerShow(Sender: TObject);
procedure AnchorEnabledCheckBoxChange(Sender: TObject);
procedure BorderSpaceSpinEditChange(Sender: TObject);
procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
procedure SiblingComboBoxChange(Sender: TObject);
procedure ReferenceSideButtonClicked(Sender: TObject);
private
@ -262,8 +261,6 @@ begin
GlobalDesignHook.AddHandlerRefreshPropertyValues(@OnRefreshPropertyValues);
GlobalDesignHook.AddHandlerSetSelection(@OnSetSelection);
IDEDialogLayoutList.ApplyLayout(Self);
end;
procedure TAnchorDesigner.AnchorDesignerDestroy(Sender: TObject);
@ -279,11 +276,6 @@ begin
Refresh(true);
end;
procedure TAnchorDesigner.FormClose(Sender: TObject; var CloseAction: TCloseAction);
begin
IDEDialogLayoutList.SaveLayout(Self);
end;
procedure TAnchorDesigner.AnchorEnabledCheckBoxChange(Sender: TObject);
var
Kind: TAnchorKind;

2
designer/taborderdlg.lfm
View File

@ -7,10 +7,10 @@ object TabOrderDialog: TTabOrderDialog
Caption = 'TabOrderDialog'
ClientHeight = 374
ClientWidth = 310
OnClose = FormClose
OnCreate = TabOrderDialogCREATE
OnShow = FormShow
LCLVersion = '0.9.31'
Visible = True
object ArrowUp: TSpeedButton
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom

8
designer/taborderdlg.pas
View File

@ -45,7 +45,6 @@ type
ItemTreeview: TTreeView;
SortByPositionButton: TBitBtn;
procedure SortByPositionButtonClick(Sender: TObject);
procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
procedure FormShow(Sender: TObject);
procedure ItemTreeviewClick(Sender: TObject);
procedure TabOrderDialogCREATE(Sender: TObject);
@ -136,8 +135,6 @@ begin
ArrowDown.Hint:=lisTabOrderDownHint;
ArrowUp.Hint:=lisTabOrderUpHint;
SortByPositionButton.Hint:=lisTabOrderSortHint;
IDEDialogLayoutList.ApplyLayout(Self);
end;
procedure TTabOrderDialog.FormShow(Sender: TObject);
@ -155,11 +152,6 @@ begin
CheckButtonsEnabled;
end;
procedure TTabOrderDialog.FormClose(Sender: TObject; var CloseAction: TCloseAction);
begin
IDEDialogLayoutList.SaveLayout(Self);
end;
procedure TTabOrderDialog.SortByPositionButtonClick(Sender: TObject);
var
FirstItem, CurrItem: TTreeNode;