Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- var
- bmp: TSCARBitmap;
- begin
- bmp := TSCARBitmap.Create('');
- bmp.SetSize(500, 500);
- bmp.SetPixels(TPAFromCircle(Point(250, 250), 100), clRed);
- DebugBitmap(bmp);
- bmp.Free;
- end.
Advertisement
Add Comment
Please, Sign In to add comment
