Xailer & OZ Software

El entorno de desarrollo definitivo en Xbase
https://forum.xailer.com/

Images

https://forum.xailer.com/viewtopic.php?t=1321

Página 1 de 1

Images

Publicado: Mié Mar 18, 2009 12:01 am
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
//---------------------------------------------------------- --------------------

Images

Publicado: Mié Mar 18, 2009 7:41 am
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)Â

Images

Publicado: Mié Mar 18, 2009 7:41 am
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)Â

Images

Publicado: Mié Mar 18, 2009 10:24 am
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
>
> //---------------------------------------------------------- --------------------
>
>
>

Images

Publicado: Mié Mar 18, 2009 10:24 am
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
>
> //---------------------------------------------------------- --------------------
>
>
>

Images

Publicado: Mié Mar 18, 2009 10:29 am
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
>>
>> //---------------------------------------------------------- --------------------
>>
>>
>>
>
>

Images

Publicado: Mié Mar 18, 2009 10:29 am
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
>>
>> //---------------------------------------------------------- --------------------
>>
>>
>>
>
>

Images

Publicado: Mié Mar 18, 2009 11:17 am
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
>>>
>>> //---------------------------------------------------------- --------------------
>>>
>>>
>>>
>>
>>
>
>

Images

Publicado: Mié Mar 18, 2009 11:17 am
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
>>>
>>> //---------------------------------------------------------- --------------------
>>>
>>>
>>>
>>
>>
>
>
Todos los horarios son UTC+02:00
Página 1 de 1

Desarrollado por phpBB® Forum Software © phpBB Limited

Traducción al español por phpBB España