colorier valeur?Résolu

Question

j'ai une succesion de valeur dans un memo1, une fois que toue les valeurs sont affich&#233;es comment puis-je mettre en rouge l'une d'elles?

cs_shining · Accepted Answer

non ça marche !!!
mais selectLine c'est une procedure que j'ai rajouter ça ne fait pas partie du composant TRichEdit

je pense que tu as mis cette procedure

procedure TForm1.SelectLine(Index: Integer; Color_ : TColor);
begin
    with RichEdit1 , SelAttributes, Lines do
    begin
        SelStart  := Pos(Lines[Index] , Text)-1;
        SelLength := Length(Lines[Index]);
        Color     := Color_;
    end;
end; 


Richedit1.Lines.Clear;
Richedit1.Lines.add('aaaaaaaaaa');  Ligne n° 0
Richedit1.Lines.add('bbbbbbbbbb');  Ligne n° 1
Richedit1.Lines.add('cccccccccc');  Ligne n° 2

SelectLine(1 , clRed); <== pas besoin de l'inclure dans with RichEdit

cs_neko · Answer

impossible dans un memo, il ne fait que l'affichage de texte brut. Il faut que tu utilise un RichEdit pour pouvoir modifier les couleurs, font,  taille du texte


bouh

didi59650 · Answer

ok mai comment je fais pour q'une seule ligne soit colorier dans richedit?
faut il que j'enregistre sous un nom chaque ligne puis je color la ligne choisis? comment faire??

didi59650 · Answer

j'ai trouv&#233; que Richedit1.SelAttributes.Color := ClRed; specifie la couleur mais maintenant jvoudrai colori&#233; seulement une ligne precise

didi59650 · Answer

appramment en faisant
SelStart := Perform(EM_LINEINDEX, 3, 0);
    Perform(EM_SCROLLCARET, 0, 0);
je selectionne laa ligne 3 mais comment la mettre en rouge?

Emandhal · Answer

SelStart d&#233;termine la position du caract&#232;re de d&#233;part.
SelLength d&#233;termine le nombre de caract&#232;res &#224; s&#233;lectionner.
SelAttributes.Color := clRed; pour mettre ce qui a &#233;t&#233; s&#233;lectionn&#233; par les 2 lignes du dessus en rouge.

Tout probl&#232;me a sa solution... Mais en g&#233;n&#233;ral, c'est jamais la bonne...

didi59650 · Answer

jai deja essay&#233; mais &#231;a ne marche pas

didi59650 · Answer

oui mais je ne dois pas utiliser de bouton
mon programme affiche 10 valeur dans richedit et je veux ensuite en metre une en rouge

cs_shining · Answer

with RichEdit1, SelAttributes do
    begin
        SelText := '';
        Color   := clblue;
        SelText := SelText + 'Hello';
        Color   := clRed;
        SelText := SelText + ' World';
    end;

facile non ?

didi59650 · Answer

lol oui &#231;a j'ai compris mais parexemple j'ai dix valeur les unes apres les autres dans mon richedit
je ve mettre en rouge la valeur se trouvant a la ligne X comment je fais?
j'essaye de comprendre: 
SelStart := length(lines[0]);
    SelLength := Length(Lines[0]);
    SelAttributes.Color := clRed;
mais je ne vois pas comment je selectionne precisement une ligne

cs_shining · Answer

bon j'ai taper trop vite dans mon exemple "Hello" n'a pas besoin d'être concassé puisque j'ai initialisé SelText = '' mais pour le reste tu peux même mettre un seul caratère en "gras" , "italic" ect..


Exemple

    with RichEdit1, SelAttributes do
    begin
        Color   := clblue;
        SelText := 'Hello';
        Color   := clRed;
        SelText := SelText + ' World';
        Style   := [fsBold];
        Color   := clBlack;
        SelText := SelText + ' Le MacDo c''est trop Gras';
    end;

didi59650 · Answer

ok mais dans ton exmple tu choisis la couleur avant d'ecrire. Moi toute les valeurs sont deja ecrite en noir et sont ecrite dans richedit. Maintenant je voudraix en mettre une seule en rouge

Cirec · Answer

non mais tu le fais expr&#232;s o&#249; quoi ?
les boutons sont la pour pouvoir r&#233;p&#233;ter l'op&#233;ration 
ce qui est int&#233;ressant c'est le code qui se trouve dans le bouton

 

@+
Cirec

cs_shining · Answer

avec mon exemple plus haut

   with RichEdit1, SelAttributes do
    begin
        SelStart  := 8;
        SelLength := Length('World')+1;
        Color     := clBlack;
    end;

didi59650 · Answer

lol dsl mais on ne se comprend pas. un appareil envoie 10 mesures au PC qui les ecrit dans richedit.En fait en appuyant sur UN bouton mon programme lie les valeurs de lappareil puis les ecrit dans richedit pui je voudrait qu'il en mette une en rouge (en sachant qu'audepart la valeur est en noir) .

didi59650 · Answer

je commence a comprendre. Mais on compte les caractere Peuton compter par ligne?

cs_shining · Answer

Okay je crois comprendre ce que tu veux

j'ai fait cette fonction qui selectionne une ligne et la colorise(en entier) 

procedure TForm1.SelectLine(Index: Integer; Color_ : TColor);
begin
    with RichEdit1 , SelAttributes, Lines do
    begin
        SelStart  := Pos(Lines[Index] , Text)-1;
        SelLength := Length(Lines[Index]);
        Color     := Color_;
    end;
end;

cs_shining · Answer

arf l'exemple dans tout ça nan de dieu !!!!!

    with RichEdit1, SelAttributes, Lines do
    begin
        Add('Hello World');
        Add('This is a test');
    end; 
    SelectLine(0 , clRed); <== c'est la 1er ligne qui sera en rouge
    SelectLine(1 , clRed); <== c'est la second ligne qui sera en rouge

didi59650 · Answer

Merci on se rapproche. je vais essayer qqch de se genre en sachant que je ne connais pas les valeur qui vont etre affich&#233;s. Donc Text je ne sais pas par quoi le remplacer meci beaucoup

didi59650 · Answer

selectLine ne marche pas
par exemple
begin


Richedit1.Lines.Clear;
Richedit1.Lines.add('aaaaaaaaaa');
Richedit1.Lines.add('bbbbbbbbbb');
Richedit1.Lines.add('cccccccccc');



  with RichEdit1 do begin
            selectline(1,clred);


    end;
    end;


end.

je veux mettre en rouge la 2eme ligne

Colorier valeur?

34 réponses

Votre réponse

Discussions similaires