BOS TAURUS: Questions and Suggestions

Source code related resources

Moderator: Rathinagiri

User avatar
srvet_claudio
Posts: 2044
Joined: Thu Feb 25, 2010 8:43 pm
Location: Uruguay
Has thanked: 35 times
Been thanked: 146 times
Contact:

Re: BOS TAURUS: Questions and Suggestions

Post by srvet_claudio » Fri Nov 09, 2012 5:22 pm

Hola Daniel.

Esta es la versión correcta:
/*****************************************************************************/   
 Procedure ON_PAINT_Incomming()
/*****************************************************************************/
 LOCAL nWidth  := BT_ClientAreaWidth  ("Incomming")
 LOCAL nHeight := BT_ClientAreaHeight ("Incomming") 
 LOCAL hDC, BTstruct
   hDC = BT_CreateDC ("Incomming", BT_HDC_INVALIDCLIENTAREA, @BTstruct)
    BT_DrawFillRectangle (hDC, 100 ,   2 , nWidth , nHeight  , GREEN , GREEN , 1 )
    BT_DrawFillRoundRect (hDC, 190 , 445 ,  575 , 410 , 8, 8 , GREEN , WHITE , 2)
BT_DeleteDC (BTstruct) // <--- Falta esta sentencia, libera el handle y valida el area del cliente
 Return

Fíjate los siguiente estos posts:
viewtopic.php?p=22558#p22558

viewtopic.php?p=22569&f=2#p22569

Un abrazo,
Claudio
Best regards.
Dr. Claudio Soto
(from Uruguay)
http://srvet.blogspot.com

User avatar
danielmaximiliano
Posts: 2105
Joined: Fri Apr 09, 2010 4:53 pm
Location: Argentina
Has thanked: 128 times
Been thanked: 16 times
Contact:

Post by danielmaximiliano » Fri Nov 09, 2012 5:31 pm

Gracias Claudio seguire sus indicaciones en los enlaces respectivos.
recompilare la libreria HCFL y modificare las lineas de mi applicacion.

