Window to messages
Posted: Thu Jul 02, 2009 5:02 pm
Here I leave a window to get your message into programs
Code: Select all
* ---------------- Programa: Window.prg -------------------------------*
* ---------------- Autor: Mustafa López ----------------------------*
* ---------------- Generado: 01/07/2009 21:31:57 ----------------------*
#include "minigui.ch"
Function MAIN
*--------------------------------------*
SET TOOLTIPSTYLE BALLOON
SET TOOLTIPBACKCOLOR {255,255,184 }
SET TOOLTIPFORECOLOR {0,0,0 }
*--------------------------------------*
DEFINE WINDOW Win_1 ;
AT 0,0 ;
WIDTH 490 ;
HEIGHT 330 ;
MAIN ;
NOCAPTION ;
NOSIZE ;
NOMAXIMIZE ;
BACKCOLOR {0, 0, 0} ;
TOPMOST ;
ON INIT Action()
END WINDOW
CENTER WINDOW Win_1
ACTIVATE WINDOW Win_1
RETURN
*----------------------------------*
PROCEDURE Action()
DEFINE WINDOW Win_2 ;
AT 0,0 ;
WIDTH 478 ;
HEIGHT 320 ;
CHILD ;
NOCAPTION ;
NOSIZE ;
NOMAXIMIZE ;
BACKCOLOR {0, 128, 192} ;
TOPMOST
ON KEY ESCAPE ACTION (Win_1.Release ,Win_2.Release)
@ 078, 063 LABEL Talbal_01C VALUE "Window Demo" AUTOSIZE ;
FONT "Verdana" SIZE 35 BOLD ITALIC ;
FONTCOLOR BLACK TRANSPARENT
@ 075, 060 LABEL Talbal_02C VALUE "Window Demo" AUTOSIZE ;
FONT "Verdana" SIZE 35 BOLD ITALIC ;
FONTCOLOR { 151, 223, 255 } TRANSPARENT
@ 158, 126 LABEL Talbal_03C VALUE "mustalopez@gmail.com" AUTOSIZE ;
FONT "Verdana" SIZE 13 BOLD ITALIC ;
FONTCOLOR BLACK TRANSPARENT
@ 155, 123 LABEL Talbal_04C VALUE "mustalopez@gmail.com" AUTOSIZE ;
FONT "Verdana" SIZE 13 BOLD ITALIC ;
FONTCOLOR { 151, 223, 255 } TRANSPARENT
@ 250,310 BUTTON BuTON_01;
CAPTION 'Esc' ;
ACTION (Win_1.Release ,Win_2.Release) ;
TOOLTIP 'Exit Program'
END WINDOW
CENTER WINDOW Win_2
ACTIVATE WINDOW Win_2
RETURN
*----------------------------------------*
Greetings
Mustafa