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

lcl: move HandleAllocated check to UpdateRegion of THintWindow

Browse Source 
git-svn-id: trunk@41572 -
This commit is contained in:
paul 2013-06-07 01:25:38 +00:00
parent 6c7c19d872
commit f597e810ce
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lcl/include/hintwindow.inc
View File

@ -84,6 +84,9 @@ var
Details: TThemedElementDetails;
Rgn: HRGN;
begin
if not HandleAllocated then
Exit;
if (Color = clInfoBk) or (Color = clDefault) then
begin
Details := ThemeServices.GetElementDetails(tttStandardNormal);
@ -98,8 +101,7 @@ end;
procedure THintWindow.SetColor(Value: TColor);
begin
inherited SetColor(Value);
if HandleAllocated then
UpdateRegion;
UpdateRegion;
end;
function THintWindow.GetDrawTextFlags: Cardinal;
@ -172,8 +174,7 @@ end;
procedure THintWindow.SetBounds(ALeft, ATop, AWidth, AHeight: integer);
begin
inherited SetBounds(ALeft, ATop, AWidth, AHeight);
if HandleAllocated then
UpdateRegion;
UpdateRegion;
end;
class function THintWindow.GetControlClassDefaultSize: TSize;