3c3e91c992
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@527 8e941d3f-bd1b-0410-a28a-d453659cc2b4
326 lines
8.5 KiB
ObjectPascal
326 lines
8.5 KiB
ObjectPascal
unit main;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs,
|
|
StdCtrls, ExtCtrls, ugradbtn, Buttons, ComCtrls,
|
|
LCLType, ExtDlgs, urotatebitmap;
|
|
|
|
type
|
|
|
|
{ TForm1 }
|
|
|
|
TForm1 = class(TForm)
|
|
CheckGroup1: TCheckGroup;
|
|
CheckGroup2: TCheckGroup;
|
|
ColorDialog1: TColorDialog;
|
|
b: TGradButton;
|
|
GradButton1: TGradButton;
|
|
GradButton2: TGradButton;
|
|
GradButton3: TGradButton;
|
|
GradButton4: TGradButton;
|
|
GradButton5: TGradButton;
|
|
GradButton6: TGradButton;
|
|
GradButton7: TGradButton;
|
|
ImageList1: TImageList;
|
|
Label1: TLabel;
|
|
Label10: TLabel;
|
|
Label11: TLabel;
|
|
Label2: TLabel;
|
|
Label3: TLabel;
|
|
Label4: TLabel;
|
|
Label5: TLabel;
|
|
Label6: TLabel;
|
|
Label7: TLabel;
|
|
Label8: TLabel;
|
|
Label9: TLabel;
|
|
LabeledEdit1: TLabeledEdit;
|
|
OpenPictureDialog1: TOpenPictureDialog;
|
|
RadioGroup1: TRadioGroup;
|
|
RadioGroup2: TRadioGroup;
|
|
RadioGroup3: TRadioGroup;
|
|
RadioGroup4: TRadioGroup;
|
|
TrackBar1: TTrackBar;
|
|
TrackBar2: TTrackBar;
|
|
procedure bClick(Sender: TObject);
|
|
procedure CheckGroup1ItemClick(Sender: TObject; Index: integer);
|
|
procedure CheckGroup2ItemClick(Sender: TObject; Index: integer);
|
|
procedure BaseColorClick(Sender: TObject);
|
|
procedure GradButton4Click(Sender: TObject);
|
|
procedure GradButton5Click(Sender: TObject);
|
|
procedure GradButton6Click(Sender: TObject);
|
|
procedure GradButton7Click(Sender: TObject);
|
|
procedure NormalBlendClick(Sender: TObject);
|
|
procedure OverBlendClick(Sender: TObject);
|
|
procedure FormCreate(Sender: TObject);
|
|
procedure RadioGroup1Click(Sender: TObject);
|
|
procedure RadioGroup2Click(Sender: TObject);
|
|
procedure RadioGroup3Click(Sender: TObject);
|
|
procedure RadioGroup4Click(Sender: TObject);
|
|
procedure TrackBar1Change(Sender: TObject);
|
|
procedure TrackBar2Change(Sender: TObject);
|
|
procedure LabeledEdit1KeyUp(Sender: TObject; var Key: Word;
|
|
Shift: TShiftState);
|
|
end;
|
|
|
|
var
|
|
Form1: TForm1;
|
|
|
|
implementation
|
|
|
|
uses
|
|
GraphType, LazPNG;
|
|
|
|
{ TForm1 }
|
|
|
|
procedure TForm1.FormCreate(Sender: TObject);
|
|
begin
|
|
TrackBar1.Position:= trunc(b.NormalBlend * TrackBar1.Max);
|
|
TrackBar1Change(TrackBar1);
|
|
|
|
TrackBar2.Position:= trunc(b.OverBlend * TrackBar2.Max);
|
|
TrackBar2Change(TrackBar2);
|
|
|
|
with GradButton1 do
|
|
begin
|
|
BaseColor:=b.BaseColor;
|
|
Caption:=ColorToString(BaseColor);
|
|
end;
|
|
|
|
with GradButton2 do
|
|
begin
|
|
BaseColor:=b.NormalBlendColor;
|
|
Caption:=ColorToString(BaseColor);
|
|
end;
|
|
|
|
with GradButton3 do
|
|
begin
|
|
BaseColor:=b.OverBlendColor;
|
|
Caption:=ColorToString(BaseColor);
|
|
end;
|
|
|
|
CheckGroup1.Checked[0]:=true;
|
|
CheckGroup1.Checked[1]:=true;
|
|
CheckGroup1.Checked[2]:=true;
|
|
CheckGroup1.Checked[3]:=true;
|
|
|
|
CheckGroup2.Checked[0]:=b.ShowFocusBorder;
|
|
CheckGroup2.Checked[2]:=true;
|
|
|
|
//ImageList1.AddLazarusResource('house');
|
|
|
|
//ImageList1.GetBitmap(0,b.Glyph,gdeHighlighted);
|
|
|
|
//ImageList1.GetBitmap();
|
|
|
|
b.GlyphBackgroundColor:=clWhite;
|
|
GradButton5.BaseColor:=clWhite;
|
|
GradButton5.Caption:=ColorToString(clWhite);
|
|
GradButton6.Caption:=ColorToString(GradButton6.BaseColor);
|
|
GradButton7.Caption:=ColorToString(b.DisabledColor);
|
|
GradButton7.BaseColor:=b.DisabledColor;
|
|
|
|
b.ClickColor:=GradButton6.BaseColor;
|
|
b.Caption:=LabeledEdit1.Text;
|
|
end;
|
|
|
|
procedure TForm1.RadioGroup1Click(Sender: TObject);
|
|
begin
|
|
if RadioGroup1.ItemIndex = 0 then
|
|
b.GradientType := gtHorizontal
|
|
else
|
|
b.GradientType := gtVertical;
|
|
end;
|
|
|
|
procedure TForm1.RadioGroup2Click(Sender: TObject);
|
|
begin
|
|
if RadioGroup2.ItemIndex = 0 then
|
|
b.RotateDirection := rdNormal
|
|
else if RadioGroup2.ItemIndex = 1 then
|
|
b.RotateDirection := rdLeft
|
|
else
|
|
b.RotateDirection := rdRight;
|
|
end;
|
|
|
|
procedure TForm1.RadioGroup3Click(Sender: TObject);
|
|
begin
|
|
if RadioGroup3.ItemIndex = 0 then
|
|
b.ButtonLayout := blGlyphRight
|
|
else if RadioGroup3.ItemIndex = 1 then
|
|
b.ButtonLayout := blGlyphLeft
|
|
else if RadioGroup3.ItemIndex = 2 then
|
|
b.ButtonLayout := blGlyphTop
|
|
else b.ButtonLayout := blGlyphBottom;
|
|
end;
|
|
|
|
procedure TForm1.RadioGroup4Click(Sender: TObject);
|
|
begin
|
|
case RadioGroup4.ItemIndex of
|
|
0 : b.TextAlignment := taCenter;
|
|
1 : b.TextAlignment := taLeftJustify;
|
|
2 : b.TextAlignment := taRightJustify;
|
|
end;
|
|
end;
|
|
|
|
procedure TForm1.BaseColorClick(Sender: TObject);
|
|
begin
|
|
ColorDialog1.Color:=GradButton1.BaseColor;
|
|
if ColorDialog1.Execute then
|
|
begin
|
|
b.BaseColor:=ColorDialog1.Color;
|
|
GradButton1.BaseColor:=ColorDialog1.Color;
|
|
GradButton1.Caption:=ColorToString(GradButton1.BaseColor);
|
|
end;
|
|
end;
|
|
|
|
procedure TForm1.GradButton4Click(Sender: TObject);
|
|
var
|
|
tempPicture : TPicture;
|
|
png : TPNGImage;
|
|
begin
|
|
if OpenPictureDialog1.Execute then
|
|
begin
|
|
ImageList1.Clear;
|
|
try
|
|
tempPicture := TPicture.Create;
|
|
tempPicture.LoadFromFile(OpenPictureDialog1.FileName);
|
|
//png := TPNGImage.Create;
|
|
//png.LoadFromFile(OpenPictureDialog1.FileName);
|
|
|
|
GradButton4.Glyph.Assign(tempPicture.Graphic);
|
|
b.Glyph.Assign(tempPicture.Graphic);
|
|
|
|
GradButton4.UpdateButton;
|
|
b.UpdateButton;
|
|
//ImageList1.;
|
|
//Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
|
|
//tempPicture.Picture.Bitmap.Canvas.Pixels[1,2]:=clRed;
|
|
//ImageList1.AddMasked(tempPicture.Picture.Bitmap,clNone);
|
|
//ImageList1.GetBitmap(0,b.Glyph);
|
|
//mageList1.GetBitmap(0,);
|
|
//GradButton4.Glyph := Image1.Picture.Bitmap;
|
|
//Image1.Picture.Bitmap := tempPicture.Picture.Bitmap;
|
|
GradButton4.ShowGlyph:=true;
|
|
GradButton4.Caption:='';
|
|
finally
|
|
tempPicture.Free;
|
|
//png.Free;
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
procedure TForm1.GradButton5Click(Sender: TObject);
|
|
begin
|
|
ColorDialog1.Color:=b.GlyphBackgroundColor;
|
|
if ColorDialog1.Execute then
|
|
begin
|
|
b.GlyphBackgroundColor:=ColorDialog1.Color;
|
|
GradButton5.BaseColor:=ColorDialog1.Color;
|
|
GradButton5.Caption:=ColorToString(GradButton5.BaseColor);
|
|
end;
|
|
end;
|
|
|
|
procedure TForm1.GradButton6Click(Sender: TObject);
|
|
begin
|
|
ColorDialog1.Color:=b.ClickColor;
|
|
if ColorDialog1.Execute then
|
|
begin
|
|
b.ClickColor:=ColorDialog1.Color;
|
|
GradButton6.BaseColor:=ColorDialog1.Color;
|
|
GradButton6.Caption:=ColorToString(GradButton6.BaseColor);
|
|
end;
|
|
end;
|
|
|
|
procedure TForm1.GradButton7Click(Sender: TObject);
|
|
begin
|
|
ColorDialog1.Color:=b.DisabledColor;
|
|
if ColorDialog1.Execute then
|
|
begin
|
|
b.DisabledColor:=ColorDialog1.Color;
|
|
GradButton7.BaseColor:=ColorDialog1.Color;
|
|
GradButton7.Caption:=ColorToString(GradButton7.BaseColor);
|
|
end;
|
|
end;
|
|
|
|
procedure TForm1.LabeledEdit1KeyUp(Sender: TObject; var Key: Word;
|
|
Shift: TShiftState);
|
|
begin
|
|
b.Caption:=LabeledEdit1.Text;
|
|
end;
|
|
|
|
procedure TForm1.NormalBlendClick(Sender: TObject);
|
|
begin
|
|
ColorDialog1.Color:=b.NormalBlendColor;
|
|
if ColorDialog1.Execute then
|
|
begin
|
|
b.NormalBlendColor:=ColorDialog1.Color;
|
|
GradButton2.BaseColor:=ColorDialog1.Color;
|
|
GradButton2.Caption:=ColorToString(GradButton2.BaseColor);
|
|
end;
|
|
end;
|
|
|
|
procedure TForm1.OverBlendClick(Sender: TObject);
|
|
begin
|
|
ColorDialog1.Color:=b.OverBlendColor;
|
|
if ColorDialog1.Execute then
|
|
begin
|
|
b.OverBlendColor:=ColorDialog1.Color;
|
|
GradButton3.BaseColor:=ColorDialog1.Color;
|
|
GradButton3.Caption:=ColorToString(GradButton3.BaseColor);
|
|
end;
|
|
end;
|
|
|
|
procedure TForm1.bClick(Sender: TObject);
|
|
begin
|
|
|
|
end;
|
|
|
|
procedure TForm1.CheckGroup1ItemClick(Sender: TObject; Index: integer);
|
|
var
|
|
bs : TBorderSides;
|
|
begin
|
|
|
|
bs := [];
|
|
|
|
if CheckGroup1.Checked[0] then bs := bs + [bsBottomLine];
|
|
if CheckGroup1.Checked[1] then bs := bs + [bsTopLine];
|
|
if CheckGroup1.Checked[2] then bs := bs + [bsLeftLine];
|
|
if CheckGroup1.Checked[3] then bs := bs + [bsRightLine];
|
|
|
|
b.BorderSides:=bs;
|
|
end;
|
|
|
|
procedure TForm1.CheckGroup2ItemClick(Sender: TObject; Index: integer);
|
|
begin
|
|
b.ShowFocusBorder:=CheckGroup2.Checked[0];
|
|
b.ShowGlyph:=CheckGroup2.Checked[1];
|
|
b.Enabled:=CheckGroup2.Checked[2];
|
|
end;
|
|
|
|
procedure TForm1.TrackBar1Change(Sender: TObject);
|
|
var
|
|
blend : Extended;
|
|
begin
|
|
blend := TrackBar1.Position / TrackBar1.Max;
|
|
b.NormalBlend:=blend;
|
|
Label3.Caption:=FloatToStr(blend);
|
|
end;
|
|
|
|
procedure TForm1.TrackBar2Change(Sender: TObject);
|
|
var
|
|
blend : Extended;
|
|
begin
|
|
blend := TrackBar2.Position / TrackBar2.Max;
|
|
b.OverBlend:=blend;
|
|
Label4.Caption:=FloatToStr(blend);
|
|
end;
|
|
|
|
initialization
|
|
{$I main.lrs}
|
|
|
|
end.
|
|
|