paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-01 08:20:35 +02:00
Code Issues Packages Projects Releases Wiki Activity

Small decoration improvement in cdtrackbar

Browse Source 
git-svn-id: trunk@32516 -
This commit is contained in:
sekelsenmat 2011-09-26 07:05:13 +00:00
parent b9ed244eab
commit a0e87f7faa
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/customdrawn/customdrawnextras.pas
View File

@ -1985,7 +1985,7 @@ begin
ADest.Brush.Style := bsSolid;
ADest.Pen.Style := psSolid;
ADest.Pen.FPColor := colBlack;
if i + CDTrackBar.Min = CDTrackBar.Position then
if i + CDTrackBar.Min <= CDTrackBar.Position then
ADest.Brush.FPColor := colDkGray
else
ADest.Brush.FPColor := colWhite;