In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.

Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.

Images

Xailer professional forum in English
Responder
Nick Hilder
Mensajes: 328
Registrado: Mar Nov 21, 2006 2:10 am

Images

Mensaje por Nick Hilder »

Hi Gents
I ran out of time to try and do the thermometer as a control ('I'll come
back to it) so I just created 8 bmp files that I use to make the guage move
Here's how I did it, I'd like some feed back as to if I have done it
correct. It works, but that doesn't mean it it done as it should be or could
be.
Thanks Nick
METHOD Setup( oSender ) CLASS TGaugeForm
::aGauges := {}
::nGaugePosition := 1
AADD(::aGauges, AppData:sAppPath + "20s.bmp")
AADD(::aGauges, AppData:sAppPath + "120s.bmp")
AADD(::aGauges, AppData:sAppPath + "220s.bmp")
AADD(::aGauges, AppData:sAppPath + "320s.bmp")
AADD(::aGauges, AppData:sAppPath + "420s.bmp")
AADD(::aGauges, AppData:sAppPath + "520s.bmp")
AADD(::aGauges, AppData:sAppPath + "620s.bmp")
AADD(::aGauges, AppData:sAppPath + "720s.bmp")
AADD(::aGauges, AppData:sAppPath + "720s+.bmp")
::oImage2:oPicture := TPicture():LoadFromFile(
::aGauges[::nGaugePosition])
RETURN Nil
METHOD Down( oSender ) CLASS TGaugeForm
If ::nGaugePosition > 1
::nGaugePosition := ::nGaugePosition -1
::oImage2:oPicture := TPicture():LoadFromFile(
::aGauges[::nGaugePosition])
EndIf
RETURN Nil
//---------------------------------------------------------- --------------------
METHOD Up( oSender ) CLASS TGaugeForm
If ::nGaugePosition < Len(::aGauges)
::nGaugePosition := ::nGaugePosition + 1
::oImage2:oPicture := TPicture():LoadFromFile(
::aGauges[::nGaugePosition])
EndIf
RETURN Nil
//---------------------------------------------------------- --------------------
Arriba
Ingo JH
Mensajes: 358
Registrado: Lun Dic 10, 2007 5:10 pm

Images

Mensaje por Ingo JH »

Hi Nick,
is this a way?
Regards
Ingo
"Nick Hilder" <nick_n0_spam_atcapsol.com.au> schrieb im Newsbeitrag
news:49c02bb8$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
> Hi Gents
>
> I ran out of time to try and do the thermometer as a control ('I'll come
> back to it) so I just created 8 bmp files that I use to make the guage
> move
>
> Here's how I did it, I'd like some feed back as to if I have done it
> correct. It works, but that doesn't mean it it done as it should be or
> could be.
>
> Thanks Nick
>
> METHOD Setup( oSender ) CLASS TGaugeForm
>
> ::aGauges := {}
> ::nGaugePosition := 1
>
> AADD(::aGauges, AppData:sAppPath + "20s.bmp")
> AADD(::aGauges, AppData:sAppPath + "120s.bmp")
> AADD(::aGauges, AppData:sAppPath + "220s.bmp")
> AADD(::aGauges, AppData:sAppPath + "320s.bmp")
> AADD(::aGauges, AppData:sAppPath + "420s.bmp")
> AADD(::aGauges, AppData:sAppPath + "520s.bmp")
> AADD(::aGauges, AppData:sAppPath + "620s.bmp")
> AADD(::aGauges, AppData:sAppPath + "720s.bmp")
> AADD(::aGauges, AppData:sAppPath + "720s+.bmp")
>
> ::oImage2:oPicture := TPicture():LoadFromFile(
> ::aGauges[::nGaugePosition])
>
>
> RETURN Nil
>
> METHOD Down( oSender ) CLASS TGaugeForm
>
> If ::nGaugePosition > 1
> ::nGaugePosition := ::nGaugePosition -1
> ::oImage2:oPicture := TPicture():LoadFromFile(
> ::aGauges[::nGaugePosition])
> EndIf
>
>
>
>
> RETURN Nil
>
> //---------------------------------------------------------- --------------------
>
> METHOD Up( oSender ) CLASS TGaugeForm
>
> If ::nGaugePosition < Len(::aGauges)
> ::nGaugePosition := ::nGaugePosition + 1
> ::oImage2:oPicture := TPicture():LoadFromFile(
> ::aGauges[::nGaugePosition])
> EndIf
>
>
> RETURN Nil
>
> //---------------------------------------------------------- --------------------
>
>
--

