水印也是图片,这涉及到图层问题,richedit不知能否进行图片插入和图层操作,要想文本效果如同WORD一样,richedit是做不到的,比如它的字间距就无法解决,要想打印效果如同WORD,只能使用DELPHI的CANVSE类了,richedit用于长文本编辑和一般浏览倒可以,用于艺术性较高的文图排版只能借助CANVSE类了.或者将文本或图片导出到WORD.追问我需要打印的richedit只有文字,没有图片。我尝试过先将richedit的文字写入image的canvas里面,再打印image,这样打印的文字高度、行距倒是对了,但是打印出来的文字糊掉了,效果不好,达不到我的系统要求。我现在要解决的问题是怎样直接将richedit的文字写到printer的canvas上面,而且保持效果跟我所看到的程序运行richedit上面显示的一样
要取得打印时字体的宽度高度,计算打印区域,得到每行打印字数,然后再打印
delphi怎么打印文件
PrinterSetupDialog1.Execute;end;procedure TForm1.PrintExecute(Sender: TObject);begin //列印分页 if PrintDialog1.Execute=True then RichEdit1.Print(Form1.Caption);end;or if printdialog1.execute then PrintStrings(RichEdit1.Lines);
如何把doc文件转换成PDF格式?
1.当然可以,首先要确定自己有一个pdf文档,而且确定目的是需要将pdf文档转换为word格式,然后我们将现有文档通过迅捷pdf转换器软件打开。2.通过选择PDF转换页面功能其中的PDF文件转WORD项目拖入文件。3.接着在迅捷pdf转换器下方按自己的需要是...
delphi关于richedit的使用
如果字符串a b的长度没有超过 richedit 的宽度,只要分别做add就可实现分别以一行输出.颜色的话,可以先选择一行,然后修改已选择文本的属性.procedure TForm1.BitBtn1Click(Sender: TObject);Var {}i,m,k:integer;{}a,b:string;begin // self.RichEdit1.Clear;a:='cxzcxcxcx';b:='cvbcbvcxb...
Delphi 7 的菜单栏复制如何实现当选中richedit的内容才可以选择_百度知 ...
if RichEdit1.SelLength >0 then Button1.Enabled :=true else Button1.Enabled :=false;end;用SelectionChange事件
delphi逐行读取richedit里面的内容,并判断
var i:integer;s:string;begin for i := 0 to richedit.lines.count - 1 do begin s := richedit.lines[i];if pos('ABC',s)>0 then begin if pos(' ',trim(s))>0 then memo.lines.add(copy(s,pos(' ',trim(s)),length(trim(s))-pos('ABC',trim(s))+1));end;end;en...
delphi 如何把RichEdit的滚动条移动到指定行?
1.richedit1.Lines.Move(0,strtoint(trim(edit1.Text))-1); //把这里的edit1.text改成你想要的行数;就行;这只是最基础的,其他的想要实现可以再加 2.var i:integer; //这是你想跳到的行数;str:string;begin richedit1.setfocus;for i:= 0 to i do str:=str+richedit1....
请问delphi有没有这样一种控件,类似于richedit,效果要求是 根据每行文...
Delphi 中 RichEdit 本身就支持 自动换行功能呀 可以通过发送消息定制显示宽度 如果你要显示行号,并作语法高亮的话(类于源代码编辑器)可以采用第三方控件 SynEditv2.05 可能很老了,我很多年没用Delphi写新东东,也许现在有更好的控件 但这个 SynEditv2.05 可满足大多数你提的要求 ...
delphi7中怎么实现richedit翻页功能
网上通常搜到的是这个:RichEdit1.Perform(EM_SCROLLCARET, 0, 0);哥再给你这个,万无一失 RichEdit1.SelStart := SendMessage(RichEdit1.Handle, EM_LINEINDEX, RichEdit1.Lines.Count-1, 0);RichEdit1.Perform(EM_SCROLL, SB_BOTTOM, 0);
Delphi的Richedit问题
1.RichEdit的两个属性enable and Readonly,当两者值分别为False and True时,可导致CTRL+V不好用。按照你说的RichEdit能获得焦点,最有可能的是ReadOnly设成True了,建议检查一下。2. 使用Paragraph属性设置段落
delphi richedit平滑滚动
void __fastcall TForm1::Timer1Timer(TObject *Sender){ int nPos = GetScrollPos(RichEdit1->Handle, SB_VERT);SendMessage(RichEdit1->Handle, WM_VSCROLL, MAKELONG(SB_THUMBPOSITION, nPos+1), 0);} 这个虽然是C++ Builder的,不过Dephi应该也可以用的,...
delphi怎样把richedit内容存为doc文件
具体步骤如下:1、复制richedit的内容。2、通过com操作word,把内容粘贴到word中,并保存。3、添加需要用到的com接口,右键项目,选添加类,选中MFC=》TypeLib中的MFC类,点击添加。4、选到word组件所在的路径,把需要用到的接口添加项目。这里需要用到_Application,_Document,Documents,Selection。点击...