摘要:通过该方法你可以随心所欲地在memo或richedit里作图了!呵呵!
function tform1.memopain:boolean;
var
mycanvas: tcontrolcanvas;
begin
mycanvas:=tcontrolcanvas.create;
mycanvas.control:=memo1;//想在memo1上作画
with mycanvas......
摘要:曾经有人问怎样编写支持多国语言的程序, 让它能够根据所运行的操作系统自动显示相应的文字。 而且不但要替换windows标准对话框, 还要自动替换窗口标题、 按钮标题等所有显示的文字和所有错误提示。
我想使用delphi 5的integrated translation environment (ite)可以轻易得完成这个工作。
我们创建一个示意性的工程multilanguage, 在for......
把位图变成一个图标实现Acdsee式的预览procedure tform1.button1click(sender: tobject);
var 【程序编程相关:
delphi7的新特性
】 【推荐阅读:
几个delphi书中没提过的数据库问题与】
iconsizex : integer; 【扩展信息:
在Delphi中创建的简单的Excel报】
iconsizey : integer;
andmask : tbitmap;
xormask : tbitmap;
iconinfo : ticoninfo;
icon : ticon;
begin
{get the icon size}
iconsizex := getsystemmetrics(sm_cxicon);
iconsizey := getsystemmetrics(sm_cyicon);
{create the "and" mask}
andmask := tbitmap.create;
andmask.monochrome := true;
andmask.width := iconsizex;
andmask.height := iconsizey;
{draw on the "and" mask}
andmask.canvas.brush.color := clwhite;
andmask.canvas.fillrect(rect(0, 0, iconsizex, iconsizey)); ...
下一页 摘要:李春平 郝桓成
delphi是目前windows95/nt环境下优秀的软件开发系统。虽然它目前还不是中文版的,但仍可以开发出完全中文版的应用程序。delphi附带的应用程序安装工具isexpress也是让程序员们如虎填翼,快速生成最终的应用软件的安装程序。但许多从事delphi软件开发的程序员可能都觉得它有一个不足,就是用isexpress工具制作的安装程序的界面是英文的,这对最终用户来说是......