sergey3695. Хочу спросить Вас: как без помощи isSlideShow.dll сделать плавные переходы по типу TransparentImage в ботве. Типа:
procedure OnTimer(HandleW, msg, idEvent, TimeSys: LongWord);
begin
currTime := currTime + 1;
if (currTime mod {#TIME_FOR_VIEW} = 0)
then
begin
SetArrayLength(AImg,N);
for i:=0 to GetArrayLength(AImg)-1 do begin
AImg:=ImgLoad(WForm.Handle, ExpandConstant('{tmp}\Image_'+ inttostr(bmp[currTime/{#TIME_FOR_VIEW}])+'.jpg'),ScaleX(12),ScaleY(92),ScaleX(345),ScaleY(219),True,True);
if i>0 then ImgSetVisibility(AImg,False);
end;
ImgApplyChanges(WForm.Handle);
if (currTime/{#TIME_FOR_VIEW} = N) then currTime:=0;
end;
end;