125 lines
2.8 KiB
ObjectPascal
125 lines
2.8 KiB
ObjectPascal
unit umain;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ExtCtrls, ComCtrls,
|
|
ColorBox, StdCtrls, BCMDButton;
|
|
|
|
type
|
|
|
|
{ TForm1 }
|
|
|
|
TForm1 = class(TForm)
|
|
BCMDButton10: TBCMDButton;
|
|
BCMDButton11: TBCMDButton;
|
|
BCMDButton12: TBCMDButton;
|
|
BCMDButton13: TBCMDButton;
|
|
BCMDButton4: TBCMDButton;
|
|
BCMDButton5: TBCMDButton;
|
|
BCMDButton6: TBCMDButton;
|
|
BCMDButton7: TBCMDButton;
|
|
BCMDButton8: TBCMDButton;
|
|
BCMDButton9: TBCMDButton;
|
|
ColorBox1: TColorBox;
|
|
PageControl1: TPageControl;
|
|
Panel2: TPanel;
|
|
StaticText1: TStaticText;
|
|
TabSheet1: TTabSheet;
|
|
TabSheet2: TTabSheet;
|
|
TabSheet3: TTabSheet;
|
|
procedure ColorBox1Change(Sender: TObject);
|
|
procedure FormCreate(Sender: TObject);
|
|
procedure BCMDButton10Click(Sender: TObject);
|
|
procedure BCMDButton11Click(Sender: TObject);
|
|
procedure BCMDButton12Click(Sender: TObject);
|
|
procedure BCMDButton13Click(Sender: TObject);
|
|
procedure BCMDButton1Click(Sender: TObject);
|
|
procedure BCMDButton2Click(Sender: TObject);
|
|
procedure BCMDButton3Click(Sender: TObject);
|
|
procedure BCMDButton4Click(Sender: TObject);
|
|
private
|
|
|
|
public
|
|
|
|
end;
|
|
|
|
var
|
|
Form1: TForm1;
|
|
|
|
implementation
|
|
|
|
{$R *.lfm}
|
|
|
|
{ TForm1 }
|
|
|
|
procedure TForm1.BCMDButton1Click(Sender: TObject);
|
|
begin
|
|
PageControl1.ActivePageIndex := 0;
|
|
end;
|
|
|
|
procedure TForm1.FormCreate(Sender: TObject);
|
|
begin
|
|
PageControl1.ActivePageIndex := 0;
|
|
BCMDBUTTONCHECKMARKPOSITION := cmpBottom;
|
|
BCMDBUTTONCHECKMARKCOLOR := ColorBox1.Selected;
|
|
end;
|
|
|
|
procedure TForm1.ColorBox1Change(Sender: TObject);
|
|
begin
|
|
BCMDBUTTONCHECKMARKCOLOR := ColorBox1.Selected;
|
|
Panel2.Invalidate;
|
|
end;
|
|
|
|
procedure TForm1.BCMDButton10Click(Sender: TObject);
|
|
begin
|
|
BCMDBUTTONCHECKMARKPOSITION := cmpBottom;
|
|
Panel2.ChildSizing.Layout := cclLeftToRightThenTopToBottom;
|
|
Panel2.Align := alTop;
|
|
Panel2.Invalidate;
|
|
end;
|
|
|
|
procedure TForm1.BCMDButton11Click(Sender: TObject);
|
|
begin
|
|
BCMDBUTTONCHECKMARKPOSITION := cmpRight;
|
|
Panel2.ChildSizing.Layout := cclTopToBottomThenLeftToRight;
|
|
Panel2.Align := alRight;
|
|
Panel2.Invalidate;
|
|
end;
|
|
|
|
procedure TForm1.BCMDButton12Click(Sender: TObject);
|
|
begin
|
|
BCMDBUTTONCHECKMARKPOSITION := cmpTop;
|
|
Panel2.ChildSizing.Layout := cclLeftToRightThenTopToBottom;
|
|
Panel2.Align := alBottom;
|
|
Panel2.Invalidate;
|
|
end;
|
|
|
|
procedure TForm1.BCMDButton13Click(Sender: TObject);
|
|
begin
|
|
BCMDBUTTONANIMATION := BCMDButton13.Checked;
|
|
end;
|
|
|
|
procedure TForm1.BCMDButton2Click(Sender: TObject);
|
|
begin
|
|
PageControl1.ActivePageIndex := 1;
|
|
end;
|
|
|
|
procedure TForm1.BCMDButton3Click(Sender: TObject);
|
|
begin
|
|
PageControl1.ActivePageIndex := 2;
|
|
end;
|
|
|
|
procedure TForm1.BCMDButton4Click(Sender: TObject);
|
|
begin
|
|
BCMDBUTTONCHECKMARKPOSITION := cmpLeft;
|
|
Panel2.ChildSizing.Layout := cclTopToBottomThenLeftToRight;
|
|
Panel2.Align := alLeft;
|
|
Panel2.Invalidate;
|
|
end;
|
|
|
|
end.
|
|
|