topic-16266

Board index FiveWin para Harbour/xHarbour ERROR WITH TSBUTTON WITH CLAUSE WHEN

Silvio

Posts: 3107

Joined: Fri Oct 07, 2005 06:28 PM

ERROR WITH TSBUTTON WITH CLAUSE WHEN
Posted: Fri Jul 31, 2009 03:30 PM

MANUEL,

When I use when clausole it make a strange error
I send you the test sample on your email

Code (fw): Select all Collapse

 DEFINE DIALOG oMenu FROM 100, 100 TO 350,708;
                 STYLE DS_MODALFRAME + WS_POPUPWINDOW + WS_VISIBLE + WS_DLGFRAME + 4;
                 TITLE cTitleTouch PIXEL

        @   0,0   SBUTTON obtnpop[1] OF  oMenu  SIZE 60, 50 PIXELS   ;
              SUNSET NOBOX  COLORS   CLR_WHITE, nRgb(128,128,255), nRgb(255,255,255) TEXT ON_BOTTOM;
              File ".\MENU\PRENOTA+.BMP"  PROMPT "SINGOLA" ;
               ACTION MSGINFO("PRENOTAZIONE SINGOLA")      WHEN oBtn:Cargo[1] = "LIBERO"

          @  0,61  SBUTTON obtnpop[2] OF  oMenu   SIZE 60, 50 PIXELS ;
               SUNSET NOBOX  COLORS   CLR_WHITE, nRgb(128,128,255), nRgb(255,255,255) TEXT ON_BOTTOM ;
              File ".\MENU\XP_PRENOTA.BMP" PROMPT "MULTI"  ;
               ACTION MSGINFO("PRENOTAZIONE MULTIPLA")  WHEN oBtn:Cargo[1] = "LIBERO"

         @   0,122  SBUTTON obtnpop[3] OF  oMenu   SIZE 60, 50 PIXELS  ;
              SUNSET NOBOX  COLORS  CLR_WHITE, nRgb(128,128,255), nRgb(255,255,255) TEXT ON_BOTTOM ;
              File ".\MENU\OKARR32.BMP"   PROMPT "ARRIVO CLIENTE"     WHEN oBtn:Cargo[1] = "LIBERO" .OR. oBtn:Cargo[1] = "PRENOTATO"

         @  0,183 SBUTTON obtnpop[4] OF  oMenu   SIZE 60, 50 PIXELS ;
              SUNSET NOBOX  COLORS  CLR_WHITE, nRgb(128,128,255), nRgb(255,255,255) TEXT ON_BOTTOM;
               PROMPT "GIORNALIERO"   File ".\MENU\CLOCK.BMP"  ;
              ACTION MSGINFO("GIORNALIERO")            WHEN oBtn:Cargo[1] = "LIBERO"

          @  0,244 SBUTTON obtnpop[5] OF  oMenu   SIZE 60, 50 PIXELS ;
              SUNSET NOBOX  COLORS  CLR_WHITE, nRgb(128,128,255), nRgb(255,255,255) TEXT ON_BOTTOM;
               PROMPT "VEDI PRENOTAZIONI"   File ".\MENU\PRENOTAZ.BMP" ;
                ACTION MSGINFO("SCHEDA")

           @  61,0 SBUTTON obtnpop[6] OF  oMenu   SIZE 60, 50 PIXELS ;
               SUNSET NOBOX  COLORS   CLR_WHITE, nRgb(128,128,255), nRgb(255,255,255) TEXT ON_BOTTOM;
               PROMPT "RICEVUTA"   File ".\MENU\RICEVUTA.BMP"          WHEN oBtn:Cargo[1] = "OCCUPATO"

          @  61,61  SBUTTON obtnpop[7] OF  oMenu   SIZE 60, 50 PIXELS ;
               SUNSET NOBOX  COLORS   CLR_WHITE, nRgb(128,128,255), nRgb(255,255,255) TEXT ON_BOTTOM ;
              File ".\MENU\NO.BMP" PROMPT "ANNULLA"         WHEN oBtn:Cargo[1] = "OCCUPATO"


           @   61,122  SBUTTON obtnpop[8] OF  oMenu   SIZE 60, 50 PIXELS ;
              SUNSET NOBOX  COLORS  CLR_WHITE, nRgb(128,128,255), nRgb(255,255,255) TEXT ON_BOTTOM ;
              File ".\MENU\XP_CASH.BMP"   PROMPT "CASSA BAR" WHEN oBtn:Cargo[1] = "OCCUPATO"

             @  61,183 SBUTTON obtnpop[9] OF  oMenu   SIZE 60, 50 PIXELS ;
              SUNSET NOBOX  COLORS  CLR_WHITE, nRgb(128,128,255), nRgb(255,255,255) TEXT ON_BOTTOM;
               PROMPT "CAMBIA"   File ".\MENU\XP_MOVE.BMP"    WHEN oBtn:Cargo[1] = "OCCUPATO"

          @  61,244 SBUTTON obtnpop[10] OF  oMenu   SIZE 60, 50 PIXELS ;
              SUNSET NOBOX  COLORS  CLR_WHITE, nRgb(128,128,255), nRgb(255,255,255) TEXT ON_BOTTOM;
               PROMPT "Chiudi"   File ".\MENU\XP_EXIT.BMP"

   ACTIVATE DIALOG oMenu CENTERED

Best Regards, Saludos

Falconi Silvio

mmercado

Posts: 782

Joined: Wed Dec 19, 2007 07:50 AM

Re: ERROR WITH TSBUTTON WITH CLAUSE WHEN
Posted: Fri Jul 31, 2009 05:41 PM

Hi Silvio:

Check your mail.

Regards.

Manuel Mercado

manuelmercado at prodigy dot net dot mx

Silvio

Posts: 3107

Joined: Fri Oct 07, 2005 06:28 PM

Re: ERROR WITH TSBUTTON WITH CLAUSE WHEN
Posted: Fri Jul 31, 2009 06:51 PM

NOT FOUND HB_FUN_HASALPHA' when I compile a program with the lib

when I made the lib not ask me this this function .

Best Regards, Saludos

Falconi Silvio

Daniel Garcia-Gil

Posts: 2365

Joined: Wed Nov 02, 2005 11:46 PM

Re: ERROR WITH TSBUTTON WITH CLAUSE WHEN
Posted: Fri Jul 31, 2009 07:37 PM

Silvio

HasAlpha() is a FWH's function

our best documentation is the source code
Isla de Margarita Venezuela.
danielgarciagil@gmail.com
http://tdolphin.blogspot.com/
https://www.dropbox.com/referrals/NTI5Njk4MDc1OQ?src=global9

Silvio

Posts: 3107

Joined: Fri Oct 07, 2005 06:28 PM

Re: ERROR WITH TSBUTTON WITH CLAUSE WHEN
Posted: Fri Jul 31, 2009 09:24 PM

thanks now run ok
but if before I have problem with disable buttons Now I problem with all my application because all buttons not run ok
see it please :

while before with old sbutton lib

I have the error when I use horizontal and vertical scroll s

I use tscrwnd class to create Horizontal and vertical scrolls

it is very strange ...............

Best Regards, Saludos

Falconi Silvio

FiveTech Support Forums

Continue the discussion