Re: BOS TAURUS: Questions and Suggestions
Posted: 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
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