8
Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs;
14
TfrmBrush = class(TForm)
15
procedure FormPaint(Sender: TObject);
17
{ private declarations }
19
{ public declarations }
31
procedure TfrmBrush.FormPaint(Sender: TObject);
35
MyBitmap := TBitmap.Create;
37
{ Set a size for the image }
38
MyBitmap.Height := Height;// 150
39
MyBitmap.Width := Width;// 400
40
{ After memory has been reserved by setting the size
41
of the image, we can start drawing }
43
MyBitmap.Canvas.Brush.Color := clWhite;
44
MyBitmap.Canvas.Pen.Color := clWhite;
45
MyBitmap.Canvas.Rectangle(0, 0, Width, Height);
47
MyBitmap.Canvas.TextOut(100, 5, 'Brush: Blue Pen: Black');
51
MyBitmap.Canvas.TextOut( 25, 30, 'Brush styles:');
53
MyBitmap.Canvas.TextOut( 25, 60, 'bsSolid');
54
MyBitmap.Canvas.TextOut(125, 60, 'bsClear');
55
MyBitmap.Canvas.TextOut(225, 60, 'bsHorizontal');
56
MyBitmap.Canvas.TextOut(325, 60, 'bsVertical');
57
MyBitmap.Canvas.TextOut( 25, 160, 'bsFDiagonal');
58
MyBitmap.Canvas.TextOut(125, 160, 'bsBDiagonal');
59
MyBitmap.Canvas.TextOut(225, 160, 'bsCross');
60
MyBitmap.Canvas.TextOut(325, 160, 'bsDiagCross');
62
MyBitmap.Canvas.Brush.Color := clBlue;
63
MyBitmap.Canvas.Pen.Color := clBlack;
65
MyBitmap.Canvas.Brush.Style := bsSolid;
66
MyBitmap.Canvas.Rectangle(Bounds( 25, 75, 50, 50));
67
MyBitmap.Canvas.Brush.Style := bsClear;
68
MyBitmap.Canvas.Rectangle(Bounds(125, 75, 50, 50));
69
MyBitmap.Canvas.Brush.Style := bsHorizontal;
70
MyBitmap.Canvas.Rectangle(Bounds(225, 75, 50, 50));
71
MyBitmap.Canvas.Brush.Style := bsVertical;
72
MyBitmap.Canvas.Rectangle(Bounds(325, 75, 50, 50));
73
MyBitmap.Canvas.Brush.Style := bsFDiagonal;
74
MyBitmap.Canvas.Rectangle(Bounds( 25, 175, 50, 50));
75
MyBitmap.Canvas.Brush.Style := bsBDiagonal;
76
MyBitmap.Canvas.Rectangle(Bounds(125, 175, 50, 50));
77
MyBitmap.Canvas.Brush.Style := bsCross;
78
MyBitmap.Canvas.Rectangle(Bounds(225, 175, 50, 50));
79
MyBitmap.Canvas.Brush.Style := bsDiagCross;
80
MyBitmap.Canvas.Rectangle(Bounds(325, 175, 50, 50));}
83
MyBitmap.Canvas.TextOut( 25, 25, 'Canvas-aligned bitmapped Brush:');
85
MyBitmap.Canvas.Brush.Bitmap := TBitmap.Create;
86
MyBitmap.Canvas.Brush.Bitmap.Height := 20;
87
MyBitmap.Canvas.Brush.Bitmap.Width := 20;
88
MyBitmap.Canvas.Brush.Bitmap.Canvas.Brush.Color := clWhite;
89
MyBitmap.Canvas.Brush.Bitmap.Canvas.FillRect(0, 0, 20, 20);
90
MyBitmap.Canvas.Brush.Bitmap.Canvas.Brush.Color := clRed;
91
MyBitmap.Canvas.Brush.Bitmap.Canvas.Ellipse(0, 0, 20, 20);
92
MyBitmap.Canvas.Rectangle(Bounds( 25, 50, 50, 50));
93
MyBitmap.Canvas.Rectangle(Bounds(100, 50, 50, 50));
94
MyBitmap.Canvas.Brush.Bitmap.Free;
95
MyBitmap.Canvas.Brush.Bitmap := nil;
97
{ Draw the bitmap to the form }
98
Canvas.Draw(0, 0, MyBitmap);