文件名称:
用DXScene三方控件开发的一个闹钟提醒
开发工具:
文件大小: 1mb
下载次数: 0
上传时间: 2011-03-24
详细说明： 用dxscene开发的。在网上似乎这个的资源也挺少的。这是第一次玩dxscene。dxscene做出的效果是挺炫的。支持3d。程序里面用到的，翻转，半透明。有兴趣的朋友可以和我一起探讨，我的邮箱：ibleave60@sina.com uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, dx_scene, dx_vgcore, dx_vglayer, dx_ani, StdCtrls, IniFiles, StrUtils, mmSystem, superobject, ExtCtrls, Menus, uWarning; type TFrmMain = class(TForm) dxScene1: TdxScene; Root1: TdxVisualObject; WidgetLayout: TdxGUIObjectLayer; Root2: TvxLayout; Front: TvxRectangle; FloatAnimation: TdxFloatAnim ation; Background1: TvxBackground; ToolBar1: TvxToolBar; tcList: TvxTabControl; cbAll: TvxCheckBox; btnEdit: TvxButton; lbContent: TvxLabel; VistaStyle: TvxResources; lyStole: TvxTabItem; Layout1: TvxLayout; lyDate: TvxTabItem; Layout2: TvxLayout; lyGood: TvxTabItem; Layout3: TvxLayout; CloseButton1: TvxCloseButton; Back: TvxRectangle; btnDel: TvxButton; tcSet: TvxTabControl; tiStole: TvxTabItem; Layout4: TvxLayout; tlDate: TvxTabItem; Layout5: TvxLayout; tiHealth: TvxTabItem; Layout6: TvxLayout; btnClose: TvxCloseButton; btnAdd: TvxButton; Label5: TvxLabel; tbHour: TvxTextBox; tbHour2: TvxTextBox; Label2: TvxLabel; Label6: TvxLabel; tbMin: TvxTextBox; tbMin2: TvxTextBox; Label3: TvxLabel; Label7: TvxLabel; Label4: TvxLabel; mmStole: TvxMemo; mmDaily: TvxMemo; Label8: TvxLabel; Label9: TvxLabel; cbDaily: TvxStringComboBox; Label10: TvxLabel; Label11: TvxLabel; Label12: TvxLabel; cbHealth: TvxStringComboBox; SpinBox: TvxSpinBox; Text1: TvxText; txtFlip: TvxText; txtMemo: TvxText; Label1: TvxLabel; Label13: TvxLabel; cbbFarm: TvxStringComboBox; tvHealth: TvxTreeView; tvFarm: TvxTreeView; TrayIcon: TTrayIcon; PopupMenu: TPopupMenu; N1: TMenuItem; N2: TMenuItem; N3: TMenuItem; nClose: TMenuItem; Image1: TvxImage; tvDaily: TvxTreeView; txtNew: TvxText; txtPast: TvxText; procedure ToolBar1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Single); procedure btnEditClick(Sender: TObject); procedure btnDelClick(Sender: TObject); procedure txtFlipClick(Sender: TObject); //翻转特效 procedure btnAddClick(Sender: TObject); procedure FormCreate(Sender: TObject); procedure FormDestroy(Sender: TObject); procedure tbHourKeyDown(var Key: Word; var KeyChar: WideChar; Shift: TShiftState); procedure tbMinKeyDown(var Key: Word; var KeyChar: WideChar; Shift: TShiftState); procedure txtNewClick(Sender: TObject); procedure N1Click(Sender: TObject); procedure btnCloseClick(Sender: TObject); procedure N2Click(Sender: TObject); procedure nCloseClick(Sender: TObject); procedure txtPastClick(Sender: TObject); procedure cbAllClick(Sender: TObject); procedure tcListChange(Sender: TObject); procedure tvFarmChangeCheck(Sender: TObject); private FrmTime: TFrmWarning; FileName: string; lbTime, lbDaily, lbHealth: array of TvxLabel; jo: ISuperObject; //配置文件生成的json procedure PlayClockSound; procedure BackFlip; procedure QueryConfig(joNode: ISuperObject; Index: Integer; NodeType: Integer; IsDelete: Boolean = False); procedure ReadConfig; procedure WriteConfig; procedure OnTimerOneSecond(Sender: TObject); //3种类型提醒到时触发的事件 procedure OnDailyTimeOut(Sender: TObject); procedure OnHealthTimeOut(Sender: TObject); procedure CreateTreeNode; //根据JSON创建TreeNode procedure RefreshTreeNode; procedure RestoreWindow; public { Public declarations } end; var FrmMain: TFrmMain; const lsfw_lock = 1; lsfw_unlock = 2; function LockSetForegroundWindow(uLockCode: DWORD): BOOL; stdcall;external 'user32.dll'; ...展开收缩
(系统自动生成,下载前可以参看下载内容)
下载文件列表
相关说明
- 本站资源为会员上传分享交流与学习,如有侵犯您的权益,请联系我们删除.
- 本站是交换下载平台，提供交流渠道，下载内容来自于网络，除下载问题外，其它问题请自行百度。
- 本站已设置防盗链，请勿用迅雷、QQ旋风等多线程下载软件下载资源，下载后用WinRAR最新版进行解压.
- 如果您发现内容无法下载，请稍后再次尝试；或者到消费记录里找到下载记录反馈给我们.
- 下载后发现下载的内容跟说明不相乎，请到消费记录里找到下载记录反馈给我们，经确认后退回积分.
- 如下载前有疑问，可以通过点击"提供者"的名字，查看对方的联系方式，联系对方咨询.
