FiveTech Support Forums

Amigos del foro:

Alguien tendra un ejemplo de una agenda telefonica, que cosas debe tener??

En el intenet vi uno que tenia las pestañas de la A-Z....

De antemano, muchas gracias.

Rolando
Cochabamba, Bolivia

Rolando.
En samples\account hay un ejemplo: mntotel.prg
Revisalo.

Saludos.

Marcelo Roggeri wrote:Hola Rolando te paso una imagen de lo que me hice yo, es algo muy básico pero funcional.

Espero que te sirva de base el ejemplo.
Saludos

Hola José Luis, en mis sistemas lo tengo hecho con folder, la imagen es un ejemplo con folderex que queda mas bonito visualmente.
Saludos.
Marcelo

Muy bonitas tus pantallas, por lo svisto estas haciendo algo para iglesias, tambien desarrollo una aplicacion para iglesias pero mas completa, control de miembros, ofrendas, clasificaciones, agrupaciones, crecimiento eclesiastico, etc...me gustaria saber con que clase u objeto hicistes las pestañas de la agenda, donde seleccionas las letras, estoy a la orden para cualquier consulta relacioada con sistema para iglesias, para compartir e intercambiar ideas, gracias, saludos...

RSalazarU wrote:Jose luis:

Las pestañas las hago con el control TTabs()

Code (fw): Select all Collapse

   oRS:oWnd:oBottom := TTabs():New( 0, 0, {"TODOS","A","B","C","D","E","F","G","H","I","J","K","L","M","N","Ñ","O","P","Q","R","S","T","U","V","W","X","Y","Z"}, , oRS:oWnd, 1,,, .T.,,, 25,,)
   oRS:oWnd:oBottom:bAction:={|nOption, nOldOption, oTabs|oTabs:CARGO:cLetra:=if(nOption=1,"",oTabs:aPrompts[nOption]), EVAL(oTabs:CARGO:oBrw:bGotFocus,oTabs:CARGO:oBrw) }
   oRS:oWnd:oBottom:nOrientation := 2
   oRS:oWnd:oBottom:oFont:=TFont():New("Ms Sans Serif", 0, -9 ) 
   oRS:oWnd:oBottom:oBold:=TFont():New("Ms Sans Serif", 1, -10, , .T. )
   oRS:oWnd:oBottom:Default()
   oRS:oWnd:oBottom:CARGO := oRS

Por favor me podrias explicar a que se refieren los siguientes puntos:
-Control de miembros: esto creo que es el objetivo de la agenda
-Ofrendas: como haces la capturas de los datos de ofrendas
-Clasificaciones: ??
-Agrupaciones: ??
-Crecimiento eclesiastico: ??

Silvio:
Revisare tu codigo, tratare de poner un ejemplo

RSalazarU wrote:Jose Luis:

Agradesco tu respuesta.

Por favor me puedes dar tu correo (no lo pude obtener mirando tu profile).

Estoy en el tema de la base de datos de miembros de una iglesia, por lo que toda informacion que se refiera a esto me interesa. Sin embargo recien estoy empezando; algunos datos los manejan, en forma confidsencial, la administracion y los pastores.

Respecto a la espiral, te cuento que es algo sencillo de hacer, Al TSplitter() le coloque un TBrush() que tiene un BITMAP(yo lo hice desde recurso) con un solo "Gancho" (espira); el resto es automatico.

Code (fw): Select all Collapse

   oRS:oSplit:=TSplitter():New(1,oRS:oWnd:oLeft:nWidth+1,.T., {oRS:oWnd:oLeft},.F.,{oRS:oWnd:oRight}, .T., {|| 100}, {|| 1},oRS:oWnd,, W_SPLITER, 0, .T., .T.,, .F., .T. )
   oRS:oSplit:oBrush := TBrush():New( ,,,"Gancho",,"RESIZE")
   oRS:oSplit:oBrush:Resize( oRS:oSplit,, W_SPLITER-2 )

Rolando.

RSalazarU wrote:

Respecto a la espiral, te cuento que es algo sencillo de hacer, Al TSplitter() le coloque un TBrush() que tiene un BITMAP(yo lo hice desde recurso) con un solo "Gancho" (espira); el resto es automatico.

Code (fw): Select all Collapse

   oRS:oSplit:=TSplitter():New(1,oRS:oWnd:oLeft:nWidth+1,.T., {oRS:oWnd:oLeft},.F.,{oRS:oWnd:oRight}, .T., {|| 100}, {|| 1},oRS:oWnd,, W_SPLITER, 0, .T., .T.,, .F., .T. )
   oRS:oSplit:oBrush := TBrush():New( ,,,"Gancho",,"RESIZE")
   oRS:oSplit:oBrush:Resize( oRS:oSplit,, W_SPLITER-2 )

Rolando.

A eso se le llama..INGENIO..algo relativamente sencillo..y mira como llama tanto la atencion, asi es el mundo de la programacion, gracias por el tips, tratare de implementar algo parecdio haber como me va, gracias, saludos...