救救我吧~关于文本的问题(50分)(50分)

  • 主题发起人 主题发起人 花 儿
  • 开始时间 开始时间
短时间内搞不出来,你先等一等
 
哦,小寿星生日快乐!!!
 
后生可畏哑
 
最简单的方法,用Richedit,不要用Memo
 
THakeMemo = TCustomMemo
就开放了memo的selectcolor的属性,可以修改了选择的颜色了,
tcustommemo控件将selectcolor放在保护属性中了,用这样的方法
可以或得该属性
 
sherman
你的意思是自己做一个控件?说的详细点?
 
呵呵,你用 RichEdit 控件,问题不就搞定了?
RichEdit 会自动反色的。
 
gZ,改变SelectText的color的方法!(一定是一种高深的方法,哈哈,菜鸟总这么想!)
(顺便带一句,花儿,别跟自己过不去,先用Richedit对付吧,等有大侠来搞定再说)
;happy birthday to ;little flower!
 
谢谢楼上大虾群的关心,
richedit不是我不用,他是一个偏向RTF格式的文本控件,不知道你们有没有试过用
richedit.savetofile 保存后的文件(保存在其他盘),然后格式化C盘(系统盘)
等你再打开那个文件的时候,里面是一堆有点像Rtf标示的乱码!再也恢复不过来了!

所以,我才那个。。。。这么。。。。高的要求的(再说这问题也不难!)
帮我提前一下吧?
 
RichEdit.PlainText:=true;
 
再加上 zw84611 的回答不就没有问题了?
 
使用richedit,
RichEdit.PlainText:=true;
 
>等你再打开那个文件的时候,里面是一堆有点像Rtf标示的乱码!再也恢复不过来了
用notepad看当然是,用写字板看就不是了:)
 
哦!
结帐!
 
我用richedit(语法高亮)+memo(保存纯文本)来完成文本处理
把RichEdit.PlainText:=true; 这个不太好吧,无法保存字体设置了,:(

假设EditForm上有Editor(为richedit控件),MemoEditor(memo控件), 等控件
//存盘过程
procedure TEditForm.Save1Click(Sender: TObject);
begin
; if PathName = DefaultFileName then
; ; SaveAs1Click(Sender)
; else
; begin
// 把richedit中的内容copy到memoedit中;
//存储为纯文本!
; ; Editor.SelectAll;
; ; Editor.CopyToClipboard;
; ; MemoEditor.Clear;
; ; MemoEditor.PasteFromClipboard;
; ; MemoEditor.Lines.SaveToFile(PathName);

;//如果有格式化文本的过程,以下三句可以不要
; ;Editor.Lines.SaveToFile(PathName+'.rtf'); ;
; ;Editor.Modified := False;
; ; Editor.SelLength:=0;

; end;
end;
 
可以做到,不过好麻烦,如果你不怕麻烦,就做吧:有一个API InvertRect(),好像是这个名字?你Try一下。
 
我试一试!
 
多人接受答案了。
 
后退
顶部