Click above to get retro games delivered to your door ever month!

// FiveWin - VBX Visual Basic controls management tutorial

#include "FiveWin.ch"

static oWnd

//----------------------------------------------------------------------------//

function Main()

   local oVbx
   local cTemp

   DEFINE WINDOW oWnd TITLE "Using VBXs with FiveWin"

   @ 3, 10 VBX oVbx SIZE 200, 100 ;
      FILENAME "Circ3.vbx" CLASS "Circle3" ;
      ON CLICKIN  MsgBeep() ;  // Write here any ON <Event> <Action>
      ON CLICKOUT MsgBeep()   // the VBX supports.
                                          // FiveWin automatically recognizes
                                          // any ON ... you define dynamically !

   @ 3, 42 BUTTON "&As Circle" SIZE 80, 23 ;
      ACTION oVbx:CircleShape := 0

   @ 6, 42 BUTTON "&As Oval" SIZE 80, 23 ;
      ACTION oVbx:CircleShape := 1

   @ 9, 42 BUTTON "&Color" SIZE 80, 23 ;
      ACTION oVbx:BackColor := ChooseColor( oVbx:BackColor )

   @ 12, 42 BUTTON "&Caption" SIZE 80, 23 ;
      ACTION ( cTemp := PadR( oVbx:Caption, 20 ),;
               If( MsgGet( "Please, type in", "oVbx Caption",;
               @cTemp ), oVbx:Caption := AllTrim( cTemp ),) )

   ACTIVATE WINDOW oWnd

return nil

//----------------------------------------------------------------------------//