he conseguido un iphone

[mastintin]

Añadido a la clase Twindow la detección de los eventos dobletap y dobletouch .
Saludos.

[mastintin]

Antonio , volviendo al tema del simulador y de las funciones para compatibilidad ...
Si usamos el sdk del simulador ultima version 4.2 son necesarios .
Si usamos el sdk del simulador version 4.0 o 4.1 que son con las que se compiló en su momento el harbour no son necesarias ( confirmado , lo he estado probando y funciona perfecto ).
El tema es que han quitado a las funciones el sufijo " $UNIX2003 " para que sean iguales en el sdk del iphone que en sdk del simulador y nosotros tenemos compiladas las librerias harbour del simulador con la version 4.1 del sdk.
Por lo que he investigado a partir de ahora tienen previsto mantener esta nueva filosofia así que aunque ahora valga el parche a la larga tendremos que compilar la libreria .
Un saludo.

[Antonio Linares]

Manuel,

No hay problema, nos adaptaremos y seguiremos aprendiendo

[pgfdz]

Hola
No funciona Dbcreate? Me saca de la aplicación sin hacer nada

DbCreate( AppPath() + "/ruta.dbf", aStruct )

Un saludo

[pgfdz]

local oWnd := TWindow():New()

TNavBar():New( oWnd, "FivePhone", "Exit", "About" )

oWnd:oNavBar:bLeftClick = { || oWnd:End() }
oWnd:oNavBar:bRightClick = { || MsgInfo( "iOS SDK for Harbour" ) }

oWnd:Activate()


me lanza el error:

No exported variable
bRightClick
Creo que no se está asignado bien el valor de oWnd:oNavBar. Me funciona si le asigno en la creación de TNavBar:
oWnd:oNavBar := TNavBar....

[pgfdz]

Como se enlazan las acciones desde el Interface Builder a los botones, pongamos por caso?
Gracias

[Antonio Linares]

Hola
No funciona Dbcreate? Me saca de la aplicación sin hacer nada

DbCreate( AppPath() + "/ruta.dbf", aStruct )

Un saludo

Paco,

Cuando te ocurra eso mira la consola del xcode y alli verás el error que ha ocurrido. Reportalo aqui y lo revisamos

[Antonio Linares]

Como se enlazan las acciones desde el Interface Builder a los botones, pongamos por caso?
Gracias

Estoy trabajando en un modelo nuevo que permitiría usar toda la aplicación diseñada desde el interface builder.

Voy a publicar lo que estoy haciendo lo antes posible

[pgfdz]

Disculpar por el bombardeo pero es que estoy probando todos los ejemplos.

local oWnd := TWindow():New(), oTbr, oBrw

oWnd:oNavBar := TNavBar():New( oWnd, "FivePhone", "Exit", "About" )

oWnd:oNavBar:bLeftClick = { || oWnd:End() }
oWnd:oNavBar:bRightClick = { || MsgInfo( "iOS SDK for Harbour" ) }

oTbr := TToolBar():New( oWnd )

oTbr:SetColor(90,90,90, 80)
oTbr:SetTraslucent(.t.)

oTbr:AddSystemButton( 2, { || MsgInfo( "New" ) } )
oTbr:AddSystemButton( 7, { || MsgInfo( "New" ) } )
oTbr:AddSystemButton( 9, { || MsgInfo( "open" ) } )
oTbr:AddSystemButton( 10, { || MsgInfo( "open" ) } )
oTbr:AddButton( "Save", { || MsgInfo( "Save" ) } )
oTbr:AddButton( "Search", { || MsgInfo( "Search" ) } )


ERROR: No existe TToolBar:AddSystemButton

Un saludo

===== EDITO ===========
Por lo que veo en el código, simplemente no existe ese método

[mastintin]

Disculpar por el bombardeo pero es que estoy probando todos los ejemplos.

local oWnd := TWindow():New(), oTbr, oBrw

oWnd:oNavBar := TNavBar():New( oWnd, "FivePhone", "Exit", "About" )

oWnd:oNavBar:bLeftClick = { || oWnd:End() }
oWnd:oNavBar:bRightClick = { || MsgInfo( "iOS SDK for Harbour" ) }

oTbr := TToolBar():New( oWnd )

oTbr:SetColor(90,90,90, 80)
oTbr:SetTraslucent(.t.)

oTbr:AddSystemButton( 2, { || MsgInfo( "New" ) } )
oTbr:AddSystemButton( 7, { || MsgInfo( "New" ) } )
oTbr:AddSystemButton( 9, { || MsgInfo( "open" ) } )
oTbr:AddSystemButton( 10, { || MsgInfo( "open" ) } )
oTbr:AddButton( "Save", { || MsgInfo( "Save" ) } )
oTbr:AddButton( "Search", { || MsgInfo( "Search" ) } )


