237     k: LongInt;

   237     k: LongInt;

   238 begin

   238 begin

   239     thumbpath:= '/VideoTemp/' + RecPrefix;

   239     thumbpath:= '/VideoTemp/' + RecPrefix;

   240     AddFileLog('Saving thumbnail ' + thumbpath);

   240     AddFileLog('Saving thumbnail ' + thumbpath);

   241     k:= max(max(cScreenWidth, cScreenHeight) div 400, 1); // here 400 is minimum size of thumbnail

   241     k:= max(max(cScreenWidth, cScreenHeight) div 400, 1); // here 400 is minimum size of thumbnail

   243     thumbnailSaved:= true;

   243     thumbnailSaved:= true;

   244 end;

   244 end;

   245 

   245 

   246 // copy file (free pascal doesn't have copy file function)

   246 // copy file (free pascal doesn't have copy file function)

   247 procedure CopyFile(src, dest: shortstring);

   247 procedure CopyFile(src, dest: shortstring);