Colored Names in Delphi?

[Master_RC]

yeah, das ruled ;)

gut, so werd ichs machen, THX!

[SirThornberry]

bin zwar nicht klein, einsam und gelangweilt aber habs trotzdem mal versucht umzusetzen...

Delphi-Quellcode:

procedure DrawColorTextToCanvas(AText: String; ACanvas: TCanvas; APos: TPoint);
var LLeft, LPos, LLastPos, LCount: Integer;
    LStr2, LWord: String;
    LColorList: TStringlist;
    LColor: TColor;
begin
  LColorList := TStringList.Create;
  LPos := 1;
  LLastPos := 1;
  LPos := PosEx('\c', AText, LPos);
  while LPos > 0 do
  begin
    LStr2 := copy(AText, LPos + 2, 6);
    if length(LStr2) = 6 then
    begin
      LColor := RGB(StrToInt('$' + copy(AText, LPos + 2, 2)),
                    StrToInt('$' + copy(AText, LPos + 4, 2)),
                    StrToInt('$' + copy(AText, LPos + 6, 2)));
      LStr2 := copy(AText, LLastPos, LPos - LLastPos);
      LColorList.AddObject(LStr2, TObject(LColor));
      LWord := LWord + LStr2;
    end;
    LLastPos := LPos + 8;
    LPos := PosEx('\c', AText, LLastPos);
  end;
  LStr2 := copy(AText, LLastPos, length(AText) - LLastPos + 1);
  if LStr2 <> '' then
  begin
    LColorList.AddObject(LStr2, nil);
    LWord := LWord + LStr2;
  end;
  LLeft := APos.X;
  for LCount := 0 to LColorList.Count - 1 do
  begin
    ACanvas.TextOut(LLeft, APos.Y, LColorList.Strings[LCount]);
    ACanvas.Font.Color := TColor(LColorList.Objects[LCount]);
    LLeft := LLeft + ACanvas.TextWidth(LColorList.Strings[LCount]);
  end;
  LColorList.Free;
end;

Beispielaufruf:

Delphi-Quellcode:

   DrawColorTextToCanvas('\c0000ffHein\cff0000z', Canvas, Point(0,0));

ich denk die aufgabe war so einfach das auch du es in einer Zeit von weniger als einer Stunde hinnbekommen hättest.

[Master_RC]

kewl, ich werds morgen ausporboeren (ja, ich darf mprgen schon ran!!! :D )


nur... wie kann ich die func dann erweitern, dass wenn ich \r oder so eingebe, dass dann die standardfarbe kommt?

[Alexander]

Hi,
ich denke, dass wirst du selbst hinbekommen, wenn du dir das Beispiel von SirThornberry anschaust. Da ist im Prinzip alles drin :-)
Kleiner Tipp, du muss nach \r suchen, genau wie im Beispiel, und anschließend die "Standard"-Farbe mit in die ColorList tun. Das war's. Der Rest wird dann automatisch gemacht.


Nachtrag:
Alternativ könntest du auch \r im vornherein durch die Standard-Farbe ersetzen :)

[Master_RC]

oh mein gott bin ich doof! ^^'

natürlich!
ich muss ja eigntlich nur ienen teil kopieren und einen bestimmten farbwert zuweisen!

h3h3, jetzt hab ichs, danke!


PS:
geht es auch, dass ich bilder mit einfügen kann oder einen farbverlauf?

[Master_RC]

um darauf zurückzukommen:

ich wollte es vorhin mal benutzen, abba die funktion "PosEx" müsstest du noch dazupacken, die hat ein nromaler delphi-loose... äh.. "user" nicht ;)

[jfheins]

Die hat auch ein

Zitat:

delphi-loose... äh.. "user"

, nämlich in der Unit StrUtils ...

[Master_RC]

kewl, danke, klappt wunderbar! :D