quien me da una idea de como hacer esto?

[jefe]

soy totalmente novato, hace tan sólo dos dias que he conseguido compilar.

Vereis quiero hacer esto.


AVENIDA MADRID

1 3 5 7 9 10 12 14 16
18 20 22 24 26 etc


RAMON Y CAJAL

2 4 6 8 10 12 14 16 etc


Bueno lo que quiero saber como hacer para que los numeros se puedan marcar o desmarcar pulsandolos con el ratón.

La visualización ya la he hecho, pero mucho me temo que no vale, Pongo el código

Code: Select all | Expand

#include "fivewin.ch"function main()local oDlglocal fila,col,cCalfila:=4col:=2cCal:=""   use bar2 alias hojaruta     // esto es una base de datos que contiene calles y portalesDEFINE dialog oDlg FROM 1, 1 TO 42, 100 ;      TITLE "Nuevo cliente" go topskip 1cCal=hojaruta->calle@2,2 say cCaldo while .not. eof()    @fila,col say hojaruta->portal      col=col+3     if col>40        fila=fila+1        col=2     endif          skip 1          if hojaruta->calle<>cCal        fila=fila+2        col=2        cCal=hojaruta->calle        @fila,2 say hojaruta->calle        fila=fila+2     endifenddoACTIVATE window oDlgreturn nil 

Gracias de antemano.

[jrestojeda]

Hola...
A que te refieres con marcar y desmarcar los números??

[jefe]

gracias por contestar, me refiero a que cuando pulses con el ratón sobre un número de portal este quede seleccionado y cuando lo vuelva a pulsar se desmarque.

por ejemplo


RAMON Y CAJAL

1 2 3 4 5 6 7 8 10 12


CUANDO PULSE el numero 10 que este se marque con otro color.

me imagino que se tiene que hacer con un array, pero como no se como convertir esos numeros a objetos para hacerlo.

Espero haberme explicado bien.

[jrestojeda]

Hola amigo...
Prueba lo siguiente:

Code: Select all | Expand

@ nRow,nCol SAY oSay // Donde oSay es el objeto asociado. 

Espero te sirva.

[Patricio Avalos Aguirre]

Hola

podrias usar los Say con lWantClick

Code: Select all | Expand

DEFINE CURSOR oCursor HANDREDEFINE SAY oSay[1] ID 201 OF oDlg PROMPT "1" COLOR CLR_BLUEREDEFINE SAY oSay[2] ID 202 OF oDlg PROMPT "2" COLOR CLR_BLUEaEval( oSay, { |x| x:lWantClick := .t., x:oCursor := oCursor, x:bLClicked := { || tufuncionaevaluar() } )

espero que te sirva..

[jefe]

gracias a los dos me pongo con ello, aver si soy capaz

un saludo.

[jefe]

Hola amigo...
Prueba lo siguiente:

Code: Select all | Expand

@ nRow,nCol SAY oSay // Donde oSay es el objeto asociado. 

Espero te sirva.

Hola

podrias usar los Say con lWantClick

Code: Select all | Expand

DEFINE CURSOR oCursor HANDREDEFINE SAY oSay[1] ID 201 OF oDlg PROMPT "1" COLOR CLR_BLUEREDEFINE SAY oSay[2] ID 202 OF oDlg PROMPT "2" COLOR CLR_BLUEaEval( oSay, { |x| x:lWantClick := .t., x:oCursor := oCursor, x:bLClicked := { || tufuncionaevaluar() } )

espero que te sirva..

Me podeis decir con que manuales habeis empezado, porque yo los que tengo dan por sentado muchas cosas y no me entero de nada.

[Daniel Garcia-Gil]

Saludos Jefe...

Es algo muy simple...
Recopilando un poco lo aqui expuesto

Code: Select all | Expand

   @ 20,20 say oSay prompt "Test" of oWnd pixel COLOR CLR_BLACK       oSay:bLClicked := {| nRow, nCol, nFlags, oSay | ;   if ( oSay:nClrText == CLR_BLACK, oSay:nClrText := CLR_YELLOW, oSay:nClrText := CLR_BLACK ), oSay:Refresh() }   oSay:lWantClick := .t.

[jefe]

Saludos Jefe...

Es algo muy simple...
Recopilando un poco lo aqui expuesto

Code: Select all | Expand

   @ 20,20 say oSay prompt "Test" of oWnd pixel COLOR CLR_BLACK       oSay:bLClicked := {| nRow, nCol, nFlags, oSay | ;   if ( oSay:nClrText == CLR_BLACK, oSay:nClrText := CLR_YELLOW, oSay:nClrText := CLR_BLACK ), oSay:Refresh() }   oSay:lWantClick := .t.

muchas gracias si funciona, pero ahora me tengo que empapar esto, ya que tendre que crear un array ya que en cada calle puede haber hasta 1000 portales.

de verdad muchas gracias, esque soy muy torpe y estoy aprendiendo sobre la marchas

[jrestojeda]

Me podeis decir con que manuales habeis empezado, porque yo los que tengo dan por sentado muchas cosas y no me entero de nada.

Podrías empezar mirando los samples de FWH y la ayuda proporcionada con el paquete.
Hay muchos ejemplos muy interesantes para ver...