Attached files Thermo.zip (1.8 KB)Â
Arriba
Ingo JH
Mensajes: 358
Registrado: Lun Dic 10, 2007 5:10 pm

Images

Mensaje por Ingo JH »

Hi Nick,
is this a way?
Regards
Ingo
"Nick Hilder" <nick_n0_spam_atcapsol.com.au> schrieb im Newsbeitrag
news:49c02bb8$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
> Hi Gents
>
> I ran out of time to try and do the thermometer as a control ('I'll come
> back to it) so I just created 8 bmp files that I use to make the guage
> move
>
> Here's how I did it, I'd like some feed back as to if I have done it
> correct. It works, but that doesn't mean it it done as it should be or
> could be.
>
> Thanks Nick
>
> METHOD Setup( oSender ) CLASS TGaugeForm
>
> ::aGauges := {}
> ::nGaugePosition := 1
>
> AADD(::aGauges, AppData:sAppPath + "20s.bmp")
> AADD(::aGauges, AppData:sAppPath + "120s.bmp")
> AADD(::aGauges, AppData:sAppPath + "220s.bmp")
> AADD(::aGauges, AppData:sAppPath + "320s.bmp")
> AADD(::aGauges, AppData:sAppPath + "420s.bmp")
> AADD(::aGauges, AppData:sAppPath + "520s.bmp")
> AADD(::aGauges, AppData:sAppPath + "620s.bmp")
> AADD(::aGauges, AppData:sAppPath + "720s.bmp")
> AADD(::aGauges, AppData:sAppPath + "720s+.bmp")
>
> ::oImage2:oPicture := TPicture():LoadFromFile(
> ::aGauges[::nGaugePosition])
>
>
> RETURN Nil
>
> METHOD Down( oSender ) CLASS TGaugeForm
>
> If ::nGaugePosition > 1
> ::nGaugePosition := ::nGaugePosition -1
> ::oImage2:oPicture := TPicture():LoadFromFile(
> ::aGauges[::nGaugePosition])
> EndIf
>
>
>
>
> RETURN Nil
>
> //---------------------------------------------------------- --------------------
>
> METHOD Up( oSender ) CLASS TGaugeForm
>
> If ::nGaugePosition < Len(::aGauges)
> ::nGaugePosition := ::nGaugePosition + 1
> ::oImage2:oPicture := TPicture():LoadFromFile(
> ::aGauges[::nGaugePosition])
> EndIf
>
>
> RETURN Nil
>
> //---------------------------------------------------------- --------------------
>
>
--

Attached files Thermo.zip (1.8 KB)Â
Arriba
Avatar de Usuario
ignacio
Site Admin
Mensajes: 9440
Registrado: Lun Abr 06, 2015 8:00 pm
Ubicación: Madrid, Spain
Contactar:
Contactar ignacio

Images

Mensaje por ignacio »

