paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-27 00:28:26 +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 ClientWidth = 596
Constraints.MinHeight = 282 Constraints.MinHeight = 282
Constraints.MinWidth = 476 Constraints.MinWidth = 476
OnClose = FormClose
OnCreate = AnchorDesignerCreate OnCreate = AnchorDesignerCreate
OnDestroy = AnchorDesignerDestroy OnDestroy = AnchorDesignerDestroy
OnShow = AnchorDesignerShow OnShow = AnchorDesignerShow

8
designer/anchoreditor.pas
View File

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

2
designer/taborderdlg.lfm
View File

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

8
designer/taborderdlg.pas
View File

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