FiveTech Support Forums

FUNCTION GDIP_DRAWARROW()
   RETURN NIL

FUNCTION GDIP_DELETEIMAGE()
   RETURN NIL

FUNCTION GDIP_DELETEBRUSH()
   RETURN NIL

FUNCTION GDIP_COLORBRUSH()
   RETURN NIL

FUNCTION GDIP_IMAGEBRUSH()
   RETURN NIL

FUNCTION GDIP_DRAWTEXT()
   RETURN NIL

FUNCTION GDIP_HOLLOWTEXT()
   RETURN NIL

FUNCTION GDIP_SAYIMAGE()
   RETURN NIL

FUNCTION GDIP_RINGGRAD()
   RETURN NIL

FUNCTION GDIP_CLONEIMAGE()
   RETURN NIL

FUNCTION GDIP_GETHBITMAP()
   RETURN NIL

FUNCTION GDIP_FROMHBITMAP()
   RETURN NIL

FUNCTION GDIP_FROMRESOURCE()
   RETURN NIL

FUNCTION GDIP_IMAGEFROMFILE()
   RETURN NIL

FUNCTION GDIP_IMAGEFROMSTR()
   RETURN NIL

FUNCTION GDIP_IMAGEINFO()
   RETURN NIL

FUNCTION GDIP_ZOOM()
   RETURN NIL

FUNCTION GDIP_NEWALPHABMP()
   RETURN NIL

FUNCTION GDIP_SAVEIMAGE()
   RETURN NIL

FUNCTION GDIP_IMG2BLOB()
   RETURN NIL

FUNCTION GDIP_CROP()
   RETURN NIL

FUNCTION GDIP_ROTATE()
   RETURN NIL

FUNCTION GDIP_DRAWSHAPES()
   RETURN NIL

FUNCTION GDIP_FILLRECT()
   RETURN NIL

FUNCTION GDIP_GRAD()
   RETURN NIL

FUNCTION GDIP_PIE()
   RETURN NIL

FUNCTION GDIP_RATIO()
   RETURN NIL

FUNCTION GDIP_DRAWIMAGE()
   RETURN NIL

FUNCTION GDIP_FONTSTYLE()
   RETURN NIL

FUNCTION GDIPMESURETXT()
   RETURN NIL

FUNCTION GDIPLUSCAPTURERECTWND()
   RETURN NIL

FUNCTION GDIPLUSIMGTOIMG24()
   RETURN NIL

FUNCTION GDIPLUSIMAGECREATETHUMB()
   RETURN NIL

FUNCTION GDIPLUSIMAGETOCLIPBOARD()
   RETURN NIL

FUNCTION GDIPLUSHBITMAPTOCLIPBOARD()
   RETURN NIL

FUNCTION GDIPLUSHIGHQUALITY()
   RETURN NIL

FUNCTION GDIPLUSNORMALQUALITY()
   RETURN NIL

FUNCTION GDIPLUSDRAWLINE()
   RETURN NIL

FUNCTION GDIPLUSDRAWRECT()
   RETURN NIL

FUNCTION GDIPLUSDRAWELLIPSE()
   RETURN NIL

FUNCTION GDIPLUSDRAWARC()
   RETURN NIL

FUNCTION GDIPLUSDRAWPATH()
   RETURN NIL

FUNCTION GDIPLUSFILLPATH()
   RETURN NIL

FUNCTION GDIPLUSCLEARCOLOR()
   RETURN NIL

FUNCTION GDIPLUSDRAWTEXT()
   RETURN NIL

FUNCTION GDIPLUSSETSMOOTHINGGRAPHICS()
   RETURN NIL

FUNCTION GDIPLUSGRAPHTRASLATETRANSFORM()
   RETURN NIL

FUNCTION GDIPLUSGRAPHROTATETRANSFORM()
   RETURN NIL

FUNCTION GDIPLUSGRAPHSCALE()
   RETURN NIL

FUNCTION GDIPLUSNEWGRAPHICS()
   RETURN NIL

FUNCTION SETPAGEUNIT2PIXEL()
   RETURN NIL

FUNCTION GDIPLUSNEWGRAPHICSWND()
   RETURN NIL

FUNCTION GDIPLUSNEWGRAPHICSIMG()
   RETURN NIL

FUNCTION GDIPLUSGRAPHICSFROMIMG()
   RETURN NIL

FUNCTION GDIPLUSDELETEGRAPHICS()
   RETURN NIL

FUNCTION GDIPLUSDRAWIMAGE()
   RETURN NIL

FUNCTION GDIPLUSDRAWTEXTFONT()
   RETURN NIL

FUNCTION GDIPLUSDRAWTEXTLF()
   RETURN NIL

FUNCTION GDIPLUSISINREGION()
   RETURN NIL

FUNCTION GDIPLUSCREATEREGIONFROMGPATH()
   RETURN NIL

FUNCTION GDIPLUSDELETEPEN()
   RETURN NIL

FUNCTION GDIPLUSPENSETCLR()
   RETURN NIL

FUNCTION GDIPLUSALIGN()
   RETURN NIL

FUNCTION GDIPLUSPENSETLINEJOIN()
   RETURN NIL

FUNCTION GDIPLUSNOALIGN()
   RETURN NIL

FUNCTION GDIPLUSPENSIZE()
   RETURN NIL

FUNCTION GDIPLUSNEWPEN()
   RETURN NIL

FUNCTION GDIPLUSPENSTYLE()
   RETURN NIL

FUNCTION GDIPLUSNEWSOLIDBRUSH()
   RETURN NIL

FUNCTION GDIPLUSDELETEBRUSH()
   RETURN NIL

FUNCTION GDIPLUSNEWGRADIENTBRUSH()
   RETURN NIL

FUNCTION GDIPLUSANGLEGRADIENTBRUSH()
   RETURN NIL

FUNCTION GDIPLUSSTARTUP()
   RETURN NIL

FUNCTION GDIPLUSSHUTDOWN()
   RETURN NIL

FUNCTION GDIPLUSPATHADDARC()
   RETURN NIL

FUNCTION GDIPLUSPATHADDELLIPSE()
   RETURN NIL

FUNCTION GDIPLUSPATHADDLINE()
   RETURN NIL

FUNCTION GDIPLUSPATHADDRECTANGLE()
   RETURN NIL

FUNCTION GDIPLUSPATHCLOSEFIGURE()
   RETURN NIL

FUNCTION GDIPLUSPATHSTARTFIGURE()
   RETURN NIL

FUNCTION GDIPLUSROTATEPATH()
   RETURN NIL

FUNCTION GDIPLUSROTATECENTERPATH()
   RETURN NIL

FUNCTION GDIPLUSSCALEPATH()
   RETURN NIL

FUNCTION GDIPLUSTRANSLATEPATH()
   RETURN NIL

FUNCTION GDIPLUSCREATEPATH()
   RETURN NIL

FUNCTION GDIPLUSPATHADDSTRING()
   RETURN NIL

FUNCTION GDIPLUSDELETEPATH()
   RETURN NIL

FUNCTION GDIPLUSCREATEIMAGEFROMRES()
   RETURN NIL

FUNCTION GDIPLUSIMAGEMATRIXTOGRAY()
   RETURN NIL

FUNCTION GDIPLUSIMAGEPIXGETALPHA()
   RETURN NIL

FUNCTION GDIPLUSIMAGEPIXGETBLUE()
   RETURN NIL

FUNCTION GDIPLUSIMAGEGETPIXCOLOR()
   RETURN NIL

FUNCTION GDIPLUSPIXISCOLOR()
   RETURN NIL

FUNCTION GDIPLUSCREATEHBITMAPIMAGE()
   RETURN NIL

FUNCTION GDIPLUSIMAGEPIXGETGREEN()
   RETURN NIL

FUNCTION GDIPLUSGETHEIGHTBITMAP()
   RETURN NIL

FUNCTION GDIPLUSIMAGEPIXGETRED()
   RETURN NIL

FUNCTION GDIPLUSGETWIDTHBITMAP()
   RETURN NIL

FUNCTION GDIPLUSIMAGEIS32BITS()
   RETURN NIL

FUNCTION GDIPLUSIMAGEROTATEANGLE()
   RETURN NIL

FUNCTION GDIPLUSIMAGELOADPNGFROMSTR()
   RETURN NIL

FUNCTION GDIPLUSIMAGEROTATEFLIP()
   RETURN NIL

FUNCTION GDIPLUSIMAGESET32BITS()
   RETURN NIL

FUNCTION GDIPLUSIMAGESETPIXCOLOR()
   RETURN NIL

FUNCTION GDIPLUSIMAGEPIXTOGRAYCOLOR()
   RETURN NIL

FUNCTION GDIPLUSIMAGEMATRIXCUSTOM()
   RETURN NIL

FUNCTION GDIPLUSIMAGESETPIXHCOLOR()
   RETURN NIL

FUNCTION GDIPLUSPIXELCOLORTOALPHA()
   RETURN NIL

FUNCTION GDIPLUSIMAGESCALE()
   RETURN NIL

FUNCTION GDIPLUSIMAGELOADPNGFROMRESOURCES()
   RETURN NIL

FUNCTION GDIPLUSIMAGELOADCACHEDFILE()
   RETURN NIL

FUNCTION GDIPLUSIMAGESAVEQUALITY()
   RETURN NIL

FUNCTION GDIPLUSIMAGESAVE()
   RETURN NIL

FUNCTION GDIPLUSIMAGEDISPOSE()
   RETURN NIL

FUNCTION GDIPLUSIMAGERESIZE()
   RETURN NIL

FUNCTION GDIPLUSEMFTOJPG()
   RETURN NIL

FUNCTION GDIPLUSIMAGECROP()
   RETURN NIL

FUNCTION GDIPLUSEMFTOBMP()
   RETURN NIL

FUNCTION GDIPLUSLOADDIRECTIMAGE()
   RETURN NIL

FUNCTION GDIPLUSIMGGETFRAMECOUNT()
   RETURN NIL

FUNCTION GDIPLUSIMGGETFRAME()
   RETURN NIL

FUNCTION GDIPLUSBMPEMPTY()
   RETURN NIL

#pragma BEGINDUMP

#include <Windows.h>

#undef SetWindowLongPtr

long int SetWindowLongPtr( HWND hWnd, int nIndex, long int dwNewLong )
{
   return SetWindowLong( hWnd, nIndex, ( LONG_PTR ) dwNewLong );
}

#pragma ENDDUMP

function GPF() 

   hb_memoWrit( "gpf.log", cCallStack( CRLF, 1 ) )

return nil

#pragma BEGINDUMP

#include <Windows.h>
#include <hbapi.h>
#include <hbvm.h>

#undef SetWindowLongPtr

LONG WINAPI GPFHandler( PEXCEPTION_POINTERS exceptionInfo ) 
{
   hb_vmPushSymbol( hb_dynsymSymbol( hb_dynsymFindName( "GPF" ) ) );
   hb_vmPushNil();
   hb_vmDo( 0 );

   return EXCEPTION_EXECUTE_HANDLER; // Maneja la excepción y termina
}

unsigned int SetWindowLongPtr( HWND hWnd, int nIndex, long int dwNewLong )
{
   SetUnhandledExceptionFilter( GPFHandler );

   return SetWindowLong( hWnd, nIndex, ( LONG_PTR ) dwNewLong );
}

#pragma ENDDUMP

#include "FiveWin.ch"

function Main()

local oBar

SET _3DLOOK ON

DEFINE WINDOW oWnd TITLE "MDIChilds from resources" MDI
oWnd:Maximize()
oWnd:Show()

DEFINE BUTTONBAR oBar _3D OF oWnd

DEFINE BUTTON OF oBar // ACTION child() //( Child(), MsgInfo( oWnd:oWndClient:aWnd[ 1 ]:cCaption ) )

ACTIVATE WINDOW oWnd maximized ;
   ON INIT ( MSGINFO("On Init") ) // Added

return nil

// C:\FWH\SAMPLES\MDISHOW.PRG

#include "FiveWin.ch"

STATIC oWnd, oWndChild

FUNCTION Main()

   LOCAL oBar, oChild, oSalida

   SET _3DLOOK ON

   DEFINE WINDOW oWnd TITLE "MDIChilds from resources" MDI

   DEFINE BUTTONBAR oBar BUTTONSIZE 50, 50 _3DLOOK TOP OF oWnd 2015

   DEFINE BUTTON oChild OF OBAR PROMPT "Child()"                             ;
      MESSAGE "Child"                                                        ;
      ACTION( Child() )                                                      ;
      TOOLTIP "Child()"                                                      ;
      NOBORDER GROUP

   DEFINE BUTTON oSalida OF OBAR PROMPT "Exit"                               ;
      MESSAGE "Salida"                                                       ;
      ACTION( oWnd:End() )                                                   ;
      TOOLTIP "Salida"                                                       ;
      NOBORDER GROUP

   ACTIVATE WINDOW oWnd MAXIMIZED ;
      ON INIT( oWnd:oMenu:End(), MsgInfo( "On Init" ) )

RETURN NIL

STATIC FUNCTION Child()

   LOCAL cTitle

   cTitle := ( oWnd:cCaption )

   DEFINE WINDOW oWndChild MDICHILD FROM 0, 0 TO 32, 100 OF oWnd TITLE cTitle

   ACTIVATE WINDOW oWndChild

RETURN NIL

// FIN / END

// C:\FWH\SAMPLES\RANDALL.PRG

#include "FiveWin.ch"

STATIC oWnd

FUNCTION Main()

   LOCAL oBar

   SET _3DLOOK ON

   DEFINE WINDOW oWnd TITLE "MDIChilds from resources" MDI

   // oWnd:Maximize() -> MAXIMIZED -> in ON INIT
   // oWnd:Show()     -> ok

   DEFINE BUTTONBAR oBar _3D OF oWnd

   DEFINE BUTTON OF oBar // ACTION child() //( Child(), MsgInfo( oWnd:oWndClient:aWnd[ 1 ]:cCaption ) )

   ACTIVATE WINDOW oWnd ; //MAXIMIZED ; // OR:
      ON INIT( oWnd:Maximize(), oWnd:Show(), MsgInfo( "On Init" ) ) // Added

RETURN NIL

// FIN / END