Delphi 为RichEdit设置行号


本文整理自网络,侵删。

 
procedure TForm1.Button4Click(Sender: TObject);
const
  PFNS_PAREN=$000;  //e.g. 1)
  PFNS_PARENS= $100;  //e.g. (1)
  PFNS_PERIOD= $200;  //e.g. 1.
  PFNS_PLAIN=$300;
  PFNS_NONUMBER =$400;

const
  PFN_NONE     = $00000000;  //
  PFN_BULLET   = $00000001;  //黑色实心圆点
  PFN_ARABIC   = $00000002;  //0,1,2
  PFN_LCLETTER = $00000003;  //a,b,c
  PFN_UCLETTER = $00000004;  //A,B,C
  PFN_LCROMAN  = $00000005;  //i,ii,iii
  PFN_UCROMAN  = $00000006;  //I,II,III

  var
  pf: PARAFORMAT2;
begin
  FillChar(pf, sizeof(paraformat2), #0);
  pf.cbSize := SizeOf(paraformat2);
  //PFM_NUMBERING: wNumbering 值有效
  //PFM_NUMBERINGSTYLE: wNumberingStyle值有效
  //PFM_NUMBERINGSTART: wNumberingStart值有效
  //PFM_STARTINDENT: dxStartIndent值有效
  pf.dwMask := PFM_NUMBERING or PFM_NUMBERINGSTYLE or PFM_NUMBERINGSTART or PFM_STARTINDENT;//or PFM_OFFSET;

  pf.wNumberingStyle := PFNS_PERIOD;  //设置行号的样式,可以为“)”,“.”,“()”
  pf.wNumberingStart := 1;            //设置行号起始值
  pf.wNumbering := PFN_ARABIC;        //设置行号的格式,可以为阿拉伯数字或者英文字母等格式
  pf.dxStartIndent := 60;             //设置行首缩进值

  RichEdit1.SelectAll;
  SendMessage(RichEdit1.Handle, EM_SETPARAFORMAT, 0, LPARAM(@pf));
  RichEdit1.SelStart := 0;
  RichEdit1.SelLength := 0;
end;

相关阅读 >>

Delphi idhttp中get与post的区别

Delphi 获取/设置桌面窗口样式的Delphi代码

Delphi system.masks.matchesmask 简单的正则用法

Delphi opendialog1 打开多个文件

incyear:将一个tdatetime变量加减一定数量的年数

Delphi 如何将access的ole对象字段存储的bmp图象显示出来

Delphi 根据开始和结束符取得中间字符串

Delphi 实现文件拖放完整代码

Delphi 如何使用findfirst搜索不同的文件类型?

Delphi 使用tmemorystream保存多张图片到文件,并读取

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...

    暂无评论...