mirror of
https://github.com/moparisthebest/Simba
synced 2024-12-04 14:42:23 -05:00
14 lines
326 B
Plaintext
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.
|