Kolorowe drukowanie

0

Drukuję tekst, np.
Writeln(file,'blebleble');
Writeln(file,'blebleble');
itd...
Jak zmienić kolor drukowanego tekstu [???]

0

jak widze to po prostu zapisujesz do pliku anie drukujesz...
jesli chodzi o kolor textu na ekranie w TP to TextColor(numerek) i dopiero Writeln('bla') ale to wymaga modułu CRT.
jak chodzi o zapis kolorowego textu do pliku to musisz odpowiedni text wpisać np. dla formatu RTF itd...

0

Ja mam inne pytanie !!!
Co to za kolor ??
0x66112BA0 - i jaki jest to system kolorów !!
Z góry dziękuje !!!

0

Dzięki, ale dalej nie kapuję. Drukuję zawartość tabeli StringGrid :

procedure TForm.Drukuj;
var
f: textfile;
i,nrlini: integer;
begin
AssignPrn(f);
Rewrite(f);
Writeln(f,' ');
for i:=1 to nrlini do
begin
Writeln(f,StringGrid.Cells[1,i]);
end;
Writeln(f,' ');
Writeln(f,DateTimeToStr(Now)+' Podsumowanie :');
CloseFile(f);
end;

Jak najprościej zmienić kolor tylko tej ostatniej linii (lub też dowolnej innej) [???]
I jeszcze jedno - jak wykasować wszystkie dane z takiej tablicy [???]

0

Ja mam inne pytanie !!!
Co to za kolor ??
0x66112BA0 - i jaki jest to system kolorów !!
Z góry dziękuje !!!

Alpha: $66
Blue: $11
Green: $2B
Red: A0

Standardowy system 3 kolory+przezroczystość

0

A w delphi to bierzesz:

printer.begindoc;
printer.canvas.font.color:=clblue; //drukuje rzecz jasna na niebiesko
printer.canvas.textout('TEXT');
printer.enddoc;<font color="black"></span><font color="red"></span>

1 użytkowników online, w tym zalogowanych: 0, gości: 1