FiveTech Support Forums

#include "Ficewin.ch"
Function Main()
Define Window ownd from 0,0 to 200,200 pixel
@ 10,10 Button oBtn Prompt "Hello" size 60,20 pixel of ownd action Change(oBtn)
Activate window oWnd
Return Nil

Function Change(oBtn)
oBtn:cCaption := "Bye"
oBtn:Refresh()
Return nil

#include "Fivewin.ch"


FUNCTION MAIN()

    LOCAL oDlg

    LOCAL oBtn

    DEFINE DIALOG oDlg

    @ 3, 1 BUTTON oBtn;
           PROMPT "&Original";
           ACTION oBtn:SetText( "Changed" )

    ACTIVATE DIALOG oDlg;
             CENTER

    RETURN NIL