diff options
-rw-r--r-- | prototypes/fpgui2/examples/core/canvastest/fpgcanvas.lpr | 11 | ||||
-rwxr-xr-x | prototypes/fpgui2/examples/core/canvastest/gears2.bmp | bin | 0 -> 822 bytes |
2 files changed, 9 insertions, 2 deletions
diff --git a/prototypes/fpgui2/examples/core/canvastest/fpgcanvas.lpr b/prototypes/fpgui2/examples/core/canvastest/fpgcanvas.lpr index 231c1067..6775898f 100644 --- a/prototypes/fpgui2/examples/core/canvastest/fpgcanvas.lpr +++ b/prototypes/fpgui2/examples/core/canvastest/fpgcanvas.lpr @@ -117,6 +117,10 @@ begin // Canvas.StretchDraw(150, 240, 160, 21, bmp); Canvas.StretchDraw(150, 240, 300, 50, bmp); + + Canvas.DrawImage(150, 300, dst); + Canvas.StretchDraw(180, 300, 70, 70, dst); + Canvas.StretchDraw(270, 300, 230, 25, bmp); // Stretch(bmp, dst, ResampleFilters[6].Filter, ResampleFilters[6].Width); //// Canvas.DrawImage(150, 240, bmp); @@ -148,8 +152,11 @@ begin bmp.CreateMaskFromSample(0,0); bmp.UpdateImage; - dst := TfpgImage.Create; - dst.AllocateImage(bmp.ColorDepth, 200, 50); +// dst := TfpgImage.Create; +// dst.AllocateImage(bmp.ColorDepth, 200, 50); + dst := LoadImage_BMP('gears2.bmp'); + dst.CreateMaskFromSample(0,0); + dst.UpdateImage; end; procedure TMainForm.BeforeDestruction; diff --git a/prototypes/fpgui2/examples/core/canvastest/gears2.bmp b/prototypes/fpgui2/examples/core/canvastest/gears2.bmp Binary files differnew file mode 100755 index 00000000..52ac3254 --- /dev/null +++ b/prototypes/fpgui2/examples/core/canvastest/gears2.bmp |