Einzelnen Beitrag anzeigen

Benutzerbild von himitsu
himitsu

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

Re: weitere farben registrieren

  Alt 27. Jun 2004, 16:01
Wenn du nicht gerade eine Standard/Personal-Version hast, könntest du ja mal versuchen die Delphi...\Source\VCL\Graphics.pas zu verändern

Code:
{ Graphics Objects }

...

const
  clSystemColor = $FF000000;

  clScrollBar = TColor(clSystemColor or COLOR_SCROLLBAR);
  clBackground = TColor(clSystemColor or COLOR_BACKGROUND);
  ...

  clBlack = TColor($000000);
  clMaroon = TColor($000080);
  ...
  clCream = TColor($F0FBFF);
  clMedGray = TColor($A4A0A0);
  [color=red]clNeueFarbe = TColor($123456);[/color]

...

{ Color mapping routines }

const
  Colors: array[0..[color=red]52[/color]] of TIdentMapEntry = (
    (Value: clBlack; Name: 'clBlack'),
    (Value: clMaroon; Name: 'clMaroon'),
    ...
    (Value: clWindowFrame; Name: 'clWindowFrame'),
    (Value: clWindowText; Name: 'clWindowText')[color=red],
    (Value: clNeueFarbe; Name: 'clNeueFarbe')[/color]);
(vergiss aber nicht die Datei und die Packages, wo sie enthalten ist, neu zu kompilieren)
$2B or not $2B
  Mit Zitat antworten Zitat