社区
Delphi
帖子详情
有没有办法画Tmemo控件中不同行的背景色?
hehaa
2003-08-21 12:00:11
如:第1行红,第二行绿..等.
...全文
140
5
打赏
收藏
有没有办法画Tmemo控件中不同行的背景色?
如:第1行红,第二行绿..等.
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
5 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
DWGZ
2003-08-22
打赏
举报
回复
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ComCtrls, RichEdit, RxRichEd;
type
TForm1 = class(TForm)
RichEdit1: TRichEdit;
Button1: TButton;
RxRichEdit1: TRxRichEdit;
Memo1: TMemo;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
var Fmt :TCharFormat2;
begin
FillChar(Fmt, SizeOf(TCharFormat2), 0);
Fmt.cbSize := SizeOf(TCharFormat2);
Fmt.dwMask := CFM_BACKCOLOR;
Fmt.crBackColor := ColorToRGB(clRed);
SendMessage(RichEdit1.Handle, EM_SETCHARFORMAT, SCF_ALL, LPARAM(@Fmt));
end;
hehaa
2003-08-22
打赏
举报
回复
to lxpbuaa(桂枝香在故国晚秋) :
我是要它背景变色...不是字体..有没有办法?
或者别的控件有吗?就是选中这一行时,背景变色..
hehaa
2003-08-22
打赏
举报
回复
RxRichEd...没有安装.............
不过我已经用画布画上去了...
bai11
2003-08-21
打赏
举报
回复
哪每一行的字呢?第一行红字,第二行绿字。。。。。。
lxpbuaa
2003-08-21
打赏
举报
回复
用TRichEdit,如:
begin
RichEdit1.SelStart := 0;
RichEdit1.SelLength := Length(RichEdit1.Lines[0]);
RichEdit1.SelAttributes.Color := clRed;
end;
—————————————————————————————————
宠辱不惊,看庭前花开花落,去留无意;毁誉由人,望天上云卷云舒,聚散任风。
—————————————————————————————————
TMemo
逐
行
读取数据Demo
Delphi开发过程
中
,往往需要在
TMemo
中
逐
行
读取数据,本实例是回答网友问题的源码。上传方便实施
TMemo
逐
行
读取数据的同
行
下载参考。
Delphi
TMemo
字符串的查找完全实现
这是早上传的发现有问题 不能在Delphi Xe5
中
运
行
但能在Delphi7
中
运
行
我想删除它也没权限 http://download.csdn.net/detail/teststudio/6404077 所以重传下 Delphi
TMemo
字符串的查找完全实现 已经完全的解决...
Delphi 7.0 得到Memo
中
的可见
行
数.rar
Delphi 7.0 获取Memo
控件
中
字符的可见
行
数,没讲 时在Memo
控件
中
随便粘贴入一些字符,单击窗口
中
的“检测可见
行
数”按钮,即可得到该文本框
控件
中
字符的
行
数,将这一系列执
行
命令集成在delphi的按钮监听事件
中
,编写...
Delphi专业 界面
控件
Skin++ For Delphi (一)
带滚动条的
控件
有:Edit,
Tmemo
,ListBox,ComboBox(Dropdown,DropdownList,Simple), TStringGrid, CheckListBox,LabeledEdit,RichEdit,ColorListBox,ScrollBar(横向、纵向),TCategoryButtons,TValueListEditor,...
Source Editor Component (代码编辑器
控件
)
TSourceEdit是一个代码编辑器
控件
,支持DELPHI语法高亮,基于
TMemo
组件。 Delphi7编译通过。
Delphi
5,388
社区成员
262,729
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章