Nick,
Your way to solve it is correct. I suggest you put all the bitmaps on a
animated GIF and use the second parameter of LoadFromFile() to load the
desired image. (only available on Xailer 2).
Regards,
--
Ignacio Ortiz de Zúñiga
Xailer support / Soporte de Xailer
http://www.xailer.com
http://www.xailer.info
"Nick Hilder" <nick_n0_spam_atcapsol.com.au> escribió en el mensaje
news:49c02bb8$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
> Hi Gents
>
> I ran out of time to try and do the thermometer as a control ('I'll come
> back to it) so I just created 8 bmp files that I use to make the guage
> move
>
> Here's how I did it, I'd like some feed back as to if I have done it
> correct. It works, but that doesn't mean it it done as it should be or
> could be.
>
> Thanks Nick
>
> METHOD Setup( oSender ) CLASS TGaugeForm
>
> ::aGauges := {}
> ::nGaugePosition := 1
>
> AADD(::aGauges, AppData:sAppPath + "20s.bmp")
> AADD(::aGauges, AppData:sAppPath + "120s.bmp")
> AADD(::aGauges, AppData:sAppPath + "220s.bmp")
> AADD(::aGauges, AppData:sAppPath + "320s.bmp")
> AADD(::aGauges, AppData:sAppPath + "420s.bmp")
> AADD(::aGauges, AppData:sAppPath + "520s.bmp")
> AADD(::aGauges, AppData:sAppPath + "620s.bmp")
> AADD(::aGauges, AppData:sAppPath + "720s.bmp")
> AADD(::aGauges, AppData:sAppPath + "720s+.bmp")
>
> ::oImage2:oPicture := TPicture():LoadFromFile(
> ::aGauges[::nGaugePosition])
>
>
> RETURN Nil
>
> METHOD Down( oSender ) CLASS TGaugeForm
>
> If ::nGaugePosition > 1
> ::nGaugePosition := ::nGaugePosition -1
> ::oImage2:oPicture := TPicture():LoadFromFile(
> ::aGauges[::nGaugePosition])
> EndIf
>
>
>
>
> RETURN Nil
>
> //---------------------------------------------------------- --------------------
>
> METHOD Up( oSender ) CLASS TGaugeForm
>
> If ::nGaugePosition < Len(::aGauges)
> ::nGaugePosition := ::nGaugePosition + 1
> ::oImage2:oPicture := TPicture():LoadFromFile(
> ::aGauges[::nGaugePosition])
> EndIf
>
>
> RETURN Nil
>
> //---------------------------------------------------------- --------------------
>
>
>
Ignacio Ortiz de Zúñiga
[OZ Software]
https://www.ozs.es
--
[Equipo de Xailer / Xailer team]
https://www.xailer.com
Arriba
Avatar de Usuario
ignacio
Site Admin
Mensajes: 9440
Registrado: Lun Abr 06, 2015 8:00 pm
Ubicación: Madrid, Spain
Contactar:
Contactar ignacio

Images

Mensaje por ignacio »

Nick,
Your way to solve it is correct. I suggest you put all the bitmaps on a
animated GIF and use the second parameter of LoadFromFile() to load the
desired image. (only available on Xailer 2).
Regards,
--
Ignacio Ortiz de Zúñiga
Xailer support / Soporte de Xailer
http://www.xailer.com
http://www.xailer.info
"Nick Hilder" <nick_n0_spam_atcapsol.com.au> escribió en el mensaje
news:49c02bb8$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
> Hi Gents
>
> I ran out of time to try and do the thermometer as a control ('I'll come
> back to it) so I just created 8 bmp files that I use to make the guage
> move
>
> Here's how I did it, I'd like some feed back as to if I have done it
> correct. It works, but that doesn't mean it it done as it should be or
> could be.
>
> Thanks Nick
>
> METHOD Setup( oSender ) CLASS TGaugeForm
>
> ::aGauges := {}
> ::nGaugePosition := 1
>
> AADD(::aGauges, AppData:sAppPath + "20s.bmp")
> AADD(::aGauges, AppData:sAppPath + "120s.bmp")
> AADD(::aGauges, AppData:sAppPath + "220s.bmp")
> AADD(::aGauges, AppData:sAppPath + "320s.bmp")
> AADD(::aGauges, AppData:sAppPath + "420s.bmp")
> AADD(::aGauges, AppData:sAppPath + "520s.bmp")
> AADD(::aGauges, AppData:sAppPath + "620s.bmp")
> AADD(::aGauges, AppData:sAppPath + "720s.bmp")
> AADD(::aGauges, AppData:sAppPath + "720s+.bmp")
>
> ::oImage2:oPicture := TPicture():LoadFromFile(
> ::aGauges[::nGaugePosition])
>
>
> RETURN Nil
>
> METHOD Down( oSender ) CLASS TGaugeForm
>
> If ::nGaugePosition > 1
> ::nGaugePosition := ::nGaugePosition -1
> ::oImage2:oPicture := TPicture():LoadFromFile(
> ::aGauges[::nGaugePosition])
> EndIf
>
>
>
>
> RETURN Nil
>
> //---------------------------------------------------------- --------------------
>
> METHOD Up( oSender ) CLASS TGaugeForm
>
> If ::nGaugePosition < Len(::aGauges)
> ::nGaugePosition := ::nGaugePosition + 1
> ::oImage2:oPicture := TPicture():LoadFromFile(
> ::aGauges[::nGaugePosition])
> EndIf
>
>
> RETURN Nil
>
> //---------------------------------------------------------- --------------------
>
>
>
Ignacio Ortiz de Zúñiga
[OZ Software]
https://www.ozs.es
--
[Equipo de Xailer / Xailer team]
https://www.xailer.com
Arriba
Capsol Coder
Mensajes: 53
Registrado: Vie May 26, 2006 3:33 am

