paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-04 22:07:12 +01:00
Code Issues Packages Projects Releases Wiki Activity

* Remove unused variables

Browse Source 
git-svn-id: trunk@36404 -
This commit is contained in:
michael 2017-06-03 05:22:20 +00:00
parent f6dde8b4b0
commit 6c89a4b1d0
1 changed files with 1 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
packages/fcl-image/examples/drawing.pp
View File

@ -1,9 +1,7 @@
{$mode objfpc}{$h+}
program Drawing;
uses cwstring,classes, sysutils,
FPImage, FPCanvas, FPImgCanv, ftFont,
FPWritePNG, FPReadPNG;
uses cwstring,classes, sysutils, FPImage, FPCanvas, FPImgCanv, FPWritePNG, FPReadPNG;
const
MyColor : TFPColor = (Red: $7FFF; Green: $0000; Blue: $FFFF; Alpha: alphaOpaque);
@ -15,10 +13,8 @@ var
ci,image : TFPCustomImage;
writer : TFPCustomImageWriter;
reader : TFPCustomImageReader;
f : TFreeTypeFont;
begin
f:=Nil;
image := TFPMemoryImage.Create (100,100);
ci := TFPMemoryImage.Create (20,20);
Canvas := TFPImageCanvas.Create (image);
@ -81,7 +77,6 @@ begin
writeln ('Saving to "DrawTest.png" for inspection !');
image.SaveToFile ('DrawTest.png', writer);
finally
F.Free;
Canvas.Free;
ci.free;
image.Free;