Differences

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

--- en:projects:sgjcontrols [2023/04/10 20:37] – [TSGJToogleButton] sgj
+++ en:projects:sgjcontrols [2023/04/12 18:10] (current) – [TSGJPanel] sgj
@@ Line 15: / Line 15: @@
 On Delphi it uses Direct2D on supported Delphi and Windows version and Canvas on older versions.
-ButtonSettings Property:
+Property:
-  * Title - string, button  text
+  * Caption - string, button  text
   * Description - string, second line text (only if ShowDescription set to true)
   * ColorNormal - TColor, button color
@@ Line 32: / Line 32: @@
 Toogle button, modern checkbox replacement.
+Default compile configuration
 <code delphi>
-{$IFDEF FPC}
+{$IFDEF FPC}                       //Lazarus / FPC
-  {$DEFINE SGJCTRL_W_BGRA}
+  {$DEFINE SGJCTRL_W_BGRA}         //BGRABitmap draw only
-//{$DEFINE SGJCTRL_W_Canvas}
+//{$DEFINE SGJCTRL_W_Canvas}       //Canvas draw only
-//{$DEFINE SGJCTRL_W_GDIPlUS}
+//{$DEFINE SGJCTRL_W_GDIPlUS}      //GDI PLUS draw only(and only on Windows)
-{$ELSE}
+{$ELSE}                            //Delphi:
-//{$DEFINE SGJCTRL_W_Canvas}
+//{$DEFINE SGJCTRL_W_Canvas}       //Canvas draw only
 {$IF CompilerVersion >= 21}
-	{$DEFINE SGJCTRL_W_D2D}
+	{$DEFINE SGJCTRL_W_D2D}    //Direct2D
 {$IFEND}
-  {$DEFINE SGJCTRL_W_GDIPlUS}
+  {$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 52: / 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 |}}