Stworzyłem przeglądarkę internetową. Nie umię drukować kopiować zaznaczać wszystkiego i zapisywać. Chciałbym umieścić komponent Gauge żeby pokazywać jaki jest postęp. Teoretycznie coś mam ale niedziała najlepiej. Oto kod:
procedure TForm1.WebBrowser1ProgressChange(Sender: TObject; Progress,
ProgressMax: Integer);
var
Percent : integer;
begin
if (ProgressMax <= 0) or (Progress < 0) then
begin
Edit1.text:= 'gotowe';
end
else
begin
Percent := (Progress * 100 ) div Progressmax;
Edit1.Text := Format('pobieranie strony: %dk'+' '+ ComboBox1.Text, [progressmax div 1024]);
Gauge1.Hint:=Format('pobieranie strony: z %dk'+' '+ ComboBox1.Text, [progressmax div 1024]);
Gauge1.Progress:=Percent;
end;
end;
mój e-mail : Guciogutek@poczta.onet.pl
help me Bartek