严武 - 博客园

Delphi RichEdit的实现MSN / QQ 中的动画表情

摘要： unitUnit1;interfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ActiveX,ComCtrls, RxRichEd,ImageOleLib_TLB;//RxRichEd单元是Rxlib下的RxRichEdit,一套增强功能的RichEdit//ImageOleLib_TLB是从qq的ImageOle.dll引入的类型库const IID_IOleObject: TGUID = ( D1: $00000112; D2: $0000; D3: $ 阅读全文

posted @ 2011-08-18 23:02 严武阅读(611) 评论(0) 推荐(0) 编辑

在delphi ocx控件的安装

摘要：第一步: 使用过Activex的人都知道，Activex不注册是不能够被系统识别和使用的，一般安装程序都会自动地把它所使用的Activex控件注册，但如果你拿到的一个控件需要手动注册怎么办呢？如果修改注册表那就太麻烦了，在Windows的system文件夹下有一个regsvr32.exe的程序，它就是Windows自带的Activex注册和反注册工具。它的用法为：regsver32详解 regsvr32 [/s] [/n] [/i(:cmdline)] dllname其中dllname为activex控件文件名，建议在安装前拷贝到system文件夹下。参数有如下意义： /u——反注册控件 / 阅读全文

posted @ 2011-08-18 23:00 严武阅读(1758) 评论(0) 推荐(0) 编辑

Delphi

摘要：我们一般在调用了一些API后都会用GetLastError来获得错误信息,但是信息都是Integer的,我们知道是什么意思么?嘿嘿,是的,有msdn呀,当然还可以用FormatMessage函数来.正好看了下Windows核心编程第一章有个例子,来用Delphi试一下.主要用了FormatMessage函数,具体用法和注意事项就很多了,大家可以看MSDN了.Unit UtMain;InterfaceUses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, CxGraphics 阅读全文

posted @ 2011-08-17 12:33 严武阅读(920) 评论(2) 推荐(0) 编辑

I18N/L10N 是什么

摘要：开发人员把internationalization简写成I18N,中间的数字是前后两个字母间的字母个数。 L10N依据“localization” 使用同样的命名规则。 I18N/L10N方法、协议和应用结合在一起，允许用户使用他们自己所选择的语言。 I18N应用程序使用I18N工具来编程。它允许开发人员写一个简单的文件，就可以将显示的菜单和文本翻译成本地语言。我们非常鼓励程序员遵循这种规则。为什么要使用I18N/L10N? I18N/L10N标准能够很好地支持您查看、输入或处理非英语语言。I18N支持哪些语言？ I18N和L10N不是FreeBSD特有的。当前，它能支持世界上绝大部... 阅读全文

posted @ 2011-08-17 09:47 严武阅读(853) 评论(0) 推荐(0) 编辑

Delphi messagedlg 用法

摘要： if MessageDlg('Welcome to my Delphi application. Exit now?',mtConfirmation, [mbYes, mbNo], 0) = mrYes thenbeginClose;end;MessageDlg用法对话框类型：mtwarning——含有感叹号的警告对话框mterror——含有红色叉符号的错误对话框mtinformation——含有蓝色i符号的信息对话框mtconfirmation——含有绿色问号的确认对话框mtcustom——不含图标的一般对话框，对话框的标题是程序的名称按钮组中的按钮：mbYes——mrYes 阅读全文

posted @ 2011-08-16 08:59 严武阅读(257) 评论(0) 推荐(0) 编辑

delphi RichEdit控件中插入GIF动画表情

摘要： delphi在RichEdit控件中插入GIF动画表情在UDP即时通讯软件中实现类似于QQ的动画表情，在richEdit控件中插入gif动画表情。发送的时候将表情转为命令，接收之后，再将命令转换为相应的动画表情。需要引用一个QQ的DLL，文件在附件中。将此DLL导入到DELPHI中。unit URichEdit;interfaceusesWindows, Messages, SysUtils, Classes, Controls, StdCtrls, ActiveX, ComCtrls,RxRichEd, OleServer, ImageOleLib_TLB, coconst, UConst, 阅读全文

posted @ 2011-08-10 23:53 严武阅读(1554) 评论(0) 推荐(0) 编辑

delphi Jpg和Gif转Bmp

摘要： beginbmp:=TBitmap.Create;jpeg:=TJPEGImage.Create;jpeg.LoadFromFile(fname);withbmpdobeginPixelFormat:=pf24bit;Height:=60;Width:=self.RzListBox.Width;Canvas.Brush.Color:=$00F0EDE6;Canvas.FillRect(Canvas.ClipRect);Canvas.StretchDraw(Bounds(0,0,80,60),jpeg);end;//这里你可以用save之类的方法了bmp.Free;jpeg.Free;----- 阅读全文

posted @ 2011-08-10 16:44 严武阅读(2489) 评论(0) 推荐(0) 编辑

delphi 把一个ICO转换为BMP

摘要：（1）方法1varIcon : TIcon;Bitmap : TBitmap;begin Icon := TIcon.Create; Bitmap := TBitmap.Create; Icon.LoadFromFile('c:\picture.ico');//Load an ICOfrom File Bitmap.Width := Icon.Width; Bitmap.Height := Icon.Height; Bitmap.Canvas.Draw(0, 0, Icon ); Bitmap.SaveToFile('c:\picture.bmp'); //Co 阅读全文

posted @ 2011-08-10 16:20 严武阅读(1006) 评论(0) 推荐(0) 编辑

delphi RichEdit的内容保存为图片

摘要： uses RichEdit;{将RichEdit1的内容保存为图片，此函数也适合于RxRichEdit，即RichEdit: TRxRichEdit}procedure RichEditToCanvas(RichEdit: TRichEdit; Canvas: TCanvas; PixelsPerInch: Integer);varImageCanvas: TCanvas;fmt: TFormatRange;beginImageCanvas := Canvas;with fmt dobeginhdc:= ImageCanvas.Handle;hdcTarget:= hdc;rc:= Rect( 阅读全文

posted @ 2011-08-10 10:05 严武阅读(1470) 评论(0) 推荐(0) 编辑

Delphi 实现任务栏多窗口图标显示

摘要： uses Windows;type TfrmLogin = class(TForm)end;implementation{$R *.dfm}procedure TfrmLogin.FormCreate(Sender: TObject);begin SetWindowLong(Handle,GWL_EXSTYLE,(GetWindowLong(handle,GWL_EXSTYLE) or WS_EX_APPWINDOW));end; 阅读全文

posted @ 2011-08-04 13:46 严武阅读(682) 评论(0) 推荐(0) 编辑

严武

Microblue

公告

2011年8月18日