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

lcl: reset hint window region when color is changed to non-default

Browse Source 
git-svn-id: trunk@41502 -
This commit is contained in:
paul 2013-06-03 02:22:33 +00:00
parent 1e4301f4d7
commit aab787525a
2 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lcl/forms.pp
View File

@ -846,6 +846,7 @@ type
procedure WMNCHitTest(var Message: TLMessage); message LM_NCHITTEST;
procedure DoShowWindow; override;
procedure UpdateRegion;
procedure SetColor(Value: TColor); override;
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;

10
lcl/include/hintwindow.inc
View File

@ -90,7 +90,15 @@ begin
ARect := ClientRect;
Rgn := ThemeServices.GetDetailRegion(Canvas.Handle, Details, ARect);
SetWindowRgn(Handle, Rgn, False);
end;
end
else
SetWindowRgn(Handle, 0, False);
end;
procedure THintWindow.SetColor(Value: TColor);
begin
inherited SetColor(Value);
UpdateRegion;
end;
function THintWindow.GetDrawTextFlags: Cardinal;