@echo off 
 chcp 65001 
 echo ------- Assembly MSVC 2017 for 32 bits --------- 
 call "D:\Program Files\Microsoft Visual Studio\2017\Community\VC\Auxiliary\Build\vcvarsall.bat" x86 
 ....

Free Open Source Software: Harbour 3.2.0dev (r1904111533)	 
             Free Compiler: Borland C++ 5.5.1 (32-bit)	 
          Free Gui library: Harbour MiniGUI Extended Edition 19.08 (32-bit)	

      // Простая обработка ошибок 
       bErrHandler := ERRORBLOCK( { | VAR | BREAK( VAR ) } ) 
       BEGIN SEQUENCE 
          // вывод LABEL 
       RECOVER 
          MG_Stop( cMsg , "ОШИБКА!" ) 
       END SEQUENCE 
       ERRORBLOCK( bErrHandler ) 

Borland C++ 5.8.2 (32-bit)	

Borland C++ 5.8.2 (32-bit)	

(c) "Customer" means the person installing or using the Licensed 
 Material or for whose benefit the Licensed Material is being 
 installed or used. 
 

-------------------------------------------------------------  
         Minigui Ex Package (build date: 28.05.2023)                
 -------------------------------------------------------------  
    
                 Components versions:  
                 --------------------  
     
 Harbour MiniGUI Extended Edition 23.04 (Update 2)   
     
 Harbour 3.2.0dev (r2305191429) 
     
 Harbour Make (hbmk2) 3.2.0dev (r2023-05-19 14:29) 
     
 Embarcadero C++ 7.30 for Win32 Copyright (c) 2012-2017 Embarcadero Technologies, Inc. 
 

 
       WITH OBJECT This.Object 
          ..... 
          //!!! общее событие для вызова из других программ 
          :Event(111, {|ow,ky,cdata| 
                        cdata := hb_defaultValue(cdata, "") 
                        _logfile(.t.,"----[ Событие 111 ]--- " + ProcNL() ) 
                        _logfile(.t.,"  ow=",ow,"xPar=",ky,"cdata=",cdata ) 
                        _logfile(.t.,"  ow:Name",ow:Name,"ow:Handle",ow:Handle ) 
                        OnWmCopyData(cData) 
                        Return Nil                                           
                       })                                                     строка 181 
      ....                             

 
       o := This.Object 
 ... 
          o:Event(...) 
 ... 
          o:Event(111, {|ow,ky,cdata|  
                         cdata := hb_defaultValue(cdata, "")  
                         _logfile(.t.,"----[ Событие 111 ]--- " + ProcNL() )  
                         _logfile(.t.,"  ow=",ow,"xPar=",ky,"cdata=",cdata )  
                         _logfile(.t.,"  ow:Name",ow:Name,"ow:Handle",ow:Handle )  
                         OnWmCopyData(cData)  
                         Return Nil                                            
                        }) 

 
 C:\BCC102\Include\windows\sdk\imm.h:217:9: warning: unknown pragma ignored [-Wunknown-pragmas] 
 #pragma endregion 
         ^ 
 C:\BCC102\Include\windows\sdk\imm.h:225:9: warning: unknown pragma ignored [-Wunknown-pragmas] 
 #pragma region Desktop Family 
         ^ 
 C:\BCC102\Include\windows\sdk\imm.h:434:9: warning: unknown pragma ignored [-Wunknown-pragmas] 
 #pragma endregion 
         ^ 
 In file included from Source\overlay.cpp:8: 
 C:\BCC102\Include\windows\sdk\windows.h:310:9: warning: unknown pragma ignored [-Wunknown-pragmas] 
 #pragma endregion 
         ^ 
 1734 warnings generated. 
 Turbo Incremental Link 6.90 Copyright (c) 1997-2017 Embarcadero Technologies, Inc.

IF version_BCC < ???? 
      cVerBcc := hb_compiler()  
 ELSE 
      cVerBcc := hb_Ccompiler()  
 ENDIF

