FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveMac / FivePhone (iPhone, iPad) he conseguido un iphone
Posts: 1516
Joined: Thu May 27, 2010 02:06 PM

Re: he conseguido un iphone

Posted: Wed Oct 27, 2010 05:02 PM
Como no tengo acceso al repositorio desde donde estoy , os dejo aqui unas cuantas funciones para a帽adir ...
Son funciones curiosas y estan sin probar a煤n.
Funcion SetIdLETimer() y getIdleTimer() activa desactiva y mira el estado del autoreposo.
Funci贸n setproximimonitor() comprueba si el dispositivo tiene sensor de proximidad , sino lo tiene nos da un aviso , si lo tiene lo activa o desactiva segun el parametro pasado .
Funcion phoneCall() llama al n煤mero de telefono pasado como parametro ( ojo texto).
Saludos.
Code (fw): Select all Collapse
HB_FUNC( SETIDLETIMER )
{
[[UIApplication sharedApplication] setIdleTimerDisabled:hb_parnl( 1 )];
}

HB_FUNC( GETIDLETIMER )
{
hb_retl( [[UIApplication sharedApplication] isIdleTimerDisabled] );
}

HB_FUNC( SETPROXIMONITOR )
{
UIDevice *device = [UIDevice currentDevice];
device.proximityMonitoringEnabled = YES;
if (device.proximityMonitoringEnabled == YES)
{
[ device setProximityMonitoringEnabled:hb_parnl( 1 )];

}
else
{
Msginfo("Dispositivo sin sensor de proximidad")
}
}

HB_FUNC( PHONECALL )
{
 NSString *ctelf = [ [ [ NSString alloc ] initWithCString: ISCHAR( 1 ) ? hb_parc( 1 ) : "" ] autorelease ]; 
 NSString *cURL =  [ [ [ NSString alloc ] initWithCString: "tel:"   ] autorelease ];     
    
        cURL = [cURL stringByAppendingString:ctelf ];
NSURL *phoneNumberURL = [NSURL URLWithString: cURL ];
[[UIApplication sharedApplication] openURL:phoneNumberURL];
}
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM

Re: he conseguido un iphone

Posted: Wed Oct 27, 2010 06:13 PM
mastintin wrote:驴 Esa funcionando el tutor7 ? .Me est谩 dando error al cambiar de tab y en principio tengo todo actualizado.mirar si podeis confirmarlo .
Saludos.


Manuel,

Borrado todo, hecho un checkout limpio y funcionando bien tutor07 :-)
regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 1516
Joined: Thu May 27, 2010 02:06 PM

Re: he conseguido un iphone

Posted: Wed Oct 27, 2010 08:20 PM

Perfecto ,pero no esta funcionando bien . Si pulso primero el primer boton en vez el segundo el view que se ve es el segundo , si luego al pulsar el segundo se ve el view primero .
He realizado unos cambios en la clase y en el tutor7 y ahora podemos asociar un view a cada tab . El cambio entre views lo he realizado en el tutor7 pero tendria que estar mas bien en la clase . Es una manera de implementarlo , vosotros direis.
Lo Subo al repositorio.

---------------- edito --------------------
Por cierto el codigo del phonecall() funciona perfecto :D ....
A帽adida function smscall() tambien funciona ...

Posts: 1516
Joined: Thu May 27, 2010 02:06 PM

Re: he conseguido un iphone

Posted: Thu Oct 28, 2010 02:58 PM
Nueva function para view.m , aun sin probar si funciona o no ....
coloca una imagen como fondo de un view ..
Saludos.
Code (fw): Select all Collapse
聽HB_FUNC( VIEWBKGIMG ) 
{
聽 聽UIView * view = ( UIView * ) hb_parnl( 1 );
聽 聽NSString * cImage = [ [ [ NSString alloc ] initWithCString: ISCHAR( 2 ) ? hb_parc( 2 ) : "" ] autorelease ];
聽 聽
聽 聽UIColor* BgrImg = [[UIColor alloc] initWithPatternImage[UIImage imageNamed:cImage]];
聽 聽view.backgroundColor = BgrImg ;
聽 聽[BgrImg release]; 聽 聽 聽 聽
}


___________________ edito -----------------------------

