Преглед изворни кода

Added TabStop to bcbuttonfocus.pas

lainz пре 9 година
родитељ
комит
3346060bfe
1 измењених фајлова са 3 додато и 0 уклоњено
  1. 3 0
      bcbuttonfocus.pas

+ 3 - 0
bcbuttonfocus.pas

@@ -350,6 +350,8 @@ type
     property MemoryUsage;
     property MemoryUsage;
     { The unique name of the control in the form. }
     { The unique name of the control in the form. }
     property Name;
     property Name;
+    { TabStop }
+    property TabStop;
   end;
   end;
 
 
   { TBCButtonFocusActionLink }
   { TBCButtonFocusActionLink }
@@ -1649,6 +1651,7 @@ begin
   try
   try
     with GetControlClassDefaultSize do
     with GetControlClassDefaultSize do
       SetInitialBounds(0, 0, CX, CY);
       SetInitialBounds(0, 0, CX, CY);
+    TabStop := True;
     ControlStyle := ControlStyle + [csAcceptsControls];
     ControlStyle := ControlStyle + [csAcceptsControls];
     FBGRANormal := TBGRABitmapEx.Create(Width, Height, BGRAPixelTransparent);
     FBGRANormal := TBGRABitmapEx.Create(Width, Height, BGRAPixelTransparent);
     FBGRAHover := TBGRABitmapEx.Create(Width, Height, BGRAPixelTransparent);
     FBGRAHover := TBGRABitmapEx.Create(Width, Height, BGRAPixelTransparent);