کم و زیاد کردن فاصله بین خطوط در Memo

[Mask]

سلام
چطوری میتوان فاصله بین خطوط memo رو کم و زیاد کرد؟
آیا ایونت خاصی برای این موضوع وجود دارد؟
ممنون از پاسخگوییتون.

[یوسف زالی]

سلام.
دادا اینارو ببین:

http://stackoverflow.com/questions/4497152/in-delphi-is-there-a-way-to-adjust-the-line-spacing-of-a-tmemo
http://stackoverflow.com/questions/6804929/how-do-i-determine-the-height-of-a-line-of-text-in-a-tmemo-programmatically

[Mask]

سلام.
دادا اینارو ببین:

http://stackoverflow.com/questions/4497152/in-delphi-is-there-a-way-to-adjust-the-line-spacing-of-a-tmemo
http://stackoverflow.com/questions/6804929/how-do-i-determine-the-height-of-a-line-of-text-in-a-tmemo-programmatically
ممنون.
اما این روش میخاد تکست رو ، روی ممو به صورت دستی رسم کنه.
بعدشم هر دو کد مشکل داره . زیاد این مدل روشها رو دوست ندارم. بیشتر دنبال راه حل منتقی و راحتتری هستم.
البته اصراری به استفاده از ممو نیست . آیا کامپوننت دیگری وجود داره که شبیه به ممو باشه و این امکان رو داشته باشه؟

[*جیگرم*]

فکر می کنم با TRichView میتونید کاری رو که میخوایید انجام بدید.

[یوسف زالی]

در همون لینک:


If you just want to display some information it's better to use components which let you set texts positions and their style precisely like TRichView.

[Mask]

چه باحاله این سایت.
به قول یوسف، خودمون میپرسیم ، خودمون جواب مبدبم:تشویق:
چه با حال . اگه قابلیت تشکر از خدمون رو هم داشت ، دیگه حرف نداشت:چشمک:

uses
RichEdit;

procedure RichEditLineSpacing(mRichEdit: TRichEdit; mLineSpacingRule: Byte);
var
vParaFormat2: ParaFormat2;
begin
if not Assigned(mRichEdit) then
Exit;
mRichEdit.SelectAll;
FillChar(vParaFormat2, SizeOf(vParaFormat2), 0);
vParaFormat2.cbSize := SizeOf(ParaFormat2);
vParaFormat2.dwMask := PFM_LINESPACING;
vParaFormat2.bLineSpacingRule := mLineSpacingRule;
vParaFormat2.dyLineSpacing := Ord(True);
mRichEdit.Perform(EM_SETPARAFORMAT, 0, Longint(@vParaFormat2));
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
RichEditLineSpacing(RichEdit1, 1); // 0 or 1 or 2;
end;