mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-05-06 08:52:59 +02:00
107 lines
2.1 KiB
ObjectPascal
107 lines
2.1 KiB
ObjectPascal
unit canvastestunit;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
interface
|
|
|
|
uses
|
|
// RTL, FCL, LCL
|
|
Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
|
|
StdCtrls,
|
|
// Project units
|
|
rectanglestest, brushtest, pentest, fonttest, shapedwindowtest,
|
|
ellipseunit, screenshotunit, drawtest, imagetest;
|
|
|
|
type
|
|
|
|
{ TfrmCanvasTest }
|
|
|
|
TfrmCanvasTest = class(TForm)
|
|
btnBrush: 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);
|
|
private
|
|
{ private declarations }
|
|
public
|
|
{ public declarations }
|
|
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;
|
|
|
|
end.
|
|
|