Explorar o código

Improve border width defaults.

Martijn Laan hai 1 mes
pai
achega
9cf698d8e5
Modificáronse 1 ficheiros con 2 adicións e 2 borrados
  1. 2 2
      Components/BitmapButton.pas

+ 2 - 2
Components/BitmapButton.pas

@@ -83,8 +83,8 @@ constructor TBitmapButton.Create(AOwner: TComponent);
 begin
   inherited;
   ControlStyle := ControlStyle + [csReplicatable];
-  FFocusBorderWidth := 2;
-  FFocusBorderHeight := 2;
+  FFocusBorderWidth := 1;
+  FFocusBorderHeight := 1;
   FImpl.Init(Self, 2*FFocusBorderWidth, 2*FFocusBorderHeight);
   TabStop := True;
   Height := 105;