PC Toledo

Código: Selecionar todos

REQUEST HB_GT_HWGUI
REQUEST HB_GT_HWGUI_DEFAULT

FUNCTION Main( _par1 )

CreateWindow()

Código clipper compatível ta, ta, ta...
...

#include "hwgui.ch"

STATIC FUNCTION CreateWindow()

   LOCAL oWnd := gthwg_CreateMainWindow( "GT HwGUI Test" )

   MENU OF oWnd
      MENU TITLE "&File"
         MENUITEM "&New" ACTION hwg_MsgInfo( "New!" )
         SEPARATOR
         MENUITEM "&Exit" ACTION oWnd:Close()
      ENDMENU
      MENU TITLE "&Help"
         MENUITEM "&About" ACTION hwg_MsgInfo( hwg_version()+Chr(13)+Chr(10)+"gt: " + hb_gtVersion(),"About" )
      ENDMENU
   ENDMENU

   RETURN oWnd

FUNCTION gthwg_PaintCB( hDC, cFileName )

   LOCAL aBmpSize
   STATIC hImage, img_x1, img_y1, img_width, img_height

   IF Empty( hDC )
      IF Empty( cFileName )
         gthwg_paint_SetCallback()
         IF !Empty( hImage )
            hwg_Deleteobject( hImage )
            hImage := Nil
         ENDIF
      ELSE
         hImage := hwg_OpenImage( cFileName )
         IF !Empty( hImage )
            img_x1 := Int( hb_gtinfo( HB_GTI_SCREENWIDTH ) / MaxCol() ) * 50
            img_y1 := Int( hb_gtinfo( HB_GTI_SCREENHEIGHT ) / MaxRow() ) * 8
            aBmpSize  := hwg_Getbitmapsize( hImage )
            img_width := aBmpSize[ 1 ]
            img_height := aBmpSize[ 2 ]
            gthwg_paint_SetCallback( "GTHWG_PAINTCB" )
            hwg_Invalidaterect( hb_gtinfo(HB_GTI_WINHANDLE), 0 )
         ENDIF
      ENDIF
   ELSEIF !Empty( hImage )
      hwg_Drawbitmap( hDC, hImage,, img_x1, img_y1, img_width, img_height )
   ENDIF

   RETURN Nil

Código: Selecionar todos

#include "hwgui.ch"

#define MSG_USER_SIZE  0x502

#ifdef __GTK__
FUNCTION HB_GT_CGI
   RETURN Nil

FUNCTION HB_GT_CGI_DEFAULT
   RETURN Nil
#else
FUNCTION HB_GT_GUI
   RETURN Nil

FUNCTION HB_GT_GUI_DEFAULT
   RETURN Nil

FUNCTION HB_GT_WIN
   RETURN Nil

FUNCTION HB_GT_WIN_DEFAULT
   RETURN Nil
#endif