Tja, also der Inhalt ist ja völlig frei gestaltbar. Du könntest das Ausgangsrechteck horizontal oder vertikal halbieren oder eine beliebige Skalierung vornehmen. Beispiel wäre z.B.
Delphi-Quellcode:
procedure HalfRectangleVertical(Rect:TRect;var RectA,RectB:TRect);
var SumHeight,
TopHeight,
BottomHeight : Integer;
begin
RectA:=Rect;
RectB:=Rect;
SumHeight:=succ(Rect.Bottom-Rect.Top);
TopHeight:=SumHeight div 2;
BottomHeight:=SumHeight-TopHeight;
RectA.Bottom:=Rect.Top+TopHeight; // oberes Rechteck
RectB.Top:=RectA.Bottom+1; // unteres Rechteck
end;
Hm, wenn so (oder ähnlich) müsste es eigentlich funktionieren (kann es jetzt nicht ausprobieren)
Gruß Ralph