Differences

This shows you the differences between two versions of the page.

--- en:projects:sgjcontrols [2023/04/10 20:27] – [TSGJButton] sgj
+++ en:projects:sgjcontrols [2023/04/12 18:10] (current) – [TSGJPanel] sgj
@@ Line 9: / Line 9: @@
 ===== TSGJButton =====
 Button with color styling and images display.
-ButtonSettings Property:
+On Lazarus it uses bgrabitmap.
-  * Title - string, button  text
+On Delphi it uses Direct2D on supported Delphi and Windows version and Canvas on older versions.
+Property:
+  * Caption - string, button  text
   * Description - string, second line text (only if ShowDescription set to true)
   * ColorNormal - TColor, button color
@@ Line 26: / Line 30: @@
 ===== TSGJToogleButton =====
+Toogle button, modern checkbox replacement.
+Default compile configuration
+<code delphi>
+{$IFDEF FPC}                       //Lazarus / FPC
+  {$DEFINE SGJCTRL_W_BGRA}         //BGRABitmap draw only
+//{$DEFINE SGJCTRL_W_Canvas}       //Canvas draw only
+//{$DEFINE SGJCTRL_W_GDIPlUS}      //GDI PLUS draw only(and only on Windows)
+{$ELSE}                            //Delphi:
+//{$DEFINE SGJCTRL_W_Canvas}       //Canvas draw only
+{$IF CompilerVersion >= 21}
+	{$DEFINE SGJCTRL_W_D2D}    //Direct2D
+{$IFEND}
+  {$DEFINE SGJCTRL_W_GDIPlUS}      //GDI PLUS
+{$ENDIF}
+</code>
+On Delphi Direct2D is switched to Canvas if not supported. If enable Direct2D with GDI+, then switched D2D to GDI+ when not supported.
+<code>
+Property:
+ButtonColor             :TColor
+ButtonCheckedColor      :TColor
+ButtonUnCheckedColor    :TColor
+Caption                 :String
+TextBeforeButton        :Boolean
+Checked                 :Boolean
+</code>
 ===== TSGJLinkLabel =====
@@ Line 33: / Line 66: @@
 Panel component with customized border.
 Property:
-  * Title - string, if set, then panel display Header like groupbox.
+  * Caption     - string, if set, then panel display Header like groupbox.
   * BorderColor - TColor, border color
-  * ShowBorder - boolean, if true then show border
+  * ShowBorder  - boolean, if true then show border
 ===== Demo preview =====
 {{ :en:projects:sgjcontrols.jpg?400 |}}