paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-03 00:00: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 if FParentShowHint then
begin begin
ShowHint := FParent.ShowHint; ShowHint := FParent.ShowHint;
FParentShowHint := true; FParentShowHint := True;
end; end;
end; end;
@ -3321,10 +3321,11 @@ end;
------------------------------------------------------------------------------} ------------------------------------------------------------------------------}
procedure TControl.SetParentShowHint(Value : Boolean); procedure TControl.SetParentShowHint(Value : Boolean);
Begin Begin
if FParentShowHint <> Value if FParentShowHint <> Value then
then begin begin
FParentShowHint := Value; 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;
end; end;
@ -3991,7 +3992,8 @@ begin
FAlign := alNone; FAlign := alNone;
FCaptureMouseButtons := [mbLeft]; FCaptureMouseButtons := [mbLeft];
FColor := clWindow; FColor := clWindow;
FVisible := true; FVisible := True;
FParentBidiMode := True;
FParentColor := True; FParentColor := True;
FParentFont := True; FParentFont := True;
FParentShowHint := True; FParentShowHint := True;
@ -4004,7 +4006,6 @@ begin
FHelpType := htContext; FHelpType := htContext;
FDragCursor := crDrag; FDragCursor := crDrag;
FFloatingDockSiteClass := TCustomDockForm; FFloatingDockSiteClass := TCustomDockForm;
FParentBidiMode := True;
//DebugLn('TControl.Create END ',Name,':',ClassName); //DebugLn('TControl.Create END ',Name,':',ClassName);
end; end;