本文整理自网络,侵删。
procedure TForm1.Button3Click(Sender: TObject);var pf: PARAFORMAT2;begin FillChar(pf, sizeof(paraformat2), #0); pf.cbSize := SizeOf(paraformat2); pf.dwMask := PFM_LINESPACING ; //需要设置上 PFM_LINESPACING 标志,bLineSpacingRule和dyLineSpacing才可能有效
// pf.bLineSpacingRule := 0; //单倍行距,dyLineSpacing的值将被忽略// pf.bLineSpacingRule := 1; //1.5倍行距,dyLineSpacing的值将被忽略// pf.bLineSpacingRule := 2; //两倍行距,dyLineSpacing的值将被忽略// pf.bLineSpacingRule := 3; //用dyLineSpacing以缇为单位指定行间距,当此值小于单倍行距时,效果为单倍行距// pf.bLineSpacingRule := 5; //用dyLineSpacing/20指定行间距
pf.bLineSpacingRule := 4; //用dyLineSpacing以缇为单位指定行间距 pf.dyLineSpacing := RichEdit1.Font.Size * 20 + 20 * 4; //这是笔者大概计算的,可以根据字体大小调节的,行间最小距离,大字体时可能出现上下行重叠,可以设置为300或者自己计算
RichEdit1.SelectAll; //只对选择的文本有效,***重要*** SendMessage(RichEdit1.Handle, EM_SETPARAFORMAT, 0, LPARAM(@pf)); RichEdit1.SelStart := 0; RichEdit1.SelLength := 0;end;
相关阅读 >>
Delphi xe5 中tmemo控件的应用――for android
android : assets与res/raw资源目录的区别
更多相关阅读请进入《Delphi》频道 >>