- 博客(0)
- 资源 (1)
- 收藏
- 关注
用DXScene三方控件开发的一个闹钟提醒
用dxscene开发的。在网上似乎这个的资源也挺少的。这是第一次玩dxscene。dxscene做出的效果是挺炫的。支持3d。程序里面用到的,翻转,半透明。有兴趣的朋友可以和我一起探讨,我的邮箱:[email protected]
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: TdxFloatAnimation;
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';
2011-03-24
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人