225 

   225 

   226 procedure SaveThumbnail;

   226 procedure SaveThumbnail;

   227 var thumbpath: shortstring;

   227 var thumbpath: shortstring;

   228     k: LongInt;

   228     k: LongInt;

   229 begin

   229 begin

   231     AddFileLog('Saving thumbnail ' + thumbpath);

   231     AddFileLog('Saving thumbnail ' + thumbpath);

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

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

   233     MakeScreenshot(thumbpath, k, 0);

   233     MakeScreenshot(thumbpath, k, 0);

   234     thumbnailSaved:= true;

   234     thumbnailSaved:= true;

   235 end;

   235 end;