Hello Martin.

I have some trouble with myform.dragdock.dockto().

Sometimes the forms are not sized as wanted (see video).

https://sites.google.com/site/fredvsbinaries/mse_dock2.mp4

Here code of menu item "Dock" --->

--------------------------------
procedure tmainfo.ondockall(const sender: TObject);
var
x : integer;
apos: pointty;

begin
application.lock();

width := 458 ;

drumsfo.height := 238;
drumsfo.width := 458;

guitarsfo.height := 74;
guitarsfo.width := 458;

songplayerfo.height := 114;
songplayerfo.width := 458;

recorderfo.height := 114;
recorderfo.width := 458;

drumsfo.activate;
guitarsfo.activate;
songplayerfo.activate;
recorderfo.activate;

height := 26 ;
apos.x := 0 ;
apos.y := 10 ;
drumsfo.dragdock.dockto(mainfo.basedock.dragdock,apos);
apos.y := drumsfo.height + 20;

guitarsfo.dragdock.dockto(mainfo.basedock.dragdock,apos);
apos.y := drumsfo.height + guitarsfo.height + 20;

songplayerfo.dragdock.dockto(mainfo.basedock.dragdock,apos);
apos.y := drumsfo.height + guitarsfo.height + songplayerfo.height + 20 ;

recorderfo.dragdock.dockto(mainfo.basedock.dragdock,apos);

height := height + 2;
activate;
application.unlock();
end;
-------------------------------------------------------------

Here code of forms.ondock() --->

procedure myform.ondockplay(const sender: TObject);
begin
mainfo.height := mainfo.height + myform.height;
end;

-------------------------------------------------

Thanks.

Fre;D



--
Sent from: http://mseide-msegui-talk.13964.n8.nabble.com/

------------------------------------------------------------------------------
Check out the vibrant tech community on one of the world's most
engaging tech sites, Slashdot.org! http://sdm.link/slashdot
_______________________________________________
mseide-msegui-talk mailing list
mseide-msegui-talk@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/mseide-msegui-talk

Reply via email to