Thema: Delphi Progressbar

Einzelnen Beitrag anzeigen

ABCDE
(Gast)

n/a Beiträge
 
#1

Progressbar

  Alt 11. Apr 2006, 19:12
Hi

Ich habe da ein Problem ich habe eine Funktion gemacht,
die ein Bild vergrößert! Ich möchte nun eine Progressbar
anzeigen lassen wie weit er ist,hab schon ein bisschen probiert
aber hat nicht geklappt!

Hier der Code:

Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var c,d:integer;
    PixelColor:TColor;
begin
OpenDialog1.Execute;
Image1.Picture.LoadFromFile(OpenDialog1.FileName);
for c:=0 to Image1.Picture.Height do
  begin
    for d:=0 to Image1.Picture.Width do
      begin
        PixelColor:=Image1.Canvas.Pixels[c,d];
        Image2.Canvas.Pen.Color:=clblack;
        Image2.Canvas.Brush.Color:=PixelColor;
        Image2.Canvas.Rectangle(c*10,d*10,c*c*10,d*d*10);
      end;
  end;
end;
Danke im Voraus!

Gruß ABCDE