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

tvplanit: Find already-open VpNavBar component editor

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

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

@ -148,10 +148,49 @@ uses
const const
ITEMS_MARGIN = 2; ITEMS_MARGIN = 2;
IMG_MARGIN = 4;
IMG_MARGIN_HOR = 8; IMG_MARGIN_HOR = 8;
IMG_MARGIN_VERT = 4; IMG_MARGIN_VERT = 4;
var
EditorForms : TList = nil;
procedure InitFormsList;
begin
EditorForms := TList.Create;
end;
procedure ReleaseFormsList;
begin
FreeAndNil(EditorForms);
end;
procedure AddNavBarEditor(Editor: TfrmNavBarEd);
begin
if Assigned(EditorForms) and (EditorForms.IndexOf(Editor) < 0) then
EditorForms.Add(Editor);
end;
function FindNavBarEditor(ABar: TVpNavBar): TfrmNavBarEd;
var
i : Integer;
begin
if ABar <> nil then
for i:=0 to EditorForms.Count-1 do begin
if TfrmNavBarEd(EditorForms[i]).Bar = ABar then
Exit(TfrmNavBarEd(EditorForms[i]));
end;
Result := nil
end;
procedure ReleaseNavBarEditor(Editor: TfrmNavBarEd);
var
i : Integer;
begin
if not Assigned(EditorForms) then Exit;
i := EditorForms.IndexOf(Editor);
if i >= 0 then EditorForms.Delete(i);
end;
{------------------------------------------------------------------------------- {-------------------------------------------------------------------------------
TVpNavBarEditor TVpNavBarEditor
@ -164,11 +203,10 @@ var
begin begin
if Index = 0 then begin if Index = 0 then begin
bar := Component as TVpNavBar; bar := Component as TVpNavBar;
editor := FindEditorForm(bar); editor := FindNavBarEditor(bar);
if editor = nil then begin if editor = nil then begin
DebugLn('EditorForm not found.'); DebugLn('EditorForm not found.');
editor := TfrmNavBarEd.Create(Application, bar, Designer); editor := TfrmNavBarEd.Create(Application, bar, Designer);
RegisterEditorForm(editor, bar);
end else end else
TfrmNavBarEd(editor).SetData(Designer, bar); TfrmNavBarEd(editor).SetData(Designer, bar);
if editor <> nil then if editor <> nil then
@ -196,6 +234,7 @@ constructor TfrmNavBarEd.Create(AOwner: TComponent; ABar: TVpNavBar;
ADesigner: TComponentEditorDesigner); ADesigner: TComponentEditorDesigner);
begin begin
inherited Create(AOwner); inherited Create(AOwner);
Position := poScreenCenter;
FBar := ABar; FBar := ABar;
FDesigner := ADesigner; FDesigner := ADesigner;
@ -204,11 +243,13 @@ begin
AddDesignHookHandlers; AddDesignHookHandlers;
SelectionChanged; SelectionChanged;
UpdateBtnStates; UpdateBtnStates;
AddNavBarEditor(self);
end; end;
destructor TfrmNavBarEd.Destroy; destructor TfrmNavBarEd.Destroy;
begin begin
UnregisterEditorForm(Self); ReleaseNavBarEditor(Self);
inherited Destroy; inherited Destroy;
end; end;
@ -231,14 +272,13 @@ end;
procedure TfrmNavBarEd.FormClose(Sender: TObject; procedure TfrmNavBarEd.FormClose(Sender: TObject;
var Action: TCloseAction); var Action: TCloseAction);
begin begin
UnregisterEditorForm(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; // Top := (Screen.Height - Height) div 3;
Left := (Screen.Width - Width) div 2; // Left := (Screen.Width - Width) div 2;
end; end;
procedure TfrmNavBarEd.FormDestroy(Sender: TObject); procedure TfrmNavBarEd.FormDestroy(Sender: TObject);
@ -818,5 +858,11 @@ begin
end; end;
end; end;
initialization
InitFormsList;
finalization
ReleaseFormsList;
end. end.