使用 IntraWeb (23) - 基本控件之 TIWTimer、TIWProgressBar、TIWProgressIndicator、TIWTimeEdit

TIWTimer             //和 TTimer 没多大区别, 它的默认事件现在是异步的(OnAsyncTimer), 在网络上使用 OnTimer 肯定是非常糟糕的
TIWProgressBar       //进度条
TIWProgressIndicator //进度提示器; 这是个新东西, 非常好; 当碰到时间较长的加载时(同步或异步)都可以用用; 使用前需要先关联到窗体的 ProgressIndicator 属性
TIWTimeEdit          //个人认为这个东西一点用也没有; 只是给个分钟数按 8 小时换算成天、周之类, 如果需要还不如写个函数.

---

TIWTimer 所在单元及继承链:
IWCompExtCtrls.TIWTimer < TIWBaseHTML40Component < TIWBaseHTMLComponent < TIWBaseComponent < TComponent < TPersistent < TObject

主要成员:

---

property Interval: Integer //
property Enabled: Boolean  //

property OnTimer: TNotifyEvent       //
property OnAsyncTimer: TIWAsyncEvent //

---

TIWProgressBar 所在单元及继承链:
IWCompProgressBar.TIWProgressBar < TIWCustomControl < TIWBaseHTMLControl < TIWBaseControl < TIWVCLBaseControl < TControl < TComponent < TPersistent < TObject

主要成员:

---

property BGColor: TIWColor //底色
property Color: TIWColor   //进度色
property Percent: Integer  //当前进度(0-100)
property ShowText: Boolean //是否显示进度比例文本
property Font: TIWFont     //

---

测试:

---

{在窗体上放 IWTimer1、TIWProgressBar1}
procedure TIWForm1.IWAppFormCreate(Sender: TObject);
begin
  IWProgressBar1.ShowText := True;
  IWProgressBar1.Color := $0000FF;
  IWProgressBar1.Font.Color := $FFFFFF;
end;

procedure TIWForm1.IWTimer1AsyncTimer(Sender: TObject; EventParams: TStringList);
begin
  IWProgressBar1.Percent := IWProgressBar1.Percent + 10;
  if IWProgressBar1.Percent >= 100 then IWTimer1.Enabled := False;
end;

---

TIWProgressIndicator 所在单元及继承链:
IWCompProgressIndicator.TIWProgressIndicator < TComponent < TPersistent < TObject

主要成员:

---

property Css: string  //这个弹出的等待窗口其实就是一个包含着 Table 的 Div, 可通过 Css 或下面几个属性弄得好看一点
property BGColor: TIWColor  //
property BoxColor: TIWColor //
property BoxBorderColor: TIWColor //
property BoxBorderWidth: Integer  //
property Opacity: Integer //透明度(0-100); 但等待窗口弹出时, 整个页面会有一个透明的遮罩层 
property Mode: TIWProgressIndicatorMode	//有效模式: pimAsync(异步)、pimSync(同步,默认)、pimBoth(两者都用)
property BoxVisible: Boolean   //是否以窗口的形式呈现; 默认 True
property ImageVisible: Boolean //是否显示 Loading 动画图片; 默认 True
property UserDefined: Boolean  //是否禁用; 默认 False
property PreScript: TStrings       //
property PostScript: TStrings	   //
property PreAsyncScript: TStrings  //
property PostAsyncScript: TStrings //
property ProgressTextSettings: TIWProgressTextSettings //提示文本相关设置
property RenderTag: TIWHTMLTag //

function Render: string	//Render 方法和 RenderTag 属性应该老控件没有的; 在调试时它们还是有点用的

---

测试:

---

{在窗体上放 IWProgressIndicator1 和两个按钮}
procedure TIWForm1.IWAppFormCreate(Sender: TObject);
begin
  Self.ProgressIndicator := IWProgressIndicator1; //关联到 IWProgressIndicator1
  IWProgressIndicator1.Mode := pimBoth;           //让同步异步都有进度提示
  IWProgressIndicator1.ProgressTextSettings.Text := '正在载入...';
  IWProgressIndicator1.ProgressTextSettings.Font.Color := clWebGreen;
end;

{同步事件}
procedure TIWForm1.IWButton1Click(Sender: TObject);
begin
  Sleep(3000); //等待 3 秒, 用于测试
end;

{异步事件}
procedure TIWForm1.IWButton2AsyncClick(Sender: TObject; EventParams: TStringList);
begin
  Sleep(3000);
end;

---