CTS.Test.pas

unit CTS.Test;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls,
  Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, mbDeskPickerButton, Vcl.ExtCtrls, Vcl.Buttons, HGM.Button,
  Vcl.Imaging.pngimage;

type
  TFormTest = class(TForm)
    Panel1: TPanel;
    Shape4: TShape;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    ColorSelectBG: TButtonFlat;
    ColorSelectPanel: TButtonFlat;
    ColorSelectFont: TButtonFlat;
    ColorDialog: TColorDialog;
    GroupBox1: TGroupBox;
    RadioButtonPanel: TRadioButton;
    RadioButtonFont: TRadioButton;
    RadioButtonBG: TRadioButton;
    RadioButtonNone: TRadioButton;
    Image1: TImage;
    ShapeT1: TShape;
    LabelT1: TLabel;
    LabelT2: TLabel;
    LabelT3: TLabel;
    ShapeT2: TShape;
    ShapeT3: TShape;
    ShapeBG: TShape;
    procedure ColorSelectBGChange(Sender: TObject);
    procedure ColorSelectPanelChange(Sender: TObject);
    procedure ColorSelectFontChange(Sender: TObject);
    procedure ColorSelectBGClick(Sender: TObject);
    procedure ColorSelectPanelClick(Sender: TObject);
    procedure ColorSelectFontClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormTest: TFormTest;

implementation

{$R *.dfm}

procedure TFormTest.ColorSelectBGChange(Sender: TObject);
begin
  ShapeBG.Brush.Color := ColorSelectBG.ColorNormal;
end;

procedure TFormTest.ColorSelectBGClick(Sender: TObject);
begin
  if ColorDialog.Execute(Handle) then
  begin
    ColorSelectBG.ColorNormal := ColorDialog.Color;
    ColorSelectBG.ColorPressed := ColorDialog.Color;
    ColorSelectBG.ColorOver := ColorDialog.Color;
    ColorSelectBGChange(nil);
  end;
end;

procedure TFormTest.ColorSelectFontChange(Sender: TObject);
begin
  LabelT1.Font.Color := ColorSelectFont.ColorNormal;
  LabelT2.Font.Color := ColorSelectFont.ColorNormal;
  LabelT3.Font.Color := ColorSelectFont.ColorNormal;
end;

procedure TFormTest.ColorSelectFontClick(Sender: TObject);
begin
  if ColorDialog.Execute(Handle) then
  begin
    ColorSelectFont.ColorNormal := ColorDialog.Color;
    ColorSelectFont.ColorPressed := ColorDialog.Color;
    ColorSelectFont.ColorOver := ColorDialog.Color;
    ColorSelectFontChange(nil);
  end;
end;

procedure TFormTest.ColorSelectPanelChange(Sender: TObject);
begin
  ShapeT1.Brush.Color := ColorSelectPanel.ColorNormal;
  ShapeT2.Brush.Color := ColorSelectPanel.ColorNormal;
  ShapeT3.Brush.Color := ColorSelectPanel.ColorNormal;
end;

procedure TFormTest.ColorSelectPanelClick(Sender: TObject);
begin
  if ColorDialog.Execute(Handle) then
  begin
    ColorSelectPanel.ColorNormal := ColorDialog.Color;
    ColorSelectPanel.ColorPressed := ColorDialog.Color;
    ColorSelectPanel.ColorOver := ColorDialog.Color;
    ColorSelectPanelChange(nil);
  end;
end;

end.