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

lcl: send CM_PARENTSHOWHINTCHANGED when we change ParentShowHint property (same as we do for other ParentDoSomething properties)

Browse Source 
git-svn-id: trunk@20613 -
This commit is contained in:
paul 2009-06-13 08:59:31 +00:00
parent bdc5abc1da
commit 1c2b75ab5f
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
lcl/include/control.inc
View File

@ -743,7 +743,7 @@ begin
if FParentShowHint then
begin
ShowHint := FParent.ShowHint;
FParentShowHint := true;
FParentShowHint := True;
end;
end;
@ -3321,10 +3321,11 @@ end;
------------------------------------------------------------------------------}
procedure TControl.SetParentShowHint(Value : Boolean);
Begin
if FParentShowHint <> Value
then begin
if FParentShowHint <> Value then
begin
FParentShowHint := Value;
//Sendmessage to stop/start hints for parent
if Assigned(FParent) and not (csReading in ComponentState) then
Perform(CM_PARENTSHOWHINTCHANGED, 0, 0);
end;
end;
@ -3991,7 +3992,8 @@ begin
FAlign := alNone;
FCaptureMouseButtons := [mbLeft];
FColor := clWindow;
FVisible := true;
FVisible := True;
FParentBidiMode := True;
FParentColor := True;
FParentFont := True;
FParentShowHint := True;
@ -4004,7 +4006,6 @@ begin
FHelpType := htContext;
FDragCursor := crDrag;
FFloatingDockSiteClass := TCustomDockForm;
FParentBidiMode := True;
//DebugLn('TControl.Create END ',Name,':',ClassName);
end;