Hallo Bundy,
Vjay hat es bereits angedeutet, eine Clipping-Region könnte das Mittel der Wahl sein. Hier eine kleine Hilfe:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var lRgn : HRGN;
begin
// runde Region erzeugen
lRgn := CreateEllipticRgn(0, 0, Image1.Width, Image1.Height);
// als Clipping-Bereich setzen
SelectClipRgn(Image1.Canvas.Handle, lRgn);
// Region freigeben
DeleteObject(lRgn);
// alle folgenden Zeichenbefehle wirken nur auf den Kreis
Image1.Canvas.Brush.Color := clRed;
Image1.Canvas.FillRect (Image1.ClientRect);
end;
Gruß Hawkeye