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)