1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26
| procedure TfrmTrace.SpeedButton4Click(Sender: TObject);
var i,TN,TIE : integer;
begin TN:=16; // ici TN = Taille normale
TIE:=round(TN*3/5); // TIE = taille des caractères en Indice ou Exposant
REd2.clear; //<- REd2 est un TRichEdit
RedSuiteText(REd2,'FF',normal,'Arial',TN,[],clBlack);
RedSuiteText(REd2,'i',indice,'Arial',TIE,[],clRed);
RedSuiteText(REd2,' = a',normal,'Arial',TN,[],clBlack);
RedSuiteText(REd2,'i',indice,'Arial',TIE,[],clRed);
RedSuiteText(REd2,'.x',normal,'Arial',TN,[],clBlack);
RedSuiteText(REd2,'22',exposant,'Arial',TIE,[fsBold],clBlue);
REd2.lines.add(' ');
for i:=1 to 5 do
begin RedSuiteText(REd2,#13#10+chr(240),normal,'WingDings',12,[],clRed);
RedSuiteText(REd2,' Tagada '+intToStr(i),normal,'Arial',12,[],clBlue);
end;
redParagraph(red2,'g', 0, 60, 0);
red2.lines.add('');
for i:=139 to 144 do
begin RedSuiteText(REd2,#13#10+chr(i),normal,'WingDings',12,[],clRed);
RedSuiteText(REd2,' Tagada '+intToStr(i),normal,'Arial',12,[],clBlue);
end;
red2.lines.add('');
for i:=167 to 170 do RedSuiteText(REd2,#13#10+chr(i),normal,'Symbol',12,[],clRed); //<<<<<<<<<<<< voiçi la Symbol
end; |
Partager