Bonjour à toutes et à tous,
Je n'arrive pas à utiliser cette fonction qui permet d'afficher le Symbol ♥:
Merci d'avance,
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19 Function AfficherCode(S: String; fenêtre: TRichEdit): integer; var StylePrec: TtextAttributes; begin with fenêtre do BEGIN Styleprec:= DefAttributes; RESULT:=SelStart; SelAttributes.Name:= 'Symbol'; SelAttributes.Charset:=SYMBOL_CHARSET; if (S = 'O') or (s='N') then SelAttributes.Color:= clred else SelAttributes.Color:= clBlack; SelText:= S; SelStart:= RESULT+1; SelAttributes:= StylePrec; END; end;
P. S. Merci à Gilbert Geyer pour cette fonction remaniée.
@+,
cincap
Partager