mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-06-24 17:28:19 +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 -
57 lines
837 B
ObjectPascal
57 lines
837 B
ObjectPascal
unit drawtest;
|
|
|
|
{$mode objfpc}
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
|
|
StdCtrls, ComCtrls;
|
|
|
|
type
|
|
|
|
{ TfrmDraw }
|
|
|
|
TfrmDraw = class(TForm)
|
|
procedure FormCreate(Sender: TObject);
|
|
procedure FormPaint(Sender: TObject);
|
|
private
|
|
{ private declarations }
|
|
public
|
|
{ public declarations }
|
|
end;
|
|
|
|
var
|
|
frmDraw: TfrmDraw;
|
|
|
|
implementation
|
|
|
|
{$R *.lfm}
|
|
|
|
{ TfrmDraw }
|
|
|
|
procedure TfrmDraw.FormPaint(Sender: TObject);
|
|
var
|
|
Bmp: TBitmap;
|
|
begin
|
|
Bmp := TBitmap.Create;
|
|
Bmp.Width := 50;
|
|
Bmp.Height := 50;
|
|
Bmp.Canvas.Brush.Color := clBlue;
|
|
Bmp.Canvas.Rectangle(0, 0, 50, 50);
|
|
|
|
Canvas.TextOut(50, 30, 'cmDstInvert');
|
|
Canvas.CopyMode := cmDstInvert;
|
|
Canvas.Draw(50, 50, Bmp);
|
|
|
|
Bmp.Free;
|
|
end;
|
|
|
|
procedure TfrmDraw.FormCreate(Sender: TObject);
|
|
begin
|
|
|
|
end;
|
|
|
|
end.
|
|
|