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

* Patch from Vincent, moved SetProp(wincontrol)

Browse Source 
git-svn-id: trunk@5534 -
This commit is contained in:
marc 2004-05-31 13:06:47 +00:00
parent dbc7aa1455
commit 3626b214a7
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lcl/include/wincontrol.inc
View File

@ -3146,6 +3146,12 @@ begin
// set all cached properties
//DebugLn('[TWinControl.InitializeWnd] ',Name,':',ClassName,':', FCaption,' ',Left,',',Top,',',Width,',',Height);
//First set the WinControl property.
//The win32 interface depends on it to determine where to send call backs.
SetProp(Handle,'WinControl',TWinControl(Self));
SetProp(Handle,'Control',TControl(Self));
DoSendBoundsToInterface;
CNSendMessage(LM_SHOWHIDE, Self, nil);
@ -3162,9 +3168,6 @@ begin
if not (csLoading in ComponentState)
then TWSWinControlClass(WidgetSetClass).SetText(Self, FCaption);
SetProp(Handle,'WinControl',TWinControl(Self));
SetProp(Handle,'Control',TControl(Self));
// send pending resize event
Resize;
end;
@ -3577,6 +3580,9 @@ end;
{ =============================================================================
$Log$
Revision 1.235 2004/05/31 13:06:47 marc
* Patch from Vincent, moved SetProp(wincontrol)
Revision 1.234 2004/05/30 14:02:30 mattias
implemented OnChange for TRadioButton, TCheckBox, TToggleBox and some more docking stuff