Bonjour à tous,
je pense que le titre résume bien le problème. J'aimerais pourvoir changer la couleur de font de la ligne active d'un TRichEdit, voir de plusieurs lignes consécutives.
Quelqu'un a t'il une idée ?
Bonjour à tous,
je pense que le titre résume bien le problème. J'aimerais pourvoir changer la couleur de font de la ligne active d'un TRichEdit, voir de plusieurs lignes consécutives.
Quelqu'un a t'il une idée ?
Essai un truc comme ca :
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 procedure TMainForm.SelectLine(var TheRichEdit: TRichEdit; nLineIndex: Integer); var nStartPos: Integer; begin nStartPos := SendMessage(TheRichEdit.Handle, EM_LINEINDEX, nLineIndex, 0); if nStartPos <> -1 then begin TheRichEdit.SelStart := nStartPos; TheRichEdit.SelLength := Length(TheRichEdit.Lines[nLineIndex]); if not TheRichEdit.Focused then TheRichEdit.SetFocus; end; end; SelectLine(RichEditCmd, SendMessage(RichEditCmd.Handle, EM_LINEFROMCHAR, RichEditCmd.SelStart, 0));
Attention, ce que je veux c'est pas sélectionner une ligne c'est changer la couleur de font de la ligne, du caneva en fait.
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager