AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Programmieren allgemein Delphi TProgressbar - Farbe definieren
Thema durchsuchen
Ansicht
Themen-Optionen

TProgressbar - Farbe definieren

Ein Thema von TERWI · begonnen am 27. Apr 2024 · letzter Beitrag vom 6. Jun 2024
Antwort Antwort
Seite 1 von 2  1 2      
Benutzerbild von TERWI
TERWI

Registriert seit: 29. Mär 2008
Ort: D-49626
381 Beiträge
 
Delphi 11 Alexandria
 
#1

TProgressbar - Farbe definieren

  Alt 27. Apr 2024, 00:49
Ich möchte gerne der Einfachheit halber für ein Diagramm (12 Monats-Anzeige) die TProgressbar nutzen.
Vertikal wie erforderlich ist OK, Animation lässt sich ja auch abschalten ...
... aber ich bekomme das mit der gewünschten Farbe zum eingestellten Wert / Postion einfach nicht hin.
Die Farbe lässt sich nicht unabhängig vom Wert einstellen.
Viel rumgekugelt, aber bisher nix gescheites / funktionierendes / keine Lösung gefunden.

Alternative Komponenten ? ... nicht wirklich erwünscht !
Ich möchte gerne möglichst mit "Bordmitteln" arbeiten.
... und: Ja ich weiß: Selber zeichen auf Canvas was zu vermeiden gewünscht ist / wäre ...

Geändert von TERWI (27. Apr 2024 um 01:00 Uhr)
  Mit Zitat antworten Zitat
Papaschlumpf73

Registriert seit: 3. Mär 2014
Ort: Berlin
435 Beiträge
 
Delphi 12 Athens
 
#2

AW: TProgressbar - Farbe definieren

  Alt 27. Apr 2024, 10:14
Glaube das funktioniert nur, wenn die Laufzeit-Themes deaktiviert sind. Wenn die Themes aktiviert sind, kann man den Balken z.B. in rot anzeigen mit ProgressBar.State:=pbsError;
Damit kommt man aber nicht sehr weit; es gibt nur 3 States: pbsNormal, pbsError und pbsPaused.

Geändert von Papaschlumpf73 (27. Apr 2024 um 10:18 Uhr)
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.063 Beiträge
 
Delphi 12 Athens
 
#3

AW: TProgressbar - Farbe definieren

  Alt 27. Apr 2024, 10:32
Nja, Rot, Gelb und Grün (früher Blau) wird vom Design der Komponente selbst geboten,
ansonsten VCL-Styles oder eine andere Komponente.


Delphi-Referenz durchsuchenTGauge
Miniaturansicht angehängter Grafiken
image_thumb_4.png  
Neuste Erkenntnis:
Seit Pos einen dritten Parameter hat,
wird PoSex im Delphi viel seltener praktiziert.

Geändert von himitsu (27. Apr 2024 um 10:36 Uhr)
  Mit Zitat antworten Zitat
Benutzerbild von TERWI
TERWI

Registriert seit: 29. Mär 2008
Ort: D-49626
381 Beiträge
 
Delphi 11 Alexandria
 
#4

AW: TProgressbar - Farbe definieren

  Alt 29. Apr 2024, 14:31
Zur Ergänzung: Ich hätte die Anzeige gerne in vertikal !
Mit TGauge scheint das nicht zu funzen (auch immer mit %-Angabe drin)
und mit Progressbar "sehe" ich nur nen running-Balken bei Status NORMAL. Sonst nicht.

Hab mir mal TChart angesehen (hatte ich nicht instaliert) .... schick, aber völlig oversized.
Gibt's da nix einfaches ?

Geändert von TERWI (29. Apr 2024 um 14:38 Uhr)
  Mit Zitat antworten Zitat
Papaschlumpf73

Registriert seit: 3. Mär 2014
Ort: Berlin
435 Beiträge
 
Delphi 12 Athens
 
#5

AW: TProgressbar - Farbe definieren

  Alt 29. Apr 2024, 14:44
Dann würde ich ein einfaches TShape dafür nehmen. Dem kannst du jede Farbe geben.
  Mit Zitat antworten Zitat
Benutzerbild von TERWI
TERWI

Registriert seit: 29. Mär 2008
Ort: D-49626
381 Beiträge
 
