5,392
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
wen_jin 2002-02-10
- 打赏
- 举报
我还要做放大，缩小和移动呢!可以考虑！
tigerfox 2002-02-10
- 打赏
- 举报
可以这样考虑：将这个大图片分成几部分分别装入IMAGE，再作进度条控制。
outer2000 2002-02-10
- 打赏
- 举报
property IncrementalDisplay: Boolean;
Description
Set IncrementalDisplay to True on large compressed images that take a long time to load or on images that may be altered by a computationally slow process. When IncrementalDisplay is True, partial renderings of the image are drawn periodically during slow operations such as loading. Set IncrementalDisplay to False to wait until the entire operation is complete before drawing the image.
For some classes of graphic objects, an OnProgress event occurs at various points during slow operations. If IncrementalDisplay is True, the OnProgress event occurs immediately after the approximate image is drawn. If IncrementalDisplay is False, OnProgress occurs but the image is not updated until the entire image has been loaded.
The default value for IncrementalDisplay is False.
Description
Set IncrementalDisplay to True on large compressed images that take a long time to load or on images that may be altered by a computationally slow process. When IncrementalDisplay is True, partial renderings of the image are drawn periodically during slow operations such as loading. Set IncrementalDisplay to False to wait until the entire operation is complete before drawing the image.
For some classes of graphic objects, an OnProgress event occurs at various points during slow operations. If IncrementalDisplay is True, the OnProgress event occurs immediately after the approximate image is drawn. If IncrementalDisplay is False, OnProgress occurs but the image is not updated until the entire image has been loaded.
The default value for IncrementalDisplay is False.
Bellamy 2002-02-10
- 打赏
- 举报
我也是！
a12345 2002-02-10
- 打赏
- 举报
哈
学习
学习
wen_jin 2002-02-10
- 打赏
- 举报
已经解决了!谢谢!
procedure TForm2.Image1Progress(Sender: TObject; Stage: TProgressStage;
PercentDone: Byte; RedrawNow: Boolean; const R: TRect;
const Msg: String);
begin
// if Stage=psStarting then
// form2.Hide;
if Stage=psRunning then
form1.ProgressBar1.Position:=PercentDone;
// if Stage=psEnding then
// form2.Show;
end;
procedure TForm2.Image1Progress(Sender: TObject; Stage: TProgressStage;
PercentDone: Byte; RedrawNow: Boolean; const R: TRect;
const Msg: String);
begin
// if Stage=psStarting then
// form2.Hide;
if Stage=psRunning then
form1.ProgressBar1.Position:=PercentDone;
// if Stage=psEnding then
// form2.Show;
end;
ntserver4 2002-02-10
- 打赏
- 举报
Image控件有一个属性是和进度有关的。。。我没空查资料了。。。SORRY
