/* 
  * MINIGUI - Harbour Win32 GUI library Demo 
 */ 
 #include "minigui.ch" 
 Function Main 
  Define Window Test ; 
   At 0,0 ; 
   Width 400 ; 
   Height 180 ; 
   Title "Test" ; 
   Main ; 
   Nomaximize ; 
   Define Button Button_1 
    Row 10 
    Col 40 
    Caption 'Test' 
    Height iif( LargeFonts(), 32, 28 ) 
    Action MsgInfo ( LargeFonts(), "Is Used The Large Fonts?" ) 
   End Button 
   On Key ESCAPE Action ThisWindow.Release 
  End Window 
  Test.Center 
  Activate Window Test 
 Return Nil 
 FUNCTION LargeFonts()  
 LOCAL hDC, nPixelX  
 hDC := CreateDC( "DISPLAY", "", "" ) 
 nPixelX := GetDevCaps( hDC ) 
 DeleteDC( hDc ) 
 RETURN (nPixelX == 120) 
 #pragma BEGINDUMP 
 #include <windows.h> 
 #include "hbapi.h" 
 HB_FUNC( CREATEDC ) 
 { 
    hb_retnl( ( LONG ) CreateDC( hb_parc( 1 ), hb_parc( 2 ), hb_parc( 3 ), 0 ) ); 
 } 
 HB_FUNC( DELETEDC ) 
 { 
    hb_retl( DeleteDC( ( HDC ) hb_parnl( 1 ) ) ); 
 } 
 HB_FUNC ( GETDEVCAPS ) 
 { 
  INT      ix; 
  HDC      hdc; 
  hdc = ( HDC ) hb_parnl( 1 ); 
      
  ix  = GetDeviceCaps( hdc, LOGPIXELSX );  
     
  hb_retni( (UINT) ix ); 
 } 
 #pragma ENDDUMP