/////////////////////////////////////////////////////////////////////////// 
 Function MG_YesNo(cMsg, cTitle, cIcoRes, nIcoSize, aWinColor, cParentWin, aBtnMsg, aBtnColor) 
    LOCAL hParentWin, nI, lRet := .F. 
    DEFAULT aBtnColor := { LGREEN , {189,30,73} } 
    DEFAULT aBtnMsg    := {"&Продолжить", "&Отмена"} 
    DEFAULT cParentWin := _HMG_ThisFormName 
    DEFAULT cIcoRes    := "iSmile64", nIcoSize := 64 
    DEFAULT cTitle     := "Ваш выбор" 
    DEFAULT aWinColor  := { { 63, 108, 25 } , WHITE } 
  
    IF ! empty(cParentWin) .and. _IsWindowDefined( cParentWin ) 
        hParentWin := GetFormHandle( cParentWin ) 
    ENDIF 
    IF ! empty( hParentWin ) 
       hParentWin := GetFormHandle( cParentWin ) 
       Darken2Open(hParentWin)           // Затенение на форме 
    ENDIF 
  
    SET MSGALERT FONTCOLOR TO aWinColor[2] 
    SET MSGALERT BACKCOLOR TO aWinColor[1] 
    _HMG_ModalDialogReturn := 2 
    nI := HMG_Alert( cMsg, aBtnMsg, cTitle, Nil, cIcoRes, nIcoSize, aBtnColor ) 
    IF nI == 1 
       lRet := .T. 
    ENDIF 
    _HMG_ModalDialogReturn := 1 
  
    IF ! empty( hParentWin ) 
       Darken2Close(hParentWin)            // Затенение на форме 
    ENDIF 
  
    RETURN lRet 
 

 
 /* 
  * MINIGUI - Harbour Win32 GUI library Demo 
  * 
  */ 
  
 #define _HMG_OUTLOG 
  
 #include "hmg.ch" 
  
 REQUEST DBFCDX, DBFFPT 
 REQUEST HB_CODEPAGE_UTF8, HB_CODEPAGE_RU866, HB_CODEPAGE_RU1251 
  
 *-----------------------------------------------------------------------------* 
 FUNCTION Main() 
 *-----------------------------------------------------------------------------* 
    LOCAL cNam := hb_FNameName( hb_ProgName() ) 
    LOCAL cForm 
  
    SET CODEPAGE TO RUSSIAN 
    SET LANGUAGE TO RUSSIAN 
  
    RddSetDefault("DBFCDX") 
  
    SET CENTURY   ON 
    SET DATE      GERMAN 
    SET DELETED   ON 
    SET EXCLUSIVE ON 
    SET EPOCH TO  2000 
    SET AUTOPEN   OFF 
    SET EXACT     ON 
    SET SOFTSEEK  ON 
  
    SET NAVIGATION EXTENDED 
    SET FONT TO "Arial", 14 
  
    *-------------------------------- 
    SET OOP ON 
    *-------------------------------- 
  
    // Первый тест - строка 
    cForm := ToWaitWindow( "... Запуск программы "+cNam+" ... " ) 
  
    InkeyGui(5 * 1000 ) 
  
    ToWaitWindow( "!!!!!!!!!!!!!!!!!!!!" ) 
  
    InkeyGui(5 * 1000 ) 
  
    SetProperty(cForm, "Message" , "Value", "@@@@@@@@@@@@@@@") 
  
    InkeyGui(5 * 1000 ) 
  
    ToWaitWindow() 
  
    InkeyGui( 1000 ) 
  
    // Второй тест - массив 
    cForm := ToWaitWindow( {"... Запуск программы "+cNam+" ... ", ; 
                            "Тестируем массив в окне. Строка 1" , ; 
                            "Тестируем массив в окне. Строка 2"} ) 
    SET WINDOW THIS TO cForm 
  
    This.Message.FontColor := BLUE 
    This.Message.FontBold  := .T. 
  
    SET WINDOW THIS TO  
  
    InkeyGui(10 * 1000 ) 
  
    ToWaitWindow( {upper("... Запуск программы "+cNam+" ... "), ; 
                   "Замена строки 1 в окне. ****** 1 *", ; 
                   "Замена строки 2 в окне. ###### 2 #"} ) 
  
    InkeyGui(10 * 1000 ) 
  
    SetProperty(cForm, "Message" , "Value", "@@@@@@@@@@@@@@@@@@@@") 
    SetProperty(cForm, "Message2", "Value", "********************") 
    SetProperty(cForm, "Message3", "Value", "####################") 
  
    InkeyGui(10 * 1000 ) 
  
    ToWaitWindow() 
  
    InkeyGui( 1000 ) 
 */ 
 RETURN 
  
 FUNCTION ToWaitWindow( uMsg )             // Режим NOWAIT для Activate 
    LOCAL cForm := "_HMG_CHILDWAITWINDOW" 
    LOCAL lDef, oDlu, cMsg, cFont, nSize 
    LOCAL nI, nY, nX, nW, nH, nS, cN 
  
    IF pCount() == 0 
       WaitWindow() 
       IF Empty( _HMG_MainHandle )   // нет MAIN окна 
          SET WINDOW MAIN ON 
       ENDIF 
       RETURN cForm 
  
    ELSEIF _IsWindowDefined( cForm )  // вывод на окно 
       IF hb_IsChar( uMsg ) .and. ";" $ uMsg 
          uMsg := hb_ATokens( uMsg, ";" ) 
       ELSEIF hb_IsChar( uMsg ) 
          uMsg := { uMsg } 
       ENDIF 
       IF ! hb_IsArray( uMsg ) ; RETURN cForm 
       ENDIF 
  
       SET WINDOW THIS TO cForm 
       FOR nI := 1 TO Len( uMsg ) 
           cN := "Message" 
           IF nI > 1 ; cN += hb_ntos(nI) 
           ENDIF 
           IF _IsControlDefined( cN, cForm ) 
              This.&(cN).Value := uMsg[ nI ] 
           ENDIF 
       NEXT 
       SET WINDOW THIS TO 
       RETURN cForm 
  
    ENDIF 
  
    cFont := App.FontName 
    nSize := App.FontSize 
    oDlu  := oDlu4Font( nSize ) 
  
    IF !_IsWindowDefined( cForm )     // создание окна 
       IF hb_IsChar( uMsg ) .and. ";" $ uMsg 
          uMsg := hb_ATokens( uMsg, ";" ) 
       ENDIF 
  
       IF hb_IsChar( uMsg ) 
          cMsg := uMsg 
       ELSEIF hb_IsArray( uMsg ) .and. Len( uMsg ) > 0 
          cMsg := uMsg[1] 
       ELSEIF hb_IsNumeric( uMsg ) 
          cMsg := Repl(" ", uMsg) 
       ELSE 
          cMsg := Repl(" ", 50) 
       ENDIF 
  
       IF Empty( _HMG_MainHandle )   // нет MAIN окна 
          SET WINDOW MAIN OFF 
       ENDIF 
  
       WaitWindow( cMsg, .T. ) 
  
       IF _IsWindowDefined( cForm ) 
          SET WINDOW THIS TO cForm 
          IF hb_IsArray( uMsg ) .and. Len( uMsg ) > 0 
             nX := This.Message.Col 
             nW := This.Message.Width 
             nH := oDlu:H1 
             This.Message.Height   := nH 
             This.Message.FontName := cFont 
             This.Message.FontSize := nSize 
             nS := This.Message.Row * 3 
             nY := nS + This.Message.Height 
             FOR nI := 2 TO Len( uMsg ) 
                 cN := "Message"+hb_ntos(nI) 
                 @ nY, nX LABEL &cN OF &cForm WIDTH nW HEIGHT nH ; 
                       VALUE uMsg[ nI ] FONT cFont SIZE nSize ; 
                       BACKCOLOR This.Message.BackColor ; 
                       CENTERALIGN TRANSPARENT 
                 nY := This.&(cN).Row + This.&(cN).Height 
                 nS += This.&(cN).Height 
             NEXT 
             ThisWindow.Height  := ThisWindow.Height + nS //- This.Message.Row 
  
          ELSEIF hb_IsChar( uMsg ) 
             nH := oDlu:H1 
             This.Message.Height   := nH 
             This.Message.FontName := cFont 
             This.Message.FontSize := nSize 
             This.Message.Value    := uMsg 
  
          ENDIF 
          SET WINDOW THIS TO 
       ENDIF 
    ENDIF 
  
 RETURN cForm 
 

 
 *-----------------------------------------------------------------------------* 
 FUNCTION WaitWindow ( cMessage, lNoWait, nWidth, nSize, cFont ) 
 *-----------------------------------------------------------------------------* 
    LOCAL cFormName := "_HMG_CHILDWAITWINDOW" 
    LOCAL lDefined  := _IsWindowDefined( cFormName ) 
    LOCAL lIsModal, nHeight, nY, nX                                        // BK 
    LOCAL lWidth := Empty( nWidth ) 
    //LOCAL nWidth 
  
    IF PCount() == 0 
  
       IF lDefined 
          nCtEfeito := 0 
          cDescEfeito := "" 
          DoMethod( cFormName, "Release" ) 
       ENDIF 
  
    ELSE 
  
       hb_default( @lNoWait, .F. ) 
  
       IF lDefined 
  
          IF lNoWait 
             SetProperty( cFormName, "Message", "Value", cMessage ) 
          ENDIF 
  
       ELSE 
  
          lIsModal := _HMG_IsModalActive 
  
          Default nSize   := 10                                            // BK 
          Default nHeight := nSize + 8 
  
          IF lNoWait 
             _HMG_IsModalActive := .F. 
             DEFINE WINDOW _HMG_CHILDWAITWINDOW CHILD 
          ELSE 
             DEFINE WINDOW _HMG_CHILDWAITWINDOW MODAL 
          ENDIF 
  
          IF lWidth                                                        // BK 
             nWidth := GetTextWidth( , cMessage ) 
             nWidth := Min( 2 * nWidth, Min( GetDesktopWidth(), 800 ) ) 
          ENDIF 
  
          nY := iif( IsVistaOrLater(), 4, 7 ) 
          nX := 12 
  
        //SetProperty( cFormName, "Width", Min( 2 * nWidth, Min( GetDesktopWidth(), 800 ) ) ) 
          SetProperty( cFormName, "Width" , nWidth )                        // BK 
          SetProperty( cFormName, "Height", nHeight + nY * 2 + GetBorderHeight()  ) 
        //SetProperty( cFormName, "Height", 36 + GetBorderHeight() / 2 ) 
  
          SetProperty( cFormName, "Title", "" ) 
          SetProperty( cFormName, "TitleBar", .F. ) 
          SetProperty( cFormName, "SysMenu", .F. ) 
  
          IF hb_osisWin10() 
             SetProperty( cFormName, "Height", GetProperty( cFormName, "Height" ) + 7 ) 
             SetProperty( cFormName, "BackColor", nRGB2Arr( GetSysColor( COLOR_WINDOW ) ) ) 
          ENDIF 
  
          @ nY, nX LABEL Message ;                          // BK 
             WIDTH GetProperty( cFormName, "Width" ) - 24 - GetBorderWidth() ; 
             HEIGHT nHeight VALUE cMessage FONT cFont SIZE nSize CENTERALIGN TRANSPARENT 
  
          IF lWidth .and. GetProperty( cFormName, "Width" ) < 2 * nWidth               // BK 
             SetProperty( cFormName, "Message", "Value", "" ) 
             _DefineTimer( "Timer", cFormName, 100, {|| EfeitoLabel( cMessage ) } ) 
          ENDIF 
  
          END WINDOW                                                                   // BK 
  
          DoMethod( cFormName, "Center" ) 
          _ActivateWindow( { cFormName }, .T. ) 
          _HMG_IsModalActive := lIsModal 
  
          IF ! lNoWait 
             InkeyGUI( 0 ) 
             IF _IsControlDefined( "Timer", cFormName ) 
                nCtEfeito := 0 
                cDescEfeito := "" 
             ENDIF 
             DoMethod( cFormName, "Release" ) 
          ENDIF 
  
       ENDIF 
  
    ENDIF 
  
    DO EVENTS 
  
 RETURN cFormName                          // BK 
 

 
 /* 
  * MINIGUI - Harbour Win32 GUI library Demo 
  * 
  */ 
  
 #define _HMG_OUTLOG 
  
 #include "hmg.ch" 
  
 REQUEST DBFCDX, DBFFPT 
 REQUEST HB_CODEPAGE_UTF8, HB_CODEPAGE_RU866, HB_CODEPAGE_RU1251 
  
 *-----------------------------------------------------------------------------* 
 FUNCTION Main() 
 *-----------------------------------------------------------------------------* 
  
    SET CODEPAGE TO RUSSIAN 
    SET LANGUAGE TO RUSSIAN 
  
    RddSetDefault("DBFCDX") 
  
    SET CENTURY   ON 
    SET DATE      GERMAN 
    SET DELETED   ON 
    SET EXCLUSIVE ON 
    SET EPOCH TO  2000 
    SET AUTOPEN   OFF 
    SET EXACT     ON 
    SET SOFTSEEK  ON 
  
    SET NAVIGATION EXTENDED 
    SET FONT TO "Arial", 14 
  
    *-------------------------------- 
    SET OOP ON 
    *-------------------------------- 
  
    DEFINE WINDOW wMain TITLE "Demo WaitWindow" MAIN NOSIZE TOPMOST ; 
           ON INIT    ( This.Topmost := .F., _wPost(0) ) ; 
           ON RELEASE ( dbCloseAll() ) 
  
       ON KEY F1 ACTION NIL 
  
       (This.Object):Event( 0, {|  | InkeyGui(1000), Test_WW0(), Test_WW(), _wPost(99) } ) 
       (This.Object):Event(99, {|ow| ow:Release() } ) 
  
    END WINDOW 
  
    CENTER   WINDOW wMain 
    ACTIVATE WINDOW wMain 
  
 RETURN NIL 
  
 STATIC FUNCTION Test_WW0() 
    //LOCAL cNam := hb_FNameName( hb_ProgName() ) 
    LOCAL cNam := hb_ProgName() 
    LOCAL cForm 
  
    cForm := WaitWindow( "... Запуск программы "+cNam+" ... ", .T., 900, 16 ) 
  
    InkeyGui(5 * 1000 ) 
  
    WaitWindow( "!!!!!!!!!!!!!!!!!!!!" ) 
  
    InkeyGui(5 * 1000 ) 
  
    SetProperty(cForm, "Message" , "Value", "@@@@@@@@@@@@@@@") 
  
    InkeyGui(5 * 1000 ) 
  
    WaitWindow() 
  
    InkeyGui( 1000 ) 
  
 RETURN Nil 
  
 STATIC FUNCTION Test_WW() 
    LOCAL cNam := hb_FNameName( hb_ProgName() ) 
    LOCAL cForm 
  
    // Первый тест - строка 
    cForm := ToWaitWindow( "... Запуск программы "+cNam+" ... ", 700 ) 
  
    InkeyGui(5 * 1000 ) 
  
    ToWaitWindow( "!!!!!!!!!!!!!!!!!!!!" ) 
  
    InkeyGui(5 * 1000 ) 
  
    SetProperty(cForm, "Message" , "Value", "@@@@@@@@@@@@@@@") 
  
    InkeyGui(5 * 1000 ) 
  
    ToWaitWindow() 
  
    InkeyGui( 1000 ) 
  
    // Второй тест - массив 
    cForm := ToWaitWindow( {"... Запуск программы "+cNam+" ... ", ; 
                            "Тестируем массив в окне. Строка 1" , ; 
                            "Тестируем массив в окне. Строка 2"}, 700 ) 
  
    SET WINDOW THIS TO cForm 
  
    This.Message.FontColor := BLUE 
    This.Message.FontBold  := .T. 
  
    InkeyGui(5 * 1000 ) 
  
    ToWaitWindow( {upper("... Запуск программы "+cNam+" ... "), ; 
                   "Замена строки 1 в окне. ****** 1 *", ; 
                   "Замена строки 2 в окне. ###### 2 #"} ) 
  
    InkeyGui(5 * 1000 ) 
  
    This.Message .Value := "@@@@@@@@@@@@@@@@@@@@" 
    This.Message2.Value := "********************" 
    This.Message3.Value := "####################" 
  
    SET WINDOW THIS TO 
  
    InkeyGui(5 * 1000 ) 
  
    ToWaitWindow() 
  
    InkeyGui( 1000 ) 
  
 RETURN Nil 
  
 FUNCTION ToWaitWindow( uMsg, nWidth )    // Режим NOWAIT для Activate 
    LOCAL cForm := "_HMG_CHILDWAITWINDOW" 
    LOCAL lDef, oDlu, cMsg, cFont, nSize 
    LOCAL nI, nY, nX, nW, nH, nS, cN 
  
    IF pCount() == 0                 // завершение работы окна 
       WaitWindow() 
       IF Empty( _HMG_MainHandle )   // нет MAIN окна 
          SET WINDOW MAIN ON 
       ENDIF 
       RETURN cForm 
  
    ELSEIF _IsWindowDefined( cForm )  // вывод на окно 
       IF hb_IsChar( uMsg ) .and. ";" $ uMsg 
          uMsg := hb_ATokens( uMsg, ";" ) 
       ELSEIF hb_IsChar( uMsg ) 
          uMsg := { uMsg } 
       ENDIF 
       IF ! hb_IsArray( uMsg ) ; RETURN Nil 
       ENDIF 
  
       SET WINDOW THIS TO cForm 
       FOR nI := 1 TO Len( uMsg ) 
           cN := "Message" 
           IF nI > 1 ; cN += hb_ntos(nI) 
           ENDIF 
           IF _IsControlDefined( cN, cForm ) 
              This.&(cN).Value := uMsg[ nI ] 
           ENDIF 
       NEXT 
       SET WINDOW THIS TO 
       RETURN cForm 
  
    ENDIF 
  
    cFont := App.FontName 
    nSize := App.FontSize 
    oDlu  := oDlu4Font( nSize ) 
  
    IF !_IsWindowDefined( cForm )     // создание окна 
       IF hb_IsChar( uMsg ) .and. ";" $ uMsg 
          uMsg := hb_ATokens( uMsg, ";" ) 
       ENDIF 
  
       IF hb_IsChar( uMsg ) 
          cMsg := uMsg 
       ELSEIF hb_IsArray( uMsg ) .and. Len( uMsg ) > 0 
          cMsg := uMsg[1] 
       ELSEIF hb_IsNumeric( uMsg ) 
          cMsg := Repl(" ", uMsg) 
       ELSE 
          cMsg := Repl(" ", 70) 
       ENDIF 
  
       IF Empty( _HMG_MainHandle )   // нет MAIN окна 
          SET WINDOW MAIN OFF 
       ENDIF 
  
       WaitWindow( cMsg, .T., nWidth ) 
  
       IF _IsWindowDefined( cForm ) 
          SET WINDOW THIS TO cForm 
          nX := This.Message.Col 
          nH := oDlu:H1 
          This.Message.Height   := nH 
          This.Message.FontName := cFont 
          This.Message.FontSize := nSize 
          IF hb_IsArray( uMsg ) .and. Len( uMsg ) > 0 
             nW := This.Message.Width 
             nS := This.Message.Row * 3 
             nY := nS + This.Message.Height 
             FOR nI := 2 TO Len( uMsg ) 
                 cN := "Message"+hb_ntos(nI) 
                 @ nY, nX LABEL &cN OF &cForm WIDTH nW HEIGHT nH ; 
                       VALUE uMsg[ nI ] FONT cFont SIZE nSize ; 
                       BACKCOLOR This.Message.BackColor ; 
                       CENTERALIGN TRANSPARENT 
                 nY := This.&(cN).Row + This.&(cN).Height 
                 nS += This.&(cN).Height 
             NEXT 
             ThisWindow.Height := ThisWindow.Height + nS 
  
          ELSEIF hb_IsChar( uMsg ) 
             This.Message.Value := uMsg 
  
          ENDIF 
          SET WINDOW THIS TO 
       ENDIF 
    ENDIF 
  
 RETURN cForm