Probado y funcionando .
Posts: 1516
Joined: Thu May 27, 2010 02:06 PM

Re: he conseguido un iphone

Posted: Thu Oct 28, 2010 08:13 PM

He estado observando los programas propios deel iphone . Veo que cada View de un tab tiene su propia barra de navegaci贸n diferente a otor view ...
Si colocamos una barra de navegaci贸n en un view y intentamos ejecutar el programa ( tutor07 ) nos da una serie de mensajes de error ,si los pasamos ,al final la barrase pinta correctamente . Debemos cambiar la forma de implementar las barrasa de navegacion para que admitan los view .
Mirando las classes encuentro una cosa extra帽a , siendo en principio window la clase "primaria" de un programa sobre la que en principio se colocan los distintos views , es window quien hereda de view ...
pienso que lo correcto ser铆a que windows al crearse Generara un view "primario" donde se colocaran los controles ... de esa forma el control de eventos se har铆a por el view asi como el contenido de toolbar ,navbar y demas controles , pasaria a ser window la clase primaria de la que hereda view 驴 no?
Un saludo.

Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM

Re: he conseguido un iphone

Posted: Fri Oct 29, 2010 12:13 AM

Manuel,

En la jerarqu铆a de clases del iOS, la Clase UIWindow deriva de la Clase UIView. Es decir, una ventana es un UIView tambien, por lo que no es necesario crear un view contenido por la ventana, salvo que queramos una forma c贸moda de pasar de un grupo de controles a otro (en Windows usamos cajas de dialogo no modales, y aqui ser铆an UIViews).

Los controles derivan directamente desde UIView y no de UIWindow. Es algo que tiene una cierta l贸gica, pues una ventana ofrece una serie de funcionalidades que no necesitan los controles. En Windows todo son ventanas, por eso TControl deriva de TWindow en FWH.

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 1516
Joined: Thu May 27, 2010 02:06 PM

Re: he conseguido un iphone

Posted: Fri Oct 29, 2010 07:13 AM
Antonio Linares wrote:Manuel,

En la jerarqu铆a de clases del iOS, la Clase UIWindow deriva de la Clase UIView. Es decir, una ventana es un UIView tambien, por lo que no es necesario crear un view contenido por la ventana, salvo que queramos una forma c贸moda de pasar de un grupo de controles a otro (en Windows usamos cajas de dialogo no modales, y aqui ser铆an UIViews).

Los controles derivan directamente desde UIView y no de UIWindow. Es algo que tiene una cierta l贸gica, pues una ventana ofrece una serie de funcionalidades que no necesitan los controles. En Windows todo son ventanas, por eso TControl deriva de TWindow en FWH.

Ok comprendido .Da gusto como explicas las cosas . :-)

Por otro lado y volviendo al problema . Est谩 claro que dentro de un programa pueden existir varias barras de navegaci贸n y que estas derivan de view directamente asi que lo logico ( creo yo) es que la propiedad onavbar pase a twiew . Otra opcion es crear un array de navbars , segun que item del tab se muestra se muestra "su" navbar , este array puede estar o bien en la clase windows o en la clase tabbar ( esto es lo que me parece que hace el ejemplo TabSampleBar que estamos usando ) .Yo pienso que es mejor la primera opci贸n 驴no?.
Saludos.
Posts: 1516
Joined: Thu May 27, 2010 02:06 PM

Re: he conseguido un iphone

Posted: Fri Oct 29, 2010 07:53 AM
Por cierto el viewbackimg()...
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM

Re: he conseguido un iphone

Posted: Fri Oct 29, 2010 11:30 PM
mastintin wrote:Por cierto el viewbackimg()...


Manuel,

Que nombre de imagen has usado ?
regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 2365
Joined: Wed Nov 02, 2005 11:46 PM

Re: he conseguido un iphone

Posted: Sat Oct 30, 2010 02:31 AM
Primera version de la clase slider




* new class slider
+ tutorslider.prg
+ slider.prg
+ sliders.m
! makefile
! fmsgs,h
! fivephone.ch

* class label
+ method SetText
! labels.m
! label.prg
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM

Re: he conseguido un iphone

Posted: Sat Oct 30, 2010 05:55 AM

