FiveTech Software tech support forums

Code: Select all | Expand

#include <fivewin.ch>

//15-02-2025
//testcbx.prg
// EJEMPLO QUE REPRODUCE UN BUG FWH24.07+HARBOUR
// COMPILAR EN SAMPLES CON: BUILDH testcbx

FUNCTION Main()
   LOCAL cUser := space(10)
   LOCAL cName := space(50)
   LOCAL cEmpresa := "SysCtrl"
   LOCAL oDlg,oGet1,oGet2, oCbx, oBtn1, oBtn2
   LOCAL oBrush
   LOCAL lVal := .f.
   LOCAL oFont
   DEFINE BRUSH oBrush COLOR nRGB( 255, 255, 255 )
   DEFINE FONT oFont NAME "Tahoma" SIZE 0, -12  BOLD
   DEFINE DIALOG oDlg  SIZE 610, 330 brush oBrush
   oDlg:lTransparent := .t.
   oDlg:cTitle := "FiveWin Harbour 24.07"

   @ 10, 10 SAY "* Code user: " OF oDlg pixel
   @ 10, 90 GET oGet1 VAR cUser OF oDlg SIZE 60, 12 PICTURE "@!k" PIXEL

   @ 25, 10 SAY "* Name user: " OF oDlg pixel
   @ 25, 90 GET oGet2 VAR cName OF oDlg SIZE 60, 12 PICTURE "@!k" PIXEL

   @ 60, 10 SAY "* SELECCIONE UNA EMBRESA :" OF oDlg ;
      SIZE 100, 12 PIXEL FONT oFont COLOR CLR_BLUE
   @ 60, 120 COMBOBOX oCbx VAR cEmpresa SIZE 180,150 PIXEL OF oDlg UPDATE ;
      ITEMS {"Fivetech", "SysCtrl", "Otro"} ;
      COLOR "W+/BG" ;
      ON CHANGE MsgBeep() ;
      MESSAGE "Selecciona una empresa"

   @ 130, 70 BUTTON oBtn1 PROMPT "Aceptar"  SIZE 40, 12 OF oDlg ;
       ACTION ( lVal := .t. , oDlg:end() ) PIXEL

   @ 130, 120 BUTTON oBtn2 PROMPT "Cancelar" SIZE 40, 12 OF oDlg ;
       ACTION ( lVal := .f. , oDlg:end() ) CANCEL PIXEL

   oDlg:lhelpicon := .F.

   ACTIVATE DIALOG oDlg CENTERED
RETURN (.T.)

INIT PROCEDURE Setup()
   SkinButtons()
RETURN NIL