मल्टीकोरर मल्टीलाइन टीएममो

Question

क्या डेल्फी XE2 में मल्टीकोरर मल्टीलाइन टीएममो को कॉन्फ़िगर करना संभव है?।
की तरह जब मैं लिख रहा हूँ कोड: सब पहले से मौजूद लाइनों के लिए

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; 

फ़ॉन्ट रंग चर की शर्त के अनुसार बदला जा रहा है।

Answer 1

नहीं, यह संभव नहीं है। लेकिन आप इसके बजाय रिचेटिट नियंत्रण का उपयोग कर सकते हैं, उदाहरण के लिए, TRichEdit रैपर।

RichEdit1.SelAttributes.Color := clGreen; 
RichEdit1.Lines.Add('First line.'); 

RichEdit1.SelAttributes.Color := clBlue; 
RichEdit1.Lines.Add('Second line.'); 

RichEdit1.SelAttributes.Color := clRed; 
RichEdit1.Lines.Add('Third line.');