wie ktoś może jak na Gauge wyświetlić tekst?
Chodzi mi o coś takiego jak np w DC++ żebym mógł sobie napisać na pasku ile zostało do końca ściągania pliku
Gauge jest prostym samplowym komponentem, który możesz sobie dowolnie przerabiac, a źródła masz... wystarczy że skorzyszasz z helpa i pokombinujesz z kodem gauga to ci wyjdzie to co chcesz (al mam manie... na ee już dawno bym walnął gotowy kodzik, ale tutaj, to co innego, yu tylko daje podpowiedzi. rada dla wszystkich: róbcie tak samo, gotowy kod czesto zabija inicjatywe!!!)
Szczerze mówiąc to niebardzo mi sie chce grzebać w kodzie. Może ktoś zna jakiś inny komponent, podobny
jak nie chcesz grzebać w kodzie, to ja nie rozumiem po co w ogóle zadałeś pytanie. :|
Po 1sze..a czy na Gauge czasem nie ma takiej opcji we właściwościach, pokazywanie % ile już "poszło? - dokładnie nie pamietam, ale kiedyś używałem Gauge i tak się chyba robiło..
A po 3gie.. zawsze chyba można położyć label`a na Gauge..i sobie nim manipulowac..
Po 1sze..a czy na Gauge czasem nie ma takiej opcji we właściwościach, pokazywanie % ile już "poszło? - dokładnie nie pamietam, ale kiedyś używałem Gauge i tak się chyba robiło....
Dokładnie :-) Gauge ma już wbudowany wskaźnik '%'
ja to rozwiązałem w ten sposób:
---utnij----
procedure TsplashForm.TimerTimer(Sender: TObject);
procedure Text(text:shortstring); //ta procedurka to dla czytelnosci kodu :0)
begin
Canvas.TextOut(((width-120) div 2)-(length(text)), Height-15, text);
end;
begin
Application.ProcessMessages;
Gauge.Progress:= Gauge.Progress+random(3); //zwiŕksz postŕp
Canvas.Brush.Style:=bsClear; //przezroczystosc
canvas.Font.Style:=[fsBold]; //pogrubienie czcionki
if Gauge.Progress>38 then Canvas.Font.Color:=clBlue else canvas.Font.Color:=clAqua; //kolor jaskrawo zielony
case gauge.PercentDone of //tekst w zale┐nosci od postŕpu
0..10: Text('Sprawdzanie dostŕpnoťci narzŕdzi...');
11..37: Text('úadowanie ustawie˝ programu...');
38..47: Text('Zbieranie danych o u┐ytkowniku...');
48..85: Text('Wczytywanie dostŕpnych programˇw...');
86..94: Text('Przydzielanie niezbŕdnej pamiŕci...');
95..100:Text('Inicjalizacja zako˝czona sukcesem...');
end;
if Gauge.Progress >= Gauge.MaxValue then //je┐eli max
begin
sleep(1200); //poczekaj...
menuForm.show; //poka┐ główną formę
self.Free; //a splesha zwolnij
end;
end;
---utnij----
wydaje mi się że to dobre rozwiązanie, chyba że ktoś woli pisać komponent
ps. dodałem to jako newsa jakby co :-)