Einzelnen Beitrag anzeigen

MaOfDe

Registriert seit: 3. Jan 2004
Ort: Berlin
73 Beiträge
 
Delphi 6 Personal
 
#4

Re: Systemfarbe zur Laufzeit ändern

  Alt 10. Feb 2004, 18:10
Hab mir mal SystemParametersInfo angeguckt, aber leider ist nichts dabei, aber ick hab'n Plan!!!

Auszüge aus Graphics.pas von Delphi 3 Pro:
Code:
uses Windows, ..;

:
type
  TColor = $80000000..$7FFFFFFF;

const
  clScrollBar = TColor(COLOR_SCROLLBAR or $80000000);
  clBackground = TColor(COLOR_BACKGROUND or $80000000);
  clActiveCaption = TColor(COLOR_ACTIVECAPTION or $80000000);
  :
  clMaroon = TColor($000080);
  clGreen = TColor($008000);
  :
Es ist von daher nicht möglich die Systemfarben über das Windows API zu verändern, ... jedoch... könnte man die Unit Graphics.pas etwas abändern, indem man die Konstanten für die Systemfarben alle auf 0 setzt und im initialization-Teil übergibt man den Konstanten die Werte {TColor(COLOR_SCROLLBAR or $80000000),...}(mit ASM).
Dann nur noch 'ne Methode, die die einzelnen Farben bzw. die Konstanten beliebig einstellt und fertsch... aba leider hab ich nur die D3-Graphics.pas... und die compilt men D6 nicht und D3 will ich nicht installieren, da men PC n pa unzuordbare Fehler produziert...

Graphics.pas gibt's bei D6 Personal nicht... hätte einer von euch die Güte, diese Unit zum Download freizustellen? (befindet sich irgenwo im Source-Ordner) Et en plus diese auch gleich zu bearbeiten ?
thx

Allerdings könnte auch diese Unit in D6 pro so(*.pas) nicht vorliegen...
det wär dann wirklich sch****!!!
  Mit Zitat antworten Zitat