paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 14:19:10 +02:00
Code Issues Packages Projects Releases Wiki Activity

further fix an example

Browse Source 
git-svn-id: trunk@16782 -
This commit is contained in:
paul 2008-09-29 05:25:27 +00:00
parent 211dc10859
commit dacd507af3
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
examples/pen_brush/unit1.pas
View File

@ -62,6 +62,7 @@ var
bs: TBrushStyle; bs: TBrushStyle;
y: integer; y: integer;
begin begin
BrushBox.Canvas.Brush.Bitmap := nil;
y := 15; y := 15;
for bs := bsSolid to bsDiagCross do for bs := bsSolid to bsDiagCross do
begin begin