mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-05-17 07:22:58 +02:00
113 lines
2.2 KiB
ObjectPascal
113 lines
2.2 KiB
ObjectPascal
unit canvastestunit;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
interface
|
|
|
|
uses
|
|
// RTL, FCL, LCL
|
|
Forms, StdCtrls,
|
|
// Project units
|
|
rectanglestest, brushtest, pentest, fonttest, shapedwindowtest,
|
|
ellipseunit, screenshotunit, drawtest, imagetest, systemcolorstest;
|
|
|
|
type
|
|
|
|
{ TfrmCanvasTest }
|
|
|
|
TfrmCanvasTest = class(TForm)
|
|
btnBrush: TButton;
|
|
btnSystemColors: TButton;
|
|
btnPen: TButton;
|
|
btnFont: TButton;
|
|
btnClose: TButton;
|
|
btnRectangles: TButton;
|
|
btnShapedWindow: TButton;
|
|
btnEllipse: TButton;
|
|
btnScreenshot: TButton;
|
|
btnDraw: TButton;
|
|
btnImage: TButton;
|
|
procedure btnBrushClick(Sender: TObject);
|
|
procedure btnCloseClick(Sender: TObject);
|
|
procedure btnDrawClick(Sender: TObject);
|
|
procedure btnEllipseClick(Sender: TObject);
|
|
procedure btnFontClick(Sender: TObject);
|
|
procedure btnImageClick(Sender: TObject);
|
|
procedure btnPenClick(Sender: TObject);
|
|
procedure btnRectanglesClick(Sender: TObject);
|
|
procedure btnScreenshotClick(Sender: TObject);
|
|
procedure btnShapedWindowClick(Sender: TObject);
|
|
procedure btnSystemColorsClick(Sender: TObject);
|
|
private
|
|
|
|
public
|
|
|
|
end;
|
|
|
|
var
|
|
frmCanvasTest: TfrmCanvasTest;
|
|
|
|
implementation
|
|
|
|
{$R *.lfm}
|
|
|
|
{ TfrmCanvasTest }
|
|
|
|
procedure TfrmCanvasTest.btnBrushClick(Sender: TObject);
|
|
begin
|
|
frmBrush.Show;
|
|
end;
|
|
|
|
procedure TfrmCanvasTest.btnCloseClick(Sender: TObject);
|
|
begin
|
|
Close;
|
|
end;
|
|
|
|
procedure TfrmCanvasTest.btnDrawClick(Sender: TObject);
|
|
begin
|
|
frmDraw.Show;
|
|
end;
|
|
|
|
procedure TfrmCanvasTest.btnEllipseClick(Sender: TObject);
|
|
begin
|
|
frmEllipse.Show;
|
|
end;
|
|
|
|
procedure TfrmCanvasTest.btnFontClick(Sender: TObject);
|
|
begin
|
|
frmFont.Show;
|
|
end;
|
|
|
|
procedure TfrmCanvasTest.btnImageClick(Sender: TObject);
|
|
begin
|
|
frmImage.Show;
|
|
end;
|
|
|
|
procedure TfrmCanvasTest.btnPenClick(Sender: TObject);
|
|
begin
|
|
frmPen.Show;
|
|
end;
|
|
|
|
procedure TfrmCanvasTest.btnRectanglesClick(Sender: TObject);
|
|
begin
|
|
frmRectangles.Show;
|
|
end;
|
|
|
|
procedure TfrmCanvasTest.btnScreenshotClick(Sender: TObject);
|
|
begin
|
|
frmScreenshot.Show;
|
|
end;
|
|
|
|
procedure TfrmCanvasTest.btnShapedWindowClick(Sender: TObject);
|
|
begin
|
|
frmShapedWindow.Show;
|
|
end;
|
|
|
|
procedure TfrmCanvasTest.btnSystemColorsClick(Sender: TObject);
|
|
begin
|
|
frmSystemColors.Show;
|
|
end;
|
|
|
|
end.
|
|
|