Gauge + tekst na nim

0

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

0

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!!!)

0

Szczerze mówiąc to niebardzo mi sie chce grzebać w kodzie. Może ktoś zna jakiś inny komponent, podobny

0

jak nie chcesz grzebać w kodzie, to ja nie rozumiem po co w ogóle zadałeś pytanie. :|

0

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..

0

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 '%'

0

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 :-)

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0