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

MG: broke LCL<->interface circles

Browse Source 
git-svn-id: trunk@1251 -
This commit is contained in:
lazarus 2002-02-09 01:48:10 +00:00
parent 953785fd93
commit 7619714cb8
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lcl/include/wincontrol.inc
View File

@ -455,7 +455,7 @@ end;
procedure TWinControl.DoConstraintsChange(Sender : TObject);
begin
inherited DoConstraintsChange(Sender);
InterfaceObject.IntSendMessage3(LM_SETGEOMETRY, Self, nil);
SendMsgToInterface(LM_SETGEOMETRY, Self, nil);
end;
{-------------------------------------------------------------------------------
@ -643,7 +643,7 @@ begin
SetZOrderPosition(i);
end
else if FHandle <> 0 then begin
InterfaceObject.SetWindowPos(FHandle, WindowPos[TopMost], 0, 0, 0, 0,
SetWindowPos(FHandle, WindowPos[TopMost], 0, 0, 0, 0,
SWP_NOMOVE + SWP_NOSIZE);
end;
end;
@ -2460,6 +2460,9 @@ end;
{ =============================================================================
$Log$
Revision 1.94 2002/10/26 15:15:49 lazarus
MG: broke LCL<->interface circles
Revision 1.93 2002/10/09 10:22:54 lazarus
MG: fixed client origin coordinates