The component below works perfectly, except for the following problem: 1) Saves the component below in a file "trancomp.pas".Then, install this component in Delphi; 2) Later, open Delphi and create a new project; 3) Adds a TImage and a TTransMem

The component below works perfectly, except for the following problem: 1) Saves the component below in a file "trancomp.pas".Then, install this component in Delphi; 2) Later, open Delphi and create a new project; 3) Adds a TImage and a TTransMem

项目中碰到此问题,之前一直没留意,研究一番用上,以做备忘.参考其它解决方法,不尽完美,自试之,达到效果. 直上代码: type TMemo = class(StdCtrls.TMemo) protected procedure Change; override; end; { TMemo } procedure TMemo.Change; var lc, lh: Integer; cvs: TControlCanvas; begin inherited; cvs := TControlCanva

多行编辑框组件(TMemo)TMemo组件可以显示.编辑多行文本,是一个标准的Windows多行编辑组件.对一些比较多的文本内容可以利用TMemo组件来显示.编辑. 1．TMemo组件的典型用法 TMemo组件主要用于输入备注型的字符串,它不能进行文字格式的设置.利用TMemo组件Lines属性的LoadFromFile方法打开文本文件,对文本文件进行编辑.编辑完成后再利用Lines属性的SaveToFile方法将编辑后的文本进行保存.例如下面的代码,在拥有一个Memo1组件和两个Button组

说明:展示使用程序码改变 Firemonkey TMemo 的背景颜色. 适用:XE6 源码下载:[原創]Memo改背景色_XE6.zip //------------------------------------------------------------------------------ // by [龟山]阿卍 QQ: // http://www.cnblogs.com/onechen/ //---------------------------------------------

Windows记事本记事本     描述:     用Delphi模仿的Windows记事本 界面和功能都和Windows的记事本一样,是用Memo实现的而不是RichEdit 可以执行以下功能 文件 打开,保存,打印, 页面设置,撤销,复制,粘贴,查找,替换,插入时间日期,转到行, 保存窗体大小 位置 和读取配置信息支持拖拽文件到记事本中...  下载地址:http://download.csdn.net/detail/teststudio/6414215 难点 对文件的新建 打开 保存 另存

Delphi XE2 之 FireMonkey 入门(40) - 控件基础: TMemo 值得注意的变化: 1.其父类 TScrollBox 的许多特性也很有用处, 如:   Memo1.UseSmallScrollBars := True; 2.内部使用了一个栈列表管理动作, 现在可以执行多步撤销(UnDo). 3.使用了一个新的结构体 TCaretPosition 来描述当前位置, 并为该结构提供了一个公用的快速构造函数 ComposeCaretPos().   TCaretPosition

delphi DBGrid简单自绘(字体颜色.背景等)  从网上找的代码 应该是C#写的,其实delphi 的操作类似: 1 2 3 4 5 6 7 8 9 10 11 12 13 void __fastcall TForm1::DBGrid1DrawColumnCell(TObject *Sender,       const TRect &Rect, int DataCol, TColumn *Column,       TGridDrawState State) {     AnsiStr

mmoMonitor:Tmemo; mmoMonitor.Lines.ValueFromIndex[0]:=aInfo ; procedure TMainForm.LogInfo(aInfo: string; IsShow: Boolean); begin ctsLog.Enter; try then memServerLog.Clear; if not IsShow then begin then begin then shp1.Brush.Color:=clFuchsia then shp2

一.BITMAP STYLE DESIGNER 工具集成在IDE开发工具的TOOLS菜单. 使用NEW 新建一个安卓样式.NEW—NEW ANDROID STYLE FOR FIREMONKEY. 这里我们改变edit的背景 在OBJECTS树找到EDIT 点击左侧OBJCEBTS的ITmap,然后在右侧的INSPECTOR中改变背景的bitmap 选择: 空白. 方法是 :鼠标左键选择,然后鼠标右键选择.确定白色区域.最后按[APPLY] 选择保存就形成了一个自定义的EDIT的STYLE样式文

  TreeView修改选中的节点的颜色和背景     TCustomDrawTarget = (dtControl, dtItem, dtSubItem);   TCustomDrawStage = (cdPrePaint, cdPostPaint, cdPreErase, cdPostErase);   TCustomDrawState = set of (cdsSelected, cdsGrayed, cdsDisabled, cdsChecked,     cdsFocused, cds

TMemo中的两个方法: TMemo.Lines.Add(stringxxx);意思是向TMemo中增加字符串stringxxx: TMemo.Lines.Text :=stringxxx,意思是清空了Memo1,然后写入stringxxx. TMemo中的属性: TMemo的属性中没有Scrollbar这个属性,不知道为什么,设置showscrollbars为true也没有用.属性AutoHide默认为True,这样文本中一行显示不完就被隐藏了,于是文本显示不完整.所以我们设置AutoHide

绘制窗体渐变背景的函数,三个参数分别代表起始颜色,终止颜色,绘制方向procedure TForm1.Draw(StartColor:TColor;EndColor:TColor;Direction:Integer);vari:Integer;Dct:TRect;c1,c2,c3:byte;beginif Direction=0 thenbeginfor i:=0 to self.Width-1 dobeginc1:=GetRValue(StartColor)+Trunc(i*(GetRValu

转自 http://www.delphitop.com/html/kongjian/351.html 首先定义:procedure TStatusForm.FormCreate(Sender: TObject) ;beginStatusBar1.Panels[0].Style := psOwnerDraw;StatusBar1.Panels[1].Style := psOwnerDraw;end; 自画事件:procedure TStatusForm.StatusBar1DrawPanel(St

在一个安卓需求中,需要模仿驾考宝典的详解部分.琢磨了好几天.终于搞定: MemoAns.Height:=10;//MEMO控件赋初始高度值 MemoAns.Lines.Clear; MemoAns.WordWrap:=true;//自动换行 MemoAns.Text:='详解:'+dm.FDQSQ.FieldByName('GANSER').AsString;//输入memo字串 MemoAns.GoToTextBegin;//到文字最前 MemoAns.GoToTextEnd;//到文字最后

Label1.Transparent:=true;你在它的属性窗口把它的Transparent属性改成TRUE就行了 来自为知笔记(Wiz)

模仿的很不错,在本质上与windows记事本使用了同一个Edit. http://www.cnblogs.com/xe2011/category/524758.htmlhttp://www.cnblogs.com/xe2011/p/3374414.html

https://blog.csdn.net/maxwoods/article/details/8592389 http://www.cnblogs.com/baoluo/archive/2011/04/14/2016377.html http://www.360doc.com/content/11/0425/19/6832513_112265020.shtml

procedure DrawParentBackground(Control: TControl; DC: HDC; R: PRect = nil; bDrawErasebkgnd: Boolean = False); var SaveIndex: Integer; MemDC: HDC; MemBmp: HBITMAP; begin if R <> nil then begin MemDC := CreateCompatibleDC(DC); MemBmp := CreateCompatib

手头的项目做的差不多了,交给客户,结果给出的结论是界面太难看了,至少要做成像QQ类似的界面.(目前是QQ2009界面确实还是不错的,本人也非常喜欢). 1.透明问题. 要重新调整界面确实很麻烦,以前用DELPHI开发的界面都很土,和WEB真是没办法比.(我以前用的是DELPHI7),现在回想起来,DELPHI难做的原因是:没有透明控件.所有控件都是不透明的,并且大部分控件就是灰色的,一放到窗体上,就像一块膏药一样贴在上面.即使界面上放几副图片也难以和控件的那种灰灰的颜色融合起来.所以,一直在想Q