Progressbar.BarShowText nicht implementiert ?

[markkowalt]

Hallo,

warum funktioniert

Code: Alles auswählen

Progressbar1.Barshowtext:= True;

nicht?

Habe schon probiert entweder Barshowtext im Objektinspektor auf True zu stellen oder es im Programm zu setzen wie obiger Code zeigt aber es kommt kein Text auf die Progressbar.

Ich habe mir eigentlich sowas erhofft:



Oder wie kann man das sonst machen`?

Danke!

[MAC]

ich weis nur das das seit ca 2 Jahren nicht funktioniert.
Wahrscheinlich wurde das feature mal geplant aber nie umgesetzt.
Wenn mir jemand sagt das die Progressbar von der LCL gezeichnet wird (was ich bezweifele, da die auch Win7 style hat) wäre es eigentlich ganz einfach die Anzeige so zu erweitern, das der Text richtig angezeigt wird...

[theo]

Bei mir geht's (GTK2) aber nur in Verbindung mit Smooth=True.

[markkowalt]

Hmm,

bei mir funktioniert es nicht.

Wie die Progressbar gezeichnet wird, weiß ich auch nicht aber ich meine sie ist sowas wie ein TWinControl, also hat ein Handle und ist ein richtiges Fenster, wird also nicht gezeichnet. (?)

Benutze WinXP (32bit), Lazarus v0.9.28.2 + FPC 2.2.4.

Habe jetzt mal theos Tipp ausprobiert - leider ohne Erfolg.

Habe meinen Versuch mal hochgeladen.

Progressbartest.zip

Versuch, Prozent auf Progressbar anzuzeigen:
Lazarus Projekt-Dateien für ProgressBar.
(ohne exe - muss man halt noch kompilieren)

(161.96 KiB) 83-mal heruntergeladen

Progressbartest_mit-exe.zip

Versuch, Prozent auf Progressbar anzuzeigen:
Lazarus Projekt-Dateien für ProgressBar.
(mit exe - bereits kompiliert)

(844.7 KiB) 91-mal heruntergeladen

Mark

[Scotty]

Per Themes kann man auf jeden Fall für Windows einen Farbverlauf erzeugen. Ob da ein Text auch irgendwie geht, weiß ich aber nicht. http://wiki.lazarus.freepascal.org/Theme_library" onclick="window.open(this.href);return false;

Code: Alles auswählen

uses ...Themes;
 
if ThemeServices.ThemesEnabled then
begin
  ThemeServices.DrawElement(<TStatusBar>.Handle, ThemeServices.GetElementDetails(tsPane), Bounds(<TStatusBar.Panels[x]>), nil);
  ThemeServices.DrawElement(<TStatusBar>.Handle, ThemeServices.GetElementDetails(tpChunk), Bounds(<TStatusBar.Panels[x]>), nil);
end else

[markkowalt]

verstehe leider nichtwass ich damit machen wo sol