..... 
 OBJ\use_LetoDb.c: 
 OBJ\use_Postgres.c: 
 OBJ\InetState.c: 
 In file included from InetState.prg:162: 
 C:\BCC102\Include\windows\sdk\windows.h:42:9: warning: unknown pragma ignored [-Wunknown-pragmas] 
 #pragma region Application Family or OneCore Family 
         ^ 
 In file included from InetState.prg:162: 
 In file included from C:\BCC102\Include\windows\sdk\windows.h:199: 
 In file included from C:\BCC102\Include\windows\sdk\windef.h:25: 
 In file included from C:\BCC102\Include\windows\sdk\minwindef.h:15: 
 In file included from C:\BCC102\Include\windows\sdk\specstrings.h:62: 
 C:\BCC102\Include\windows\sdk\sal.h:718:9: warning: unknown pragma ignored [-Wunknown-pragmas] 
 #pragma region Input Buffer SAL 1 compatibility macros 
         ^ 
 C:\BCC102\Include\windows\sdk\sal.h:1482:9: warning: unknown pragma ignored [-Wunknown-pragmas] 
 #pragma endregion Input Buffer SAL 1 compatibility macros 
         ^ 
 In file included from InetState.prg:162: 
 In file included from C:\BCC102\Include\windows\sdk\windows.h:199: 
 In file included from C:\BCC102\Include\windows\sdk\windef.h:25: 
 C:\BCC102\Include\windows\sdk\minwindef.h:19:9: warning: unknown pragma ignored [-Wunknown-pragmas] 
 #pragma region Application Family or OneCore Family 
         ^ 
 In file included from InetState.prg:162: 
 

In file included from InetState.prg:162: 
 C:\BCC102\Include\windows\sdk\windows.h:310:9: warning: unknown pragma ignored [-Wunknown-pragmas] 
 #pragma endregion 
         ^ 
 1761 warnings generated. 
 OBJ\IniGetSetConfig.c: 
 OBJ\table_f8dogExpSite.c: 
 OBJ\_hbmkaut_1main.c: 
 Turbo Incremental Link 6.90 Copyright (c) 1997-2017 Embarcadero Technologies, Inc. 
 Fatal: Unable to open file '???E.OBJ'   кракозябы 
 hbmk2[2transfer_db]: Error: Running linker. 2

 
 #pragma BEGINDUMP 
  
 #include <windows.h>   // строка 162 
 #include "hbapi.h" 
  
 /***************************************************************************************** 
 *   MACRO DEFINITION FOR CALL DLL FUNCTION 
 ******************************************************************************************/

 
 #define FR_PRIVATE   0x10 
 #define FR_NOT_ENUM  0x20 
  
 #include "minigui.ch" 
 #include "hbdyn.ch" 
 .... 
 *-----------------------------------------------------------------------------* 
 // для ВСС 5.5  
 Function AddFont(cFontFile) 
    Return AddFontResourceEx( cFontFile, FR_PRIVATE+FR_NOT_ENUM, 0 ) 
  
 Function RemoveFont(cFontFile) 
    Return RemoveFontResourceEx( cFontFile, FR_PRIVATE+FR_NOT_ENUM, 0 ) 
  
 DECLARE DLL_TYPE_INT AddFontResourceEx ( DLL_TYPE_LPCTSTR lpszFilename, DLL_TYPE_DWORD flag, DLL_TYPE_LPVOID pdv ) IN GDI32.DLL 
 DECLARE DLL_TYPE_BOOL RemoveFontResourceEx ( DLL_TYPE_LPCTSTR lpFileName, DLL_TYPE_DWORD flag, DLL_TYPE_LPVOID pdv ) IN GDI32.DLL 
  
 *-----------------------------------------------------------------------------* 
 // ВСС 7.30 не поддерживает дополнительную библиотеку dll.lib 
 //Поэтому этот код должен быть переписан с использованием библиотеки calldll 
 Function AddFont(cFontFile) 
    Return HMG_CallDLL ("GDI32.DLL", HB_DYN_CTYPE_INT, "AddFontResourceEx", cFontFile, FR_PRIVATE+FR_NOT_ENUM, 0) 
  
 Function RemoveFont(cFontFile) 
    Return HMG_CallDLL ("GDI32.DLL", HB_DYN_CTYPE_BOOL, "RemoveFontResourceEx", cFontFile, FR_PRIVATE+FR_NOT_ENUM, 0)

 
 ... 
     VALUE "ProductName", "Моя программа\000" 
     VALUE "ProductVersion", "5.хх\000" 
     VALUE "Comments", "Создано Мною <xxxx@gmail.com>\000" 
   } 
 } 
  
 BLOCK "VarFileInfo" 
 { 
   VALUE "Translation", 0x0419 0x04E3   
 }

SET WINDOW MODAL PARENT HANDLE ON ?    

