Forum: Object-Pascal / Delphi-Language
Delphi
by Haegar,
12. Nov 2003
ja ist ja schön und gut, aber ich seh nix. sieht nun wie folgt aus:
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;
Forum: Object-Pascal / Delphi-Language
Delphi
by Haegar,
12. Nov 2003
jetzt seh ich gar nix mehr!!??
:gruebel:
hab den ersten teil so übernommen von dir.
Doppelpost gelöscht. Mfg, Daniel B