Window to messages
Moderator: Rathinagiri
- mustafa
- Posts: 1160
- Joined: Fri Mar 20, 2009 11:38 am
- DBs Used: DBF
- Location: Alicante - Spain
- Contact:
Window to messages
Here I leave a window to get your message into programs
- Attachments
-
- Window.jpg (20.86 KiB) Viewed 3617 times
- mustafa
- Posts: 1160
- Joined: Fri Mar 20, 2009 11:38 am
- DBs Used: DBF
- Location: Alicante - Spain
- Contact:
Re: Window to messages
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
Last edited by mustafa on Tue Feb 18, 2020 11:13 am, edited 1 time in total.
Re: Window to messages
thanks friend.
regards,
regards,