ソースを参照

Fix proposed by @phoenixfenix to bug #26

lainz 7 年 前
コミット
32bec09fba
1 ファイル変更2 行追加2 行削除
  1. 2 2
      bctrackbarupdown.pas

+ 2 - 2
bctrackbarupdown.pas

@@ -463,8 +463,8 @@ begin
     else
     else
     begin
     begin
       s := ABitmap.TextSize(inSel);
       s := ABitmap.TextSize(inSel);
-      ABitmap.FillRect(x,y+1,x+s.cx,y+s.cy,clHighlight,dmSet);
-      ABitmap.TextOut(x,y,inSel,clHighlightText);
+      ABitmap.FillRect(x,y+1,x+s.cx,y+s.cy,ColorToRGB(clHighlight),dmSet);
+      ABitmap.TextOut(x,y,inSel,ColorToRGB(clHighlightText));
       inc(x,s.cx);
       inc(x,s.cx);
     end;
     end;
     ABitmap.TextOut(x,y,afterSel,fgcolor);
     ABitmap.TextOut(x,y,afterSel,fgcolor);