001 | ** MANDRAGORE PLANETE https://getms4bi.com
002 |
003 | GLOBAL
004 | #include
"#SYSPATHMS4BI
+\zInclude\IncludeSysMs4Windows.h"
005 | CHAR
: Msgframe1:255
,Msgframe2:255
, Gnumber:6
;
006 | INTEGER
:X,I,ystop;
007 | INTEGER
: Inverse := 1
,Noinverse :=0 ;
008 | End_Global
009 |
010 | Begin_Main
011 | Screen_PRESENTATION(Void
) ;
012 | End_Main
013 |
014 | PROC
Screen_PRESENTATION(Void
)
015 | begin_proc
016 | LOCAL
017 | CHAR
: PostalAddress:512
:= " $n $n $n 15
rue des Halles $n 75001
Paris $n FRANCE
018 | $n New Branches Opening Soon :$n .Bordeaux, FRANCE $n .Austin, USA $n .Montreal, CANADA ";
019 |
020 |
021 | INTEGER
: Exit_TRANS1 :=0;
022 | LONG
: Color1 ;
023 | CHAR
:FilePath:255
,FileCurrentDir:255
, fileMgPlaneteLogo:128
, filehandlcur:128
;
024 |
025 | End_Local
026 |
027 | Begin_Transaction
: Trans1
Execute
Transaction
With
Exit_TRANS1
!= 1
028 | Begin_Dialog
029 | BackgroundColor
: Color(192
,193
,218
)
030 | WinExtendStyle
: :WS_EX_CLIENTEDGE
031 | WinStyle
: :WS_OVERLAPPED & CenterDialog
032 |
033 | 1
, 1
, 800
,600
, "MS 4
: Presentation ",UserDialog
034 |
035 | ** Frame0 is Shadow/Ombre
036 | Frame
1
2
,1
,723
, 593
, Frame
0 Attribut
:
037 | FillColor
: 144
,136
,176
038 | FrameColor
: 144
,136
,176
039 | SetColorText
: 166
, 69
,111
040 | DrawText
: Dt_LEFT
041 | SetFonts
:
042 | 12
,8
,0,0,Fw_EXTRABOLD,0,0,0,"Arial"
043 |
044 | Frame
1
0
,1
,720
, 590
, Frame
1
Attribut
:
045 | FillColor
: 192
,193
,218
046 | FrameColor
: 255
,255
,255
047 | SetColorText
: 166
, 69
,111
048 | DrawText
: Dt_LEFT
049 | SetFonts
:
050 | 12
,8
,0,0,Fw_EXTRABOLD,0,0,0,"Arial"
051 |
052 | Frame
52
, 2
,675
, 50
, Wtitle1 Attribut
:
053 | FillColor
: 144
,136
,176
054 | FrameColor
: 250
,250
,250
055 | SetColorText
: 185
,50
,90
056 | DrawText
: Dt_CENTER
057 | SetFonts
:
058 | 30
,18
,0,0,Fw_EXTRABOLD,0,0,0,"Calibri"
059 |
060 | /* Bar
des options ----------------------------------------------------------------------*/
061 | Frame
15
,60
,15
5, 438
, Frame
2 Attribut
:
062 | FillColor
: 192
,193
,218
063 | FrameColor
: 255
,255
,255
064 | SetColorText
: 166
, 69
,111
065 | DrawText
: Dt_LEFT
066 | SetFonts
:
067 | 12
,8
,60
,0,Fw_EXTRABOLD,0,0,0,"Arial"
068 |
069 | Frame
15
,60
,15
5, 32
, Wtitle2 Attribut
:
070 | FillColor
: 255
,255
,255
**144
,16
,176
071 | FrameColor
: 250
,250
,250
072 | SetColorText
: 185
,50
,90
073 | DrawText
: Dt_LEFT
074 | SetFonts
:
075 | 1
2
,8
,0,0,Fw_NORMAL,1
,1
,0,"Arial"
076 |
077 | PictureGIF
94
,62
, "#SYSPATHMS4BI
+\zPicture\Gif\droite01.gif",Gifms42 ** or constante path or see you : loadPicture
..
078 | /* -Text Demo
---------------------------------------------------------------------------------------------------------- */
079 |
080 | Frame
170
,60
,560
,435
, Frame
3 Attribut
:
081 | FillColor
: 236
,255
,191
082 | FrameColor
: 166
, 69
,111
083 | SetColorText
: 0,0,0
084 | DrawText
: Dt_LEFT
085 | SetFonts
:
086 | 12
,8
,0,0,Fw_NORMAL,0,0,0,"New Courrier"
087 |
088 | Frame
170
,61
,560
, 32
, Wtitle3 Attribut
:
089 | FillColor
: 0,0,0
090 | FrameColor
: 250
,250
,250
091 | SetColorText
: 255
,255
,0
092 | DrawText
: Dt_CENTER
093 | SetFonts
:
094 | 21
,1
2
,0,0,Fw_EXTRABOLD,0,1
,0,"Arial"
095 |
096 | PictureBMP
220
, 100
,"#SYSPATHMS4BI
+\zPicture\Bmp\mgplanete.bmp",Bmpeu ** or constante path or see you : loadPicture
..
097 |
098 | Frame
450
,110
,260
,360
, Frame
4 Attribut
:
099 | FillColor
: 236
,215
,191
100 | FrameColor
: 166
, 69
,111
101 | SetColorText
: 0,0,0
102 | DrawText
: Dt_LEFT
103 | SetFonts
:
104 | 18
,8
,0,0,Fw_NORMAL,0,0,0,"Segeo UI"
105 |
106 | Frame
450
,110
,260
,30
, Wtitle4 Attribut
:
107 | FillColor
: 236
,215
,143
108 | FrameColor
: 166
, 69
,111
109 | SetColorText
: 0,0,0
110 | DrawText
: Dt_LEFT
111 | SetFonts
:
112 | 12
,8
,0,0,Fw_NORMAL,0,0,0,"New Courrier"
113 |
114 |
115 |
116 | /*Exit
----------------------------------------------------------------------------------------------------------- */
117 | Elliptical
2
,540
,48
,48
, Cercle1 Attribut
:
118 | FillColor
: 201
,255
,160
119 | FrameColor
: 144
,136
,176
120 | ShadowText
: -1
, -3
Color(0,255
,0)
121 | SetColorText
: 166
, 69
,111
122 | DrawText
: Dt_CENTER
123 | SetFonts
:
124 | 1
2
,8
,0,0,Fw_EXTRABOLD,1
,1
,0,"Arial"
125 |
126 | ButtonRegionChild
2
,540
,48
,48
, ButtonQuit
127 | Create
:
128 | Info
" Option
@ Exit
",
129 | Use
Cursor
"#SYSPATHMS4BI
+\zPicture\Cursor
\hand-l.cur" ,
130 | PictureGIF
60
, 540
,"#SYSPATHMS4BI
+\zPicture\Gif\GifAnimate\iExplorer.gif",Gifexplorer ** or constante path or see you : loadPicture
..
131 |
132 | ButtonText
140
,540
, 180
,25
, " www.mgplanete.com ", Buttonwww
133 | Create
:
134 | Info
" Internet @ www.mgplanete.com",
135 | Use
Cursor
"#SYSPATHMS4BI
+\zPicture\Cursor
\hand-l.cur"
136 |
137 | PictureGIF
340
, 540
,"#SYSPATHMS4BI
+\zPicture\Gif\courrier.gif",Gifcourrier ** or constante path or see you : loadPicture
..
138 |
139 | ButtonText
370
, 540
,220
,25
, " contact@mgplanete.com" ,Buttonemail
140 | Create
:
141 | Info
" Option
Internet @ Email : Contact MANDRAGORE",
142 | Use
Cursor
"#SYSPATHMS4BI
+\zPicture\Cursor
\hand-l.cur",
143 |
144 | PictureGIF
610
,510
, "#SYSPATHMS4BI
+\zPicture\Gif\jumelle.gif",Gifjumelle
145 | ButtonRegionChild
610
,510
,80
,60
, Buttonjumelle
146 | Create
:
147 | Info
"Notepad @ Load source
pgm "
148 | Use
Cursor
"#SYSPATHMS4BI
+\zPicture\Cursor
\hand-l.cur"
149 |
150 | End_Dialog
151 | Begin_Splash
152 | BackgroundColor
: Color(192
,193
,218
)
153 | WinExtendStyle
: :Ws_Ex_TRANSPARENT
154 | WinStyle
: :Ws_POPUP & CenterDialog
0,0,150
,120
,"MS4
: Wait
APP ",Splash1
155 |
156 | Frame
10
, 10
,120
,90
, wtitleSplash Attribut
:
157 | FillColor
: 144
,136
,176
FrameColor
: 250
,250
,250
158 | ShadowText
: 1
,2
Color(0,0,0) SetColorText
: 1
85,50
,90
159 | DrawText
: Dt_CENTER
160 | SetFonts
:
161 | 20
,8
,0,0,Fw_NORMAL,0,0,0,"Arial"
162 | End_Splash
163 |
164 | /* 1
once ------------------------------------------------------------------------------- */
165 | Begin_Initialize
166 | SetWinTxt
(Wtitle1:" MANDRAGORE PLANETE & MS4
BI ");
167 | SetWinTxt
(wtitleSplash:" MANDRAGORE PLANETE ");
168 | SetWinTxt
(Wtitle3:" Presentation ");
169 | SetWinTxt
(Wtitle4:"MANDRAGORE PLANETE");
170 |
171 | SetFontsGroup
(1
2
, 8
, 0, 0,Fw_NORMAL,0,1
, 0, Ansi_CHARSET, Out_DEFAULT_PRECIS,
172 | Clip_DEFAULT_PRECIS, Default_QUALITY, Ff_SWISS, "Segoe UI":,
173 | Buttonwww,Buttonemail) ;
174 | SetWinTxt
(Frame4:PostalAddress);
175 | SetWinTxt
(Cercle1:"Exit
");
176 | Color(192
,193
,218
) return
(Color1);
177 | SetColorText
(Buttonwww:Blue, Color1);SetColorText
(Buttonemail: Blue, Color1);
178 | GetDirSysPathMS4BI
(filePath);
179 | concatene
filePath, "\zPicture\PgmBmp\mgplanete.bmp" into
fileMgPlaneteLogo;
180 | concatene
filePath, "\zPicture\PgmCursor\hand-l.cur" into
filehandlcur;
181 | ShowSplash
(Splash1: 2500
) ;
182 |
183 |
184 | End_Initialize
185 |
186 | SetAttrTextOrientation
(UserDialog:32
,noinverse,160
,160
,red,Color1," Design
By
MANDRAGORE PLANETE " ,20
,8
,0,0,0,0,"Verdana");
187 | OpenDialog
(UserDialog) ;
188 |
189 | /* Draw Focus */
190 | IsOnSetCursorList(Buttonemail,Buttonwww,ButtonQuit,Buttonjumelle) return
(X);
191 | IF
(X Not_Void
) THEN
192 | SetCursor
( filehandlcur);
193 | DrawFocusRectList
();
194 | End_if
;
195 | IsOnSetCursor(ButtonQuit) return
(X);
196 | IF
(X Not_Void
) THEN
197 |
198 | DrawFocusRect
(ButtonQuit);
199 | End_if
;
200 |
201 | BEGIN
/* Exit
Transaction
*/
202 | /* Exit
application */
203 | Require
x := Pressed
(ButtonQuit);
204 | IF
(X Not_Void
) THEN
205 | SetStatusDialog
(UserDialog:Sw_HIDE);
206 | Exit_TRANS1
:= 1
;
207 | End_if
;
208 | END
;
209 |
210 | BEGIN
/* Click on MANDRAGORE Site MANDRAGORE */
211 | Require
x := Pressed
(Buttonwww) ;
212 | IF
(X Not_Void
) THEN
SetHourGlassCursor
();
213 | Internet_Navigate("www.mgplanete.com");
214 | End_if
;
215 | END
;
216 |
217 | /* Affiche le programme source
*/
218 | Require
x := Pressed
(Buttonjumelle) ;
219 | IF
(X Not_Void
) THEN
SetHourGlassCursor
();
220 | Clear
FilePath,FileCurrentDir;
221 | GetDirSysPathMS4BI
(filePath);
222 | Concatene
filePath,"\zDemo-Simple\Windows\win-00-MandragorePlanete.ms4
" into
FileCurrentDir;
223 | Load_FILE_NOTEPAD(FileCurrentDir);
224 | End_if
;
225 |
226 | End_Transaction
;
227 | end_proc
228 |
229 |
230 | ** *****************************************************************************************************
231 | ** LOAD FILE WITH NOTEPAD.EXE
232 | ** *******************************************************************************************************
233 | PROC
Load_FILE_NOTEPAD(char
fileNotepad:255
)
234 | begin_proc
235 | LOCAL
236 | CHAR
: LabelMsg:255
,Directory:255
,Labelmsg2:255
;
237 | End_Local
238 |
239 | SetHourGlassCursor
();
240 | concatene
"notepad.exe ",Filenotepad inTo
LabelMsg ;
241 |
242 | SysCommandWindows
(LabelMsg) return
(X);
243 | IF
(X=2
)** not
found not
epad.exe
244 | then
245 |
246 | GetSysWinDir
(Directory);
247 | concatene
Directory,"\notepad.exe ",Filenotepad inTo
LabelMsg;
248 | SysCommandWindows
(LabelMsg) return
(X);
249 |
250 | End_if
;
251 | end_proc