Daniel,

Muy bueno! :-)

Gracias!!!

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM

Re: he conseguido un iphone

Posted: Sat Oct 30, 2010 07:42 AM

He subido un nuevo ejemplo slider2.prg que pretende usar tres sliders para cambiar el color de la ventana, pero algo debo estar haciendo mal :-)

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 1516
Joined: Thu May 27, 2010 02:06 PM

Re: he conseguido un iphone

Posted: Sat Oct 30, 2010 07:52 AM
Antonio Linares wrote:
mastintin wrote:Por cierto el viewbackimg()...


Manuel,

Que nombre de imagen has usado ?

La imagen esta en el repositorio en el directorio images , back.png .

En otro orden de cosas ,he estado intentando solucionar el problema del navBar con varios views ( TABS) ,pero no consiguo hacer que funcione bien del todo .
Comento lo quue he hecho y hasta donde he llegado ...
he puesto una data oNavBar a la clase view para poder ponerle una barra de navegaci贸n . En el archivo navBars.m he cambiado estas lineas :
Code (fw): Select all Collapse
Window * miwindow = ( Window * ) hb_parnl( 1 );
.......
聽 聽[ item setLeftBarButtonItem : [ [ UIBarButtonItem alloc ] initWithTitle : left style : UIBarButtonItemStyleBordered target :[ miwindow window] action : @selector( BarLeftClick: ) ] animated : FALSE ];
聽 聽[ item setRightBarButtonItem : [ [ UIBarButtonItem alloc ] initWithTitle : right style : UIBarButtonItemStyleBordered target : [miwindow window] action : @selector( BarRightClick: ) ] animated : FALSE ];


De esta manera consiguo que rute el evento a a la window raiz en vez a el view ... hasta aqui funciona ya que el evento llega al HandleEvent.
El problema est谩 aqui :
llega hasta el msginfo("si") , pero no se como indicarle que navbar lo desencadena .
Una opci贸n es crear una clase navbaritem , que vendr铆a bien para poder gestionarlos distintos estilos de boton y que esta fuera la que tuviera el codeblock a ejecutar ... gracias al hsender si sabriamos que control manda el clik ....

Code (fw): Select all Collapse
聽 聽case nMsg == WM_BARRIGHTCLICK
聽 聽 聽 聽 聽 msginfo("si")
聽 聽 聽 聽 聽 聽if ! Empty( ::oNavBar )
聽 聽 聽 聽 聽 聽 聽 MsgInfo("yo")
聽 聽 聽 聽 聽 聽 聽 ::oNavBar:RightClick()
聽 聽 聽 聽 聽 聽endif


Un Saludo.
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM

Re: he conseguido un iphone

Posted: Sat Oct 30, 2010 08:00 AM
Antonio Linares wrote:He subido un nuevo ejemplo slider2.prg que pretende usar tres sliders para cambiar el color de la ventana, pero algo debo estar haciendo mal :-)


Solucionado (habia un bug en la gesti贸n de colores de los views) y subido :-)

Code (fw): Select all Collapse
function Main()

聽 聽local oWnd := TWindow():New(), oSlider1, oSlider2, oSlider3
聽 聽
聽 聽oSlider1 = TSlider():New( oWnd, 10, 100, 300, 50,, 1, 255 )
聽 聽
聽 聽oSlider2 = TSlider():New( oWnd, 10, 200, 300, 50,, 1, 255 )
聽 聽
聽 聽oSlider3 = TSlider():New( oWnd, 10, 300, 300, 50,, 1, 255 )
聽 聽
聽 聽oSlider1:bChanged := oSlider2:bChanged := oSlider3:bChanged := ;
聽 聽{ | oSelf | oWnd:SetBkgColor( oSlider1:nValue, oSlider2:nValue, oSlider3:nValue, 255 * 255 ) } 
聽 聽
聽 聽oWnd:Activate()
聽 聽
return nil

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM

Re: he conseguido un iphone

Posted: Sat Oct 30, 2010 05:02 PM

Subido el primer prototipo de la Clase TImageView y samples/image.prg

Aun no muestra nada (?) pero bueno, ya lo solucionaremos :-)

regards, saludos

Antonio Linares
www.fivetechsoft.com