BOS TAURUS: Questions and Suggestions

Source code related resources

Moderator: Rathinagiri

User avatar
srvet_claudio
Posts: 2193
Joined: Thu Feb 25, 2010 8:43 pm
Location: Uruguay
Contact:

Re: BOS TAURUS: Questions and Suggestions

Post by srvet_claudio »

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: 2611
Joined: Fri Apr 09, 2010 4:53 pm
Location: Argentina
Contact:

Re: BOS TAURUS: Questions and Suggestions

Post by danielmaximiliano »

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
*´¨)
¸.·´¸.·*´¨) ¸.·*¨)
(¸.·´. (¸.·` *
.·`. Harbour/HMG : It's magic !
(¸.·``··*

Saludos / Regards
DaNiElMaXiMiLiAnO

Whatsapp. := +54901169026142
Telegram Name := DaNiElMaXiMiLiAnO
User avatar
danielmaximiliano
Posts: 2611
Joined: Fri Apr 09, 2010 4:53 pm
Location: Argentina
Contact:

Re: BOS TAURUS: Questions and Suggestions

Post by danielmaximiliano »

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
*´¨)
¸.·´¸.·*´¨) ¸.·*¨)
(¸.·´. (¸.·` *
.·`. Harbour/HMG : It's magic !
(¸.·``··*

Saludos / Regards
DaNiElMaXiMiLiAnO

Whatsapp. := +54901169026142
Telegram Name := DaNiElMaXiMiLiAnO
User avatar
srvet_claudio
Posts: 2193
Joined: Thu Feb 25, 2010 8:43 pm
Location: Uruguay
Contact:

Re: BOS TAURUS: Questions and Suggestions

Post by srvet_claudio »

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: 2611
Joined: Fri Apr 09, 2010 4:53 pm
Location: Argentina
Contact:

Re: BOS TAURUS: Questions and Suggestions

Post by danielmaximiliano »

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 4844 times
*´¨)
¸.·´¸.·*´¨) ¸.·*¨)
(¸.·´. (¸.·` *
.·`. Harbour/HMG : It's magic !
(¸.·``··*

Saludos / Regards
DaNiElMaXiMiLiAnO

Whatsapp. := +54901169026142
Telegram Name := DaNiElMaXiMiLiAnO
User avatar
srvet_claudio
Posts: 2193
Joined: Thu Feb 25, 2010 8:43 pm
Location: Uruguay
Contact:

Re: BOS TAURUS: Questions and Suggestions

Post by srvet_claudio »

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 4842 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: 4543
Joined: Wed Jul 30, 2008 9:17 pm
DBs Used: DBF
Location: iskenderun / Turkiye
Contact:

Re: BOS TAURUS: Questions and Suggestions

Post by esgici »

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: 2193
Joined: Thu Feb 25, 2010 8:43 pm
Location: Uruguay
Contact:

Re: BOS TAURUS: Questions and Suggestions

Post by srvet_claudio »

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

BOS TAURUS: Questions and Suggestions

Post by Pablo César »

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: 4543
Joined: Wed Jul 30, 2008 9:17 pm
DBs Used: DBF
Location: iskenderun / Turkiye
Contact:

Re: BOS TAURUS: Questions and Suggestions

Post by esgici »

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