1
0
mirror of https://github.com/moparisthebest/Simba synced 2024-12-11 10:02:17 -05:00
Simba/Tests/PS/bitmapfloodfill.simba
2010-09-11 14:01:33 +02:00

14 lines
326 B
Plaintext

program new;
var
x : TMufasaBitmap;
begin
x := TMufasaBitmap.create;
x.SetSize(50,50);
x.Rectangle(IntToBox(5,5,25,25),clRed);
x.Rectangle(IntToBox(10,10,15,15),clPurple);
x.SaveToFile(ScriptPath + 'testme.bmp');
x.FloodFill(point(5,5),clred,clyellow);
x.SaveToFile(ScriptPath + 'testme2.bmp');
x.free;
end.