FiveTech Support Forums

HOLA

Viendo en la carpetita de samples encontre el archivo de las tabs
testtabs.prg

y quisiera usarlas pero no entiendo como pongo el ACTION para cada pestañita en el ejemplo solo sale un ACTION

como siempre aqui dandoles latita

Saluditos y que tengan una bonita semana

Aida

function Main()

local oTabs

DEFINE WINDOW oWnd TITLE "Testing FiveWin Tabs" ;
FROM 3, 3 TO 14, 30 ;
COLOR CLR_BLACK, GetSysColor( COLOR_BTNFACE )

@ 8, 0 TABS oTabs PROMPTS "&One", "&Two", "T&hree", "&Four" OF oWnd ;
ACTION oWnd:Say( 5, 5, oTabs:nOption )

oWnd:oBottom = oTabs

ACTIVATE WINDOW oWnd

return nil

aida,

Define dialog...
@ 8, 0 TABS oTabs PROMPTS "&One", "&Two", "T&hree", "&Four" OF oWnd ACTION opcion()
Activate dialog...

funct opcion
do case
case oTabs:nOption=1 ; msginfo('primera opcion')
case oTabs:nOption=2 ; msginfo('segunda opcion')
case oTabs:nOption=3 ; msginfo('tercera opcion')
case oTabs:nOption=4 ; msginfo('cuarta opcion')
endcase
return

AIDA wrote:HOLA

Viendo en la carpetita de samples encontre el archivo de las tabs
testtabs.prg

y quisiera usarlas pero no entiendo como pongo el ACTION para cada pestañita en el ejemplo solo sale un ACTION

como siempre aqui dandoles latita

Saluditos y que tengan una bonita semana

Aida



function Main()

local oTabs

DEFINE WINDOW oWnd TITLE "Testing FiveWin Tabs" ;
FROM 3, 3 TO 14, 30 ;
COLOR CLR_BLACK, GetSysColor( COLOR_BTNFACE )

@ 8, 0 TABS oTabs PROMPTS "&One", "&Two", "T&hree", "&Four" OF oWnd ;
ACTION oWnd:Say( 5, 5, oTabs:nOption )

oWnd:oBottom = oTabs

ACTIVATE WINDOW oWnd

return nil

Yo las uso para cambiar el orden de la DBF de un browse:

@ 465,14 TABS oTabs OF oAlumne01 ITEMS "Ordre Natural", "Codi Alumne", ;
"Cognoms", "Nom Alumne", "Família", "Domiciliació", "Curs", "Data Històric" ;
ACTION (oTdbfAlumne:SetIndex( oTabs:nOption + If(oTabs:nOption == 1, -1, 1 ) ), ;
oWBrowse:Refresh() ) PIXEL COLORS J02CLRTEXTO,J02CLRFONDO SIZE 453,16 MESSAGE ;
"Estableix l'ordre de la llista" //FIVEWIDI


Saludos
Carlos G.

Gracias Loren

Gracias FiveWiDi

Les agradesco su amable ayuda ahora si ya le entendi

Gracias por sus valiosa ayuda

Saluditos

Aida