社区
Delphi
帖子详情
有没有办法画Tmemo控件中不同行的背景色?
hehaa
2003-08-21 12:00:11
如:第1行红,第二行绿..等.
...全文
141
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
TMemo
的查找对话框 和 替换对话框 功能 的所有功能 查看 GIF http://images.cnblogs.com/cnblogs_com/xe2011/524919/o_TFindDialog.gif
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; 程序运
行
效果请参见截图所示,完整源码请下载。
Delphi专业 界面
控件
Skin++ For Delphi (一)
大家用惯了BSskin和VCLskin,但是这个跟专业! 支持的开发语言 Borland Delphi 4/5/6 Borland Delphi 7 Borland Delphi 8 Borland Delphi 2005 Borland Delphi 2006 CodeGear Delphi 2007 支持的操作系统 Windows Vista Wndows 2000/XP/2003 Windows NT4.0 Windows Me Windows 98/98SE Windows 95 版本信息 当前版本:3.0 文件大小:24.9MB 更新日期:2006-12-6 下载次数:22670 软件概述 Skin++ For Delphi目前全面支持Delphi4、Delphi5、Delphi6、Delphi7、Delphi8、Delphi2005、Delphi2006。 迄今为止,Delphi支持4种类型的应用程序: 1、VCL Forms Application – Delphi for Win32 (该类型在Delphi4/5/6/7/2005/2006所有版本包含); 2、VCL Forms Application – Delphi for .Net (该类型在Delphi8/2005/2006
中
包含); 3、Windows Forms Application – C# Builder (该类型在Delphi2005/2006
中
包含); 4、Windows Forms Application – Delphi for .Net (该类型在Delphi8/2005/2006
中
包含)。 Skin++对以上4种Delphi程序类型做了全面的支持。 试用版本描述与运
行
截图 1.在本安装盘
中
,包含了Delphi的各个版本(D6,D7,D8,D2005,D2006)Skin++测试例子; 2.关于如何使用Skin++,请参考文档《Skin++ For Delphi [All Edition]使用帮助》; 3.要查询Skin++所有的接口,请参考文档《Skin++接口描述》; 4.本安装盘提供一套试用皮肤PixOS.ssk,正式版用户将获得网站上更多更精美的皮肤。并可获得定期更新; 5.Skin++正式版
中
提供强大的皮肤设计工具Skin++Builder。 该工具完成皮肤所有的设计工作,并可以全自动导入Windows主题、第三方主题; Skin++Builder使用详情请参考《Skin++Builder Help》; 6.案例说明: 我们以Delphi2006 VCL Win32的测试例子为例,描述其组成。 打开\Delphi 2006\VCL Forms Application - Delphi For Win32\目录
中
的MDIAPP.exe 该例子是一个MDI类型的程序。主窗口部分演示Skin++在MDI方面处理的各个细节。 如:主菜单条、主弹出菜单、系统菜单、工具条、状态条、MDI客户区、MDI子窗口、MDI子窗口最大化后等各个部分的换肤细节。 Skin++ 3.0 可以对皮肤进
行
动态的色调设置 这个功能可以使您的程序可以瞬间拥有N套色调的皮肤。 更改色调样例1: 我们分以下几个页面对Delphi的全部
控件
进
行
了演示: Buttons、Static、Controls with ScrollBar(带滚动条的
控件
)、Splitter、TabControls、TrackBar & Progress、Misc Controls、Dialog、DataControls 6.1 Buttons 该部分我们演示了Skin++对Delphi的各种类型的按钮进
行
的换肤支持, 包括BitBtn按钮、SpeedButton、Tbutton、CheckBox、RadioBox 在该部分,还演示了对按钮进
行
多风格的换肤效果,“Style 2”按钮和其他按钮
不同
,呈现了其特有样式。 这种效果一般用在网络电话、多媒体软件、网络聊天等需要同时支持多种按钮风格的地方。 每个按钮具有其固定的5
中
状态:正常、按下、高量、禁用、默认。在该窗体
中
演示了每种按钮的5
中
状态。 并且在Skin++ 3.0
中
,支持Focus的效果。通过Tab或方向键可以看到焦点在每个按钮上移动。 6.2 Static 该部分演示了Skin++ 对Label、GroupBox、右键菜单、Panel、FlowPanel、GridPanel等
控件
的支持。 值得一提的是,Skin++对Label的支持是彻底,并且不像其他的换肤软件需要在窗体上放置一个
Source Editor Component (代码编辑器
控件
)
TSourceEdit是一个代码编辑器
控件
,支持DELPHI语法高亮,基于
TMemo
组件。 Delphi7编译通过。
Delphi
5,392
社区成员
262,732
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章