Delphi z.B. roundrect und das nötige handle

Thema durchsuchen

Ansicht

Themen-Optionen

z.B. roundrect und das nötige handle

Ein Thema von Haegar · begonnen am 12. Nov 2003 · letzter Beitrag vom 12. Nov 2003

Vorheriger Beitrag

Nächster Beitrag

Haegar

Registriert seit: 10. Dez 2002
Ort: Peitz
319 Beiträge

Delphi 7 Professional

Re: z.B. roundrect und das nötige handle

12. Nov 2003, 15:41

ja ist ja schön und gut, aber ich seh nix. sieht nun wie folgt aus:

markieren

Delphi-Quellcode:

			procedure Tform1.ladebalken(f:integer);

var RHandle:HRgn;

begin

  RHandle := CreateRoundRectRgn(50, 50, 50 + f, 70, 10, 10);

  SelectObject(pb.Canvas.Handle, RHandle);

  pb.Canvas.StretchDraw(Rect(50, 50, 50 + f, 70), bild.Picture.BitMap);

  DeleteObject(RHandle);

end;