Ejemplo de agenda telefonica

[karinha]

Agenda hecha en FiveWin

http://fivewin.com.br/index.php?/topic/24249-agenda-telefonica-em-fivewin/

Necesita cuenta en 4shared

saludos.

[cnavarro]

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: Select all  Expand view  RUN

   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 mi tambien me habia llamado la atencion el tema del "muelle"
Tu solucion, muy buena
Gracias

Me ha gustado el detalle, pero si le pongo lo del Brush:Resize( ::oVSplitR,, 24 ) no me aparece el bmp

[RSalazarU]

Cristobal:

En realida el tamaño del bmp es mas ancho. talvez por ahi anda la cosa.



Proba con esta.

En lo mio, el ancho del bmp=43, el ancho del splitter=20 y hago el RESIZE a 20-2=18

[cnavarro]

Puede ser
El ancho de mi splitter es 24 y el ancho de mi bmp es tambien 24
Volveré a probar

[joseluisysturiz]

Puede ser
El ancho de mi splitter es 24 y el ancho de mi bmp es tambien 24
Volveré a probar

Navarro, como te fue con esto de la agenda, pudistes hacer algo como lo del colega..? podrias compartir algo.? gracias, saludos...

[cnavarro]

Jose Luis
No he hecho nada al respecto
Solo lo use para probarlo en FivEdit

[joseluisysturiz]

Ok, tranquilo, gracias, saludos...