Forum: Object-Pascal / Delphi-Language
Delphi
by himitsu,
12. Nov 2003
Bereich erstellen:RHandle := CreateRoundRectRgn(50, 50, 50 + f, 70, 10, 10);
Kopie an Canvas übergeben:SelectObject(pb.Canvas.Handle, RHandle);
Objekt wieder freigeben:DeleteObject(RHandle);
Im 3. Post auf der Seite ist das Demo als Download (Durchsichtiges Fenster)
Forum: Object-Pascal / Delphi-Language
Delphi
by himitsu,
12. Nov 2003
Das kann auch nicht gehen.
"Canvas.StretchDraw(Rect, Bitmap);" - Rect gibt die Ecken für das Zeichnen und nicht die Form an.
Es ist aber möglich den Zeichnenbereich für alle Zeichenfunktionen einzuschrenken:
Procedure TForm1.ladebalken(f: Integer);
Var RHandle: HRgn;
Begin
RHandle := CreateRoundRectRgn(50, 50, 50 + f, 70, 10, 10);