paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-07 18:40:41 +02:00
Code Issues Packages Projects Releases Wiki Activity

fix groupbox-parent bug condition, use buddy

Browse Source 
git-svn-id: trunk@5588 -
This commit is contained in:
micha 2004-06-20 13:00:04 +00:00
parent edb259908d
commit ccbf3bc01e
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lcl/interfaces/win32/win32object.inc
View File

@ -2319,7 +2319,7 @@ Begin
End;
{csFrame,} csGroupBox:
Begin
if (Sender is TWinControl) and (TWinControl(Sender).Parent <> nil) and
if FThemesActive and (Sender is TWinControl) and (TWinControl(Sender).Parent <> nil) and
(TWinControl(Sender).Parent.FCompStyle = csGroupBox) then
begin
// the parent of this groupbox is another groupbox: there is a bug in
@ -2330,6 +2330,7 @@ Begin
// do not use 'ParentPanel' property for other controls!
Parent := CreateWindowEx(0, @ClsName, nil, WS_CHILD or WS_CLIPSIBLINGS or (Flags and WS_VISIBLE),
Left, Top, Width, Height, Parent, 0, HInstance, nil);
Buddy := Parent;
Left := 0;
Top := 0;
Flags := Flags or WS_VISIBLE;
@ -2588,10 +2589,11 @@ Begin
csGroupBox:
begin
// use exact same condition as above
if (TWinControl(Sender).Parent <> nil) and (TWinControl(Sender).Parent.FCompStyle = csGroupBox) then
if Buddy <> 0 then
begin
Windows.SetProp(Window, 'ParentPanel', Parent);
// no need to subclass this parentpanel
Buddy := 0;
end;
end;
@ -3279,6 +3281,9 @@ End;
{
$Log$
Revision 1.211 2004/06/20 13:00:04 micha
fix groupbox-parent bug condition, use buddy
Revision 1.210 2004/06/19 15:10:04 micha
fix spinedit not firing onchange event