Alle Delphi-Farben (cl+) in ein Memo hinzufügen

[sakura]

Die Quellcodes zum Evaluieren der Farbwerte sind im Implementation Teil der Unit Graphics und von außen nicht (vernünftig) aufrufbar. Hilft nur Copy&Paste.

......

[Nils_13]

Ist zwar viel Arbeit, aber solange ein paar Farben oben im variablen bzw. Konstanten Teil sind ist das ja nicht weiter schlimm, aber hundert-mal hintereinander ein Add(''); dastehen zu haben ist inakzeptabel.

Ach ja: Ich bin nicht 13 !

[sakura]

Ganz hinterhältig. Lade die TColorComboBox im Hintergrund und versuche dann die Strings aus der Liste zu extrahieren Ran kommt man immer, nur das "wie" ist der Weg.

......

[Hawkeye219]

Die Unit Graphics exportiert die Prozedur GetColorValues.
Mit dieser Prozedur sollte es eigentlich funktionieren.

Gruß Hawkeye

[sakura]

Zitat von Hawkeye219:

Die Unit Graphics exportiert die Prozedur GetColorValues.
Mit dieser Prozedur sollte es eigentlich funktionieren.

Gruß Hawkeye

Leider aber nur die Enumeration-Werte, aber nicht die Namen kann man damit heranholen.

......

[Nils_13]

Jetzt schon zu spät, habe jetzt folgende Methode angwendet:

Delphi-Quellcode:

// hier habe ich die ganzen gleichen Farben großteils bzw. alle rausgelasen
const
  COLOR_NUM = 43;
  ColorConst: array [0..COLOR_NUM] of TColor = (clBlack,
    clMaroon, clGreen, clOlive, clNavy,
    clPurple, clTeal, clGray, clSilver, clRed,
    clLime, clYellow, clBlue, clFuchsia,
    clAqua, clWhite, clMoneyGreen, clSkyBlue,
    clCream, clMedGray, clActiveBorder,
    clActiveCaption, clAppWorkSpace, clBackground,
    clBtnFace, clBtnHighlight, clBtnShadow, clCaptionText,
    clGradientActiveCaption, clGradientInactiveCaption,
    clGrayText, clHighlight, clHighlightText, clHotLight,
    clInactiveBorder, clInactiveCaption, clInactiveCaptionText,
    clInfoBk, clMenuBar, clMenuHighlight, clScrollBar,
    cl3DDkShadow, cl3DLight, clWindow);
  ColorNames: array [0..COLOR_NUM] of string = ('Black',
    'Maroon', 'Green', 'Olive', 'Navy',
    'Purple', 'Teal', 'Gray', 'Silver', 'Red',
    'Lime', 'Yellow', 'Blue', 'Fuchsia',
    'Aqua', 'White', 'MoneyGreen', 'SkyBlue',
    'Cream', 'MedGray', 'ActiveBorder',
    'ActiveCaption', 'AppWorkSpace', 'Background',
    'BtnFace', 'BtnHighlight', 'BtnShadow', 'CaptionText',
    'GradientActiveCaption', 'GradientInactiveCaption',
    'GrayText', 'Highlight', 'HighlightText', 'HotLight',
    'InactiveBorder', 'InactiveCaption', 'InactiveCaptionText',
    'InfoBk', 'MenuBar', 'MenuHighlight', 'Scrollbar',
    '3DDkShadow', '3DLight', 'Window');

for i := Low(ColorNames) to High(ColorNames) do
   Console.Lines.Add(ColorNames[i]);

Läuft perfekt:

Zitat:

Black
Maroon
Green
Olive
Navy
Purple
Teal
Gray
Silver
Red
Lime
Yellow
Blue
Fuchsia
Aqua
White
MoneyGreen
SkyBlue
Cream
MedGray
ActiveBorder
ActiveCaption
AppWorkSpace
Background
BtnFace
BtnHighlight
BtnShadow
CaptionText
GradientActiveCaption
GradientInactiveCaption
GrayText
Highlight
HighlightText
HotLight
InactiveBorder
InactiveCaption
InactiveCaptionText
InfoBk
MenuBar
MenuHighlight
Scrollbar
3DDkShadow
3DLight
Window

[Hawkeye219]

Zitat von sakura:

Leider aber nur die Enumeration-Werte, aber nicht die Namen kann man damit heranholen.

Was verstehst Du unter "Namen"? Die Routine liefert doch genau die Strings, die auch der Objektinspektor in der ComboBox auflistet.

[Angel4585]

Falls ich mich wiederhole:

Zitat von Angel4585:

versuchs doch mal mit "Colors[i]" bzw. "ColorNames[i]"

Das ganze von der TColorListbox in D2005 Prof.. weis nich obs die in D7 auch gibt.. aber funzt

[Nils_13]

Das gibt es in Delphi 7 nicht.