====== SGJ Controls ======
Visual Controls for Delphi and Lazarus
GitHub: https://github.com/sgjps/SGJ_Controls
Web: https://www.sgjps.com/en/projects/sgj_controls
===== TSGJButton =====
Button with color styling and images display.
On Lazarus it uses bgrabitmap.
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
* ColorHover - TColor, color when mouse move
* Images - TImagelist
* ImageIndex - image index from imagelist
* ShowDescription - boolean, if true then show second line with description
* FontDescription - font for description
* ShowBorder - if true then show border
* BorderColor - TColor, border color
* RoundedCorners - boolean, enable rounded corners
* TitleOnCenter - Move title to center(only with ShowDescription=false and no images)
===== TSGJToogleButton =====
Toogle button, modern checkbox replacement.
Default compile configuration
{$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}
On Delphi Direct2D is switched to Canvas if not supported. If enable Direct2D with GDI+, then switched D2D to GDI+ when not supported.
Property:
ButtonColor :TColor
ButtonCheckedColor :TColor
ButtonUnCheckedColor :TColor
Caption :String
TextBeforeButton :Boolean
Checked :Boolean
===== TSGJLinkLabel =====
Label component with URL property. URL adress is executed with default system application when click. No additional code needed.
===== TSGJPanel =====
Panel component with customized border.
Property:
* Caption - string, if set, then panel display Header like groupbox.
* BorderColor - TColor, border color
* ShowBorder - boolean, if true then show border
===== Demo preview =====
{{ :en:projects:sgjcontrols.jpg?400 |}}