| Autor |
Beitrag |
Terra23
 
Beiträge: 872
Win 8
Delphi 7
|
Verfasst: Mi 26.03.03 21:22
Hi.
Kann mir einer sagen, wie ich die Farbe des ProgressBar (die Farbe der "laufenden" Balken) ändern kann (aus einem laufenden Programm heraus)? Normal (bei mir jedenfalls) sind die ja blau.
THX, Terra..  _________________ Hasta La Victoria Siempre
|
|
ErnestoChe
Beiträge: 528
Win 2000 pro, CRUX 2.0
Delphi 6 Pers, Open K3
|
Verfasst: Mi 26.03.03 22:21
Servus,
probier mal das:
  Quelltext
1:
2:
3:
4:
5:
| procedure TForm1.Button1Click(Sender: TObject);
begin
Progressbar1.Brush.Color := clGreen;
PostMessage(ProgressBar1.Handle, $0409, 0, clRed);
end; |
MFG
- Ernesto -
|
|
Terra23 
Beiträge: 872
Win 8
Delphi 7
|
Verfasst: Mi 26.03.03 23:11
Das geht, danke.
Nur brauche ich nur die zweite Zeile, die erste ist nicht von Nöten; so funktioniert das jedenfalls.
THX..
_________________ Hasta La Victoria Siempre
|
|
Luckie
Ehemaliges Mitglied
Erhaltene Danke: 1
|
Verfasst: Mi 26.03.03 23:28
@ErnestoChe: Wie bist du den auf $0409 gekommen?  Ich hätte da PBM_SETBARCOLOR genommen. Und mit PBM_SETBKCOLOR kann man die Hintergrundfarbe setzen.
|
|
ErnestoChe
Beiträge: 528
Win 2000 pro, CRUX 2.0
Delphi 6 Pers, Open K3
|
Verfasst: Do 27.03.03 09:18
Hi,
@Luckie
Ja hast recht. Aber dafür muss man glaub ich die Unit CommCtrl einbinden, und damit hatte ich bei meinem Delphi Probleme, die dcu konnte nicht gefunden werden.
Und das $0409 hab ich irgendwann mal im Internet gefunden. Weiss aber nicht mehr wo.
MFG
- Ernesto -
|
|
Luckie
Ehemaliges Mitglied
Erhaltene Danke: 1
|
Verfasst: Do 27.03.03 09:32
Das kann sein, dass die Unit die Konstante nicht kennt, dan macht man aber so was:
Quelltext
1:
2:
| const
PBM_SETBARCOLOR = $0409; |
der Übersichtlichkeit halber und falls PBM_SETBKCOLOR auch nicht bekannt ist, die Nachricht hat den Wert: $2001, wenn ich jetzt richtig gekuckt habe.
In der Header-Datei steht ist es so definiert:
Quelltext
1:
2:
3:
| #define CCM_FIRST 0x2000
#define CCM_SETBKCOLOR (CCM_FIRST + 1)
#define PBM_SETBKCOLOR CCM_SETBKCOLOR |
Zuletzt bearbeitet von Luckie am Do 27.03.03 09:48, insgesamt 1-mal bearbeitet
|
|
ErnestoChe
Beiträge: 528
Win 2000 pro, CRUX 2.0
Delphi 6 Pers, Open K3
|
Verfasst: Do 27.03.03 09:39
Hi,
@Luckie
danke für die nützlichen Tipps.
MFG
- Ernesto -
|
|
Luckie
Ehemaliges Mitglied
Erhaltene Danke: 1
|
Verfasst: Do 27.03.03 09:51
Keine Ursache. Falls du dir das Visual Studio bzw. Visual C nicht leisten kannst und auch sonst keine C/C++ Kompiler hast, lad dir [url= www.microsoft.com/ms...atformsdk/sdkupdate]hier[/url] das PSDK runter, da sind sie auch drin. ist ganz nützlich wenn man mal bestimmte API-Funktionen nachschlagen will bzw. wenn es nur um die Kosnatneten geht, denn im PSDK sind immer die aktuell header enthalten.
Zuletzt bearbeitet von Luckie am Do 27.03.03 21:00, insgesamt 1-mal bearbeitet
|
|
Terra23
Beiträge: 872
Win 8
Delphi 7
|
Verfasst: Do 27.03.03 19:00
@Luckie:
Hi. Danke, daß euch das Thema so viel Spaß macht.  Könntest du mir vielleicht nebenbei erklären, was das mit "PBM_SETBARCOLOR" bzw. "PBM_SETBKCOLOR" auf sich hat? Ich habe nicht so tiefgehende Kenntnisse von Delphi. In der Schule mußten wir immer so komischen Kram programmieren und das meißte mußte ich mir in meiner knappen Freizeit aneignen.
Danke und Grüße.. _________________ Hasta La Victoria Siempre
|
|
