Clipping

[AppleFan]

Hallo, hab noch ne Frage:

ich kachel auf diese Weise ein Bild als Hintergrundmuster auf die Form:

procedure TForm1.FormCreate(Sender: TObject);
begin
Brush.Bitmap := Bild;
end;

Soweit so gut, das gesamte Formular hat jetzt ein Muster.
Ich möchte aber einen rechteckigen Bereich des Formulars so lassen
wie er ist, ohne Muster !

Wie ?

[himitsu]

Mit CreateClipRect zwei Rechtecke erstellen, dieses verbinden (XOR, oder das Kleine vom Großen subtrahieren) und dem Canvas zuweisen.

Oder ganz einfach ... an der entsprechenden Stelle ein Objekt (z.B. Panel ohne Rand, oder TShape ...) einbauen.