with TCanvas.Create do try handle := GetDC(Panel1.Handle); Rectangle(0,0,10,10); finally releaseDC(Panel1.Handle,handle); free; end;
with TCanvas.Create do try handle := GetDC(Panel1.Handle); brush.Style := bsClear;//!!!!!!!!!!!!!!!!!!!1 Rectangle(0,0,10,10); finally releaseDC(Panel1.Handle,handle); free; end
try
handle := GetDC(Panel1.Handle);
Rectangle(0,0,10,10);
finally
releaseDC(Panel1.Handle,handle);
free;
end;
try
handle := GetDC(Panel1.Handle);
brush.Style := bsClear;//!!!!!!!!!!!!!!!!!!!1
Rectangle(0,0,10,10);
finally
releaseDC(Panel1.Handle,handle);
free;
end