Code:
program aweso;
procedure DebugEllipse(X1, Y1, X2, Y2: Integer);
var
Debug,Temp: TCanvas;
H, W, ScreenBmp, TempBmp: Integer;
begin
W := Max(X1, X2) - Min(X1, X2);
H := Max(Y1, Y2) - Min(Y1, Y2);
TempBmp := BitmapFromString(W, H, '');
Temp := GetBitmapCanvas(TempBmp);
ScreenBmp := BitmapFromString(W, H, '');
FastDrawClear(TempBmp, -1);
CopyClientToBitmap(ScreenBmp, X1, Y1, X2, Y2);
CopyCanvas(GetBitmapCanvas(TempBmp), Temp, 0, 0, W, H, 0, 0, W, H);
Temp.Ellipse(0, 0, W, H);
CopyCanvas(Temp, GetBitmapCanvas(TempBmp), 0, 0, W, H, 0, 0, W, H);
SetTransparentColor(TempBmp, 16777215);
FastDrawTransparent(0, 0, TempBmp, ScreenBmp);
displaydebugimgwindow(w,h);
debug:=getdebugcanvas;
copycanvas(getbitmapcanvas(screenbmp),debug,0,0,w,h,0,0,w,h);
FreeBitmap(TempBmp);
FreeBitmap(ScreenBmp);
end;
begin
debugellipse(575,9,720,143)
end.
edit: sorry, i didnt read that you already know how to do that, all you need is the