📄 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.
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -