FiveTech Software tech support forums

Code: Select all

//TestActg.prg
#include "FiveWin.ch"

Function Main()

   Local oDlg, oGet, oIcon, ;
         cVar  := Space( 10 )
   
   SetBalloon( .T. ) 
   DEFINE ICON oIcon RESOURCE "test"
   DEFINE DIALOG oDlg RESOURCE "Test" ICON oIcon

   REDEFINE GET oGet VAR cVar ID 101 ACTION msginfo( "Action" ) ;
            BITMAP "help"

   oGet:bKeyDown := { |nKey| If( nKey == VK_F2, Eval( oGet:bAction ), Nil ) }
   oGet:cToolTip := "Presiona F2"

   ACTIVATE DIALOG oDlg CENTERED

Return Nil
 

Code: Select all

#include "..\include\winapi.ch"

#ifdef __FLAT__
   1 24 ".\winxp\WindowsXP.Manifest"
#endif

#ifdef __64__
   1 24 "WinXP/WindowsXP.Manifest64"
#endif 

test ICON "..\icons\fivewin.ico"
help BITMAP "..\bitmaps\helpsmal.bmp"

TEST DIALOG 61, 39, 194, 119
STYLE DS_MODALFRAME | 0x4L | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU
CAPTION "Testing Action Gets"
FONT 8, "Tahoma"
{
 EDITTEXT 101, 44, 25, 106, 15, WS_BORDER | WS_TABSTOP
 DEFPUSHBUTTON "OK", IDOK, 42, 96, 50, 14
 PUSHBUTTON "Cancel", IDCANCEL, 102, 96, 50, 14
}