*--------------------------------------------------------------------------------------* 
 FUNCTION WaitWindow ( cMessage, lNoWait, nWidth, nSize, cFont, aFontColor, aBackColor ) 
 *--------------------------------------------------------------------------------------* 
    LOCAL cFormName := "_HMG_CHILDWAITWINDOW" 
    LOCAL lDefined := _IsWindowDefined( cFormName ) 
    LOCAL lIsModal 
    LOCAL lWidth := Empty( nWidth ) 
    LOCAL nHeight 
    LOCAL nY, nX, nW, nI, nK 
    LOCAL hFont, cTmp, nTmp, cLbl 
  
    IF PCount() == 0 
  
       IF lDefined 
          nCtEfeito := 0 
          cDescEfeito := "" 
          DoMethod( cFormName, "Release" ) 
       ENDIF 
  
    ELSE 
  
       hb_default( @lNoWait, .F. ) 
       hb_default( @cFont, _HMG_DefaultFontName ) 
  
       IF HB_ISCHAR( cMessage ) 
          IF    CRLF $ cMessage 
             cMessage := hb_ATokens( cMessage, CRLF ) 
          ELSEIF ";" $ cMessage 
             cMessage := hb_ATokens( cMessage, ";" ) 
          ELSE 
             cMessage := { cMessage } 
          ENDIF 
       ELSEIF ! HB_ISARRAY( cMessage ) 
          cMessage := { cMessage } 
       ENDIF 
  
       nK := Len( cMessage ) 
  
       IF lDefined 
  
          IF lNoWait 
             FOR nI := 1 TO nK 
                 cLbl := "Message" + iif( nI > 1, hb_ntos( nI ), "" ) 
                 IF _IsControlDefined( cLbl, cFormName ) 
                    SetProperty( cFormName, cLbl, "Value", cValToChar( cMessage[ nI ] ) ) 
                 ENDIF 
             NEXT 
          ENDIF 
  
       ELSE 
  
          lIsModal := _HMG_IsModalActive 
  
          nTmp := 1 
          cTmp := cMessage[ nTmp ] 
          FOR nI := 1 TO nK 
              nTmp := iif( Len( cValToChar( cMessage[ nI ] ) ) > Len( cTmp ), nI, nTmp ) 
          NEXT 
          cTmp := cValToChar( cMessage[ nTmp ] ) 
  
          DEFAULT nSize := 10 
  
          hFont   := InitFont( cFont, nSize ) 
          nHeight := GetTextHeight ( Nil, "A" , hFont ) 
  
          IF lWidth 
             nWidth := GetTextWidth( Nil, cTmp, hFont ) + 24 
             nWidth := Min( 2 * nWidth, Min( GetDesktopWidth(), 800 ) ) 
          ENDIF 
  
          DeleteObject( hFont ) 
  
          nHeight += 8 
  
          IF lNoWait 
             _HMG_IsModalActive := .F. 
             DEFINE WINDOW _HMG_CHILDWAITWINDOW CHILD 
          ELSE 
             DEFINE WINDOW _HMG_CHILDWAITWINDOW MODAL 
          ENDIF 
  
          nY := iif( IsVistaOrLater(), 4, 7 ) 
          nX := 12 
  
          SetProperty( cFormName, "Width", nWidth ) 
          SetProperty( cFormName, "Height", nHeight * nK + nY * 2 + iif( IsSeven(), 2, 1 ) * GetBorderHeight() ) 
  
          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 
  
          nW := GetProperty( cFormName, "ClientWidth" ) - nX * 2 
  
          FOR nI := 1  TO nK 
              cLbl := "Message" + iif( nI > 1, hb_ntos( nI ), "" ) 
              @ nY, nX LABEL &(cLbl) WIDTH nW HEIGHT nHeight ; 
                       VALUE cValToChar( cMessage[ nI ] ) ; 
                       FONT cFont SIZE nSize ; 
                       BACKCOLOR aBackColor FONTCOLOR aFontColor ; 
                       CENTERALIGN TRANSPARENT 
              nY += nHeight 
          NEXT 
  
          IF lWidth .AND. GetProperty( cFormName, "Width" ) < 2 * nWidth 
             SetProperty( cFormName, "Message", "Value", "" ) 
             _DefineTimer( "Timer", cFormName, 100, {|| EfeitoLabel( cMessage[1] ) } ) 
          ENDIF 
  
          END WINDOW 
  
          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 
 

 
 /* 
  * 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 cFont := "Arial", nSize := 12 
  
    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 cFont, nSize 
  
    *-------------------------------- 
    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) 
  
    InkeyGui(5 * 1000 ) 
  
    WaitWindow( "!!!!!!!!!!!!!!!!!!!!", .T. ) 
  
    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, nSize := 20 
  
    // Первый тест - строка 
    cForm := WaitWindow( "... Запуск программы "+cNam+" ... ", .T., 700, nSize ) 
  
    InkeyGui(5 * 1000 ) 
  
    WaitWindow( "!!!!!!!!!!!!!!!!!!!!", .T. ) 
  
    InkeyGui(5 * 1000 ) 
  
    SetProperty(cForm, "Message" , "Value", "@@@@@@@@@@@@@@@") 
  
    InkeyGui(5 * 1000 ) 
  
    WaitWindow() 
  
    InkeyGui( 1000 ) 
  
    // Второй тест - массив 
    cForm := WaitWindow( {"... Запуск программы "+cNam+" ... ", ; 
                          "Тестируем массив в окне. Строка 1" , ; 
                          "Тестируем массив в окне. Строка 2"}, .T., 700, nSize ) 
  
    SET WINDOW THIS TO cForm 
  
    This.Message.FontColor := BLUE 
    This.Message.FontBold  := .T. 
  
    InkeyGui(5 * 1000 ) 
  
    WaitWindow( {upper("... Запуск программы "+cNam+" ... "), ; 
                       "Замена строки 1 в окне. ****** 1 *" , ; 
                       "Замена строки 2 в окне. ###### 2 #"}, .T. ) 
  
    InkeyGui(5 * 1000 ) 
  
    WaitWindow("@@@@@@@@@@@@@@@@@@@@;********************;####################", .T.) 
  
    This.Message .Value := "@..................@" 
    This.Message2.Value := "*..................*" 
    This.Message3.Value := "#..................#" 
  
    SET WINDOW THIS TO 
  
    InkeyGui(5 * 1000 ) 
  
    WaitWindow() 
  
    InkeyGui( 1000 ) 
  
 RETURN Nil 
 

 
 *----------------------------------------------------------------------------------------------* 
 FUNCTION WaitWindow ( cMessage, lNoWait, nWidth, nSize, cFont, aFontColor, aBackColor, lNoCapt ) 
 *----------------------------------------------------------------------------------------------* 
    LOCAL cFormName := "_HMG_CHILDWAITWINDOW" 
    LOCAL lDefined := _IsWindowDefined( cFormName ) 
    LOCAL lIsModal 
    LOCAL lWidth := ( nWidth == NIL ) 
    LOCAL nHeight 
    LOCAL nY, nX, nW, nI, nK 
    LOCAL hFont, cTmp, nTmp, cLbl, nPos := 0 
  
    IF PCount() == 0 
  
       IF lDefined 
          nCtEfeito := 0 
          cDescEfeito := "" 
          DoMethod ( cFormName, "Release" ) 
       ENDIF 
  
    ELSE 
  
       hb_default( @lNoWait, .F. ) 
       hb_default( @cFont, _HMG_DefaultFontName ) 
  
       IF HB_ISCHAR( cMessage ) 
          IF CRLF $ cMessage 
             cMessage := hb_ATokens( cMessage, CRLF ) 
          ELSEIF ";" $ cMessage 
             cMessage := hb_ATokens( cMessage, ";" ) 
          ELSE 
             cMessage := { cMessage } 
          ENDIF 
       ELSEIF ! HB_ISARRAY( cMessage ) 
          cMessage := { cMessage } 
       ENDIF 
  
       nK := Len( cMessage ) 
  
       IF lDefined 
  
          IF lNoWait 
             FOR nI := 1 TO nK 
                cLbl := "Message" + iif( nI > 1, hb_ntos( nI ), "" ) 
                IF _IsControlDefined( cLbl, cFormName ) 
                   SetProperty( cFormName, cLbl, "Value", cValToChar( cMessage[ nI ] ) ) 
                ENDIF 
             NEXT 
          ENDIF 
  
       ELSE 
  
          IF     HB_ISLOGICAL( lNoCapt ) 
             nPos := iif( lNoCapt, 10, nPos ) 
          ELSEIF HB_ISNUMERIC( lNoCapt ) 
             nPos := iif( lNoCapt > 0, lNoCapt, nPos ) 
          ENDIF 
  
          lNoCapt  := !Empty( nPos ) 
  
          lIsModal := _HMG_IsModalActive 
  
          nTmp := 1 
          cTmp := cMessage[ nTmp ] 
          FOR nI := 1 TO nK 
             nTmp := iif( Len( cValToChar( cMessage[ nI ] ) ) > Len( cTmp ), nI, nTmp ) 
          NEXT 
          cTmp := cValToChar( cMessage[ nTmp ] ) 
  
          DEFAULT nSize := 10 
  
          nY := iif( IsVistaOrLater(), 4, 7 ) + nPos 
          nX := 12 
  
          hFont := InitFont( cFont, nSize ) 
          nHeight := GetTextHeight ( NIL, "A", hFont ) 
  
          IF lWidth 
             nWidth := GetTextWidth( NIL, cTmp, hFont ) + nX * 2 
             nWidth := Min( 2 * nWidth, 800 ) 
          ELSEIF Empty( nWidth ) .or. nWidth < 0 
             nWidth := GetTextWidth( NIL, cTmp+Replicate("A", 5), hFont ) + nX * 2 
          ENDIF 
  
          DeleteObject( hFont ) 
  
          nHeight += 8 
  
          IF lNoWait 
             _HMG_IsModalActive := .F. 
             IF lNoCapt 
                DEFINE WINDOW _HMG_CHILDWAITWINDOW CHILD ; 
                       CLIENTAREA Min( GetDesktopWidth(), nWidth ), nHeight * nK + nY * 2 ; 
                       NOSIZE NOSYSMENU NOCAPTION 
             ELSE 
                DEFINE WINDOW _HMG_CHILDWAITWINDOW CHILD ; 
                       CLIENTAREA Min( GetDesktopWidth(), nWidth ), nHeight * nK + nY * 2 
             ENDIF 
          ELSE 
             IF lNoCapt 
                DEFINE WINDOW _HMG_CHILDWAITWINDOW MODAL ; 
                       CLIENTAREA Min( GetDesktopWidth(), nWidth ), nHeight * nK + nY * 2 ; 
                       NOSIZE NOSYSMENU NOCAPTION 
             ELSE 
                DEFINE WINDOW _HMG_CHILDWAITWINDOW MODAL ; 
                       CLIENTAREA Min( GetDesktopWidth(), nWidth ), nHeight * nK + nY * 2 
             ENDIF 
          ENDIF 
  
          //SetProperty( cFormName, "Width", Min( 2 * nWidth, Min( GetDesktopWidth(), 800 ) ) ) 
          //SetProperty( cFormName, "Width", Min( GetDesktopWidth(), nWidth ) ) 
          //SetProperty( cFormName, "Height", nHeight * nK + nY * 2 + GetBorderHeight() ) 
  
          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 
  
          IF HB_ISARRAY( aBackColor ) 
             SetProperty( cFormName, "BackColor", aBackColor ) 
          ENDIF 
  
          nW := GetProperty( cFormName, "ClientWidth" ) - nX * 2 
  
          FOR nI := 1 TO nK 
             cLbl := "Message" + iif( nI > 1, hb_ntos( nI ), "" ) 
             @ nY, nX LABEL &( cLbl ) WIDTH nW HEIGHT nHeight ; 
                VALUE cValToChar( cMessage[ nI ] ) ; 
                FONT cFont SIZE nSize ; 
                FONTCOLOR aFontColor ; 
                CENTERALIGN TRANSPARENT 
             nY += nHeight 
          NEXT 
  
          IF lWidth .AND. GetProperty( cFormName, "Width" ) < 2 * nWidth 
             SetProperty( cFormName, "Message", "Value", "" ) 
             _DefineTimer( "Timer", cFormName, 100, {|| EfeitoLabel( cMessage[ 1 ] ) } ) 
          ENDIF 
  
          END WINDOW 
  
          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 
 

 
 /* 
  * 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 cFont := "Arial", nSize := 12 
  
    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 cFont, nSize 
  
    *-------------------------------- 
    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., 700, 12, NIL, YELLOW, RED, .T.) 
  //cForm := WaitWindow( "... Запуск программы "+cNam+" ... ", .T., 700, 12, NIL, YELLOW, RED, 20 ) 
  //cForm := WaitWindow( "... Запуск программы "+cNam+" ... ", .T., 700, 12, NIL, YELLOW, RED) 
  
    InkeyGui(5 * 1000 ) 
  
    WaitWindow( "!!!!!!!!!!!!!!!!!!!!;"+cNam, .T. )  // не работает 
  
    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, nSize := 16, aMsg 
    LOCAL nW := GetDesktopWidth() * 0.95 
  
    // Первый тест - строка 
    //nW := 0 
    aMsg := "... Запуск программы ...;"+hb_ProgName() 
    cForm := WaitWindow( aMsg, .T., nW, nSize, NIL, YELLOW, BLUE, .T. ) 
  //cForm := WaitWindow( aMsg, .T., nW, nSize, NIL, YELLOW, BLUE, 20  ) 
  //cForm := WaitWindow( aMsg, .T., nW, nSize, NIL, YELLOW, BLUE ) 
  
    InkeyGui(5 * 1000 ) 
  
    WaitWindow( "!!!!!!!!!!!!!!!!!!!!", .T. ) 
  
    InkeyGui(5 * 1000 ) 
  
    SetProperty(cForm, "Message" , "Value", "@@@@@@@@@@@@@@@") 
  
    InkeyGui(5 * 1000 ) 
  
    WaitWindow() 
  
    InkeyGui( 1000 ) 
  
    // Второй тест - массив 
    aMsg := {"... Запуск программы "+cNam+" ... ", ; 
             "Тестируем массив в окне. Строка 1" , ; 
             "Тестируем массив в окне. Строка 2"} 
  
    cForm := WaitWindow( aMsg, .T., 700, nSize, NIL, YELLOW, RED, .T. ) 
  //cForm := WaitWindow( aMsg, .T., 700, nSize, NIL, YELLOW, RED, 20  ) 
  //cForm := WaitWindow( aMsg, .T., 700, nSize, NIL, YELLOW, RED ) 
  
    SET WINDOW THIS TO cForm 
  
    This.Message.FontColor := BLUE 
    This.Message.FontBold  := .T. 
  
    InkeyGui(5 * 1000 ) 
  
    WaitWindow( {upper("... Запуск программы "+cNam+" ... "), ; 
                       "Замена строки 1 в окне. ****** 1 *" , ; 
                       "Замена строки 2 в окне. ###### 2 #"}, .T. ) 
  
    InkeyGui(5 * 1000 ) 
  
    WaitWindow("@@@@@@@@@@@@@@@@@@@@;********************;####################", .T.) 
  
    This.Message .Value := "@..................@" 
    This.Message2.Value := "*..................*" 
    This.Message3.Value := "#..................#" 
  
    SET WINDOW THIS TO 
  
    InkeyGui(5 * 1000 ) 
  
    WaitWindow() 
  
    InkeyGui( 1000 ) 
  
 RETURN Nil 
 

 
 /* 
  * 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 cFont := "Arial", nSize := 12 
  
    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 cFont, nSize 
  
    *-------------------------------- 
    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, y, x, w, h, n 
  
  //cForm := WaitWindow( "... Запуск программы "+cNam+" ... ", .T., 700, 12, NIL, YELLOW, RED, .T., GRAY ) 
    cForm := WaitWindow( "... Запуск программы "+cNam+" ... ", .T., 700, 12, NIL, YELLOW, RED,  20, GRAY ) 
  //cForm := WaitWindow( "... Запуск программы "+cNam+" ... ", .T., 700, 12, NIL, YELLOW, RED,    , GRAY ) 
  
    InkeyGui(5 * 1000 ) 
  
    WaitWindow( "!!!!!!!!!!!!!!!!!!!!;"+cNam, .T. )   
  
    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, nSize := 16, aMsg 
    LOCAL nW := GetDesktopWidth() * 0.95 
  
    // Первый тест - строка 
    //nW := 0 
    aMsg := "... Запуск программы ...;"+hb_ProgName() 
  //cForm := WaitWindow( aMsg, .T., nW, nSize, NIL, YELLOW, BLUE, .T., GRAY ) 
    cForm := WaitWindow( aMsg, .T., nW, nSize, NIL, YELLOW, BLUE,  20, GRAY ) 
  //cForm := WaitWindow( aMsg, .T., nW, nSize, NIL, YELLOW, BLUE,    , GRAY ) 
  
    InkeyGui(5 * 1000 ) 
  
    WaitWindow( "!!!!!!!!!!!!!!!!!!!!", .T. ) 
  
    InkeyGui(5 * 1000 ) 
  
    SetProperty(cForm, "Message" , "Value", "@@@@@@@@@@@@@@@") 
  
    InkeyGui(5 * 1000 ) 
  
    WaitWindow() 
  
    InkeyGui( 1000 ) 
  
    // Второй тест - массив 
    aMsg := {"... Запуск программы "+cNam+" ... ", ; 
             "Тестируем массив в окне. Строка 1" , ; 
             "Тестируем массив в окне. Строка 2"} 
  
  //cForm := WaitWindow( aMsg, .T., 700, nSize, NIL, YELLOW, RED, .T., GRAY ) 
    cForm := WaitWindow( aMsg, .T., 700, nSize, NIL, YELLOW, RED,  20, GRAY ) 
  //cForm := WaitWindow( aMsg, .T., 700, nSize, NIL, YELLOW, RED,    , GRAY ) 
  
    SET WINDOW THIS TO cForm 
  
    This.Message.FontColor := BLUE 
    This.Message.FontBold  := .T. 
  
    InkeyGui(5 * 1000 ) 
  
    WaitWindow( {upper("... Запуск программы "+cNam+" ... "), ; 
                       "Замена строки 1 в окне. ****** 1 *" , ; 
                       "Замена строки 2 в окне. ###### 2 #"}, .T. ) 
  
    InkeyGui(5 * 1000 ) 
  
    WaitWindow("@@@@@@@@@@@@@@@@@@@@;********************;####################", .T.) 
  
    This.Message .Value := "@..................@" 
    This.Message2.Value := "*..................*" 
    This.Message3.Value := "#..................#" 
  
    SET WINDOW THIS TO 
  
    InkeyGui(5 * 1000 ) 
  
    WaitWindow() 
  
    InkeyGui( 1000 ) 
  
 RETURN Nil 
 

 
 /* 
  * 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 cFont := "Arial", nSize := 12 
  
    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 cFont, nSize 
  
    *-------------------------------- 
    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, y, x, w, h, n 
  
  //cForm := WaitWindow( "... Запуск программы "+cNam+" ... ", .T., 700, 12, NIL, YELLOW, RED, .T., GREEN, 4 ) 
    cForm := WaitWindow( "... Запуск программы "+cNam+" ... ", .T., 700, 12, NIL, YELLOW, RED,  20, GREEN, 4 ) 
  //cForm := WaitWindow( "... Запуск программы "+cNam+" ... ", .T., 700, 12, NIL, YELLOW, RED,    , BLACK, 1 ) 
  
    InkeyGui(5 * 1000 ) 
  
    WaitWindow( "!!!!!!!!!!!!!!!!!!!!;"+cNam, .T. )   
  
    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, nSize := 16, aMsg, i, n, y, x, w, h 
    LOCAL nW := GetDesktopWidth() * 0.95 
  
    // Первый тест - строка 
    //nW := 0 
    aMsg := "... Запуск программы ...;"+hb_ProgName() 
  //cForm := WaitWindow( aMsg, .T., nW, nSize, NIL, YELLOW, BLUE, .T., GREEN, 4 ) 
    cForm := WaitWindow( aMsg, .T., nW, nSize, NIL, YELLOW, BLUE,  20, GREEN, 4 ) 
  //cForm := WaitWindow( aMsg, .T., nW, nSize, NIL, YELLOW, BLUE,    , BLACK, 1 ) 
  
    InkeyGui(5 * 1000 ) 
  
    WaitWindow( "!!!!!!!!!!!!!!!!!!!!", .T. ) 
  
    InkeyGui(5 * 1000 ) 
  
    SetProperty(cForm, "Message" , "Value", "@@@@@@@@@@@@@@@") 
  
    InkeyGui(5 * 1000 ) 
  
    WaitWindow() 
  
    InkeyGui( 1000 ) 
  
    // Второй тест - массив 
    aMsg := {"... Запуск программы "+cNam+" ... ", ; 
             "Тестируем массив в окне. Строка 1" , ; 
             "Тестируем массив в окне. Строка 2"} 
  
  //cForm := WaitWindow( aMsg, .T., 700, nSize, NIL, YELLOW, RED, .T., BLUE , 4 ) 
    cForm := WaitWindow( aMsg, .T., 700, nSize, NIL, YELLOW, RED,  20, BLUE , 4 ) 
  //cForm := WaitWindow( aMsg, .T., 700, nSize, NIL, YELLOW, RED,    , BLACK, 1 ) 
  
    SET WINDOW THIS TO cForm 
  
    h := 5 
    n := 10 
    This.Message.FontColor := BLUE 
    This.Message.FontBold  := .T. 
    This.Message3.Row := This.Message3.Row + h 
    ThisWindow.Height := ThisWindow.Height + h 
  
    y := This.Message2.Row + This.Message2.Height 
    x := This.Message2.Col 
    w := This.Message2.Width 
  
    @ y, x PROGRESSBAR Progress OF &(cForm) RANGE 0, n WIDTH w HEIGHT h 
  
    FOR i := 1 TO n 
        This.Progress.Value := This.Progress.Value + 1 
        IF InkeyGui(1 * 1000 ) == 27 
           EXIT 
        ENDIF 
    NEXT 
    IF i != n 
       This.Progress.Value := n 
    ENDIF 
    InkeyGui(3 * 1000 ) 
    This.Progress.Hide 
  
    WaitWindow( {upper("... Запуск программы "+cNam+" ... "), ; 
                       "Замена строки 1 в окне. ****** 1 *" , ; 
                       "Замена строки 2 в окне. ###### 2 #"}, .T. ) 
  
    InkeyGui(5 * 1000 ) 
  
    WaitWindow("@@@@@@@@@@@@@@@@@@@@;********************;####################", .T.) 
  
    This.Message .Value := "@..................@" 
    This.Message2.Value := "*..................*" 
    This.Message3.Value := "#..................#" 
  
    SET WINDOW THIS TO 
  
    InkeyGui(5 * 1000 ) 
  
    WaitWindow() 
  
    InkeyGui( 1000 ) 
  
 RETURN Nil 
 

 
 /* 
  * 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 cFont := "Arial", nSize := 12 
  
    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 cFont, nSize 
  
    *-------------------------------- 
    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, y, x, w, h, n 
  
  //cForm := WaitWindow( "... Запуск программы "+cNam+" ... ", .T., 700, 12, NIL, YELLOW, RED, .T., GREEN, 4 ) 
    cForm := WaitWindow( "... Запуск программы "+cNam+" ... ", .T., 700, 12, NIL, YELLOW, RED,  20, GREEN, 4 ) 
  //cForm := WaitWindow( "... Запуск программы "+cNam+" ... ", .T., 700, 12, NIL, YELLOW, RED,    , BLACK, 1 ) 
  
    InkeyGui(5 * 1000 ) 
  
    WaitWindow( "!!!!!!!!!!!!!!!!!!!!;"+cNam, .T. )  
  
    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, nSize := 16, aMsg, i, n, y, x, w, h, s 
    LOCAL nW := GetDesktopWidth() * 0.95 
  
    // Первый тест - строка 
    //nW := 0 
    aMsg := "... Запуск программы ...;"+hb_ProgName() 
  //cForm := WaitWindow( aMsg, .T., nW, nSize, NIL, YELLOW, BLUE, .T., GREEN, 4 ) 
    cForm := WaitWindow( aMsg, .T., nW, nSize, NIL, YELLOW, BLUE,  20, GREEN, 4 ) 
  //cForm := WaitWindow( aMsg, .T., nW, nSize, NIL, YELLOW, BLUE,    , BLACK, 1 ) 
  
    InkeyGui(5 * 1000 ) 
  
    WaitWindow( "!!!!!!!!!!!!!!!!!!!!", .T. ) 
  
    InkeyGui(5 * 1000 ) 
  
    SetProperty(cForm, "Message" , "Value", "@@@@@@@@@@@@@@@") 
  
    InkeyGui(5 * 1000 ) 
  
    WaitWindow() 
  
    InkeyGui( 1000 ) 
  
    // Второй тест - массив 
    aMsg := {"... Запуск программы "+cNam+" ... ", ; 
             "Тестируем массив в окне. Строка 1" , ; 
             "Тестируем массив в окне. Строка 2" , ; 
             "Тестируем массив в окне. Строка 3"} 
  
  //cForm := WaitWindow( aMsg, .T., 700, nSize, NIL, YELLOW, RED, .T., BLUE , 4 ) 
    cForm := WaitWindow( aMsg, .T., 700, nSize, NIL, YELLOW, RED,  20, BLUE , 4 ) 
  //cForm := WaitWindow( aMsg, .T., 700, nSize, NIL, YELLOW, RED,    , BLACK, 1 ) 
  
    SET WINDOW THIS TO cForm 
  
    h := 5 
    n := 10 
    This.Message.FontColor := BLUE 
    This.Message.FontBold  := .T. 
  
    This.Message3.Hide 
  
    s := Int( (This.Message2.Height - h )/2 ) 
    y := This.Message2.Row + This.Message2.Height + s 
    x := This.Message2.Col 
    w := This.Message2.Width 
    s := This.Message4.Value 
  
    @ y, x PROGRESSBAR Progress OF &(cForm) RANGE 0, n WIDTH w HEIGHT h 
  
    FOR i := 1 TO n 
        This.Message4.Value := cValToChar( This.Progress.Value ) 
        This.Progress.Value := This.Progress.Value + 1 
        IF InkeyGui(1 * 1000 ) == VK_ESCAPE 
           EXIT 
        ENDIF 
    NEXT 
    IF i != n 
       This.Progress.Value := n 
    ENDIF 
    This.Message4.Value := n 
    InkeyGui(1 * 1000 ) 
    This.Progress.Hide 
    This.Message3.Show 
    This.Message4.Value := s 
    InkeyGui(3 * 1000 ) 
  
    WaitWindow( {upper("... Запуск программы "+cNam+" ... "), ; 
                       "Замена строки 1 в окне. ****** 1 *" , ; 
                       "Замена строки 2 в окне. ###### 2 #" , ; 
                       "Замена строки 3 в окне. $$$$$$ 3 $"}, .T. ) 
  
    InkeyGui(5 * 1000 ) 
  
    WaitWindow("@@@@@@@@@@@@@@@@@@@@;********************;####################", .T.) 
  
    This.Message .Value := "@..................@" 
    This.Message2.Value := "*..................*" 
    This.Message3.Value := "#..................#" 
    This.Message4.Value := "$..................$" 
  
    SET WINDOW THIS TO 
  
    InkeyGui(5 * 1000 ) 
  
    WaitWindow() 
  
    InkeyGui( 1000 ) 
  
 RETURN Nil 
 

 
 *----------------------------------------------------------------------------------------------* 
 FUNCTION WaitWindow ( cMessage, lNoWait, nWidth, nSize, cFont, aFontColor, aBackColor, lNoCapt, aPenColor, nPen ) 
 *----------------------------------------------------------------------------------------------* 
    LOCAL cFormName := "_HMG_CHILDWAITWINDOW" 
    LOCAL lDefined := _IsWindowDefined( cFormName ) 
    LOCAL lIsModal 
    LOCAL lWidth := ( nWidth == NIL ) 
    LOCAL nHeight 
    LOCAL nY, nX, nW, nH, nI, nK 
    LOCAL hFont, cTmp, nTmp, cLbl, nPos := 0 
  
    IF PCount() == 0 
  
       IF lDefined 
          nCtEfeito := 0 
          cDescEfeito := "" 
          DoMethod ( cFormName, "Release" ) 
       ENDIF 
  
    ELSE 
  
       hb_default( @lNoWait, .F. ) 
       hb_default( @cFont, _HMG_DefaultFontName ) 
  
       IF HB_ISCHAR( cMessage ) 
          IF CRLF $ cMessage 
             cMessage := hb_ATokens( cMessage, CRLF ) 
          ELSEIF ";" $ cMessage 
             cMessage := hb_ATokens( cMessage, ";" ) 
          ELSE 
             cMessage := { cMessage } 
          ENDIF 
       ELSEIF ! HB_ISARRAY( cMessage ) 
          cMessage := { cMessage } 
       ENDIF 
  
       nK := Len( cMessage ) 
  
       IF lDefined 
  
          IF lNoWait 
             FOR nI := 1 TO nK 
                cLbl := "Message" + iif( nI > 1, hb_ntos( nI ), "" ) 
                IF _IsControlDefined( cLbl, cFormName ) 
                   SetProperty( cFormName, cLbl, "Value", cValToChar( cMessage[ nI ] ) ) 
                ENDIF 
             NEXT 
          ENDIF 
  
       ELSE 
  
          IF     HB_ISLOGICAL( lNoCapt ) 
             nPos := iif( lNoCapt, 10, nPos ) 
          ELSEIF HB_ISNUMERIC( lNoCapt ) 
             nPos := iif( lNoCapt > 0, lNoCapt, nPos ) 
          ENDIF 
  
          lNoCapt  := !Empty( nPos ) 
  
          lIsModal := _HMG_IsModalActive 
  
          nTmp := 1 
          cTmp := cMessage[ nTmp ] 
          FOR nI := 1 TO nK 
             nTmp := iif( Len( cValToChar( cMessage[ nI ] ) ) > Len( cTmp ), nI, nTmp ) 
          NEXT 
          cTmp := cValToChar( cMessage[ nTmp ] ) 
  
          DEFAULT nSize := 10 
  
          nY := iif( IsVistaOrLater(), 4, 7 ) + nPos 
          nX := 12 
  
          hFont := InitFont( cFont, nSize ) 
          nHeight := GetTextHeight ( NIL, "A", hFont ) 
  
          IF lWidth 
             nWidth := GetTextWidth( NIL, cTmp, hFont ) + nX * 2 
             nWidth := Min( 2 * nWidth, 800 ) 
          ELSEIF Empty( nWidth ) .or. nWidth < 0 
             nWidth := GetTextWidth( NIL, cTmp+Replicate("A", 5), hFont ) + nX * 2 
          ENDIF 
  
          DeleteObject( hFont ) 
  
          nHeight += 8 
  
          nW := Min( GetDesktopRealWidth(), nWidth ) 
          nH := nHeight * nK + nY * 2 
  
          IF lNoWait 
             _HMG_IsModalActive := .F. 
             IF lNoCapt 
                DEFINE WINDOW _HMG_CHILDWAITWINDOW CHILD CLIENTAREA nW, nH NOSIZE NOSYSMENU NOCAPTION 
             ELSE 
                nH -= GetTitleHeight() 
                DEFINE WINDOW _HMG_CHILDWAITWINDOW CHILD CLIENTAREA nW, nH 
             ENDIF 
          ELSE 
             IF lNoCapt 
                DEFINE WINDOW _HMG_CHILDWAITWINDOW MODAL CLIENTAREA nW, nH NOSIZE NOSYSMENU NOCAPTION 
             ELSE 
                nH -= GetTitleHeight() 
                DEFINE WINDOW _HMG_CHILDWAITWINDOW MODAL CLIENTAREA nW, nH 
             ENDIF 
          ENDIF 
  
          SetProperty( cFormName, "Title", "" ) 
          SetProperty( cFormName, "TitleBar", .F. ) 
          SetProperty( cFormName, "SysMenu", .F. ) 
  
          IF HB_ISARRAY( aBackColor ) 
             SetProperty( cFormName, "BackColor", aBackColor ) 
          ELSEIF hb_osIsWin10() 
             SetProperty( cFormName, "BackColor", nRGB2Arr( GetSysColor( COLOR_WINDOW ) ) ) 
          ENDIF 
  
          nW := GetProperty( cFormName, "ClientWidth" ) - nX * 2 
  
          FOR nI := 1 TO nK 
             cLbl := "Message" + iif( nI > 1, hb_ntos( nI ), "" ) 
             @ nY, nX LABEL &( cLbl ) WIDTH nW HEIGHT nHeight ; 
                VALUE cValToChar( cMessage[ nI ] ) ; 
                FONT cFont SIZE nSize ; 
                FONTCOLOR aFontColor ; 
                CENTERALIGN TRANSPARENT 
             nY += nHeight 
          NEXT 
  
          IF HB_ISARRAY( aPenColor ) 
             nPen := iif( Empty( nPen ), 2, nPen ) 
             nI := nPen - 1 
             nY := nX := nI 
             nH := ThisWindow.ClientHeight - nI 
             nW := ThisWindow.ClientWidth  - nI 
             DrawRect( cFormName, nY, nX, nH, nW, aPenColor, nPen ) 
          ENDIF 
  
          IF lWidth .AND. GetProperty( cFormName, "Width" ) < 2 * nWidth 
             SetProperty( cFormName, "Message", "Value", "" ) 
             _DefineTimer( "Timer", cFormName, 100, {|| EfeitoLabel( cMessage[ 1 ] ) } ) 
          ENDIF 
  
          END WINDOW 
  
          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