Window to messages

[mustafa]

Here I leave a window to get your message into programs

[mustafa]

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
*----------------------------------------*

Enjoy
Greetings

Mustafa

[Vanguarda]

thanks friend.


regards,