Delphi 11 Alexandria
 
#6

AW: TProgressbar - Farbe definieren

  Alt 29. Apr 2024, 15:32
Wie kann/soll man mit einem TShape einfach nen vertikalen Balken Basteln ?
Habe weiter mit der Progreessbar gespielt.
Mit Projekt/Optionen/Anwendung/Manifest/Laufzeit-Themes AUS wird das auch nix.
"Früher" hat das immer problemlos geklappt.
  Mit Zitat antworten Zitat
Papaschlumpf73

Registriert seit: 3. Mär 2014
Ort: Berlin
435 Beiträge
 
Delphi 12 Athens
 
#7

AW: TProgressbar - Farbe definieren

  Alt 29. Apr 2024, 15:50
Anbei ein kleines Beispiel...
Angehängte Dateien
Dateityp: zip ProjectGrp1.zip (4,50 MB, 14x aufgerufen)
  Mit Zitat antworten Zitat
Benutzerbild von FriedrichAT
FriedrichAT

Registriert seit: 25. Mai 2019
Ort: Wien
30 Beiträge
 
Delphi 11 Alexandria
 
#8

AW: TProgressbar - Farbe definieren

  Alt 5. Mai 2024, 00:51
Hallo!

Geht auch ohne Shape.

Delphi-Quellcode:
Uses Winapi.CommCtrl, Winapi.UxTheme, // ergänzen

type
  TForm1 = class(TForm)
    ProgressBar1: TProgressBar;
    ProgressBar2: TProgressBar;
    TrackBar1: TTrackBar;
    procedure FormShow(Sender: TObject);
    procedure TrackBar1Change(Sender: TObject);
  private { Private-Deklarationen }
  public { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormShow(Sender: TObject);
begin
  Winapi.UxTheme.SetwindowTheme(ProgressBar1.Handle, '', '');
  // Setzen der Hintergrundfarbe
  SendMessage(ProgressBar1.Handle, PBM_SETBKCOLOR, 0, clRed);
  // Setzen der Balkenfarbe
  SendMessage(ProgressBar1.Handle, PBM_SETBARCOLOR, 0, clNavy);

  Winapi.UxTheme.SetwindowTheme(ProgressBar2.Handle, '', '');
  // Setzen der Hintergrundfarbe
  SendMessage(ProgressBar2.Handle, PBM_SETBKCOLOR, 0, clNavy);
  // Setzen der Balkenfarbe
  SendMessage(ProgressBar2.Handle, PBM_SETBARCOLOR, 0, clRed);
end;

procedure TForm1.TrackBar1Change(Sender: TObject);
begin
  ProgressBar1.Position:= Trackbar1.Position;
  ProgressBar2.Position:= Trackbar1.Position;
end;
Miniaturansicht angehängter Grafiken
screenshot-2024-05-05-004904.png  
Friedrich
  Mit Zitat antworten Zitat
Arnoldmmings

Registriert seit: 25. Mai 2024
2 Beiträge
 
#9

AW: TProgressbar - Farbe definieren

  Alt 25. Mai 2024, 10:42
Ich glaube, das funktioniert nur, wenn die Laufzeit-Themes deaktiviert sind. Wenn die Themes aktiviert sind, kann man den Balken zum Beispiel in Rot anzeigen, indem man `ProgressBar.State := pbsError;` setzt. Damit hat man jedoch nur begrenzte Möglichkeiten, da es nur drei Zustände gibt: `pbsNormal`, `pbsError` und `pbsPaused`.
  Mit Zitat antworten Zitat
Benutzerbild von jaenicke
jaenicke

Registriert seit: 10. Jun 2003
Ort: Berlin
9.582 Beiträge
 
Delphi 11 Alexandria
 
#10

AW: TProgressbar - Farbe definieren

  Alt 25. Mai 2024, 12:18
Ich glaube, das funktioniert nur, wenn die Laufzeit-Themes deaktiviert sind.
Deshalb deaktiviert FriedrichATs Quelltext die Themes ja auch für die Komponenten, bevor die Farben gesetzt werden.
Sebastian Jänicke
Alle eigenen Projekte sind eingestellt, ebenso meine Homepage, Downloadlinks usw. im Forum bleiben aktiv!
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 1 von 2  1 2      


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 16:36 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz