paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-08 21:39:31 +01: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.Brush.Style := bsSolid;
ADest.Pen.Style := psSolid; ADest.Pen.Style := psSolid;
ADest.Pen.FPColor := colBlack; ADest.Pen.FPColor := colBlack;
if i + CDTrackBar.Min = CDTrackBar.Position then if i + CDTrackBar.Min <= CDTrackBar.Position then
ADest.Brush.FPColor := colDkGray ADest.Brush.FPColor := colDkGray
else else
ADest.Brush.FPColor := colWhite; ADest.Brush.FPColor := colWhite;