PD: aqui esta lloviendo mucho y yo estoy en buen "puerto" :D
*´¨)
¸.·´¸.·*´¨) ¸.·*¨)
(¸.·´. (¸.·` *
.·`.HMG : It's magic !
(¸.·``··*

Saludos / Regards
DaNiElMaXiMiLiAnO

Whatsapp. : +54901169026142
Telegram Name : DaNiElMaXiMiLiAnO

User avatar
danielmaximiliano
Posts: 2105
Joined: Fri Apr 09, 2010 4:53 pm
Location: Argentina
Has thanked: 128 times
Been thanked: 16 times
Contact:

Post by danielmaximiliano » Fri Nov 09, 2012 5:54 pm

danielmaximiliano wrote:Gracias Claudio seguire sus indicaciones en los enlaces respectivos.
recompilare la libreria HCFL y modificare las lineas de mi applicacion.

PD: aqui esta lloviendo mucho y yo estoy en buen "puerto" :D
Malas nuevas :
sigue el inconveniente , modifique las lineas y quedo asi
/*****************************************************************************/
Procedure ON_PAINT_Incomming()
/*****************************************************************************/
LOCAL nWidth := BT_ClientAreaWidth ("Incomming")
LOCAL nHeight := BT_ClientAreaHeight ("Incomming")
LOCAL hDC, BTstruct , nTypeText
nTypeText := BT_TEXT_OPAQUE + BT_TEXT_BOLD + BT_TEXT_UNDERLINE + BT_TEXT_ITALIC
hDC = BT_CreateDC ("Incomming", BT_HDC_INVALIDCLIENTAREA, @BTstruct)
/*BT_FillRectangle (hDC, 100 , 2 , nWidth , nHeight , GREEN , GREEN , 1 )
BT_FillRoundRect (hDC, 190 , 445 , 575 , 410 , 8, 8 , GREEN , WHITE , 2) */
BT_DrawFillRectangle (hDC, 100 , 2 , nWidth , nHeight , GREEN , GREEN , 1 )
BT_DrawFillRoundRect (hDC, 190 , 445 , 575 , 410 , 8, 8 , GREEN , WHITE , 2)
BT_DeleteDC (BTstruct) // <--- Falta esta sentencia, libera el handle y valida el area del cliente
Return
Elimine la libreria C:\hmg.3.0.46\LIB\libhfcl.a , elimine "-inc" y recompile la libreria y sigue igual.

puede ser que el texto este escribiendose sobre el Toolbar y sea inadecuado hacerlo ?
o al repintar la ventada nueva el texto quede debajo del toolbar y no se muestre ?

este es el ejemplo : Correo electrónico entrante a través de SSL / incoming Email
*´¨)
¸.·´¸.·*´¨) ¸.·*¨)
(¸.·´. (¸.·` *
.·`.HMG : It's magic !
(¸.·``··*

Saludos / Regards
DaNiElMaXiMiLiAnO

Whatsapp. : +54901169026142
Telegram Name : DaNiElMaXiMiLiAnO

User avatar
srvet_claudio
Posts: 2044
Joined: Thu Feb 25, 2010 8:43 pm
Location: Uruguay
Has thanked: 35 times
Been thanked: 146 times
Contact:

Post by srvet_claudio » Fri Nov 09, 2012 7:30 pm

danielmaximiliano wrote:puede ser que el texto este escribiendose sobre el Toolbar y sea inadecuado hacerlo ?
o al repintar la ventada nueva el texto quede debajo del toolbar y no se muestre ?
Hola Daniel.
El problema no es con BT, si eliminas ON PAINT ON_PAINT_Incomming() el problema persiste, pero puede ser solucionado con una funcion de BT.

El problema esta en que el label escribe sobre el toolbar, lo que hace que la ventana no se actualice adecuadamente, por lo tanto hay que forzar su re-pintura.

Debajo de cada sentencia (hay 3 en Incomming.prg):
Incomming.ToolBar.Enabled := .T.
agregá:
BT_ClientAreaInvalidateAll ("Incomming")
y problema solucionado.

Un abrazo,
Claudio.
Best regards.
Dr. Claudio Soto
(from Uruguay)
http://srvet.blogspot.com

User avatar
danielmaximiliano
Posts: 2105
Joined: Fri Apr 09, 2010 4:53 pm
Location: Argentina
Has thanked: 128 times
Been thanked: 16 times
Contact:

Post by danielmaximiliano » Fri Nov 09, 2012 9:17 pm

srvet_claudio wrote: Debajo de cada sentencia (hay 3 en Incomming.prg):
Incomming.ToolBar.Enabled := .T.
agregá:
BT_ClientAreaInvalidateAll ("Incomming")
y problema solucionado.

Un abrazo,
Claudio.
Exáctamente es asi Claudio, ;) buena solución.
muchas gracias por el TIP, como a Rathi le estamos haciendo una estatua. :mrgreen:
Vaca_y_computadora[1].jpg
Vaca_y_computadora[1].jpg (17.78 KiB) Viewed 2016 times
*´¨)
¸.·´¸.·*´¨) ¸.·*¨)
(¸.·´. (¸.·` *
.·`.HMG : It's magic !
(¸.·``··*

Saludos / Regards
DaNiElMaXiMiLiAnO

Whatsapp. : +54901169026142
Telegram Name : DaNiElMaXiMiLiAnO

User avatar
srvet_claudio
Posts: 2044
Joined: Thu Feb 25, 2010 8:43 pm
Location: Uruguay
Has thanked: 35 times
Been thanked: 146 times
Contact:

Post by srvet_claudio » Fri Nov 09, 2012 9:53 pm

danielmaximiliano wrote:
srvet_claudio wrote: Debajo de cada sentencia (hay 3 en Incomming.prg):
Incomming.ToolBar.Enabled := .T.
agregá:
BT_ClientAreaInvalidateAll ("Incomming")
y problema solucionado.

Un abrazo,
Claudio.
Exáctamente es asi Claudio, ;) buena solución.
muchas gracias por el TIP, como a Rathi le estamos haciendo una estatua. :mrgreen:
The attachment Vaca_y_computadora[1].jpg is no longer available


Esa imagen me define en forma perfecta, mis dos amores: las vacas y las computadoras, además de mi esposa por supuesto... :lol: :lol: :lol:

This picture defines me perfectly, my two loves: the cows and the computers, also my wife of course... :lol: :lol: :lol:
Attachments
Vaca_y_computadora.jpg
Vaca_y_computadora.jpg (17.78 KiB) Viewed 2014 times
Last edited by srvet_claudio on Fri Nov 09, 2012 9:57 pm, edited 1 time in total.
Best regards.
Dr. Claudio Soto
(from Uruguay)
http://srvet.blogspot.com

User avatar
esgici
Posts: 4502
Joined: Wed Jul 30, 2008 9:17 pm
DBs Used: DBF
Location: iskenderun / Turkiye
Has thanked: 371 times
Been thanked: 111 times
Contact:

Post by esgici » Fri Nov 09, 2012 9:56 pm

Hi friends; Claudio, Pablo and Daniel;

Could you like allow us to join to this pleasant chat :?:

( by using a non-regional language )

Regards
Viva INTERNATIONAL HMG :D

User avatar
srvet_claudio
Posts: 2044
Joined: Thu Feb 25, 2010 8:43 pm
Location: Uruguay
Has thanked: 35 times
Been thanked: 146 times
Contact:

Post by srvet_claudio » Fri Nov 09, 2012 10:02 pm

esgici wrote:Hi friends; Claudio, Pablo and Daniel;

Could you like allow us to join to this pleasant chat

( by using a non-regional language )

Regards
Hi Brother Esgici,
I sorry, you're right :oops:
Best regards,
Claudio
Best regards.
Dr. Claudio Soto
(from Uruguay)
http://srvet.blogspot.com

User avatar
Pablo César
Posts: 4059
Joined: Wed Sep 08, 2010 1:18 pm
Location: Curitiba - Brasil
Has thanked: 100 times
Been thanked: 182 times

Post by Pablo César » Sat Nov 10, 2012 12:00 am

We could write in both languages, just to make easier understanding in Spanish and in English, when messages is directed to spanish native speaker. Because, we lose so much time trying to write correctly in English, so our ideas becomes weak. In that way we can make in both languages. Right ?
This picture defines me perfectly, my two loves: the cows and the computers, also my wife of course...
Lovely !
HMGing a better world
"Matter tells space how to curve, space tells matter how to move."
Albert Einstein

User avatar
esgici
Posts: 4502
Joined: Wed Jul 30, 2008 9:17 pm
DBs Used: DBF
Location: iskenderun / Turkiye
Has thanked: 371 times
Been thanked: 111 times
Contact:

Post by esgici » Sat Nov 10, 2012 7:20 am

Hi Pablo
Pablo César wrote:...when messages is directed to spanish native speaker.... Right ?
Sorry, no; this time I don't agreed with you :(

IMO no message can be directed to this or that speaker; all messages must be directed to ALL members ;)

( My request was about single language posts. )

Regards
Viva INTERNATIONAL HMG :D

Post Reply