Added BorderSpacing, Constraints properties to BCSVGViewer and BCSVGB…

…utton
bgrabitmap · Jan 7, 2019 · d29eea4 · d29eea4
1 parent bb3d037
commit d29eea4
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 1 deletion.
diff --git a/bcsvgbutton.pas b/bcsvgbutton.pas
@@ -100,6 +100,8 @@   TBCSVGButton = class(TBCSVGViewer)
     destructor Destroy; override;
     procedure paint; override;
   published
+    property BorderSpacing;
+    property Constraints;
     Property FileNameDown : String Read FFileNameDown Write setFFileNameDown;
     Property FileNameHover : String Read FFileNameHover Write setFFileNameHover;
     Property FileNameNormal : String Read FFileNameNormal Write setFFileNameNormal;
@@ -112,7 +114,6 @@   TBCSVGButton = class(TBCSVGViewer)
     property Position:integer read fposition write SetPosition;
     property Maximum:integer read fmax write SetMax;
     property OnPositionChange: TNotifyEvent read FOnPositionChange write FOnPositionChange;
-
   end;
 
 {$IFDEF FPC}procedure Register;{$ENDIF}

diff --git a/bcsvgviewer.pas b/bcsvgviewer.pas
@@ -53,6 +53,8 @@   TBCSVGViewer = class(TCustomBGRAGraphicControl)
     property Anchors;
     property OnRedraw;
     property Bitmap;
+    property BorderSpacing;
+    property Constraints;
     property SVG: TBGRASVG read FSVG;
     property DestDPI: single read FDestDPI write SetFDestDPI {$IFDEF FPC}default 96{$ENDIF};
     property x: single read Fx write SetFx {$IFDEF FPC}default 0{$ENDIF};