paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-23 08:39:35 +02:00
Code Issues Packages Projects Releases Wiki Activity

easydockmgr: disable autosizing

Browse Source 
git-svn-id: trunk@24761 -
This commit is contained in:
mattias 2010-04-20 21:41:19 +00:00
parent abec3c1abe
commit b8f73c718a
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
examples/dockmanager/package/umakesite.pas
View File

@ -741,8 +741,7 @@ begin
fo := Owner; //our owner also owns the forms
if AName = '' then begin
Result := TForm(TForm.NewInstance);
if DisableUpdate then
Result.DisableAlign;
Result.DisableAlign;
Result.Create(fo); //named Form1, Form2... - not now???
end else begin
//create new instance
@ -754,12 +753,13 @@ begin
exit(nil); //bad form name
end;
Result := TWinControl(fc.NewInstance);
if DisableUpdate then
Result.DisableAlign;
Result.DisableAlign;
Result.Create(fo);
if Result.Name <> AName then
TryRename(Result, AName);
end;
if not DisableUpdate then
Result.EnableAlign;
Result.Visible := True; //required for docking
end;