Ehlib大数据载入时loading

代码很简单：

  

代码很简单：

1 2 3 4

DBGrideh.StartLoadingStatus(' Loading ... '); Sleep(500);  DBGrideh.FinishLoadingStatus;

 

做下变动：

1 2 3

DBGrideh.StartLoadingStatus(' Loading ... ',1000);  //1000表示显示的速度 Sleep(500);  DBGrideh.FinishLoadingStatus(1000);    //1000表示显示的速度,此处的单位不是毫秒

 

上一段代码中发现的数值1000单位不是毫秒，原因见代码

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Steps := RenderDuration;  //上一段代码中的数值1000 i := 1;　　　　//起始数值1; Step := 1;　　　　//步长1; while i < Steps do begin   DrawAlphaBlend(i, Steps);   RenDur := GetTickCount - t;   if RenDur > 0     then StepSize := Round(RenDur / Step)     else StepSize := 1;   if StepSize = 0 then     StepSize := 1;   i := i + StepSize;   Inc(Step); end;