Images

Mensaje por Capsol Coder »

Thanks for the feed back
BTW, Xailer 2 is looking really good, it's great to see you guys seriously
adding more and more features.
Is the possiblity of Xailer working with harbour in the pipeline?
Nick
"Ignacio Ortiz de Zúñiga" <NoNameToAvoidSpam@xailer.com> wrote in message
news:49c0bdb6$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
> Nick,
>
> Your way to solve it is correct. I suggest you put all the bitmaps on a
> animated GIF and use the second parameter of LoadFromFile() to load the
> desired image. (only available on Xailer 2).
>
> Regards,
>
> --
> Ignacio Ortiz de Zúñiga
> Xailer support / Soporte de Xailer
> http://www.xailer.com
> http://www.xailer.info
> "Nick Hilder" <nick_n0_spam_atcapsol.com.au> escribió en el mensaje
> news:49c02bb8$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
>> Hi Gents
>>
>> I ran out of time to try and do the thermometer as a control ('I'll come
>> back to it) so I just created 8 bmp files that I use to make the guage
>> move
>>
>> Here's how I did it, I'd like some feed back as to if I have done it
>> correct. It works, but that doesn't mean it it done as it should be or
>> could be.
>>
>> Thanks Nick
>>
>> METHOD Setup( oSender ) CLASS TGaugeForm
>>
>> ::aGauges := {}
>> ::nGaugePosition := 1
>>
>> AADD(::aGauges, AppData:sAppPath + "20s.bmp")
>> AADD(::aGauges, AppData:sAppPath + "120s.bmp")
>> AADD(::aGauges, AppData:sAppPath + "220s.bmp")
>> AADD(::aGauges, AppData:sAppPath + "320s.bmp")
>> AADD(::aGauges, AppData:sAppPath + "420s.bmp")
>> AADD(::aGauges, AppData:sAppPath + "520s.bmp")
>> AADD(::aGauges, AppData:sAppPath + "620s.bmp")
>> AADD(::aGauges, AppData:sAppPath + "720s.bmp")
>> AADD(::aGauges, AppData:sAppPath + "720s+.bmp")
>>
>> ::oImage2:oPicture := TPicture():LoadFromFile(
>> ::aGauges[::nGaugePosition])
>>
>>
>> RETURN Nil
>>
>> METHOD Down( oSender ) CLASS TGaugeForm
>>
>> If ::nGaugePosition > 1
>> ::nGaugePosition := ::nGaugePosition -1
>> ::oImage2:oPicture := TPicture():LoadFromFile(
>> ::aGauges[::nGaugePosition])
>> EndIf
>>
>>
>>
>>
>> RETURN Nil
>>
>> //---------------------------------------------------------- --------------------
>>
>> METHOD Up( oSender ) CLASS TGaugeForm
>>
>> If ::nGaugePosition < Len(::aGauges)
>> ::nGaugePosition := ::nGaugePosition + 1
>> ::oImage2:oPicture := TPicture():LoadFromFile(
>> ::aGauges[::nGaugePosition])
>> EndIf
>>
>>
>> RETURN Nil
>>
>> //---------------------------------------------------------- --------------------
>>
>>
>>
>
>
Arriba
Capsol Coder
Mensajes: 53
Registrado: Vie May 26, 2006 3:33 am

Images

Mensaje por Capsol Coder »

