pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

tvplanit: Call IDEDialogLayoutList.Apply/SaveLayout used by other component editors (seems to have no effect)

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6384 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2018-05-04 13:16:33 +00:00
parent 20b643ae68
commit c5ed4281a9
1 changed files with 8 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
components/tvplanit/source/design/vpnabed.pas
View File

@@ -126,8 +126,8 @@ type
public public
{ Public declarations } { Public declarations }
constructor Create(AOwner: TComponent; ABar: TVpNavBar; constructor Create(AOwner: TComponent; ADesigner: TComponentEditorDesigner;
ADesigner: TComponentEditorDesigner); reintroduce; ABar: TVpNavBar); reintroduce;
destructor Destroy; override; destructor Destroy; override;
procedure PopulateFolderList; procedure PopulateFolderList;
procedure PopulateImagesList; procedure PopulateImagesList;
@@ -143,7 +143,7 @@ implementation
{$R *.lfm} {$R *.lfm}
uses uses
PropEditUtils, StrUtils, ImgList, PropEditUtils, IDEWindowIntf, StrUtils, ImgList,
VpMisc; VpMisc;
const const
@@ -205,8 +205,7 @@ begin
bar := Component as TVpNavBar; bar := Component as TVpNavBar;
editor := FindNavBarEditor(bar); editor := FindNavBarEditor(bar);
if editor = nil then begin if editor = nil then begin
DebugLn('EditorForm not found.'); editor := TfrmNavBarEd.Create(Application, Designer, bar);
editor := TfrmNavBarEd.Create(Application, bar, Designer);
end else end else
TfrmNavBarEd(editor).SetData(Designer, bar); TfrmNavBarEd(editor).SetData(Designer, bar);
if editor <> nil then if editor <> nil then
@@ -230,8 +229,8 @@ end;
TfrmNavBarEd TfrmNavBarEd
-------------------------------------------------------------------------------} -------------------------------------------------------------------------------}
constructor TfrmNavBarEd.Create(AOwner: TComponent; ABar: TVpNavBar; constructor TfrmNavBarEd.Create(AOwner: TComponent;
ADesigner: TComponentEditorDesigner); ADesigner: TComponentEditorDesigner; ABar: TVpNavBar);
begin begin
inherited Create(AOwner); inherited Create(AOwner);
Position := poScreenCenter; Position := poScreenCenter;
@@ -272,13 +271,13 @@ end;
procedure TfrmNavBarEd.FormClose(Sender: TObject; procedure TfrmNavBarEd.FormClose(Sender: TObject;
var Action: TCloseAction); var Action: TCloseAction);
begin begin
IDEDialogLayoutList.SaveLayout(Self);
Action := caFree; Action := caFree;
end; end;
procedure TfrmNavBarEd.FormCreate(Sender: TObject); procedure TfrmNavBarEd.FormCreate(Sender: TObject);
begin begin
// Top := (Screen.Height - Height) div 3; IDEDialogLayoutList.ApplyLayout(Self);
// Left := (Screen.Width - Width) div 2;
end; end;
procedure TfrmNavBarEd.FormDestroy(Sender: TObject); procedure TfrmNavBarEd.FormDestroy(Sender: TObject);