pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

tvplanit: Fix incorrect background color of analog TVpClock

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8217 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2022-03-21 23:05:05 +00:00
parent 327b57d481
commit 321ebdb047
1 changed files with 4 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
components/tvplanit/source/vpclock.pas
View File

@ -939,7 +939,10 @@ var
begin
with ckDraw.Canvas do begin
Brush.Color := Color;
if Color = clDefault then
Brush.Color := GetDefaultColor(dctBrush)
else
Brush.Color := Color;
Pen.Color := FHandOptions.HourHandColor;
Pen.Width := 1;
FillRect(ClientRect);