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

lcl: don't set ShowHint in CMParentShowHintChanged during loading, update ShowHint from ParentShowHint in Loaded (fixes issue #0013969)

Browse Source 
git-svn-id: trunk@20614 -
This commit is contained in:
paul 2009-06-13 09:05:53 +00:00
parent 1c2b75ab5f
commit 881d1ac331
1 changed files with 20 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
lcl/include/control.inc
View File

@ -724,7 +724,7 @@ end;
------------------------------------------------------------------------------}
procedure TControl.CMParentColorChanged(var Message: TLMessage);
begin
if csLoading in ComponentState then exit;
if csLoading in ComponentState then Exit;
if FParentColor then
begin
@ -740,6 +740,8 @@ end;
------------------------------------------------------------------------------}
procedure TControl.CMParentShowHintChanged(var Message: TLMessage);
begin
if csLoading in ComponentState then Exit;
if FParentShowHint then
begin
ShowHint := FParent.ShowHint;
@ -2888,20 +2890,30 @@ begin
SetBoundsKeepBase(Left,Top,NewWidth,NewHeight);
end;
if Assigned(Parent) then begin
if ParentColor then begin
if Assigned(Parent) then
begin
if ParentColor then
begin
Color := Parent.Color;
ParentColor := true;
ParentColor := True;
end;
if ParentFont then begin
if ParentFont then
begin
Font := Parent.Font;
ParentFont := true;
ParentFont := True;
end;
if ParentBidiMode then begin
if ParentBidiMode then
begin
BiDiMode := Parent.BiDiMode;
ParentBidiMode := true;
ParentBidiMode := True;
end;
if ParentShowHint then
begin
ShowHint := Parent.ShowHint;
ParentShowHint := True;
end;
end;