TMemo içinde renklendirme yapmak istiyorum.

[Shou]

Merhaba arkadaşlar TMemo kullanıyorum ama içinde reklendirme yapmak istiyorum dielim hata kodları kırmızı sorunsuz olanlar mavi gibi ama ben renk koyarsam bütün hepsi kırmızı oluyor yada mavi aşşağıdaki kod tümünü renklendiriyor nasıl yapabiliriz mümkün müdür?

Kod: Tümünü seç

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  FirstVariuble, SecondVarible, ThirdVarible :BOOL;
begin
  if FirstVariuble = true then
    begin
      Memo1.Font.Color := clGreen;
      Memo1.Lines.Add('FirstVariuble = True');
    end
  else if SecondVarible = true then
    begin
      Memo1.Font.Color := clBlue;
      Memo1.Lines.Add('SecondVarible = True');
    end
  else
    begin
      Memo1.Font.Color := clRed;
      Memo1.Lines.Add('ThirdVarible = True');
    end;
end;

Şimdiden teşekkürler.

[brs]

Bu linki inceleyiniz...

Kod: Tümünü seç

http://myo.bartin.edu.tr/aliozsoy/ders_notlar/Delphi16.html

[Shou]

Hocam bu metin arama ben renklendirme için dedim

[unicorn64]

TRichEdit e bakın...

[brs]

Bendece TRichEdit daha mantıklı...

[esistem]

http://www.swissdelphicenter.ch/torry/s ... hp?id=2150 burada detaylıca açıklamış sanırım.

[Lord_Ares]

Metni seçtikten sonra Memo1.Font.Color := clGreen; denediniz mi kodunuza baktığımda baştan renk verip sonra ekliyorsunuz. Birde ekledikten sonra metni veya satırı seçip Memo1.Font.Color := clGreen; deneyin şuan deneme şansım yok umarım olur.