Thanks for the feed back
BTW, Xailer 2 is looking really good, it's great to see you guys seriously
adding more and more features.
Is the possiblity of Xailer working with harbour in the pipeline?
Nick
"Ignacio Ortiz de Zúñiga" <NoNameToAvoidSpam@xailer.com> wrote in message
news:49c0bdb6$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
> Nick,
>
> Your way to solve it is correct. I suggest you put all the bitmaps on a
> animated GIF and use the second parameter of LoadFromFile() to load the
> desired image. (only available on Xailer 2).
>
> Regards,
>
> --
> Ignacio Ortiz de Zúñiga
> Xailer support / Soporte de Xailer
> http://www.xailer.com
> http://www.xailer.info
> "Nick Hilder" <nick_n0_spam_atcapsol.com.au> escribió en el mensaje
> news:49c02bb8$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
>> Hi Gents
>>
>> I ran out of time to try and do the thermometer as a control ('I'll come
>> back to it) so I just created 8 bmp files that I use to make the guage
>> move
>>
>> Here's how I did it, I'd like some feed back as to if I have done it
>> correct. It works, but that doesn't mean it it done as it should be or
>> could be.
>>
>> Thanks Nick
>>
>> METHOD Setup( oSender ) CLASS TGaugeForm
>>
>> ::aGauges := {}
>> ::nGaugePosition := 1
>>
>> AADD(::aGauges, AppData:sAppPath + "20s.bmp")
>> AADD(::aGauges, AppData:sAppPath + "120s.bmp")
>> AADD(::aGauges, AppData:sAppPath + "220s.bmp")
>> AADD(::aGauges, AppData:sAppPath + "320s.bmp")
>> AADD(::aGauges, AppData:sAppPath + "420s.bmp")
>> AADD(::aGauges, AppData:sAppPath + "520s.bmp")
>> AADD(::aGauges, AppData:sAppPath + "620s.bmp")
>> AADD(::aGauges, AppData:sAppPath + "720s.bmp")
>> AADD(::aGauges, AppData:sAppPath + "720s+.bmp")
>>
>> ::oImage2:oPicture := TPicture():LoadFromFile(
>> ::aGauges[::nGaugePosition])
>>
>>
>> RETURN Nil
>>
>> METHOD Down( oSender ) CLASS TGaugeForm
>>
>> If ::nGaugePosition > 1
>> ::nGaugePosition := ::nGaugePosition -1
>> ::oImage2:oPicture := TPicture():LoadFromFile(
>> ::aGauges[::nGaugePosition])
>> EndIf
>>
>>
>>
>>
>> RETURN Nil
>>
>> //---------------------------------------------------------- --------------------
>>
>> METHOD Up( oSender ) CLASS TGaugeForm
>>
>> If ::nGaugePosition < Len(::aGauges)
>> ::nGaugePosition := ::nGaugePosition + 1
>> ::oImage2:oPicture := TPicture():LoadFromFile(
>> ::aGauges[::nGaugePosition])
>> EndIf
>>
>>
>> RETURN Nil
>>
>> //---------------------------------------------------------- --------------------
>>
>>
>>
>
>
Arriba
Avatar de Usuario
ignacio
Site Admin
Mensajes: 9440
Registrado: Lun Abr 06, 2015 8:00 pm
Ubicación: Madrid, Spain
Contactar:
Contactar ignacio

Images

Mensaje por ignacio »

