Y
ycxy
Unregistered / Unconfirmed
GUEST, unregistred user!
我在一个PageControl的一个Tabseet上放一个
ScrollBox,然后在其上作图片预览,可惜速度太慢,
请各位指教
Program:
procedure ShowImage;
var
v:TImage;
s:String;
begin
m:=100; //m是一个目录下图片的数量
for i:=1 to m do begin
s:= //获取文件名
v.Create(SB); //SB是ScroolBox
v.Parent:=SB;
v.left:=...; //...略
v.top:=...;
v.width:=...;
v.height:=..;
v.stretch:=true;
v.picture.loadfromfile(s)
end;
end;
ScrollBox,然后在其上作图片预览,可惜速度太慢,
请各位指教
Program:
procedure ShowImage;
var
v:TImage;
s:String;
begin
m:=100; //m是一个目录下图片的数量
for i:=1 to m do begin
s:= //获取文件名
v.Create(SB); //SB是ScroolBox
v.Parent:=SB;
v.left:=...; //...略
v.top:=...;
v.width:=...;
v.height:=..;
v.stretch:=true;
v.picture.loadfromfile(s)
end;
end;