ERROR: No existe TToolBar:AddSystemButton

Un saludo

mira aqui ya se corrigio ...http://forums.fivetechsupport.com/viewtopic.php?f=8&t=20079&start=525#p108786

Code: Select all  Expand view

local oNavBar

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

 

cambia tambien esto :

Code: Select all  Expand view

oTbr:AddButton( 2, { || MsgInfo( "New" ) } )
oTbr:AddButton( 7, { || MsgInfo( "New" ) } )
oTbr:AddButton( 9, { || MsgInfo( "open" ) } )
oTbr:AddButton( 10, { || MsgInfo( "open" ) } )
 

[pgfdz]

Hola
No funciona Dbcreate? Me saca de la aplicación sin hacer nada

DbCreate( AppPath() + "/ruta.dbf", aStruct )

Un saludo

Paco,

Cuando te ocurra eso mira la consola del xcode y alli verás el error que ha ocurrido. Reportalo aqui y lo revisamos

[Session started at 2010-12-23 18:42:12 +0100.]
Detected an attempt to call a symbol in system libraries that is not present on the iPhone:
stat$INODE64 called from function s_fileExtOpen in image Tutor02.
If you are encountering this problem running a simulator binary within gdb, make sure you 'set start-with-shell off' first.

[mag071]

Saludos y Aprovechar para felicitar en esta navidad a todos y que este 2011 que se acerca les traiga mucha salud.

Sigo sin poder Cambiar el simulador. Sera que debería instalar otra cosa en el xCode.
o al instalar el xCode el me hizo la instalación del SDK.
como Instalo el SDK 4.2.?
no me sale por ningún lado iPhone.

Es la Instalación del sdk del simulador ultima versión 4.2 hecha por separada, yo solo instale el xCode que viene en los discos de la mini.

Gracias por su tiempo.

[pgfdz]

Disculpar por el bombardeo pero es que estoy probando todos los ejemplos.

local oWnd := TWindow():New(), oTbr, oBrw

oWnd:oNavBar := TNavBar():New( oWnd, "FivePhone", "Exit", "About" )

oWnd:oNavBar:bLeftClick = { || oWnd:End() }
oWnd:oNavBar:bRightClick = { || MsgInfo( "iOS SDK for Harbour" ) }

oTbr := TToolBar():New( oWnd )

oTbr:SetColor(90,90,90, 80)
oTbr:SetTraslucent(.t.)

oTbr:AddSystemButton( 2, { || MsgInfo( "New" ) } )
oTbr:AddSystemButton( 7, { || MsgInfo( "New" ) } )
oTbr:AddSystemButton( 9, { || MsgInfo( "open" ) } )
oTbr:AddSystemButton( 10, { || MsgInfo( "open" ) } )
oTbr:AddButton( "Save", { || MsgInfo( "Save" ) } )
oTbr:AddButton( "Search", { || MsgInfo( "Search" ) } )


ERROR: No existe TToolBar:AddSystemButton

Un saludo

mira aqui ya se corrigio ...http://forums.fivetechsupport.com/viewtopic.php?f=8&t=20079&start=525#p108786

Code: Select all  Expand view

local oNavBar

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

 

cambia tambien esto :

Code: Select all  Expand view

oTbr:AddButton( 2, { || MsgInfo( "New" ) } )
oTbr:AddButton( 7, { || MsgInfo( "New" ) } )
oTbr:AddButton( 9, { || MsgInfo( "open" ) } )
oTbr:AddButton( 10, { || MsgInfo( "open" ) } )
 

SOLUCIONADO, gracias

[pgfdz]

DBUSEAREA( .t., ,AppPath()+ "/ruta.dbf" , "rutas")
ERROR

[Session started at 2010-12-23 19:50:45 +0100.]
Detected an attempt to call a symbol in system libraries that is not present on the iPhone:
stat$INODE64 called from function s_fileExtOpen in image Tutor02.
If you are encountering this problem running a simulator binary within gdb, make sure you 'set start-with-shell off' first.

[mastintin]

DBUSEAREA( .t., ,AppPath()+ "/ruta.dbf" , "rutas")
ERROR

[Session started at 2010-12-23 19:50:45 +0100.]
Detected an attempt to call a symbol in system libraries that is not present on the iPhone:
stat$INODE64 called from function s_fileExtOpen in image Tutor02.
If you are encountering this problem running a simulator binary within gdb, make sure you 'set start-with-shell off' first.

Te envio la nueva librería que en teoría ya resuelve el problema . Cambiala y miramos a ver si funciona...
http://rapidshare.com/files/438930423/libfivephone.a
Saludos.