unit_common.pas

至于这小软件的用途

unit Unit_Common;

interface
uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,
  Dialogs, ExtCtrls;
//小程序就RAD了，不搞什么面向对象
//变量类
var
Alphafrm:Integer=0;       //主窗体透明度0-255
ImgChangeTime:Integer=30; //图片切换时间(0,1,5,30,60)
//ImgWhere:Integer=0;       //图片来源（0金管家，1本地）
ImgLocalFolder:string='D:\my document'; //本地文件夹，默认为我的文档/图像
ImgViewType:integer=0;    //播放方式（0顺序，1随机）
ImgFrmlayer:Integer=1;    //窗口位置（0镶入，1浮动）
ImgLockPoint:integer=0;   //图像调整基准点（0左上角，1右上角，2左下角，3右下角，4正中间）
ImgMouseIn:Boolean=false; //鼠标穿透 true false
ImgLarge:integer=640;     //最大图片长度（1-1600）
ImgAutoRun:Boolean=false; //开机是否自动运行
ImgLocalLeft:Integer=1;   //默认基准点X坐标
ImgLocaltop:Integer=1;    //默认基准点Y坐标
ImgWindowcolor:TColor=$000000;
ImgFolderChanged:Boolean=false;
implementation

end.