* New: 'Get Text Width Test' sample. 
            Based upon a contribution at official HMG forum. 
            Adapted for Minigui Extended by Grigory Filatov <gfilatov@inbox.ru> 
            (see in folder \samples\Basic\GetTextWidth)

FUNCTION GetTxtWidth( cText, nFontSize, cFontName, lBold )  // получить Width текста 
    LOCAL hFont, nWidth 
    DEFAULT cText     := REPL('A', 2)        ,  ; 
            cFontName := _HMG_DefaultFontName,  ;   // из MiniGUI.Init() 
            nFontSize := _HMG_DefaultFontSize,  ;   // из MiniGUI.Init() 
            lBold     := .F. 
  
    IF Valtype(cText) == 'N' 
       cText := repl('A', cText) 
    ENDIF 
  
    hFont  := InitFont(cFontName, nFontSize, lBold) 
    nWidth := GetTextWidth(0, cText, hFont)         // ширина текста 
    DeleteObject (hFont) 
  
    RETURN nWidth 
  
 FUNCTION GetTxtHeight( cText, nFontSize, cFontName, lBold )  // получить Height текста 
    LOCAL hFont, nHeight 
    DEFAULT cText     := "B"                 ,  ; 
            cFontName := _HMG_DefaultFontName,  ;   // из MiniGUI.Init() 
            nFontSize := _HMG_DefaultFontSize,  ;   // из MiniGUI.Init() 
            lBold     := .F. 
  
    hFont := InitFont( cFontName, nFontSize, lBold ) 
    nHeight := GetTextHeight( 0, cText , hFont )    // высота шрифта 
    DeleteObject( hFont ) 
  
    RETURN nHeight

 
 /* my ch */ 
  
 #xtranslate IsFile( <f> )   =>  hb_FileExists( <f> ) 
  
 FUNCTION GetTxtWidth( cText, nFontSize, cFontName, lBold )  // получить Width текста  
    LOCAL hFont, nWidth  
    DEFAULT cText     := REPL('A', 2)        ,  ;  
            cFontName := _HMG_DefaultFontName,  ;   // из MiniGUI.Init()  
            nFontSize := _HMG_DefaultFontSize,  ;   // из MiniGUI.Init()  
            lBold     := .F.  
   
    IF Valtype(cText) == 'N'  
       cText := repl('A', cText)  
    ENDIF  
   
    hFont  := InitFont(cFontName, nFontSize, lBold)  
    nWidth := GetTextWidth(0, cText, hFont)         // ширина текста  
    DeleteObject (hFont)  
   
    RETURN nWidth  
   
 FUNCTION GetTxtHeight( cText, nFontSize, cFontName, lBold )  // получить Height текста  
    LOCAL hFont, nHeight  
    DEFAULT cText     := "B"                 ,  ;  
            cFontName := _HMG_DefaultFontName,  ;   // из MiniGUI.Init()  
            nFontSize := _HMG_DefaultFontSize,  ;   // из MiniGUI.Init()  
            lBold     := .F.  
   
    hFont := InitFont( cFontName, nFontSize, lBold )  
    nHeight := GetTextHeight( 0, cText , hFont )    // высота шрифта  
    DeleteObject( hFont )  
   
    RETURN nHeight 
 

 
    @ aWin[1], aWin[2] LABEL Label_2 PARENT &cForm WIDTH aWin[3] HEIGHT nHLbl VALUE "text defect" ; 
        SIZE 14 BOLD FONTCOLOR BLACK BACKCOLOR RED 
     .... 
     FORM_MyDefect(cForm,aTabWin,aBClr,aFont) 
 .... 
 FUNCTION FORM_MyDefect() 
 ... 
    DEFINE TAB Tab_ZDef OF &cForm                            ; 
    ..... 
             @ nRow1, nCol LABEL Label_3 ....  // этот LABEL-3 показывается без PARENT &cForm

 
    DEFINE TAB Tab_ZDef OF &cForm                            ; 
       AT nTabRow, nTabCol WIDTH nTabWidth HEIGHT nTabHeight ; 
       VALUE nPgValue BACKCOLOR aTabBColor                   ; 
       FONT cPgFont SIZE nPgFSize BOLD                       ; 
       HOTTRACK HTFORECOLOR BLACK HTINACTIVECOLOR GRAY 

 
 HB_FUNC( INSERTVKEY ) 
 { 
    if( hb_parni( 2 ) != NULL ) 
    { 
       keybd_event 
       ( 
          ( BYTE ) hb_parni( 2 ),  // virtual-key code 
          0,                       // hardware scan code 
          0,                       // flags specifying various function options 
          0                        // additional data associated with keystroke 
       ); 
    } 
  
    if( hb_parni( 1 ) != NULL ) 
    { 
       keybd_event 
       ( 
          ( BYTE ) hb_parni( 1 ),     // virtual-key code 
          0, 
          0, 
          0 
       ); 
    } 
  
    if( hb_parni( 2 ) != NULL ) 
    { 
       keybd_event 
       ( 
          ( BYTE ) hb_parni( 2 ),  // virtual-key code 
          0,                       // hardware scan code 
          KEYEVENTF_KEYUP,         // flags specifying various function options 
          0                        // additional data associated with keystroke 
       ); 
    } 
 } 
 для использования с VK_MENU, VK_SHIFT, VK_CONTROL клавишами 
 InsertVKey( , VK_MENU)  // активация строки main menu 
 InsertVKey(VK_V, VK_CONTROL) // Ctrl+V 
 ... 
 

 
 #pragma BEGINDUMP 
  
 #include <windows.h> 
 #include <hbapi.h> 
 #include <shlobj.h> 
  
 HB_FUNC( SHELLEXECUTEEX ) 
 { 
    SHELLEXECUTEINFO SHExecInfo; 
    ZeroMemory(&SHExecInfo, sizeof(SHExecInfo)); 
  
    SHExecInfo.cbSize = sizeof(SHExecInfo); 
    SHExecInfo.fMask  = SEE_MASK_NOCLOSEPROCESS; 
    SHExecInfo.hwnd      = HB_ISNIL( 1 ) ? GetActiveWindow() : (HWND) hb_parnl( 1 ); 
    SHExecInfo.lpVerb = (LPCSTR) hb_parc( 2 ); 
    SHExecInfo.lpFile = (LPCSTR) hb_parc( 3 ); 
    SHExecInfo.lpParameters = (LPCSTR) hb_parc( 4 ); 
    SHExecInfo.lpDirectory  = (LPCSTR) hb_parc( 5 ); 
    SHExecInfo.nShow  = hb_parni( 6 ); 
  
    if( ShellExecuteEx(&SHExecInfo) ) 
       hb_retnl( (LONG) SHExecInfo.hProcess ); 
    else 
       hb_retnl( NULL ); 
 } 
  
 HB_FUNC( TERMINATEPROCESS ) 
 { 
    hb_retl( (BOOL) TerminateProcess( (HANDLE) hb_parnl( 1 ), 0 ) ); 
 } 
  
 #pragma ENDDUMP 
 

 
 *-----------------------------------------------------------------------------* 
 FUNCTION _ExecuteEx( hWnd , cOperation , cFile , cParameters , cDirectory , nState ) 
 *-----------------------------------------------------------------------------* 
  
 RETURN ShellExecuteEx( hb_defaultValue( hWnd, GetActiveWindow() ) , ; 
    cOperation /* possible values are 'edit', 'explore', 'find', 'open', 'print' */ , ; 
    hb_defaultValue( cFile, "" ) , cParameters , cDirectory , hb_defaultValue( nState, SW_SHOWNORMAL ) )