F
foxgirl
Unregistered / Unconfirmed
GUEST, unregistred user!
var
i,j,idx:integer; needmove:array of Tbitmap;
begin
j:=imageenmview1.MultiSelectedImagesCount;
setlength(needmove,j );
idx:=ImageEnMview1.ImageAtPos(x,y) ;
if ((button=mbleft) and (idx<>-1) and (idx<>idx_0) and moved) then
begin
for i:=0 to imageenmview1.MultiSelectedImagesCount -1 do
begin
needmove:=ImageEnMView1.GetBitMap(i) ;//这样可以存入bitmap数组中吗?
imageenmview1.ReleaseBitmap(i);
end;
imageenmview1.DeleteSelectedImages ;
for i:=low(needmove) to high(needmove)-1 do
begin
imageenmview1.InsertImage (idx-j+1);
imageenmview1.SetImage(idx-j+1,needmove);//可以这样读取吗?
end;
needmove:=nil;
moved:=false;
end;
end;
i,j,idx:integer; needmove:array of Tbitmap;
begin
j:=imageenmview1.MultiSelectedImagesCount;
setlength(needmove,j );
idx:=ImageEnMview1.ImageAtPos(x,y) ;
if ((button=mbleft) and (idx<>-1) and (idx<>idx_0) and moved) then
begin
for i:=0 to imageenmview1.MultiSelectedImagesCount -1 do
begin
needmove:=ImageEnMView1.GetBitMap(i) ;//这样可以存入bitmap数组中吗?
imageenmview1.ReleaseBitmap(i);
end;
imageenmview1.DeleteSelectedImages ;
for i:=low(needmove) to high(needmove)-1 do
begin
imageenmview1.InsertImage (idx-j+1);
imageenmview1.SetImage(idx-j+1,needmove);//可以这样读取吗?
end;
needmove:=nil;
moved:=false;
end;
end;