摘要：procedure tform1.button1click(sender: tobject);
var
iconsizex : integer;
iconsizey : integer;
andmask : tbitmap;
xormask : tbitmap;
iconinfo : ticoninfo;
icon : ticon;
begin
{get the ic......
摘要：通过该方法你可以随心所欲地在memo或richedit里作图了！呵呵！
function tform1.memopain:boolean;
var
mycanvas: tcontrolcanvas;
begin
mycanvas:=tcontrolcanvas.create;
mycanvas.control:=memo1;//想在memo1上作画
with mycanvas......
3DLabel控件unit idslabel;
【程序编程相关:
关于用IDhttp发送网站http头的问】 【推荐阅读:
用clientsocket发送http头】
interface 【扩展信息:
几个delphi书中没提过的数据库问题与】
uses
windows, messages, sysutils, classes, graphics, controls, forms,
dialogs,
extctrls;
type
tidslabel = class(tbevel)
private
{ private declarations }
falignment : talignment;
fcaption : string;
ffont : tfont;
foffset : byte;
fonchange : tnotifyevent;
procedure setalignment( tain : talignment );
procedure setcaption( const strin : string);
procedure setfont( fntnew : tfont );
procedure setoffset( boffnew : byte );
protected
{ protected declarations }
constructor create( compown : tcomponent ); override; ...
下一页 摘要：曾经有人问怎样编写支持多国语言的程序， 让它能够根据所运行的操作系统自动显示相应的文字。 而且不但要替换windows标准对话框， 还要自动替换窗口标题、 按钮标题等所有显示的文字和所有错误提示。
我想使用delphi 5的integrated translation environment (ite)可以轻易得完成这个工作。
我们创建一个示意性的工程multilanguage， 在for......
