社区
VCL组件使用和开发
帖子详情
TMemo
windxnet
2007-06-29 05:31:24
我向在TMemo里添加若干行,希望可由有不同的颜色(背景色或字体颜色)?如何实现?
...全文
157
6
打赏
收藏
TMemo
我向在TMemo里添加若干行,希望可由有不同的颜色(背景色或字体颜色)?如何实现?
复制链接
扫一扫
分享
转发到动态
举报
AI
作业
写回复
配置赞助广告
用AI写文章
6 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
cczlp
2007-07-02
打赏
举报
回复
没什么好方法, 将就用吧
windxnet
2007-07-02
打赏
举报
回复
唉,我知道了,但是有点麻烦,不知道大家还有没有更好的办法。
下面时我写的一个小函数:
void RichEditAdd(TRichEdit *RE, AnsiString Text, TColor Color)
{
static int SelBegin = 0;
RE->Lines->Add(Text);
RE->SelStart = SelBegin;
RE->SelLength = Text.Length();
RE->SelAttributes->Color = Color;
SelBegin += Text.Length() + 2;
RE->SelStart = RE->Text.Length();
}
littlefish0101
2007-06-30
打赏
举报
回复
我也不知道期待中......
windxnet
2007-06-30
打赏
举报
回复
RichEdit怎么作?
我来看看CB
2007-06-29
打赏
举报
回复
对
编译失败
2007-06-29
打赏
举报
回复
用RichEdit
TMemo
逐行读取数据Demo
Delphi开发过程中,往往需要在
TMemo
中逐行读取数据,本实例是回答网友问题的源码。上传方便实施
TMemo
逐行读取数据的同行下载参考。
Delphi
TMemo
字符串的查找完全实现
这是早上传的发现有问题 不能在Delphi Xe5中运行 但能在Delphi7中运行 我想删除它也没权限 http://download.csdn.net/detail/teststudio/6404077 所以重传下 Delphi
TMemo
字符串的查找完全实现 已经完全的解决Delphi
TMemo
的查找对话框 和 替换对话框 功能 的所有功能 查看 GIF http://images.cnblogs.com/cnblogs_com/xe2011/524919/o_TFindDialog.gif
delphi Memo及tstrlists的交集差集并集
delphi Memo及tstrlists的交集差集并集
Delphi FindDialog使用demo
Delphi memo和 FindDialog使用demo 这是需要集成到主程序,可以查找memo中的字符位置
Delphi 7.0 得到Memo中的可见行数.rar
Delphi 7.0 获取Memo控件中字符的可见行数,没讲 时在Memo控件中随便粘贴入一些字符,单击窗口中的“检测可见行数”按钮,即可得到该文本框控件中字符的行数,将这一系列执行命令集成在delphi的按钮监听事件中,编写如下代码即可: function LinesVisible(Memo:
TMemo
): integer; Var OldFont : HFont; Hand : THandle; TM : TTextMetric; Rect : TRect; tempint : integer; begin Hand := GetDC(Memo.Handle); try GetTextMetrics(Hand, TM); Memo.Perform(EM_GETRECT, 0, longint(@Rect)); tempint := (Rect.Bottom - Rect.Top) div Memo.Font.Height div -1; finally ReleaseDC(Memo.Handle, Hand); end; Result := tempint; end; procedure TForm1.BitBtn1Click(Sender: TObject); begin bitbtn1.Caption:='可见[' IntToStr(LinesVisible(Memo1)) ']行'; end; 程序运行效果请参见截图所示,完整源码请下载。
VCL组件使用和开发
604
社区成员
13,457
社区内容
发帖
与我相关
我的任务
VCL组件使用和开发
C++ Builder VCL组件使用和开发
复制链接
扫一扫
分享
社区描述
C++ Builder VCL组件使用和开发
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章