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

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

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