--------------------------------------------------------------------------------------
                      [ENHANCED] VFP 9.0 FIX - SAVE SOME CHANGES FOR THE MAIN VISUAL FOXPRO WINDOW
                                 January 2024
                 --------------------------------------------------------------------------------------
                                     CCB



1. BUG:

     In VFP Advanced 32-bit, we can set the saving some changes for the main Visual FoxPro window in the windows registry:
     HKEY_CURRENT_USER\Software\Microsoft\VisualFoxPro\10\Options\SaveDesktopSettings.

     In VFP Advanced 64-bit, we can set the saving some changes for the main Visual FoxPro window in the windows registry:
     HKEY_CURRENT_USER\Software\Microsoft\VisualFoxPro64\10\Options\SaveDesktopSettings.


2. CAUSE:

     There are some BUGs in the following code.


3. RESOLUTION:

     We can write some code to fix the BUG.

     Fun87e9f0 :: ; proc near
             push ebp                                                        ;0x0087e9f0 :        55
             mov ebp , esp                                                   ;0x0087e9f1 :        8bec
             sub esp , 0218h                                                 ;0x0087e9f3 :        81ec18020000
             mov eax ,  dword ptr [ Data937090 ]                             ;0x0087e9f9 :        a190709300
             mov  dword ptr [ ebp - 8 ] , eax                                ;0x0087ea04 :        8945f8
             mov  dword ptr [ ebp + 0FFFFFDE8h ] , 01h                       ;0x0087ea07 :        c785e8fdffff01000000
             push ebx                                                        ;0x0087e9fe :        53
             push esi                                                        ;0x0087e9ff :        56
             push edi                                                        ;0x0087ea00 :        57


     ;
     ;                 ---------------------------------------------------------------------------
     ;                      VFP 9.0 FIX - SAVE SOME CHANGES FOR THE MAIN VISUAL FOXPRO WINDOW
     ;                                November 2020
     ;                 ---------------------------------------------------------------------------
     ;                                     CCB
     ;
     ; Save some changes for the main Visual FoxPro window.
     ;
     ; 2020/11/27, by ccb
     ;

     Label87ea01_sys9042_start ::
             push dword ptr [ ebp + 8 ]
             push offset vfpa_sys9042_valuename
             call Fun84f3ac
             test eax , eax
             jne Label87ea01_sys9042_end
             push  dword ptr [ ebp + 12 ]
             call  atoi
             pop ecx
             cmp eax,00h
             jb Label87f318
             cmp eax,01h
             ja Label87f318
             mov dword ptr vfpa_sys9042_data,eax
             jmp Label87f318
     Label87ea01_sys9042_end ::


             push  dword ptr [ ebp + 8 ]                                     ;0x0087ea01 :        ff7508
             call Fun87e9aa                                                  ;0x0087ea11 :        e894ffffff
             push  dword ptr [ ebp + 12 ]                                    ;0x0087ea16 :        ff750c
             mov edi , eax                                                   ;0x0087ea19 :        8bf8
             call  atoi                                        ;0x0087ea1b :        ff15c0799100
             xor esi , esi                                                   ;0x0087ea21 :        33f6
             cmp eax , esi                                                   ;0x0087ea23 :        3bc6
             pop ecx                                                         ;0x0087ea25 :        59
             mov ecx , 08738h                                                ;0x0087ea26 :        b938870000
             setne bl                                                        ;0x0087ea2b :        0f95c3
             cmp edi , ecx                                                   ;0x0087ea2e :        3bf9
             mov  dword ptr [ ebp + 8 ] , eax                                ;0x0087ea30 :        894508
             jg Label87ef9d                                                  ;0x0087ea33 :        0f8f64050000
             je Label87ef3f                                                  ;0x0087ea39 :        0f8400050000
             add ecx , 0FFFFFFE5h                                            ;0x0087ea3f :        83c1e5
             cmp edi , ecx                                                   ;0x0087ea42 :        3bf9
             jg Label87ecbe                                                  ;0x0087ea44 :        0f8f74020000
             je Label87ec93                                                  ;0x0087ea4a :        0f8443020000
             mov ecx , 08710h                                                ;0x0087ea50 :        b910870000
             cmp edi , ecx                                                   ;0x0087ea55 :        3bf9
             jg Label87eb8a                                                  ;0x0087ea57 :        0f8f2d010000
             je Label87eb86                                                  ;0x0087ea5d :        0f8423010000
             add ecx , 0FFFFFFF9h                                            ;0x0087ea63 :        83c1f9
             cmp edi , ecx                                                   ;0x0087ea66 :        3bf9
             jg Label87eae7                                                  ;0x0087ea68 :        7f7d
             je Label87eadd                                                  ;0x0087ea6a :        7471
             sub edi , esi                                                   ;0x0087ea6c :        2bfe
             je Label87ead2                                                  ;0x0087ea6e :        7462
             sub edi , 08700h                                                ;0x0087ea70 :        81ef00870000
             je Label87eac7                                                  ;0x0087ea76 :        744f
             dec edi                                                         ;0x0087ea78 :        4f
             je Label87eaac                                                  ;0x0087ea79 :        7431
             dec edi                                                         ;0x0087ea7b :        4f
             je Label87ea9f                                                  ;0x0087ea7c :        7421
             dec edi                                                         ;0x0087ea7e :        4f
             je Label87ea95                                                  ;0x0087ea7f :        7414
             sub edi , 05h                                                   ;0x0087ea81 :        83ef05
             jne Label87f318                                                 ;0x0087ea84 :        0f858e080000
             mov  byte ptr [ Data94741e ] , bl                               ;0x0087ea8a :        881d1e749400
             jmp Label87f318                                                 ;0x0087ea90 :        e983080000


4. APPLIES TO:

     VFP 7.0.0.9262
     VFP 7.0.0.9465 (SP1)

     VFP 8.0.0.2521
     VFP 8.0.0.3117 (SP1)

     VFP 9.0.0.2412
     VFP 9.0.0.3504 (SP1)
     VFP 9.0.0.4611 (SP2)
     VFP 9.0.0.5015 (SP2)
     VFP 9.0.0.5411 (SP2)
     VFP 9.0.0.5721 (SP2)
     VFP 9.0.0.5815 (SP2)
     VFP 9.0.0.6303 (SP2)
     VFP 9.0.0.6602 (SP2)
     VFP 9.0.0.7423 (SP2)

     The bug has been fixed in VFP Advanced.


5. REFERENCE WEBSITES:

     1, baiyujia.com:
     http://www.baiyujia.com
     http://www.baiyujia.com/vfpdocuments/f_vfp9fix137.asp
     http://www.baiyujia.com/vfpdocuments/f_vfp9fix131.asp
     http://www.baiyujia.com/vfpdocuments/f_vfp9fix132.asp
     http://www.baiyujia.com/vfpdocuments/f_vfp9fix133.asp
     http://www.baiyujia.com/vfpdocuments/f_vfp9fix134.asp
     http://www.baiyujia.com/vfpdocuments/f_vfp9fix135.asp
     http://www.baiyujia.com/vfpdocuments/f_vfp9fix136.asp
     http://www.baiyujia.com/vfpdocuments/f_vfp9fix201.asp
     http://www.baiyujia.com/vfpdocuments/f_vfp9fix202.asp

     2, tek-tips.com:
     https://www.tek-tips.com/viewthread.cfm?qid=1792433
     https://www.tek-tips.com/viewthread.cfm?qid=1773637


6. OTHER:

     For reference only, there is no guarantees.

     Any questions or suggestions, please send me an email at ccb2000@163.com.