Nick,
> Is the possiblity of Xailer working with harbour in the pipeline?
Yes, that's our intention, but I can not give you a time frame for that.
Right now Harbour has almost all the extended functionalities we need in
Xailer and at this moment we believe Harbour has indeed overcome xHarbour in
many areas, but we believe that still now is little bit early to support
Harbour because the Harbour crew is still very active enhancing the
compiler. When Harbour settle down and we have some spare time ;-) it will
be the time.
Regards,
--
Ignacio Ortiz de Zúñiga
Xailer support / Soporte de Xailer
http://www.xailer.com
http://www.xailer.info
"Nick Hilder" <nick__NOSPAM__@capsol.com.au> escribió en el mensaje
news:[email=49c0befd@svctag-j7w3v3j....]49c0befd@svctag-j7w3v3j....[/email]
> Thanks for the feed back
>
> BTW, Xailer 2 is looking really good, it's great to see you guys seriously
> adding more and more features.
>
> Is the possiblity of Xailer working with harbour in the pipeline?
>
> Nick
>
> "Ignacio Ortiz de Zúñiga" <NoNameToAvoidSpam@xailer.com> wrote in message
> news:49c0bdb6$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
>> Nick,
>>
>> Your way to solve it is correct. I suggest you put all the bitmaps on a
>> animated GIF and use the second parameter of LoadFromFile() to load the
>> desired image. (only available on Xailer 2).
>>
>> Regards,
>>
>> --
>> Ignacio Ortiz de Zúñiga
>> Xailer support / Soporte de Xailer
>> http://www.xailer.com
>> http://www.xailer.info
>> "Nick Hilder" <nick_n0_spam_atcapsol.com.au> escribió en el mensaje
>> news:49c02bb8$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
>>> Hi Gents
>>>
>>> I ran out of time to try and do the thermometer as a control ('I'll come
>>> back to it) so I just created 8 bmp files that I use to make the guage
>>> move
>>>
>>> Here's how I did it, I'd like some feed back as to if I have done it
>>> correct. It works, but that doesn't mean it it done as it should be or
>>> could be.
>>>
>>> Thanks Nick
>>>
>>> METHOD Setup( oSender ) CLASS TGaugeForm
>>>
>>> ::aGauges := {}
>>> ::nGaugePosition := 1
>>>
>>> AADD(::aGauges, AppData:sAppPath + "20s.bmp")
>>> AADD(::aGauges, AppData:sAppPath + "120s.bmp")
>>> AADD(::aGauges, AppData:sAppPath + "220s.bmp")
>>> AADD(::aGauges, AppData:sAppPath + "320s.bmp")
>>> AADD(::aGauges, AppData:sAppPath + "420s.bmp")
>>> AADD(::aGauges, AppData:sAppPath + "520s.bmp")
>>> AADD(::aGauges, AppData:sAppPath + "620s.bmp")
>>> AADD(::aGauges, AppData:sAppPath + "720s.bmp")
>>> AADD(::aGauges, AppData:sAppPath + "720s+.bmp")
>>>
>>> ::oImage2:oPicture := TPicture():LoadFromFile(
>>> ::aGauges[::nGaugePosition])
>>>
>>>
>>> RETURN Nil
>>>
>>> METHOD Down( oSender ) CLASS TGaugeForm
>>>
>>> If ::nGaugePosition > 1
>>> ::nGaugePosition := ::nGaugePosition -1
>>> ::oImage2:oPicture := TPicture():LoadFromFile(
>>> ::aGauges[::nGaugePosition])
>>> EndIf
>>>
>>>
>>>
>>>
>>> RETURN Nil
>>>
>>> //---------------------------------------------------------- --------------------
>>>
>>> METHOD Up( oSender ) CLASS TGaugeForm
>>>
>>> If ::nGaugePosition < Len(::aGauges)
>>> ::nGaugePosition := ::nGaugePosition + 1
>>> ::oImage2:oPicture := TPicture():LoadFromFile(
>>> ::aGauges[::nGaugePosition])
>>> EndIf
>>>
>>>
>>> RETURN Nil
>>>
>>> //---------------------------------------------------------- --------------------
>>>
>>>
>>>
>>
>>
>
>
Ignacio Ortiz de Zúñiga
[OZ Software]
https://www.ozs.es
--
[Equipo de Xailer / Xailer team]
https://www.xailer.com
Arriba
Avatar de Usuario
ignacio
Site Admin
Mensajes: 9440
Registrado: Lun Abr 06, 2015 8:00 pm
Ubicación: Madrid, Spain
Contactar:
Contactar ignacio

Images

Mensaje por ignacio »

