1
0
mirror of https://github.com/moparisthebest/Simba synced 2024-11-22 09:12:19 -05:00
Simba/Tests/PS/bitmapfloodfill.simba

14 lines
326 B
Plaintext
Raw Normal View History

2010-09-11 08:01:33 -04:00
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.