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 12,1,723, 593, Frame0 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 10,1,720, 590, Frame1 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,155, 438, Frame2 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,155, 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 |             12,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, Frame3 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,12,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, Frame4 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 |             12,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 : 185,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 (12, 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 notepad.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