BOS TAURUS: Questions and Suggestions
Moderator: Rathinagiri
- srvet_claudio
- Posts: 2193
- Joined: Thu Feb 25, 2010 8:43 pm
- Location: Uruguay
- Contact:
Re: BOS TAURUS: Questions and Suggestions
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
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
- danielmaximiliano
- Posts: 2612
- Joined: Fri Apr 09, 2010 4:53 pm
- Location: Argentina
- Contact:
Re: BOS TAURUS: Questions and Suggestions
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"
recompilare la libreria HCFL y modificare las lineas de mi applicacion.
PD: aqui esta lloviendo mucho y yo estoy en buen "puerto"
*´¨)
¸.·´¸.·*´¨) ¸.·*¨)
(¸.·´. (¸.·` *
.·`. Harbour/HMG : It's magic !
(¸.·``··*
Saludos / Regards
DaNiElMaXiMiLiAnO
Whatsapp. := +54901169026142
Telegram Name := DaNiElMaXiMiLiAnO
¸.·´¸.·*´¨) ¸.·*¨)
(¸.·´. (¸.·` *
.·`. Harbour/HMG : It's magic !
(¸.·``··*
Saludos / Regards
DaNiElMaXiMiLiAnO
Whatsapp. := +54901169026142
Telegram Name := DaNiElMaXiMiLiAnO
- danielmaximiliano
- Posts: 2612
- Joined: Fri Apr 09, 2010 4:53 pm
- Location: Argentina
- Contact:
Re: BOS TAURUS: Questions and Suggestions
Malas nuevas :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"
sigue el inconveniente , modifique las lineas y quedo asi
Elimine la libreria C:\hmg.3.0.46\LIB\libhfcl.a , elimine "-inc" y recompile la libreria y sigue igual./*****************************************************************************/
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
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
¸.·´¸.·*´¨) ¸.·*¨)
(¸.·´. (¸.·` *
.·`. Harbour/HMG : It's magic !
(¸.·``··*
Saludos / Regards
DaNiElMaXiMiLiAnO
Whatsapp. := +54901169026142
Telegram Name := DaNiElMaXiMiLiAnO
- srvet_claudio
- Posts: 2193
- Joined: Thu Feb 25, 2010 8:43 pm
- Location: Uruguay
- Contact:
Re: BOS TAURUS: Questions and Suggestions
Hola Daniel.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 ?
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.
- danielmaximiliano
- Posts: 2612
- Joined: Fri Apr 09, 2010 4:53 pm
- Location: Argentina
- Contact:
Re: BOS TAURUS: Questions and Suggestions
Exáctamente es asi Claudio, buena solución.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.
muchas gracias por el TIP, como a Rathi le estamos haciendo una estatua.
*´¨)
¸.·´¸.·*´¨) ¸.·*¨)
(¸.·´. (¸.·` *
.·`. Harbour/HMG : It's magic !
(¸.·``··*
Saludos / Regards
DaNiElMaXiMiLiAnO
Whatsapp. := +54901169026142
Telegram Name := DaNiElMaXiMiLiAnO
¸.·´¸.·*´¨) ¸.·*¨)
(¸.·´. (¸.·` *
.·`. Harbour/HMG : It's magic !
(¸.·``··*
Saludos / Regards
DaNiElMaXiMiLiAnO
Whatsapp. := +54901169026142
Telegram Name := DaNiElMaXiMiLiAnO
- srvet_claudio
- Posts: 2193
- Joined: Thu Feb 25, 2010 8:43 pm
- Location: Uruguay
- Contact:
Re: BOS TAURUS: Questions and Suggestions
danielmaximiliano wrote:Exáctamente es asi Claudio, buena solución.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.
muchas gracias por el TIP, como a Rathi le estamos haciendo una estatua.
Esa imagen me define en forma perfecta, mis dos amores: las vacas y las computadoras, además de mi esposa por supuesto...
This picture defines me perfectly, my two loves: the cows and the computers, also my wife of course...
- Attachments
-
- Vaca_y_computadora.jpg (17.78 KiB) Viewed 5017 times
Last edited by srvet_claudio on Fri Nov 09, 2012 9:57 pm, edited 1 time in total.
- esgici
- Posts: 4543
- Joined: Wed Jul 30, 2008 9:17 pm
- DBs Used: DBF
- Location: iskenderun / Turkiye
- Contact:
Re: BOS TAURUS: Questions and Suggestions
Hi friends; Claudio, Pablo and Daniel;
Could you like allow us to join to this pleasant chat
( by using a non-regional language )
Regards
Could you like allow us to join to this pleasant chat
( by using a non-regional language )
Regards
Viva INTERNATIONAL HMG
- srvet_claudio
- Posts: 2193
- Joined: Thu Feb 25, 2010 8:43 pm
- Location: Uruguay
- Contact:
Re: BOS TAURUS: Questions and Suggestions
Hi Brother Esgici,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
I sorry, you're right
Best regards,
Claudio
- Pablo César
- Posts: 4059
- Joined: Wed Sep 08, 2010 1:18 pm
- Location: Curitiba - Brasil
BOS TAURUS: Questions and Suggestions
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 ?
Lovely !This picture defines me perfectly, my two loves: the cows and the computers, also my wife of course...
HMGing a better world
"Matter tells space how to curve, space tells matter how to move."
Albert Einstein
"Matter tells space how to curve, space tells matter how to move."
Albert Einstein
- esgici
- Posts: 4543
- Joined: Wed Jul 30, 2008 9:17 pm
- DBs Used: DBF
- Location: iskenderun / Turkiye
- Contact:
Re: BOS TAURUS: Questions and Suggestions
Hi Pablo
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
Sorry, no; this time I don't agreed with youPablo César wrote:...when messages is directed to spanish native speaker.... Right ?
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