HB_FUNC( UNITSTOPIXELSX ){ 
  
    int   UnitsX = hb_parnl(1); 
    DWORD dwDLU  = GetDialogBaseUnits(); 
    
    int cx       = MulDiv( UnitsX,  LOWORD( dwDLU ), 4); 
  
    hb_retnl( cx ); 
 } 
  
 HB_FUNC( UNITSTOPIXELSY ){ 
  
    int   UnitsY = hb_parnl(1); 
    DWORD dwDLU  = GetDialogBaseUnits(); 
    
    int cy       = MulDiv( UnitsY,  HIWORD( dwDLU ), 8); 
  
    hb_retnl( cy ); 
 } 
 

 
 // --- Настроечные константы --- 
 #include "minigui.ch" 
 #include "hbclass.ch" 
  
 CLASS Sets 
  VAR oHK             // Объект для работы с HotKey   
  VAR oCargo          // Эта переменная в Sets ни как не контролируется  
  VAR xID             // Идентификатор  
  VAR oAppCfg         // Для cIni{}  настроек по всей программе 
 * ------------ Отступы контролов на форме 
  VAR nMrgLeft 
  VAR nMrgTop 
  VAR nMrgRight 
  VAR nMrgBottom 
 * ------------ Кнопки ------------- 
  VAR nBtnWidth       // Ширина кнопки 
  VAR nBtnWidth15     // Ширина кнопки полуторная 
  VAR nBtnWidth20     // Ширина кнопки двойная 
  VAR nBtnHeight      // Высота кнопки 
  VAR nBtnGapsW       // Растояние между кнопками по горизонтали    
  VAR nBtnGapsH       // Растояние между кнопками по вертикали    
  
 * ------------ Поле ввода  ------------- 
  VAR nGetWidth05     // Ширина поля ввода для текста 
  VAR nGetWidth       // Ширина поля ввода для текста 
  VAR nGetWidth15     // Ширина поля ввода для текста полуторная 
  VAR nGetWidth20     // Ширина поля ввода для текста двойная 
  VAR nGetWidth25     // Ширина поля ввода для текста двойная 
  VAR nGetWidth30     // Ширина поля ввода для текста двойная 
  VAR nGetWidth35     // Ширина поля ввода для текста 
  VAR nGetWidth40     // Ширина поля ввода для текста 
  
  
  VAR nGetWidthN6     // Ширина поля ввода для чисел размером 6 цифр 
  VAR nGetWidthN12    // Ширина поля ввода для чисел размером 12 цифр 
  VAR nGetWidthDT     // Ширина поля ввода для дат 
  VAR nGetWidthDT1    // Ширина поля ввода для дат для варианта с календарём 
  VAR nGetWidthDT2    // Ширина поля ввода для дат для варианта с календарём и кнопкой 
  
  
  
  VAR nGetHeight      // Высота поля ввода по умолчанию 
  VAR nGetHeight20    // Высота поля ввода по умолчанию  для 2х строк одновременно 
  VAR nGetGapsW       // Растояние между поля ввода по горизонтали    
  VAR nGetGapsH       // Растояние между поля ввода по вертикали    
  
  
  VAR nChbWidth       //  
  VAR nChbHeight      //  
  VAR nChbGapsW       //  
  VAR nChbGapsH       //  
  
  VAR nChbWidth15     //  
  VAR nChbWidth20     //  
  
  
  
  VAR cFontName       // Имя фонта по умолчанию базовое 
  VAR nDefFontSize    // Задаваемый размер по умолчанию 
  
  VAR nFontHeight     // Высота символа  по умолчанию базовое   
  VAR nFontWidth      // Ширина одного символа  по умолчанию базовое   
  
  
  
 _METHOD New()  
 _METHOD UnitsDefault()       // Поставить все параметры в DLU 
 _METHOD UnitsToPixels()      // Всё пересчитать на пикселы 
 _METHOD FontDefault() 
 _METHOD DLU2PixH( nHeight ) 
 _METHOD DLU2PixW( nWidth  ) 
 _METHOD TextWidth( cText ) 
 _METHOD SetCfg( cCfg )       // Установить файл конфигурации 
  
  
 // Все 3 метода возвращают  - только -   Pix  
 _METHOD W( uW, cText)        // Получить по GET 
 _METHOD G( cW )              // Получить промежутки между GET по горизонтали 'W' и вертикали 'H' 
 _METHOD M( cM )              // Получить отступы между контролами  
                              //   'L' - левый  
                              //   'T' - верхний 
                              //   'R' - правый 
                              //   'B' - нижний 
 _METHOD H( cH )              // Высота контрола 
                                                               
 ENDCLASS 
  
 METHOD New()                                CLASS Sets 
  
  ::oHK := hmgHotKey():New() 
  
  Self:SetCfg() 
   
 RETURN SELF 
  
 METHOD SetCfg( cCfg )                       CLASS Sets 
 LOCAL cExe, cCt, cFont:="Arial", nHFont:=9 
  
  IF ! ValType(cCfg)=='C'    // Определим по умолчанию : Текущий каталог + "HBK\INI" - имя как программа  
     cExe := ExeName() 
     cExe := subs( cExe, RAt('\', cExe) + 1) 
   
     cCt  := DiskName(0) + ':\' + CurDir() + "\HBK\INI\" 
     cCfg := cCt + Left(cExe, Len(cExe)-3) + 'cfg'  
  ENDIF  
  
  ::oAppCfg := cIni():New( cCfg, [COMMON] ) 
  
  
 // Сдесь можно прочитать из внешнего источника имя и размер 
 //  SELF:FontDefault( 13, GetTextFace() ) // 9, 'Arial' ) 
  
  cFont  :=      ::oAppCfg:Get("FontName", cFont) 
  nHFont := Val( ::oAppCfg:Get("FontSize", hb_NToS(nHFont)) ) 
  
  SELF:FontDefault( nHFont, cFont) 
  
  SELF:UnitsDefault() 
  
  SELF:UnitsToPixels() 
  
 RETURN NIL 
  
 METHOD W( uW, cText )                       CLASS Sets 
 LOCAL c, n, t 
    
   IF     ValType( uW )=='N'    ;  c := StrZero(uW,2) 
   ELSEIF ValType( uW )=='C'    ;  c := uW 
   ELSEIF ( t := ValType( cText ) ) $ 'CN' 
  
          IF t == "N"; cText := repl("A", cText) 
          ENDIF 
           
          n := Self:TextWidth( cText ) 
  
          IF     n <= ::nGetWidth05 ; RETURN ::nGetWidth05  
          ELSEIF n <= ::nGetWidth   ; RETURN ::nGetWidth 
          ELSEIF n <= ::nGetWidth15 ; RETURN ::nGetWidth15 
          ELSEIF n <= ::nGetWidth20 ; RETURN ::nGetWidth20 
          ELSEIF n <= ::nGetWidth25 ; RETURN ::nGetWidth25 
          ELSEIF n <= ::nGetWidth30 ; RETURN ::nGetWidth30 
          ELSEIF n <= ::nGetWidth35 ; RETURN ::nGetWidth35 
          ELSEIF n <= ::nGetWidth40 ; RETURN ::nGetWidth40 
          ENDIF 
  
          RETURN  ::nGetWidth40 
   ELSE 
          RETURN  ::nGetWidth 
   ENDIF 
  
   IF     c=='05' ; RETURN ::nGetWidth05  
   ELSEIF c=='10' ; RETURN ::nGetWidth 
   ELSEIF c=='15' ; RETURN ::nGetWidth15 
   ELSEIF c=='20' ; RETURN ::nGetWidth20 
   ELSEIF c=='25' ; RETURN ::nGetWidth25 
   ELSEIF c=='30' ; RETURN ::nGetWidth30 
   ELSEIF c=='35' ; RETURN ::nGetWidth35 
   ELSEIF c=='40' ; RETURN ::nGetWidth40 
   ELSEIF c=='D1' ; RETURN ::nGetWidthDT1 
   ELSEIF c=='D2' ; RETURN ::nGetWidthDT2 
   ENDIF 
  
 RETURN ::nGetWidth 
  
 METHOD G( cG )                              CLASS Sets 
 //! Промежутки для Get  
   
  IF ValType(cG)!='C' ; RETURN 0 
  ENDIF  
  
  IF     cG=='H1'  ; RETURN Int( ::nGetGapsH   )                        // Целая 
  ELSEIF cG=='H2'  ; RETURN Int( ::nGetGapsH/2 )                        // Половинка  
  ELSEIF cG=='H3'  ; RETURN Int( ::nGetGapsH/3 )                        // 1/3 
  ELSEIF cG=='H23' ; RETURN Int( ::nGetGapsH ) - Int( ::nGetGapsH/3 )   // 2/3 
  ELSEIF cG=='H'   ; RETURN Int( ::nGetGapsH   )                        // Целая 
  
  ELSEIF cG=='W1'  ; RETURN Int( ::nGetGapsW   )                        // Целая 
  ELSEIF cG=='W2'  ; RETURN Int( ::nGetGapsW/2 )                        // Половинка  
  ELSEIF cG=='W3'  ; RETURN Int( ::nGetGapsW/3 )                        // 1/3 
  ELSEIF cG=='W23' ; RETURN Int( ::nGetGapsW ) - Int( ::nGetGapsW/3 )   // 2/3 
  ELSEIF cG=='W'   ; RETURN Int( ::nGetGapsW   )                        // Целая 
  
  ENDIF 
  
 RETURN 0  
  
 METHOD M( cM )                              CLASS Sets 
 //! Отступы 
  
  IF ValType(cM)!='C' ; RETURN 0 
  ENDIF  
  
  IF     cM=='L1'  ; RETURN Int( ::nMrgLeft   )                         // Целая 
  ELSEIF cM=='L2'  ; RETURN Int( ::nMrgLeft/2 )                         // Половинка  
  ELSEIF cM=='L3'  ; RETURN Int( ::nMrgLeft/3 )                         // 1/3 
  ELSEIF cM=='L23' ; RETURN Int( ::nMrgLeft ) - Int( ::nMrgLeft/3 )     // 2/3 
  ELSEIF cM=='L'   ; RETURN Int( ::nMrgLeft   )                         // Целая 
  
  ELSEIF cM=='T1'  ; RETURN Int( ::nMrgTop   )                          // Целая 
  ELSEIF cM=='T2'  ; RETURN Int( ::nMrgTop/2 )                          // Половинка  
  ELSEIF cM=='T3'  ; RETURN Int( ::nMrgTop/3 )                          // 1/3 
  ELSEIF cM=='T23' ; RETURN Int( ::nMrgTop ) - Int( ::nMrgTop/3 )       // 2/3 
  ELSEIF cM=='T'   ; RETURN Int( ::nMrgTop   )                          // Целая 
  
  ELSEIF cM=='R1'  ; RETURN Int( ::nMrgRight   )                        // Целая 
  ELSEIF cM=='R2'  ; RETURN Int( ::nMrgRight/2 )                        // Половинка  
  ELSEIF cM=='R3'  ; RETURN Int( ::nMrgRight/3 )                        // 1/3 
  ELSEIF cM=='R23' ; RETURN Int( ::nMrgRight ) - Int( ::nMrgRight/3 )   // 2/3 
  ELSEIF cM=='R'   ; RETURN Int( ::nMrgRight   )                        // Целая 
  
  ELSEIF cM=='B1'  ; RETURN Int( ::nMrgBottom   )                       // Целая 
  ELSEIF cM=='B2'  ; RETURN Int( ::nMrgBottom/2 )                       // Половинка  
  ELSEIF cM=='B3'  ; RETURN Int( ::nMrgBottom/3 )                       // 1/3 
  ELSEIF cM=='B23' ; RETURN Int( ::nMrgBottom ) - Int( ::nMrgBottom/3 ) // 2/3 
  ELSEIF cM=='B'   ; RETURN Int( ::nMrgBottom   )                       // Целая 
  
  ENDIF 
  
 RETURN 0  
  
 METHOD H( cH )                              CLASS Sets 
 //! Высота контрола для Get,Btn,Chb  
   
  IF ValType(cH)!='C' ; RETURN ::nGetHeight 
  ENDIF  
  
  IF     cH=='G'  ; RETURN Int( ::nGetHeight   )                        // Целая 
  ELSEIF cH=='G2' ; RETURN Int( ::nGetHeight20 )                        // Половинка  
  ELSEIF cH=='B'  ; RETURN Int( ::nBtnHeight   )                        // 1/3 
  ELSEIF cH=='C'  ; RETURN Int( ::nChbHeight   )  
  ENDIF 
  
 RETURN ::nGetHeight  
  
  
  
 METHOD UnitsDefault()                       CLASS Sets 
 //! Все размеры в DLU :    LONG WINAPI GetDialogBaseUnits(void); 
 //! Затем переводим в Pixels  UnitsToPixelsX(), UnitsToPixelsY() 
 //! Аналогично работают шаблоны из диалоговых ресурсов от  MS 
 //! Этот механизм учитывает текущую настройку экрана  PC у пользователя. 
  
 * ------ Отступы от края формы 
  ::nMrgLeft     := 7  
  ::nMrgTop      := 7 
  ::nMrgRight    := 7 
  ::nMrgBottom   := 7 
  
  
 * ----- Командная кнопка 
  ::nBtnWidth    := 50     // Ширина кнопки по умолчанию 
  ::nBtnHeight   := 14     // Высота кнопки по умолчанию 
  ::nBtnGapsW    :=  4     // Растояние между кнопками по горизонтали    
  ::nBtnGapsH    :=  4     // Растояние между кнопками по вертикали    
  
  ::nBtnWidth15  := ::nBtnWidth + int(::nBtnWidth/2)  // Полуторная ширина 
  ::nBtnWidth20  := ::nBtnWidth + ::nBtnWidth         // Двойная ширина 
  
 * -----  Поля ввода ------ 
  ::nGetWidth    := 50     // Ширина полями ввода по умолчанию 
  ::nGetHeight   := 14     // Высота полями ввода по умолчанию 
  ::nGetHeight20 := 24     // Высота полями ввода по умолчанию  для 2х строк 
  
  ::nGetGapsW    :=  4     // Растояние между полями ввода по горизонтали    
  ::nGetGapsH    :=  4     // Растояние между полями ввода по вертикали    
  
  ::nGetWidth05  := 25 
  ::nGetWidth15  := ::nGetWidth   + ::nGetWidth05   // int(::nGetWidth/2)   // Полуторная ширина 
  ::nGetWidth20  := ::nGetWidth   + ::nGetWidth     // Двойная ширина 
  ::nGetWidth25  := ::nGetWidth20 + ::nGetWidth05 
  ::nGetWidth30  := ::nGetWidth20 + ::nGetWidth 
  ::nGetWidth35  := ::nGetWidth20 + ::nGetWidth15 
  ::nGetWidth40  := ::nGetWidth20 + ::nGetWidth20 
  
  ::nGetWidthN6  := 25     // Ширина поля ввода для чисел из 6 цифр 
  ::nGetWidthN12 := 50     // Ширина поля ввода для чисел из 12 цифр 
  ::nGetWidthDT  := 50     // Ширина поля ввода для дат 
  ::nGetWidthDT1 := 60     // Ширина поля ввода для дат  50 * 1.2 
  ::nGetWidthDT2 := 75     // Ширина поля ввода для дат  50 * 1.3 
  
  
 * ----- CheckBox  
  ::nChbWidth    := 50     // Ширина галочки по умолчанию просто не меняем 
  ::nChbHeight   := 10     // Высота галочки по умолчанию 
  ::nChbGapsW    :=  4     // Растояние между кнопками по горизонтали   это как нужно 
  ::nChbGapsH    :=  4     // Растояние между галочками по вертикали  и может быть 3 от Label    
  
  ::nChbWidth15  := ::nChbWidth + int(::nChbWidth/2)  // Полуторная ширина 
  ::nChbWidth20  := ::nChbWidth + ::nChbWidth         // Двойная ширина 
  
 RETURN .T. 
  
 METHOD DLU2PixH( nHeight )                  CLASS Sets 
 RETURN Round( (UnitsToPixelsY( nHeight ) * 13)/15, 0) 
  
 METHOD DLU2PixW( nWidth )                   CLASS Sets 
 RETURN Round( (UnitsToPixelsX( nWidth ) * 13)/15,  0) 
  
  
  
 METHOD UnitsToPixels()                      CLASS Sets 
  
 * ------ Отступы для контролов от края формы 
  ::nMrgLeft      := Self:DLU2PixW( ::nMrgLeft      ) 
  ::nMrgTop       := Self:DLU2PixH( ::nMrgTop       ) 
  ::nMrgRight     := Self:DLU2PixW( ::nMrgRight     ) 
  ::nMrgBottom    := Self:DLU2PixH( ::nMrgBottom    ) 
  
 * ------  Размеры кнопок 
  ::nBtnWidth     := Self:DLU2PixW( ::nBtnWidth     )  
  ::nBtnHeight    := Self:DLU2PixH( ::nBtnHeight    ) 
  
  ::nBtnGapsW     := Self:DLU2PixW( ::nBtnGapsW     ) 
  ::nBtnGapsH     := Self:DLU2PixH( ::nBtnGapsH     ) 
  
  ::nBtnWidth15   := Self:DLU2PixW( ::nBtnWidth15   ) 
  ::nBtnWidth20   := Self:DLU2PixW( ::nBtnWidth20   ) 
  
 * ----- Размеры для полей ввода 
  
  ::nGetWidth     := Self:DLU2PixW( ::nGetWidth     )  
  ::nGetHeight    := Self:DLU2PixH( ::nGetHeight    ) 
  ::nGetHeight20  := Self:DLU2PixH( ::nGetHeight20  ) 
  
  ::nGetGapsW     := Self:DLU2PixW( ::nGetGapsW     ) 
  ::nGetGapsH     := Self:DLU2PixH( ::nGetGapsH     ) 
  
  ::nGetWidth05   := Self:DLU2PixW( ::nGetWidth05   ) 
  ::nGetWidth15   := Self:DLU2PixW( ::nGetWidth15   ) 
  ::nGetWidth20   := Self:DLU2PixW( ::nGetWidth20   ) 
  ::nGetWidth25   := Self:DLU2PixW( ::nGetWidth25   ) 
  ::nGetWidth30   := Self:DLU2PixW( ::nGetWidth30   ) 
  ::nGetWidth35   := Self:DLU2PixW( ::nGetWidth35   ) 
  ::nGetWidth40   := Self:DLU2PixW( ::nGetWidth40   ) 
  
  
  ::nGetWidthN6   := Self:DLU2PixW( ::nGetWidthN6   )  
  ::nGetWidthN12  := Self:DLU2PixW( ::nGetWidthN12  )  
  ::nGetWidthDT   := Self:DLU2PixW( ::nGetWidthDT   )  
  ::nGetWidthDT1  := Self:DLU2PixW( ::nGetWidthDT1  )  
  ::nGetWidthDT2  := Self:DLU2PixW( ::nGetWidthDT2  )  
  
 * ------- Размеры для Галочек  
  
  ::nChbWidth    := Self:DLU2PixW( ::nChbWidth      ) 
  ::nChbHeight   := Self:DLU2PixH( ::nChbHeight     ) 
  ::nChbGapsW    := Self:DLU2PixW( ::nChbGapsW      ) 
  ::nChbGapsH    := Self:DLU2PixH( ::nChbGapsH      ) 
  
  ::nChbWidth15  := Self:DLU2PixW( ::nChbWidth15    ) 
  ::nChbWidth20  := Self:DLU2PixW( ::nChbWidth20    ) 
  
 RETURN .T. 
  
 METHOD FontDefault( nHeight, cFont, cChar ) CLASS  Sets  
 //! nHeight - размер фонта по умолчанию 
 LOCAL n:=30, cTx, hFont 
  
  cChar          := iif(ValType(cChar)=='C', cChar, 'A') 
  
  ::cFontName    := cFont 
  ::nDefFontSize := nHeight 
   
  cTx            := Repl(cChar, n) 
  
  hFont          := InitFont(::cFontName, ::nDefFontSize)  // C_Font.c  функция 
  
  ::nFontHeight  := GetTextHeight( 0, cTx, hFont) 
  ::nFontWidth   := GetTextWidth(  0, cTx, hFont)/n 
   
  DeleteObject ( hFont )                                   // Чистим   
  
  
 // MsgBox( GetTextFace() + Chr(10) + Str( GetSysTextHeight() ) + Chr(10) + Str( ::nFontHeight ) ) 
  
 RETURN .T. 
  
 METHOD TextWidth( cText )                   CLASS  Sets 
 LOCAL hFont, nWidth 
  
  hFont  := InitFont( ::cFontName, ::nDefFontSize)  // C_Font.c  функция 
  
  nWidth := GetTextWidth(  0, cText, hFont) 
   
  DeleteObject ( hFont )                            // Чистим   
  
 RETURN nWidth 
 

 
 oSets := Sets():New()              // Общие установки для размеров GUI 
 _HMG_DefaultFontName := oSets:cFontName      // 'Arial'   BAA 5-Май-2012 12:25:31 
 _HMG_DefaultFontSize := oSets:nDefFontSize   // 9         BAA 5-Май-2012 12:25:37 
 ... 
 далее в формах для Width и Height используются переменные из объекта, например nBtnHeight, nBtnWidth, nBtnWidth20, nGetWidth, nGetHeight,... смотри коментарии к переменным.  
 как-то так вот ... 
  
 

 
  oSets := Sets():New()                        // Общие установки для размеров GUI  
  _HMG_DefaultFontName := oSets:cFontName 
  _HMG_DefaultFontSize := oSets:nDefFontSize  
  ...  
  
   oSets:W(...)     - дает width  контролов 
   oSets:H(...)     - дает height контролов 
   oSets:G('W...')  - дает width  расстояния между контролами  
   oSets:G('H...')  - дает height расстояния между контролами  
   oSets:M(...)     - дает отступы Top,Right,Bottom,Left  
   детально см. текст класса 
   ... 
   y := nRow 
   x := nCol 
  
   DEFINE LABEL &(cLbl) 
          ROW    y 
          COL    x 
 //       WIDTH  oSets:W( , cCaption)        // подберет подходящий размер от текста 
 //       WIDTH  oSets:W( , len(cCaption))   // подберет подходящий размер от текста: 
                                             // repl('A', nLen)                                             
 //       WIDTH  oSets:W('05')               // 0.5     длины, или oSets:nGetWidth05 
 //       WIDTH  oSets:W('10')               // 1.0     длины, или oSets:nGetWidth10 
          WIDTH  oSets:W('20')               // двойная длина, или oSets:nGetWidth20 
          HEIGHT oSets:H()                   // высота       , или oSets:::nGetHeight 
          VALUE  cCaption  
   END LABEL 
  
   h := GetControlHandle(cLbl, cForm) 
   x += GetWihdowWidth(h)+oSets:G('W')       // ширина контрола+расстояние между конролами по width 
  
   DEFINE GETBOX &(cGet) 
          ROW y 
          COL x 
          WIDTH  oSets:W('40')               // 2 * двойная длина, или oSets:nGetWidth40 
          HEIGHT oSets:H()                   // высота       , или oSets:::nGetHeight 
          VALUE  cValue 
          IF ValType( cAction )=='C' 
             ACTION &cAction 
          ENDIF 
   END GETBOX 
  
   h := GetControlHandle(cGet, cForm) 
   y += GetWihdowHeight(h)+oSets:G('H')      // высота контрола+расстояние между конролами по height 
   x := nCol 
  
   BROWSE: 
   ROW     y 
   COL     x 
   ... 
   HEADERS { 'Code'       , 'First Name' , 'Last Name'  , ... } ; 
   WIDTHS  { oSets:W('10'), oSets:W('20'), oSets:W('15'), ... } ; 
   ... 
   или 
   WIDTHS  { oSets:W( , Max(hb_FieldLen(FieldPos('Code'))    , 'Поле Code')),       ; 
             oSets:W( , Max(hb_FieldLen(FieldPos('FirstName'), 'Поле First Name')), ; 
             oSets:W('15'), ... } ; 
  
 удобнее убрать DEFINE в функции или классы.