📄 milliseconds.pas
字号:
unit Milliseconds;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExpertWindow, ExtCtrls, StdCtrls, ComCtrls;
type
TFormMilliseconds = class(TFormExpertWindow)
Label1: TLabel;
UpDownMilliseconds: TUpDown;
EditMilliseconds: TEdit;
procedure FormShow(Sender: TObject);
private
protected
procedure Apply; override;
procedure GoToNext; override;
public
end;
var
FormMilliseconds: TFormMilliseconds;
implementation
uses TransExpert;
{$R *.DFM}
procedure TFormMilliseconds.Apply;
begin
FormTransitionsExpert.Transition.Milliseconds := UpDownMilliseconds.Position;
end;
procedure TFormMilliseconds.GoToNext;
begin
FormTransitionsExpert.GoTo2ndPassOptions;
end;
procedure TFormMilliseconds.FormShow(Sender: TObject);
begin
inherited;
UpDownMilliseconds.Position := FormTransitionsExpert.Transition.Milliseconds;
end;
end.
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -