Halbes Rechteck mit Farbe befüllen

[delphicoder123]

Hallo,
mit FillRect kann man ein ganzes Rechteck mit Farbe befüllen.
Ich möchte aber nur 1/2 oder 1/3 des Rechtecks befüllen.
Gibt es dafür auch eine Prozedur?

Delphi-Quellcode:

image1.Canvas.FillRect(Rect(5,10,300,400));

[jziersch]

Du kannst vorher ein Clipping rechteck anlegen.

IntersetClipRect(canvas.Handle ...)

[Sherlock]

Nimm halt nur die Hälfte oder ein Drittel für Right oder Bottom an, und fertig. Wenn die andere Hälfte gefüllt werden soll, dann muß eben Top bzw. Left weiter unten bzw. rechts liegen.

Sherlock