Autor Beitrag
Aadelbert
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic star
Beiträge: 90

XP, WIN 2000, NT 4.0
D6 Enterprise
BeitragVerfasst: So 03.10.04 21:18 
Hallo Leute,

sicher kann mir einer von Euch sagen wie man Zugriff auf die Color-Eigenschaft einer ProgressBar bekommt. Über den Objektinspektor ist es ja nicht möglich. Ich habe schon verschiedene Delphi-Bücher gewälzt, leider nichts gefunden.

Danke

Aadelbert
MrSaint
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starofftopic star
Beiträge: 1033
Erhaltene Danke: 1

WinXP Pro SP2
Delphi 6 Prof.
BeitragVerfasst: So 03.10.04 21:57 
Hi!

Das scheint etwas umfangreicher zu sein, blöderweise... Wenn man in den Source von TProgressBar schaut sieht man im Constructor an erster Stelle:

ausblenden Delphi-Quelltext
1:
  F32BitMode := InitCommonControl(ICC_PROGRESS_CLASS);					


und da sagt uns die OH folgendes zu:
OH hat folgendes geschrieben:
Die Funktion InitCommonControl dient zur Kapselung der API-Routine InitCommonControlsEx, die gemeinsame Steuerelementklassen aus der ComCtl32.dll registriert.


Somit scheint diese Eigenschaft der Farbe (wie fast alles andere der Komponente auch) irgendwo in der ComCtl32.dll zu liegen und da kommst du nicht so einfach hin :(



MrSaint

_________________
"people knew how to write small, efficient programs [...], a skill that has subsequently been lost"
Andrew S. Tanenbaum - Modern Operating Systems
GSE
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starofftopic star
Beiträge: 740

Win 2k, Win XP Pro
D5 Prof, D6 Ent, D2k5 PE
BeitragVerfasst: So 03.10.04 22:06 
Forumsuche: www.delphi-forum.de/...ht=%2Aprogressbar%2A
geht aber nur, solnge du kein Manifest benutzt, dort kann die Farbe, logischerweise, nicht geändert werden (besteht ja aus "Bildern")

mfg
GSE

_________________
Programming today is a race between software engineers striving to build bigger and better idiot-proof programs
and the universe trying to produce bigger and better idiots. So far, the universe is winning. (Richard Cook)