Turbo Incremental Link 5.66 Copyright (c) 1997-2002 Borland 
 Error: Unresolved external 'SwitchToThisWindow' referenced from C:\MINIGUI-23.04.4\LIB\MINIGUI.LIB|c_windowsAPI 
 hbmk2[Ab4winDebug]: Error: Running linker. 2

 
 ... 
  FUNCTION _DefineModalWindow ( FormName, Caption, x, y, w, h, Parent, nosize, nosysmenu, nocaption, aMin, aMax, ;  
  ...  
     _HMG_InplaceParentHandle := iif( _HMG_BeginWindowMDIActive, GetActiveMdiHandle(), GetActiveWindow() )  
    
     IF _HMG_InplaceParentHandle <> 0  
        Parent := _hmg_InplaceParentHandle  
 ... 
 

Source\main.prg(293) Error E0030  Syntax error "syntax error at 'WINDOW'" 
 1 error 
 No code generated. 
 hbmk2[Ab4winDebug]: Error: Running Harbour compiler (built-in). 1 
 

   DEFINE WINDOW ...     ; 
       ON INIT  {|| myOnInitFSeek(...),; 
                      This.Get_Zero.Setfocus, _PushKey(VK_0), This.Buff.Setfocus } ; 
  
       @ 0, 0 LABEL Buff VALUE ""  ...  INVISIBLE 
       @ 10, 10 GETBOX Get_Zero VALUE "+"  ...  INVISIBLE 
  
       @ nRow, nCol BUTTONEX Button_S1 .... 
         ACTION {|nBtn| nBtn := 1, This.Enabled := .F., DoEvents(), _wPost(11, This.Index, {nBtn, This.Name}) }  
  
        (This.Object):Event(11,{|obtn,ky,abtn|             // объект,event,параметр получаем   
                                  Local ow, cw, cn, lbtn, lwnd, aRet, nRet, cRet, aForm, hWnd 
                                  Local nButton := abtn[1] // nButton 
                                  Local cButton := aBtn[2] // This.Name 
                                  lbtn := obtn:IsControl   // переменная контрол\окно .T.\.F. 
                                  lwnd := obtn:IsWindow    // переменная окно\контрол .T.\.F. 
                                  ow := obtn:Window        // если lbtn == .T. окно берем так 
                                  cw := ow:Name            // аналог ThisWindow.Name 
                                  cn := obtn:Name          // аналог This.Name 
                                  ? "  === Start = :Event(11)", ProcNL() 
                                  ? "  === ", abtn, "abtn=", nButton, cButton, "Event - ky=", ky 
                                  ? "  === ", obtn:ClassName, lbtn, lwnd, cw, cn 
                                  ? "  === @", cw, _IsWindowActive(cw), _IsWindowDefined(cw), cn, _IsControlDefined(cn, cw) 
                                  Darken2Open(ow:Handle)                 // затенение на окно 
                                  This.Get_Zero.Setfocus ; _PushKey(VK_1)   
                                  aRet := ButtonSpavki(aDim,nButton,cw)      // вызов другого MODAL(3)  
                                  IF ! To_Focus(cw, cn)  
                                     AlertStop("Window not found ! " + cw, "ERROR")     
                                  ENDIF  
                                  Darken2Close(ow:Handle)                  // убрать затенение с окна 
                                  This.Get_Zero.Setfocus ; _PushKey(VK_2)   
                                  DO EVENTS 
                                  .... 
                                  IF _IsWindowDefined(cw) 
                                     SET WINDOW THIS TO cw  
                                     SetProperty( cw, cn, "Caption", cRet ) 
                                     ? "  === ThisWindow =", cw, ThisWindow.Name 
                                     ? "  === This =", cn, This.Name 
                                     This.&(cn).Enabled := .T.        // разблокировка кнопки 
                                     This.Label_Buff.SetFocus() 
                                     SET WINDOW THIS TO 
                                  ELSE 
                                     ? "==== *** ERROR *** WINDOW ["+cw+"] not found ! " 
                                  ENDIF  
                                  ? "  === End = :Event(11)" ; ? "  ..." 
                                  Return Nil 
                               } ) 
  
        (This.Object):Event(99, {|ow| _logfile(.t., ":Event(99)" + ProcNL(), ow:Name, _IsWindowDefined(ow:Name) ) ,; 
                                      ow:Release()            } ) 
     END WINDOW

OBJ\util_MiniGui.c: 
 Warning W8017 C:\MiniGUI-23.07\include\mgdefs.h 102: Redefinition of 'HB_STORC' is not identical 
  + Full parser context 
  + Source\\util_MiniGui.prg, line 1117: #include C:\MiniGUI-23.07\include\mgdefs.h 
  
 мой код ------- 
 #pragma BEGINDUMP 
  
 #include <mgdefs.h>         // строка 1117 
 #include <commctrl.h> 
 #include "hbdate.h" 
  
 HB_FUNC( DTP_SETDT ) 
 { 
    HWND       hwnd; 
    SYSTEMTIME sysTime; 
  
    hwnd = ( HWND ) HB_PARNL( 1 ); 
  
    if( HB_ISDATETIME( 2 ) ) 
    { 
       int iYear, iMonth, iDay, iHour, iMinute, iSecond, iMSec; 
  
       hb_timeStampUnpack( hb_partd( 2 ), &iYear, &iMonth, &iDay, &iHour, &iMinute, &iSecond, &iMSec ); 
  
      sysTime.wYear      = ( WORD ) iYear; 
      sysTime.wMonth     = ( WORD ) iMonth; 
      sysTime.wDay       = ( WORD ) iDay; 
      sysTime.wDayOfWeek = 0; 
  
      sysTime.wHour         = ( WORD ) iHour; 
         sysTime.wMinute       = ( WORD ) iMinute; 
      sysTime.wSecond       = ( WORD ) iSecond; 
         sysTime.wMilliseconds = ( WORD ) iMSec; 
    } 
   else if( HB_ISDATE( 2 ) ) 
   { 
      //TODO 
   } 
   else 
   { 
      sysTime.wYear      = ( WORD ) hb_parnidef( 2, 2005 ); 
      sysTime.wMonth     = ( WORD ) hb_parnidef( 3, 1 ); 
      sysTime.wDay       = ( WORD ) hb_parnidef( 4, 1 ); 
      sysTime.wDayOfWeek = 0; 
  
      if( hb_pcount() >= 7 ) 
      { 
         sysTime.wHour         = ( WORD ) hb_parni( 5 ); 
         sysTime.wMinute       = ( WORD ) hb_parni( 6 ); 
         sysTime.wSecond       = ( WORD ) hb_parni( 7 ); 
         sysTime.wMilliseconds = ( WORD ) hb_parni( 8 ); 
      } 
      else 
      { 
         sysTime.wHour         = 0; 
         sysTime.wMinute       = 0; 
         sysTime.wSecond       = 0; 
         sysTime.wMilliseconds = 0; 
      } 
   } 
  
    SendMessage( hwnd, DTM_SETSYSTEMTIME, GDT_VALID, ( LPARAM ) &sysTime ); 
 }

OBJ\menu_Achoice.c: 
 Warning W8084 Source\\menu_Achoice.prg 361: Suggest parentheses to clarify precedence in function B_FUN_LISTVIEWAPPROXIMATEVIEWRECT 
  
 ---- Вот код: 
 #pragma BEGINDUMP 
  
 #include <windows.h> 
 #include "hbapi.h" 
 #include <commctrl.h> 
  
 #define HB_STORNI( n, x, y )  hb_storvni( n, x, y ) 
  
 // BAA 
 HB_FUNC( LISTVIEWAPPROXIMATEVIEWRECT ) 
 { 
   int iCount = hb_parni(2); 
   DWORD Rc; 
  
   Rc = ListView_ApproximateViewRect( ( HWND ) hb_parnl(1), -1, -1, iCount);  // строка 361 
  
   hb_reta( 2 ); 
   HB_STORNI(  LOWORD(Rc), -1, 1 ); 
   HB_STORNI(  HIWORD(Rc), -1, 2 ); 
  
 } 
 #pragma ENDDUMP

OBJ\util_c_code.c: 
 Warning W8084 Source\\util_c_code.prg 109: Suggest parentheses to clarify precedence in function hb_Ping2

#pragma BEGINDUMP   
   
 #include <hbapi.h>   
 #include <winsock2.h>   
 #include <iphlpapi.h>   
 #include <icmpapi.h>   
   
 int hb_Ping2( const char * cp )   
 {   
     HANDLE hIcmpFile;   
     unsigned long ipaddr = INADDR_NONE;     // corrected by KDJ  
     DWORD dwRetVal;   
     char SendData[32] = "Data Buffer";   
     LPVOID ReplyBuffer;   
     DWORD ReplySize;   
   
     if( isalpha( cp[0] ) )      //host address is a name   
     {   
        WSADATA wsaData;   
        int     iResult;   
   
        iResult = WSAStartup( MAKEWORD(2, 2), &wsaData );   // строка 109 
   
        if( iResult == 0 )   
        {   
           struct hostent *remoteHost = gethostbyname( cp );   
   
           if( remoteHost != NULL )   
              ipaddr = *(unsigned long *) remoteHost->h_addr_list[0];   
   
           WSACleanup();   
        }   
     }   
     else   
        ipaddr = inet_addr( cp );   
   
     if (ipaddr == INADDR_NONE)   
         return 1;   
       
     hIcmpFile = IcmpCreateFile();   
     if (hIcmpFile == INVALID_HANDLE_VALUE)   
         return 2;   
   
     ReplySize = sizeof(ICMP_ECHO_REPLY) + sizeof(SendData);   
     ReplyBuffer = (VOID*) malloc(ReplySize);   
     if (ReplyBuffer == NULL)   
     {   
         IcmpCloseHandle(hIcmpFile);   
         return 3;   
     }   
       
       
     dwRetVal = IcmpSendEcho(hIcmpFile, ipaddr, SendData, sizeof(SendData),   
         NULL, ReplyBuffer, ReplySize, 1000);   
   
     free(ReplyBuffer);   
   
     IcmpCloseHandle(hIcmpFile);   
   
     if (dwRetVal == 0)   
         return 4;  /*GetLastError();*/   
       
     return 0;   
   
 }

   aMonth     := Array(12) 
    FOR nI := 1 TO 12  
       aMonth[nI] := " " + LOWER( NTOCMONTH( nI ) ) + " " 
    NEXT  
    MsgDebug(hb_Ccompiler(), aMonth, SET(_SET_LANGUAGE), hb_CdpSelect() )

   SET LANGUAGE TO RUSSIAN 
    SET CODEPAGE TO RUSSIAN

   cSetCP  := hb_SetCodepage() 
    cSelCdp := hb_CdpSelect() 
    cLngSel := Hb_LangSelect() 
    ... 
       DEFINE WINDOW &cForm AT nY,nX WIDTH nW HEIGHT nH TITLE cTitle    ; 
          ICON cIcon WINDOWTYPE STANDARD TOPMOST NOMAXIMIZE NOSIZE      ; 
          ON GOTFOCUS {|| App.Cargo:cFormGotFocus := This.Name, ; 
             myLangRecover(cAlias,cSetCP,cSelCdp,cLngSel) } ; // возврат фокуса на форму 
 .... 
 FUNCTION myLangRecover(cAlias,cSetCP,cSelCdp,cLngSel) 
    DO EVENTS 
    hb_SetCodepage(cSetCP) 
    hb_CdpSelect(cSelCdp) 
    hb_LangSelect(cLngSel) 
    IF LEN(cAlias) > 0 
       IF ( Select( cAlias ) > 0 ) 
          dbSelectArea( cAlias ) 
       ENDIF 
    ENDIF 
    DO EVENTS 
 RETURN NIL

   //hb_LangSelect(cLngSel) 
    //hb_SetCodepage(cSetCP) 
    hb_CdpSelect(cSelCdp)

FUNCTION myLangRecover(cAlias,cSetCP,cSelCdp,cLngSel) 
    LOCAL aMonth, nI 
    aMonth := Array(12) 
    FOR nI := 1 TO 12  
       aMonth[nI] := " " + LOWER( NTOCMONTH( nI ) ) + " " 
    NEXT  
    ? ProcNL(), cAlias,cSetCP,cSelCdp,cLngSel, hb_valtoexp(aMonth)  // строка 447 
  
    DO EVENTS 
    hb_SetCodepage(cSetCP) 
    hb_CdpSelect(cSelCdp) 
    hb_LangSelect(cLngSel) 
    IF LEN(cAlias) > 0 
       IF ( Select( cAlias ) > 0 ) 
          dbSelectArea( cAlias ) 
       ENDIF 
    ENDIF 
  
    ? ProcNL(), hb_SetCodepage(), hb_CdpSelect(), hb_LangSelect() // строка 459 
    aMonth := Array(12) 
    FOR nI := 1 TO 12  
       aMonth[nI] := " " + LOWER( NTOCMONTH( nI ) ) + " " 
    NEXT  
    ?? hb_valtoexp(aMonth) 
    DO EVENTS 
 RETURN NIL

 
 INIT PROCEDURE Sets_EVN() 
    LOCAL cFont := "DejaVu Sans Mono", nSize := 14 
    LOCAL cLog  := "_msg.log" 
  
    SET CODEPAGE TO RUSSIAN 
    SET LANGUAGE TO RUSSIAN 
 ... 
 потом повторно ставится 
 FUNCTION mySetLang(nVal)       
    LOCAL cSetCP, cSelCdp, cLngSel 
    LOCAL o, cTmp, oIniLang, cIniLang 
  
    IF     nVal == 0 
       SET CODEPAGE TO ENGLISH      
       SET LANGUAGE TO ENGLISH        
    ELSEIF nVal == 1 
       SET CODEPAGE TO RUSSIAN 
       SET LANGUAGE TO RUSSIAN 
    ELSEIF nVal == 2 
 ...