Browse Source

Fix ColorSpeedButton borders

lainz 6 years ago
parent
commit
5930fe89ea
1 changed files with 4 additions and 0 deletions
  1. 4 0
      colorspeedbutton.pas

+ 4 - 0
colorspeedbutton.pas

@@ -483,6 +483,10 @@ begin
   TempState := FState;
   if Toggle and Pressed then
     TempState := bsDown;
+
+  Canvas.Pen.JoinStyle := pjsMiter; // remove rounded borders
+  Canvas.Pen.Style := psInsideframe; // draws border width inside equally
+
   case TempState of
     bsUp:
     begin