
Diff files '!RunImage013' and '!RunImage'
=============
change !RunImage013, line 4 to 4
  line    4: version$="0.13 (22nd December 2004)"
to !RunImage, line 4 to 5
  line    4: version$="0.15 (15th March 2005)"


=============
after !RunImage013 line   38: rawfile$(3)="file_xxx" : rawname$(3)="BMP" : rawtype%(3)=&69C
add !RunImage line   40: 
add !RunImage line   41: SYS "XOS_SWINumberFromString",, "XClipboardHolder_Copy"  TO clipholder_swi%;flags%
add !RunImage line   42: IF (flags% AND 1)  clipholder_swi%=FALSE


=============
change !RunImage013, line 284 to 284
  line  284: ENDPROC
to !RunImage, line 285 to 285
  line  285: REM ENDPROC  :REM removed by gsal 09.03.2005


=============
change !RunImage013, line 293 to 294
  line  293: PROCsaveclip("<Wimp$ScrapDir>.WinClip",FALSE)
  line  294: SYS &54040+&20000,1,type%(save_type%),"<Wimp$ScrapDir>.WinClip":REM SYS XClipboardHolder_Copy
to !RunImage, line 293 to 298
  line  293: 
  line  294: IF clipholder_swi% THEN
  line  295:   PROCsaveclip("<Wimp$ScrapDir>.WinClip",FALSE)
  line  296:   SYS clipholder_swi%,1,type%(save_type%),"<Wimp$ScrapDir>.WinClip":REM SYS XClipboardHolder_Copy
  line  297: ENDIF


=============
change !RunImage013, line 399 to 399
  line  399: DIM buffer% 2*1024*1024
to !RunImage, line 395 to 395
  line  395: DIM buffer% 64*1024   :REM gsal modified, it used to be 2-4 Mb!

=============
after !RunImage line  520: 
remove !RunImage013 line  526: REM get bitmap
remove !RunImage013 line  527: step%=1024
remove !RunImage013 line  528: FORI%=0 TO headersize%+dibsize%-1 STEP step%
remove !RunImage013 line  529: SYS "CallWin32_ParsInit",clipq%
remove !RunImage013 line  530: SYS "CallWin32_ParsAddMemBlk",clipq%,1,buffer%+I%,step%
remove !RunImage013 line  531: SYS "CallWin32_ParsAddInt32",clipq%,2,clipboardaddress%+I%
remove !RunImage013 line  532: SYS "CallWin32_ParsAddInt32",clipq%,3,step%
remove !RunImage013 line  533: SYS "CallWin32_WithPars",clipq%,"stdcall:kernel32::RtlMoveMemory" TO ,errcode%
remove !RunImage013 line  534: NEXT

=============
change !RunImage013, line 545 to 545
  line  545: offset%=&28+14+4*buffer%!32
to !RunImage, line 531 to 531
  line  531: offset%=&28+14+4*buffer%!32   :REM adding +12 to offset, gets rid of wrong vertical margin in large bitmaps

=============
change !RunImage013, line 550 to 550
  line  550: SYS "OS_GBPB",2,Q%,buffer%,dibsize%+headersize%+14
to !RunImage, line 536 to 554
  line  536: 
  line  537: 
  line  538: REM get bitmap
  line  539: REM step value modified by gsal, original was 1024 bytes
  line  540: REM bitmap written out in chunks of 16kb, instead of saving out huge buffer in single operation
  line  541: 
  line  542: I%=0
  line  543: step%=16*1024
  line  544: REPEAT
  line  545:   IF I%+step% > headersize%+dibsize%  step%=headersize%+dibsize%-I%
  line  546:   SYS "CallWin32_ParsInit",clipq%
  line  547:   SYS "CallWin32_ParsAddMemBlk",clipq%,1,buffer%,step%
  line  548:   SYS "CallWin32_ParsAddInt32",clipq%,2,clipboardaddress%+I%
  line  549:   SYS "CallWin32_ParsAddInt32",clipq%,3,step%
  line  550:   SYS "CallWin32_WithPars",clipq%,"stdcall:kernel32::RtlMoveMemory" TO ,errcode%
  line  551:   SYS "OS_GBPB",2,Q%,buffer%,step%
  line  552:   I%+=step%
  line  553: UNTIL I%>=headersize%+dibsize%
  line  554: 

