unit USWLMSelectDa; {$S-,W-,R-}_程序员之家(Delphi控件制作技巧[二] )

开发技术指南» 文章正文

引言： unit USWLMSelectDa; {$S-,W-,R-}

摘要：mapx5中使用自定义字体符号觉得现在使用自定义字体作为点符号的应用是越来越少了，近段时间在开发gps车辆管理的gis系统的时候要用到动态显示车辆位置，觉得用其他方式在地图上显示车辆可能会对性能有一定的影响，所以就使用的自定义字体。首先是创建自定义的字体。使用了字体编辑软件fontlab.v4.60。其次就是在delphi＋mapx中使用该字体了。 mystyle:=cost......

·创建photoshop式浮动窗口应用程序 »显示摘要«

摘要：用过photoshop的朋友一定对它的那些方便的浮动面板记忆犹新，其实这些面板就是一个个的小窗体，但这些小窗体都放在photoshop的主窗体上（不是存在主窗体中），有自己的标题栏、最小化按钮及最大化按钮。但它们与mdi程序不同的是，他们可以拖到主窗体外，更重要的是工作中所有这些面板窗体与主窗体最处于激活状态。　　用spy & capture查看一下就不难发现，这些面板窗体的parent ......

Delphi控件制作技巧[二]

unit uswlmselectda;

【程序编程相关:VCL Component Messag】

{$s-,w-,r-} 【推荐阅读:拷贝DBGrid当前行】

interface 【扩展信息:帖个HOOK鼠标滚轮滚动的DLL。】

{$c preload}

uses

windows,messages,sysutils, types, classes, graphics, controls,stdctrls,forms,

strutils,math,adodb,tflatbuttonunit,uswlmstyleedit;

type

teditdatatype = (sdstring, sdinteger,sdfloat,sdmoney,sddate);

tvalignment = (tvatopjustify, tvacenter, tvabottomjustify);

tdatastyle = (dsbm, dszj, dsmc);

type

tselectda = class(tcustomcontrol)

private

fpen: tpen;

fbrush:tbrush;

ffont:tfont;

fcaption:string;

fbmtext:string;

fzjtext:string;

fmctext:string;

fdatatype: teditdatatype;

fprecision: integer;

freadonly:boolean;

feditfont:tfont;

fhalignment : talignment;

fvalignment : tvalignment;

fedit:tstyleedit;

fbutton:tflatbutton;

ftitlename:string;

ftablename:string;

fdatastyle:tdatastyle;

fbmfield:string;

fzjfield:string;

fmcfield:string;

fonclick: tnotifyevent;

fonenter: tnotifyevent;

fonexit: tnotifyevent;

fonkeypress: tkeypressevent;

procedure setpen(const value:tpen);

procedure setbrush(const value:tbrush);

procedure setfont(const value:tfont);

procedure setcaption(const value:string);

procedure setbmtext(const value:string);

procedure setzjtext(const value:string);

procedure setmctext(const value:string);

procedure setdatatype(const value: teditdatatype);

procedure setprecision(const value: integer);

procedure setreadonly(const value:boolean);

procedure seteditfont(const value:tfont);

procedure sethalignment(const value:talignment);

procedure setvalignment(const value:tvalignment);

procedure settitlename(const value:string);

procedure settablename(const value:string);

procedure setdatastyle(const value:tdatastyle);

procedure setbmfield(const value:string);

... 下一页

·软件启动画面中启动状态的显示 »显示摘要«

摘要：我们平时看到的很多软件（photoshop，3dmax）都会在启动画面中显示当前正在启动哪个模块，并在模块加载失败时给予提示，这样的好处是，可以让比较专业的软件使用者知道当前软件加载了哪些模块，或者在软件发生启动错误时，让用户得以反馈是启动的哪个模块时发生了，以及在长时间的软件启动过程中，让用户知道软件还在工作，避免用户对其失去信息。。。好了，说了那么多废话，就来看看我是怎么制作这样一个程序的，由......

» 本期热门文章：

· 热门栏目：

» 相关精选文章

» 其它相关：