Aynı satırdaki renkli metin TRichEdit

Question

Aynı satırda ancak farklı renkte metin nasıl yazılır? (Richedit kullanıyorum).

procedure TForm1.btnEClick(sender: TObject); 
begin 

    m0.SelAttributes.Color := clBlue; 
    m0.SelAttributes.Style := [fsBold]; 
    m0.lines.add('This is blue and it is bold'); 
    m0.SelAttributes.Color := clGreen; 
    m0.SelAttributes.Style := [fsBold]; 
    m0.lines.add ('This is Green and it is bold'); 
    m0.lines.add(''); 
    m0.lines.add('But how to write text in the same line with different color?'); 
    // i want to have both blue and green in the same line 
end; 

Saygılarımızla, Arı Sen doğru yoldasın

Answer 1

. Sadece SelAttributes değiştirip SelText yerine Lines.Add kullanımı:

procedure TForm4.FormCreate(Sender: TObject); 
begin 
    RichEdit1.Clear; 
    RichEdit1.SelAttributes.Color := clBlue; 
    RichEdit1.SelAttributes.Style := [fsBold]; 
    RichEdit1.SelText := 'This is bold blue text.'; 
    RichEdit1.SelAttributes.Color := clRed; 
    RichEdit1.SelAttributes.Style := [fsItalic]; 
    RichEdit1.SelText := #32'This is italic red text'; 
end; 

Bu üretir