z.B. roundrect und das nötige handle

[Haegar]

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

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;