FiveTech Software tech support forums

Añadido una simple Clase TTableView y modificado tutor05.prg

Añadida una nueva Clase TView. Todas las clases GUI derivan de ella

El gestor de errores ya funciona bastante bien

He comenzado a construir el data source para el browse. Ya está subido

He conseguido sacar en pantalla un TabBar con dos botones ( aun no tienen sus views ni nada ) .Cuando tenga mas limpio el codigo lo subo .

Manuel,

Muy bueno!

Ya mostramos datos en el browse! (subido al SVN)

He subido el codigo de TabBar ... de momento no muestra aun los view asociados , solo se presenta en pantalla . Tambien va una funcion para añadir los tabs que queramos ...
el segundo parametro de CREATEITEMTABBAR es el icono que mostrará dentro de los predefinidos del sistema :

typedef enum {
UITabBarSystemItemMore,
UITabBarSystemItemFavorites,
UITabBarSystemItemFeatured,
UITabBarSystemItemTopRated,
UITabBarSystemItemRecents,
UITabBarSystemItemContacts,
UITabBarSystemItemHistory,
UITabBarSystemItemBookmarks,
UITabBarSystemItemSearch,
UITabBarSystemItemDownloads,
UITabBarSystemItemMostRecent,
UITabBarSystemItemMostViewed,
} UITabBarSystemItem;

Code: Select all  Expand view

function Main()

   local oWnd := TWindow():New(), oTbr
   local tabbar
   TNavBar():New( oWnd, "FivePhone", "Exit", "About" )
   
   oWnd:oNavBar:bLeftClick = { || oWnd:End() }
   oWnd:oNavBar:bRightClick = { || MsgInfo( "iOS SDK for Harbour" ) }

    tabBar:=CREATETABBAR(oWnd:hwnd)
    CREATEITEMTABBAR(tabbar,0)
   CREATEITEMTABBAR(tabbar,2)
   CREATEITEMTABBAR(tabbar,1)

   oWnd:Activate()
   
return nil
 

Manuel,

He modificado la Clase TTableView para que ya muestre campos de una DBF. Algo muy simple para probar

Pero el problema que tengo es que no me abre la DBF. Hago:

USE ( AppPath() + "/test.dbf" )

Puedes probarlo ahi ? (samples/tutor05.prg) gracias

El problema lo tienes en los permisos del archivo dbf , cambialos ( de momento pontos a 777 ) y ya te funciona seguro.

Iniciado el archivo label.m ... esta solo en prototipo . Cuando lo tenga mas avanzado subo el codigo al repositorio.

subido codigo de label.m al repositorio . Codigo del tutor :

Code: Select all  Expand view

function Main()

   local oWnd := TWindow():New(), oTbr
   local label
   TNavBar():New( oWnd, "FivePhone", "Exit", "About" )
   
   oWnd:oNavBar:bLeftClick = { || oWnd:End() }
   oWnd:oNavBar:bRightClick = { || MsgInfo( "iOS SDK for Harbour" ) }

   label:=CREATELABEL(oWnd:hwnd,"hola", 120,120 , 400 , 50 )
  SETLABELCOLOR (label,255,0,0,100)
  SETLABELFONT(label,"Helvetica",56)
   oWnd:Activate()
   
return nil
 

Antonio Linares wrote:Manuel,

He modificado la Clase TTableView para que ya muestre campos de una DBF. Algo muy simple para probar

Pero el problema que tengo es que no me abre la DBF. Hago:

USE ( AppPath() + "/test.dbf" )

Puedes probarlo ahi ? (samples/tutor05.prg) gracias

Antonio Probado y funcionando perfectamente . Todo el problema era con los permisos de las dbf , tienes que ponerlos a 666 o 777 y funciona sin problema ...

HE hecho una pequeña modificacion en la clase Tableview . He añadido un parametro codeblock que se evalua al procesar el tableview , asi podemos poner que queremos mostrar.
Saludos.

el tutor05 queda asi :

Code: Select all  Expand view

function Main()

   local oWnd := TWindow():New(), oTbr
   local cPath := AppPath() + "/test.dbf"
   local obrw
   TNavBar():New( oWnd, "FivePhone", "Exit", "About" )
   
   oWnd:oNavBar:bLeftClick = { || oWnd:End() }
   oWnd:oNavBar:bRightClick = { || MsgInfo( "iOS SDK for Harbour" ) }

   oTbr = TToolBar():New( oWnd )
   oTbr:AddButton( "New",    { || MsgInfo( "New" ) } )
   oTbr:AddButton( "Open",   { || MsgInfo( "Open" ) } )
   oTbr:AddButton( "Save",   { || MsgInfo( "Save" ) } )
   oTbr:AddButton( "Search", { || MsgInfo( "Search" ) } )
   oTbr:AddButton( "Close",  { || MsgInfo( Alias() ) } )
   
    USE ( cPath )
   
   obrw:=TTableView():New( oWnd)
    obrw:bData:={|| alltrim(fieldget(1))+" "+Alltrim(FieldGet( 2 ) )+" "+alltrim(fieldget(5))  }

   oWnd:Activate()
   
return nil
 

Manuel,

Formidable!

Ya tenemos browses de DBFs! no caí en lo de los permisos!