Nick,
> Is the possiblity of Xailer working with harbour in the pipeline?
Yes, that's our intention, but I can not give you a time frame for that.
Right now Harbour has almost all the extended functionalities we need in
Xailer and at this moment we believe Harbour has indeed overcome xHarbour in
many areas, but we believe that still now is little bit early to support
Harbour because the Harbour crew is still very active enhancing the
compiler. When Harbour settle down and we have some spare time ;-) it will
be the time.
Regards,
--
Ignacio Ortiz de Zúñiga
Xailer support / Soporte de Xailer
http://www.xailer.com
http://www.xailer.info
"Nick Hilder" <nick__NOSPAM__@capsol.com.au> escribió en el mensaje
news:[email=49c0befd@svctag-j7w3v3j....]49c0befd@svctag-j7w3v3j....[/email]
> Thanks for the feed back
>
> BTW, Xailer 2 is looking really good, it's great to see you guys seriously
> adding more and more features.
>
> Is the possiblity of Xailer working with harbour in the pipeline?
>
> Nick
>
> "Ignacio Ortiz de Zúñiga" <NoNameToAvoidSpam@xailer.com> wrote in message
> news:49c0bdb6$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
>> Nick,
>>
>> Your way to solve it is correct. I suggest you put all the bitmaps on a
>> animated GIF and use the second parameter of LoadFromFile() to load the
>> desired image. (only available on Xailer 2).
>>
>> Regards,
>>
>> --
>> Ignacio Ortiz de Zúñiga
>> Xailer support / Soporte de Xailer
>> http://www.xailer.com
>> http://www.xailer.info
>> "Nick Hilder" <nick_n0_spam_atcapsol.com.au> escribió en el mensaje
>> news:49c02bb8$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
>>> Hi Gents
>>>
>>> I ran out of time to try and do the thermometer as a control ('I'll come
>>> back to it) so I just created 8 bmp files that I use to make the guage
>>> move
>>>
>>> Here's how I did it, I'd like some feed back as to if I have done it
>>> correct. It works, but that doesn't mean it it done as it should be or
>>> could be.
>>>
>>> Thanks Nick
>>>
>>> METHOD Setup( oSender ) CLASS TGaugeForm
>>>
>>> ::aGauges := {}
>>> ::nGaugePosition := 1
>>>
>>> AADD(::aGauges, AppData:sAppPath + "20s.bmp")
>>> AADD(::aGauges, AppData:sAppPath + "120s.bmp")
>>> AADD(::aGauges, AppData:sAppPath + "220s.bmp")
>>> AADD(::aGauges, AppData:sAppPath + "320s.bmp")
>>> AADD(::aGauges, AppData:sAppPath + "420s.bmp")
>>> AADD(::aGauges, AppData:sAppPath + "520s.bmp")
>>> AADD(::aGauges, AppData:sAppPath + "620s.bmp")
>>> AADD(::aGauges, AppData:sAppPath + "720s.bmp")
>>> AADD(::aGauges, AppData:sAppPath + "720s+.bmp")
>>>
>>> ::oImage2:oPicture := TPicture():LoadFromFile(
>>> ::aGauges[::nGaugePosition])
>>>
>>>
>>> RETURN Nil
>>>
>>> METHOD Down( oSender ) CLASS TGaugeForm
>>>
>>> If ::nGaugePosition > 1
>>> ::nGaugePosition := ::nGaugePosition -1
>>> ::oImage2:oPicture := TPicture():LoadFromFile(
>>> ::aGauges[::nGaugePosition])
>>> EndIf
>>>
>>>
>>>
>>>
>>> RETURN Nil
>>>
>>> //---------------------------------------------------------- --------------------
>>>
>>> METHOD Up( oSender ) CLASS TGaugeForm
>>>
>>> If ::nGaugePosition < Len(::aGauges)
>>> ::nGaugePosition := ::nGaugePosition + 1
>>> ::oImage2:oPicture := TPicture():LoadFromFile(
>>> ::aGauges[::nGaugePosition])
>>> EndIf
>>>
>>>
>>> RETURN Nil
>>>
>>> //---------------------------------------------------------- --------------------
>>>
>>>
>>>
>>
>>
>
>
Ignacio Ortiz de Zúñiga
[OZ Software]
https://www.ozs.es
--
[Equipo de Xailer / Xailer team]
https://www.xailer.com
Arriba
Responder

Volver a “Xailer Pro English”