FiveTech Software tech support forums

Code: Select all  Expand view

#include "Fivewin.ch"


FUNCTION MAIN()

    LOCAL oDlg, oGet

    LOCAL cVar1 := ""
    LOCAL xVar2 := SPACE( 35 )

    LOCAL cPic

    DEFINE DIALOG oDlg

    @ 1, 1 COMBOBOX cVar1;
           ITEMS { "C", "N" };
           ON CHANGE ( IF( cVar1 = "C", ( xVar2 := SPACE( 35 ), cPic := REPLICATE( "X", 35 ) ), ),;
                       IF( cVar1 = "N", ( xVar2 := 0, cPic := "9999" ), ),;
                       oGet:cPicture := cPic,;
                       oGet:Refresh() )

    @ 3, 1 GET oGet VAR xVar2

    ACTIVATE DIALOG oDlg;
             CENTER

    RETURN NIL

April 2020
==========
* XIMAGE
- New DATA lMnuSave, allow hide menu options for save image
- Implemented styles 2007, 2010, 2013, 2015 for menu popup
- Added traduction Popup menu

* New: FUll support to easily build your PRGs from Microsoft free vscode. Just open
a PRG from FWH\samples and build it using Ctrl + Shift + B

* New: samples/photos.prg lets you take photos using the webcam. Thanks to many that
have contributed to it:

http://forums.fivetechsupport.com/viewt ... 79&start=0

* GET:
- New method Reset( uVal/bNewSetGet, [cPic] ) --> nil
Allows to reset the get with a new variable of a different data type
and optionally use a new picture.