paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-10 17:15:58 +02:00
Code Issues Packages Projects Releases Wiki Activity

elasiticdock: CreateDockable disablealign

Browse Source 
git-svn-id: trunk@24754 -
This commit is contained in:
mattias 2010-04-20 19:15:49 +00:00
parent ec5dceac11
commit fbf0c73cf8
2 changed files with 5 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
examples/dockmanager/elasticsite/fmastersite.pas
View File

@ -65,15 +65,11 @@ begin
end;
procedure TMasterSite.FormCreate(Sender: TObject);
var
AControl: TWinControl;
begin
DockMaster := TDockMaster.Create(self); //(Application)?
DockMaster.AddElasticSites(self, [alBottom]);
AControl:=DockMaster.CreateDockable('', True, True);
AControl.EnableAlign;
AControl:=DockMaster.CreateDockable('', True, True);
AControl.EnableAlign;
DockMaster.CreateDockable('', True, False);
DockMaster.CreateDockable('', True, False);
//all specific classes must be registered!
{
RegisterClass(TViewWindow);

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

@ -246,10 +246,12 @@ Options (to come or to be removed)
otherwise an already existing instance is returned. (really returned?)
*)
//get the form
Result := ReloadForm(AName, fMultiInst, DisableUpdate);
Result := ReloadForm(AName, fMultiInst, true);
if Result = nil then
exit;
MakeDockable(Result, fWrap);
if not DisableUpdate then
Result.EnableAlign;
end;
function TDockMaster.MakeDockable(AForm: TWinControl; fWrap: boolean): TForm;