HMGforum.com

Exclusive forum for HMG, a Free / Open Source xBase WIN32/64 Bits / GUI Development System
http://www.hmgforum.com/

BOS TAURUS: Questions and Suggestions

http://www.hmgforum.com/viewtopic.php?t=2554

Page 3 of 5

Re: BOS TAURUS: Questions and Suggestions

Posted: Fri Nov 09, 2012 5:22 pm
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

Re: BOS TAURUS: Questions and Suggestions

Posted: Fri Nov 09, 2012 5:31 pm
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

Re: BOS TAURUS: Questions and Suggestions

Posted: Fri Nov 09, 2012 5:54 pm
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

Re: BOS TAURUS: Questions and Suggestions

Posted: Fri Nov 09, 2012 7:30 pm
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.

Re: BOS TAURUS: Questions and Suggestions

Posted: Fri Nov 09, 2012 9:17 pm
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 4931 times

Re: BOS TAURUS: Questions and Suggestions

Posted: Fri Nov 09, 2012 9:53 pm
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:

Re: BOS TAURUS: Questions and Suggestions

Posted: Fri Nov 09, 2012 9:56 pm
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

Re: BOS TAURUS: Questions and Suggestions

Posted: Fri Nov 09, 2012 10:02 pm
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

BOS TAURUS: Questions and Suggestions

Posted: Sat Nov 10, 2012 12:00 am
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 !

Re: BOS TAURUS: Questions and Suggestions

Posted: Sat Nov 10, 2012 7:20 am
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
All times are UTC
Page 3 of 5

Powered by phpBB® Forum Software © phpBB Limited