/* 
  * MINIGUI - Harbour Win32 GUI library Demo 
 */ 
 #define _HMG_OUTLOG 
  
 #include "hmg.ch" 
 #include "TSBrowse.ch" 
  
 /////////////////////////////////////////////////////////////////////////////// 
 FUNCTION Main() 
    LOCAL aGrOver, aBtn, aGrFill, aGrOverX, aGrFillX 
    LOCAL cLog := "_msg.log" 
  
    SET OOP ON 
  
    _SetGetLogFile(cLog) ; fErase(cLog)  
  
    // Button Colors 
    aGrOver  := { { 0.5, CLR_BLACK, CLR_VK     }, { 0.5, CLR_VK    , CLR_BLACK } } 
    aGrFill  := { { 0.5, CLR_VK   , CLR_WHITE  }, { 0.5, CLR_WHITE , CLR_VK    } } 
    aGrOverX := { { 0.5, CLR_RED  , CLR_HRED   }, { 0.5, CLR_HRED  , CLR_RED   } } 
    aGrFillX := { { 0.5, CLR_HRED , CLR_WHITE  }, { 0.5, CLR_WHITE , CLR_HRED  } } 
  
    aBtn := {} // 1.NameObj     2.Text                3.ExtFuncRun or CodeBlock                     4.Icons.5         6.Colors.7          8.HotKey     9.nFSize 
    AADD( aBtn, { "Btn_01", "1. Selection menu (pg)", {|p1,p2,p3,p4| MyTest(1,p1,p2,p3,p4)} , "iSantax1", "iSantax2", aGrOver , aGrFill , { VK_F1, 49 }, 0 } ) 
    AADD( aBtn, { "Btn_02", "2. Selection menu (pg)", {|           | MyTest(2)            } , "iFolder1", "iFolder2", aGrOver , aGrFill , { VK_F2, 50 }, 0 } ) 
    AADD( aBtn, { "Btn_03", "3. Selection menu (pg)", "MyTest(3)"                           , "iHPx1"   , "iHPx2"   , aGrOver , aGrFill , { VK_F3, 51 }, 0 } ) 
    AADD( aBtn, { "Btn_04", "4. Selection menu (pg)", "MyTest(4)"                           , "iHMGx1"  , "iHMGx2"  , aGrOver , aGrFill , { VK_F4, 52 }, 0 } ) 
    AADD( aBtn, { "Btn_05", "Exit programm"         , "MyExit(99)"                          , "iExitx1" , "iExitx2" , aGrOverX, aGrFillX,   VK_ESCAPE  , 0 } ) 
  
    ToAlertDim(aBtn)            
  
 RETURN NIL 
  
 ////////////////////////////////////////////////////// 
 FUNCTION MyTest( nPar, oWnd, nBtn, aSel, aBtn ) 
    MsgDebug( nPar, pCount(), Valtype(oWnd), Valtype(nBtn), Valtype(aSel), Valtype(aBtn) )  
 RETURN Nil 
  
 //////////////////////////////////////////////////////////////////////////// 
 FUNCTION ToAlertDim(aBtn) 
    LOCAL bOnInit, aColors, cText := "" 
  
    // for HMG_Alert() and AlertXXX() 
    DEFINE FONT DlgFont FONTNAME "DejaVu Sans Mono" SIZE 10    
    SET MSGALERT BACKCOLOR TO {248,209,211} 
    aColors := { { 210, 225, 240 }, { 210, 225, 240 } }  
  
    ?v aBtn 
    ? 
  
    cText := "" 
    AEval(Array(Len(aBtn)), {|a| a := repl("*", 50), cText += a + CRLF}) 
  
    bOnInit := {|| // свои параметры окна 
                   Local nW := System.DesktopWidth * 0.95 
                   Local ow := ThisWindow.Object 
                   Local oc, cv, nn, nL, nG := 10 
                   This.Width := nW  
                   This.Center 
                   nL := This.ClientWidth - This.Say_01.Col - nG 
                   ? "window Width", This.Width, ow:Width, nL 
                   ? 
                   ?v aBtn 
                   ? 
                   FOR EACH oc IN ow:GetObj4Type("LABEL") 
                       nn := hb_enumindex(oc) 
                       cv := hb_ntos(nn) + ". " + hb_valtoexp(aBtn[ nn ]) 
                       ? nn, oc:type, oc:name, oc:Width, cv 
                       oc:Width := nL 
                       oc:Value := cv 
                   NEXT 
                   This.Btn_01.Col := This.ClientWidth - This.Btn_01.Width - nG 
                   This.Btn_01.SetFocus 
                   Return Nil 
                } 
  
    //AlertInfo( Message, Title, Icon, nSize, aColors, lTopMost, bInit, lNoSound ) 
    AlertInfo(cText,'Menu Array', , ,aColors, .F. /*topmost*/, bOnInit, .T.) 
  
 RETURN cText