Hellow Mr. Grigory Filatov
Thank you very much for your kind answer.
No entendí muy bien su solución
Pero me dió una idea fantástica, para mí
A continuación comparto mi solución (gracias a Ud).
Code: Select all
#include "hmg.ch"
Function Main()
DEFINE WINDOW ABC AT 0,0 WIDTH 500 HEIGHT 500 BACKCOLOR {0,125,250} MAIN
@ 050,100 BUTTON B1 CAPTION 'DIBUJA' WIDTH 100 HEIGHT 40 ONCLICK DIBUJA()
@ 050,220 BUTTON B2 CAPTION 'DESDIBUJA' WIDTH 100 HEIGHT 40 ONCLICK DESDIBUJA()
@ 150,100 LABEL L1 VALUE "69" WIDTH 60 HEIGHT 50 FONT "TAHOMA" SIZE 36 BOLD FONTCOLOR WHITE TRANSPARENT
ON KEY ESCAPE ACTION ABC.Release
END WINDOW
ABC.MAXIMIZE
ABC.ACTIVATE
Return
*--------------
Function DIBUJA
DRAW LINE IN WINDOW ABC AT 158,098 TO 158,163 // ARRIBA
DRAW LINE IN WINDOW ABC AT 158,098 TO 202,098 // LADO IZQ
DRAW LINE IN WINDOW ABC AT 158,163 TO 202,163 // LADO DER
DRAW LINE IN WINDOW ABC AT 202,098 TO 202,163 // ABAJO
*-----------------
Function DESDIBUJA
DRAW LINE IN WINDOW ABC AT 158,098 TO 158,163 PENCOLOR {0,125,250} // ARRIBA
DRAW LINE IN WINDOW ABC AT 158,098 TO 202,098 PENCOLOR {0,125,250} // LADO IZQ
DRAW LINE IN WINDOW ABC AT 158,163 TO 202,163 PENCOLOR {0,125,250} // LADO DER
DRAW LINE IN WINDOW ABC AT 202,098 TO 202,163 PENCOLOR {0,125,250} // ABAJO
Regards
Louis
P.D.- Si la Function DIBUJA estuviera en modo BLINKER sería Fabuloso ...