clRed to Rot Funktion

[alexo]

hi!

gibt es eine funktion die es mir ermöglicht eine farbe zB clRed in "Rot" umzuwandeln OHNE jede farbe einzeln zu definieren.

mir ist schon klar das es mit

Delphi-Quellcode:

 case AColor of
clGreen: Result := 'Grün';
....

usw. gehen würde, ich will aber nicht 100 Farben definieren müssen....

danke :mrgreen:

[dahead]

Du könntest dir eine Komma-Getrennte Liste machen. Außer ColorToString oder StringToColor wird es da sonst nichts geben.

[Colors]
clred;Rot
clgreen;Grün
clBlue;Blau
usw.

[alexo]

ich verwende eine TColorBox, da kann man ja cbPrettyName auf true stellen u. delphi wandelt automatisch die farbe von clBlack auf Schwarz....

kann ich diese funktion nicht irgendwie verwenden :?:

[dahead]

so wie ich das sehe, entfernt die nur das präfix "cl". außerdem verwendet sie eine liste der farben.

hier ein auszug:

Delphi-Quellcode:

resourcestring
  clNameBlack = 'Black';
  clNameMaroon = 'Maroon';
  clNameGreen = 'Green';
...  

const
  ColorToPretyName: array[0..46] of TIdentMapEntry = (
    (Value: clBlack; Name: clNameBlack),
    (Value: clMaroon; Name: clNameMaroon),
    (Value: clGreen; Name: clNameGreen),
 ...

procedure TCustomColorBox.ColorCallBack(const AName: String);
var
  I, LStart: Integer;
  LColor: TColor;
  LName: string;
begin
  LColor := StringToColor(AName);
  if cbPrettyNames in Style then
  begin
    if not IntToIdent(LColor, LName, ColorToPretyName) then
    begin
      if Copy(AName, 1, 2) = 'cl' then
        LStart := 3
      else
        LStart := 1;
      LName := '';
      for I := LStart to Length(AName) do
      begin
        case AName[I] of
          'A'..'Z':
            if LName <> '' then
              LName := LName + ' ';
        end;
        LName := LName + AName[I];
      end;
    end;
  end
  else
    LName := AName;
  Items.AddObject(LName, TObject(LColor));
end;

[alexo]

Danke!!

wie verwende ich die jetzt für meine unit :roll:

[dahead]

für welche unit?

wie gesagt, die obige funktion arbeitet mit einer Liste von sog. Standard-Farben. Die sind wohl im dt. Delphi auf Deutsch, bei meinem engl. auf Englisch.

Dir wird wohl nichts anderes übrig bleiben, als selbst die Farbwerte den Namen zuzuordnen. Dafür würde ich eine Liste verwenden (s. o.).

[Union]

Hier ist eine Liste der X11 Farben msdn - colors by name
Und mit .NET hättest Du es noch einfacher, da gibts nämlich TColor.ToString

[alexo]

danke :thumb:


noch eine frage:

wenn ich den index meiner TColorBox auf die Übergebene Farbe setzen will wie greife ich dan auf das Farbobject zu?!

bisher:

Delphi-Quellcode:

cmb.ItemIndex := cmb.Items.Indexof(FColor);

möchte nun aber auf das zusätzlich gespeicherte object abfragen

Delphi-Quellcode:

cmb.ItemIndex := cmb.Items.IndexofObject(FColor);

geht das?!?

[alexo]

noch was:

kann ich den objekt inhalt von lv.item.data auch in eine spalte einfügen?! (ohne dass ich den ihnalt von der DB 2x laden muss??)

[Union]

Hallo alexo,

neue Frage -> Neuer Thread, bitte.