#include ColorConstants.au3>
#include GUIConstantsEx.au3>
; Juan A. Villalpando - KIO4.COM
$Formulario = GUICreate("Gráficos", 600, 600)
$zona_grafica = GUICtrlCreateGraphic(30, 70, 400, 400)
GUICtrlSetBkColor($zona_grafica, $COLOR_YELLOW) ; Fondo amarillo.
GUICtrlSetGraphic($zona_grafica, $GUI_GR_COLOR, 0xff0000, 0xff0000)
GUICtrlSetGraphic($zona_grafica, $GUI_GR_PIE, 50, 50, 40, 30, 270) ; Tarta roja
GUICtrlSetGraphic($zona_grafica, $GUI_GR_COLOR, 0x009900, 0x009900)
GUICtrlSetGraphic($zona_grafica, $GUI_GR_PIE, 70, 150, 40, -60, 90) ; Tarta verde
GUICtrlSetGraphic($zona_grafica, $GUI_GR_PENSIZE, 12)
GUICtrlSetGraphic($zona_grafica, $GUI_GR_COLOR, 0x0000ff,0x0000ff)
GUICtrlSetGraphic($zona_grafica, $GUI_GR_MOVE, 300, 300)
GUICtrlSetGraphic($zona_grafica, $GUI_GR_LINE, 450, 450) ; Línea azul
GUICtrlSetGraphic($zona_grafica, $GUI_GR_PENSIZE, 4)
GUICtrlSetGraphic($zona_grafica, $GUI_GR_COLOR, 0x0000ff,0x0000ff)
GUICtrlSetGraphic($zona_grafica, $GUI_GR_DOT, 200, 100) ; Punto azul
GUICtrlSetGraphic($zona_grafica, $GUI_GR_PENSIZE, 6)
GUICtrlSetGraphic($zona_grafica, $GUI_GR_COLOR, 0xff0000,0xff0000)
GUICtrlSetGraphic($zona_grafica, $GUI_GR_ELLIPSE, 190, 450, 40, 40) ; Círculo rojo final
Local $Etiqueta = GUICtrlCreateLabel("Texto sobre fondo rojo", 10, 10, 185, 17)
Local $Boton1 = GUICtrlCreateButton("Cerrar el Formulario", 50, 500, 180, 40)
; Poner la Etiqueta con fondo ROJO y letras BLANCAS
GUICtrlSetBkColor($Etiqueta, $COLOR_RED)
GUICtrlSetColor($Etiqueta, $COLOR_WHITE)
; Muestra el Formulario
GUISetState(@SW_SHOW, $Formulario)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; $hwnd = WinGetHandle("Gráficos", "")
$hwnd = WinGetHandle("[ACTIVE]") ; handle, es un identificador de la ventana
$coordenadas = PixelSearch(0, 0, 600, 600, 0xff0000, 1, 1, $hwnd)
MouseMove($coordenadas[0],$coordenadas[1])
Sleep(2000)
$coordenadas = PixelSearch(0, 0, 600, 600, 0x009900, 1, 1, $hwnd)
MouseMove($coordenadas[0],$coordenadas[1])
Sleep(2000)
$coordenadas = PixelSearch(0, 0, 600, 600, 0x0000ff, 1, 1, $hwnd)
MouseMove($coordenadas[0],$coordenadas[1])
Sleep(2000)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; Bucle hasta que el usuario pulse el Boton1 para Salir.
While 1
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE, $Boton1
ExitLoop
EndSwitch
WEnd
GUIDelete($Formulario) ; Borra el Formulario.
|