Bonjour,
ce code marche avec un TRichEdit delphi pour mettre un mot en exergue, par la couleur du fond
Sous lazarus, le compilo ne trouve pas les param CHARFORMAT2 ni CFM_BACKCOLOR
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11 Var vFormat: CHARFORMAT2; begin FillChar(vFormat, SizeOf(vFormat), 0); vFormat.cbSize := SizeOf(vFormat); vFormat.dwMask := CFM_BACKCOLOR; vFormat.crBackColor := clskyBlue; RichEdit.SelStart := debAff; RichEdit.SelLength := vLength;
Quel uses je devrais rajouter pour régler le pb ?
Un TSynedit ne marchera pas dans mon cas : ce compo ne gère apparemment pas un espacement variable pour les polices de car.
Merci par avance pour votre aide
Partager