Using Intraweb (23)-Tiwtimer, Tiwprogressbar, Tiwprogressindicator, Tiwtimeedit of basic controls

Tiwtimer             //And TTimer not much difference, its default event is now asynchronous (Onasynctimer), using OnTimer on the network must be very bad tiwprogressbar       // progress bar Tiwprogressindicator//progress prompt; This is a new thing, very good; It can be used when it encounters a long time load (synchronous or asynchronous); The Progressindicator property that needs to be associated to the form before use Tiwtimeedit          //Personally think this thing is not used at all; just give a minute to 8 hours to convert all day, week and so on, if you need to write a function.

TiwtimerUnit and succession chain:
Iwcompextctrls.tiwtimer < Tiwbasehtml40component < Tiwbasehtmlcomponent < Tiwbasecomponent < TComponent < Tpersistent < TObject

Main members:

Property Interval:integer//property Enabled:boolean  //property ontimer:tnotifyevent       //property Onasynctimer:tiwasyncevent//

TiwprogressbarUnit and succession chain:
Iwcompprogressbar.tiwprogressbar < Tiwcustomcontrol < Tiwbasehtmlcontrol < Tiwbasecontrol < Tiwvclbasecontrol < Tcontrol < Tcomponent < Tpersistent < TObject

Main members:

Property Bgcolor:tiwcolor//Background Property Color:tiwcolor   //Progress Color Property Percent:integer  //Current Progress (0-100) property Showtext:boolean//Show progress ratio Text Property Font:tiwfont     //

Test:

{Put IWTimer1, tiwprogressbar1}procedure tiwform1.iwappformcreate (sender:tobject) on the form; Begin  Iwprogressbar1.showtext: = True;  Iwprogressbar1.color: = $0000ff;  IWProgressBar1.Font.Color: = $FFFFFF; end;procedure Tiwform1.iwtimer1asynctimer (Sender:tobject; eventparams:tstringlist); begin  Iwprogressbar1.percent: = Iwprogressbar1.percent + ten;  If Iwprogressbar1.percent >= iwtimer1.enabled: = False;end;

TiwprogressindicatorUnit and succession chain:
Iwcompprogressindicator.tiwprogressindicator < Tcomponent < Tpersistent < TObject

Main members:

Property css:string  //This pop-up waiting window is actually a Div containing this Table, which can be looked at by CSS or some of the following properties Bgcolor:tiwcolor  // Property Boxcolor:tiwcolor//property boxbordercolor:tiwcolor//property boxborderwidth:integer  //property Opacity:integer//Transparency (0-100); But waiting for the window to pop up, the entire page will have a transparent matte layer property mode:tiwprogressindicatormode//valid mode: Pimasync (async), Pimsync (synchronous, default), Pimboth (both)  Property Boxvisible:boolean   //whether to display in the form of a window; default Trueproperty imagevisible:boolean//Whether Loading animated picture is displayed; default Trueproperty Userdefined:boolean//  whether disabled; default Falseproperty prescript:tstrings       //property postscript:tstrings   // Property preasyncscript:tstrings  //property postasyncscript:tstrings//property progresstextsettings: Tiwprogresstextsettings//Hint text related settings property Rendertag:tiwhtmltag//function Render:string//render method and Rendertag The property should not be the old control; They're still a bit of a use when it comes to debugging.

Test:

{IWProgressIndicator1 and two buttons are placed on the form}procedure tiwform1.iwappformcreate (sender:tobject); Begin  Self.progressindicator: = IWProgressIndicator1; Associated to IWProgressIndicator1  iwprogressindicator1.mode: = Pimboth;           Let synchronous asynchronous have a progress prompt  IWProgressIndicator1.ProgressTextSettings.Text: = ' loading ... ';  IWProgressIndicator1.ProgressTextSettings.Font.Color: = Clwebgreen;end; {Synchronization Event}procedure Tiwform1.iwbutton1click (sender:tobject); begin  Sleep (3000);//wait 3 seconds for testing end;{ Asynchronous event}procedure Tiwform1.iwbutton2asyncclick (sender:tobject; eventparams:tstringlist); Begin  Sleep (+); end;