weitere farben registrieren

[RB-Aldi]

moin,

ich brauch mal wieder eure hilfe.

ich möchte gerne für das gui meines proggies ein paar neue farben (pastelltöne) registrieren, die ich per rgb (oder von mir aus auch anders) definiere.
die möchte ich dann direkt als farbe im objektinspektor zur auswahl haben.

könnt ihr mir verraten, wie man das anstellen könnte?

danke im voraus für tipps.
gruß, thomas

[Thorben86]

also ich glaube, dass das etwas komplizierter sein wird, da die Farben, die Im Objektinspektor stehen, ja die von Windows vorgegebenen Farben sind, oder täusche ich mich da?

[RB-Aldi]

man könnte die farben natürlich auch im code definieren, aber dann stehen sie ja erst zur laufzeit zur verfügung und man muss OnCreate noch allen möglichen labels und so die farben zuordnen.
praktischer fände ich es, wenn es vorher schon ginge.

[himitsu]

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)

[RB-Aldi]

okay, die pas hab ich jetzt entsprechend ergänzt ...

wie soll ich denn jetzt alles neu kompilieren? davon hab ich (fast) keine ahnung ...

danke für hilfe,
gruß, thomas

[glkgereon]

versuch einfach Komponente - Komponente installieren - Unit Suchen - Installieren...

würd ich so machen...