Canvers = Text ausgabe

mimi · Beiträge: 3458 Ubuntu, Win XP Lazarus

Hallo,

wie kann ich sowas machen:

Quelltext

1:	str:= 'hallo, <clBlue> Test</clBlue> Test Test <clRed> Test0</clRed>'

wo bei ich gerne canvers nutzen wollte als text ausgabe. also mein ziel es ist eine funktioen zu entwickeln die Merehe Farben ausgeben kann wie oben im beispiel.

Hätte jemmand eine idee wie sowas gehen würde? Wobei die Zeichen <color> nicht ausgeben werde dürfen, es dürfen nur der Text in der standart Farbe die man angeben hat ausgeben werde, als default color es z.B clBlack.

MFG
Michael Springwald

Moderiert von Tino: Code-Tags hinzugefügt.

mimi · Beiträge: 3458 Ubuntu, Win XP Lazarus

ich will einfach ebend schnell denn aktueln index rot einfärhben
meine weg denn ich genommen habe geht leider nicht:

markieren

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

// HelpTextIndex
  for i:=0 to 3 do begin
    if i <> HelpTextIndex then begin
      str:=str + ' ' + HelpTextA[i];
      drwachar(25,420,8,str,'Times New Roman',clLime)
    end
    else begin
      str:=str + ' ' + HelpTextA[i] + '*';
      drwachar(25,420,8,str,'Times New Roman',clRed)
    end;
  end;

ich hoff jetzt versteht ihr was ich meine;)

MFG
Michael Springwald

Keldorn · Verfasst: So 26.01.03 14:40

mimi hat folgendes geschrieben:

also mein ziel es ist eine funktioen zu entwickeln die Merehe Farben ausgeben kann wie oben im beispiel.
hätte jemmand eine idee wie sowas gehen würde ?

Hallo
ich würd das so machen, daß du immer einen Textteil mit textout mit der Richtigen farbe ausgibst, mit dem nächsten Textteil verfährst du genauso. Die Anfangsposition des neuen Textteiles kannst du mit [b]textwidth[b] ausrechnen.

Zitat:

wo bei ich gerne canvers nutzen wollte als text ausgabe.

ich weiß ja nicht für was du das brauchst, aber vielleicht tuts auch ein Richedit?

Mfg Frank

_________________
Lükes Grundlage der Programmierung: Es wird nicht funktionieren.
(Murphy)

mimi · Beiträge: 3458 Ubuntu, Win XP Lazarus

richte Edit ist dafür nicht so gut.
Weil ich wollte die funktion in meinem Spiel Sokubahn nutzen, und das ist mit delphiX gechrieben;)

MFG
Michael Springwald

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme