Help! no entiendo como funcionan las pestañitas TABS ?

Help! no entiendo como funcionan las pestañitas TABS ?

Postby AIDA » Tue Apr 29, 2008 12:45 am

HOLA :D

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 :oops:

Saluditos y que tengan una bonita semana :wink:

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
Que es mejor que programar? creo que nada :)
Atropellada pero aqui ando :P

I love Fivewin

séʌǝɹ ןɐ ɐʇsǝ opunɯ ǝʇsǝ
User avatar
AIDA
 
Posts: 879
Joined: Fri Jan 12, 2007 8:35 pm

Postby Loren » Tue Apr 29, 2008 7:09 am

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
Loren
 
Posts: 479
Joined: Fri Feb 16, 2007 10:29 am
Location: Cadiz - España

Re: Help! no entiendo como funcionan las pestañitas TABS ?

Postby FiveWiDi » Tue Apr 29, 2008 11:23 am

AIDA wrote:HOLA :D

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 :oops:

Saluditos y que tengan una bonita semana :wink:

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.
FiveWiDi
 
Posts: 1200
Joined: Mon Oct 10, 2005 2:38 pm

HOLA

Postby AIDA » Tue Apr 29, 2008 5:03 pm

Gracias Loren

Gracias FiveWiDi


Les agradesco su amable ayuda ahora si ya le entendi :D


Gracias por sus valiosa ayuda :)

Saluditos

Aida :wink:
Que es mejor que programar? creo que nada :)
Atropellada pero aqui ando :P

I love Fivewin

séʌǝɹ ןɐ ɐʇsǝ opunɯ ǝʇsǝ
User avatar
AIDA
 
Posts: 879
Joined: Fri Jan 12, 2007 8:35 pm


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 36 guests