با سلام
چجوری میشه یه Text معمولی را به RTF با فونت (مثلا BZar & Size 14) تبدیل کرد؟
آیا میشه تعریف کرد که دو خط اول نوشته با فونت مثلا 16 پر رنگ و بقیه با فونت 14 معمولی باشه؟
با تشکر
با سلام
چجوری میشه یه Text معمولی را به RTF با فونت (مثلا BZar & Size 14) تبدیل کرد؟
آیا میشه تعریف کرد که دو خط اول نوشته با فونت مثلا 16 پر رنگ و بقیه با فونت 14 معمولی باشه؟
با تشکر
function TForm1.CurrText: TTextAttributes;
begin
if RichEdit1.SelLength > 0 then Result := RichEdit1.SelAttributes
else Result := RichEdit1.DefAttributes;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
mm:TMemoryStream;
begin
mm:=TMemoryStream.Create;
mm.LoadFromFile('t1.txt');
RichEdit1.Lines.LoadFromStream(mm);
mm.Free;
CurrText.Name := FontName.Items[FontName.ItemIndex];
RichEdit1.Lines.SaveToFile('1.rtf');
end;
میشه لطفی بکنبد در این مورد بیشتر توضیح بدید