mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-05-18 06:42:42 +02:00
149d3a219a
- fix screenshot example bug (use GetDC(0) instead of DC = 0) - fix image example - clear LazIntfImage before experiments (part of issue #0019123) - remove all .lrs, .rc files and use .lfm, .res instead git-svn-id: trunk@30244 -
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.ShowModal;
|
|
end;
|
|
|
|
procedure TfrmCanvasTest.btnCloseClick(Sender: TObject);
|
|
begin
|
|
Close;
|
|
end;
|
|
|
|
procedure TfrmCanvasTest.btnDrawClick(Sender: TObject);
|
|
begin
|
|
frmDraw.ShowModal;
|
|
end;
|
|
|
|
procedure TfrmCanvasTest.btnEllipseClick(Sender: TObject);
|
|
begin
|
|
frmEllipse.ShowModal;
|
|
end;
|
|
|
|
procedure TfrmCanvasTest.btnFontClick(Sender: TObject);
|
|
begin
|
|
frmFont.ShowModal;
|
|
end;
|
|
|
|
procedure TfrmCanvasTest.btnImageClick(Sender: TObject);
|
|
begin
|
|
frmImage.ShowModal;
|
|
end;
|
|
|
|
procedure TfrmCanvasTest.btnPenClick(Sender: TObject);
|
|
begin
|
|
frmPen.ShowModal;
|
|
end;
|
|
|
|
procedure TfrmCanvasTest.btnRectanglesClick(Sender: TObject);
|
|
begin
|
|
frmRectangles.ShowModal;
|
|
end;
|
|
|
|
procedure TfrmCanvasTest.btnScreenshotClick(Sender: TObject);
|
|
begin
|
|
frmScreenshot.ShowModal;
|
|
end;
|
|
|
|
procedure TfrmCanvasTest.btnShapedWindowClick(Sender: TObject);
|
|
begin
|
|
frmShapedWindow.ShowModal;
|
|
end;
|
|
|
|
end.
|
|
|