001 | 
002 | ** **********************************************************************************************************
003 | ** PRESENTATION MsgFrame
004 | **
005 | ** **********************************************************************************************************
006 | #include  "#SYSPATHMS4BI+\zInclude\IncludeSysMs4Windows.h"
007 | 
008 | INTEGER : Exit_TRANSFRAMMSGWAIT :=0,I;
009 | CHAR  : NbDay:128, NbDayString : 128 ;    
010 | INTEGER : Inverse := 1,Noinverse :=0 ;   
011 |         CHAR  : PostalAddress:512 := " $n $n $n 15 rue des Halles  $n 75001 Paris $n FRANCE 
012 |         $n New Branches Opening Soon :$n .Bordeaux, FRANCE $n .Austin, USA $n .Montreal, CANADA ";
013 |      
014 |         LONG : Color1 ;
015 |         CHAR :FilePath:255,FileCurrentDir:255, fileMgPlaneteLogo:128, filehandlcur:128 ;
016 |         
017 | GetInputArgument(1:NbDay); 
018 |   Concatene  NbDay , " DAYS",into NbDayString;
019 |     Begin_Transaction : Trans1 Execute Transaction With Exit_TRANSFRAMMSGWAIT != 1
020 |         Begin_Dialog
021 |              BackgroundColor : Color(192,193,218)
022 |              WinExtendStyle :  :WS_EX_CLIENTEDGE
023 |             WinStyle        :  :WS_OVERLAPPED & CenterDialog
024 |             
025 |             1, 1, 800,600, "MS 4  : Presentation  ",UserDialog
026 |        End_Dialog
027 | Begin_Splash
028 |          BackgroundColor : Color(192,193,218)
029 |             WinExtendStyle :  :WS_EX_CLIENTEDGE
030 |             WinStyle        :  :WS_OVERLAPPED & CenterDialog  0,0,800,600 ,"MS4  :  Wait APP ",Splash1
031 |                     
032 |             ** Frame0 is Shadow/Ombre
033 |             Frame 12,1,753, 593, Frame0 Attribut :
034 |             FillColor : 144,136,176
035 |             FrameColor : 144,136,176
036 |             SetColorText : 166, 69,111
037 |             DrawText : Dt_LEFT
038 |             SetFonts :
039 |             12,8,0,0,Fw_EXTRABOLD,0,0,0,"Arial"    
040 |             
041 |             Frame 10,1,750, 590, Frame1 Attribut :
042 |             FillColor :  192,193,218
043 |             FrameColor : 255,255,255
044 |             SetColorText : 166, 69,111
045 |             DrawText : Dt_LEFT
046 |             SetFonts :
047 |             12,8,0,0,Fw_EXTRABOLD,0,0,0,"Arial"    
048 |             
049 |             Frame 10, 2,750, 50, Wtitle1 Attribut :
050 |             FillColor : 144,136,176
051 |             FrameColor : 250,250,250
052 |             ShadowText : 1,2 Color(0,0,0)
053 |             SetColorText : 185,8,90
054 |             DrawText : Dt_CENTER
055 |             SetFonts :
056 |             30,18,0,0,Fw_EXTRABOLD,0,0,0,"Calibri"
057 |             
058 |             /* Bar des options ----------------------------------------------------------------------*/
059 |             Frame 15,60,155, 438, Frame2 Attribut :
060 |             FillColor :  192,193,218
061 |             FrameColor : 255,255,255
062 |             SetColorText : 166, 69,111
063 |             DrawText : Dt_LEFT
064 |             SetFonts :
065 |             12,8,60,0,Fw_EXTRABOLD,0,0,0,"Arial"
066 |             
067 |             Frame 15,60,155, 32, Wtitle2 Attribut :
068 |             FillColor : 255,255,255 **144,16,176
069 |             FrameColor : 250,250,250
070 |             SetColorText : 185,50,90
071 |             DrawText : Dt_LEFT
072 |             SetFonts :
073 |             12,8,0,0,Fw_NORMAL,1,1,0,"Arial"
074 |             
075 |             PictureGIF 94,62, "#SYSPATHMS4BI+\zPicture\Gif\droite01.gif",Gifms42 ** or constante path or see you : loadPicture ..
076 |              /* -Text Demo---------------------------------------------------------------------------------------------------------- */
077 |             
078 |             Frame 170,60,560,435, Frame3 Attribut :
079 |             FillColor : 236,255,191
080 |             FrameColor : 166, 69,111
081 |             SetColorText : 0,0,0
082 |             DrawText : Dt_LEFT
083 |             SetFonts :
084 |             12,8,0,0,Fw_NORMAL,0,0,0,"Arial"
085 |             
086 |             Frame 170,61,560, 32, Wtitle3 Attribut :
087 |             FillColor : 236,215,191
088 |             FrameColor : 166, 69,111
089 |             SetColorText : 255,255,0
090 |             DrawText : Dt_CENTER
091 |             SetFonts :
092 |             21,12,0,0,Fw_EXTRABOLD,0,1,0,"Arial"
093 |             
094 |             PictureBMP 180,110,"#SYSPATHMS4BI+\zPicture\Bmp\mgplanete.bmp",Bmpeu ** or constante path or see you : loadPicture ..
095 |             
096 |             Frame 450,110,260,360, Frame4 Attribut :
097 |             FillColor : 236,215,191
098 |             FrameColor : 166, 69,111
099 |             SetColorText : 0,0,0
100 |             DrawText : Dt_LEFT
101 |             SetFonts :
102 |             12,8,0,0,Fw_NORMAL,0,0,0,"Arial"
103 |             
104 |             Frame 450,110,260,30, Wtitle4 Attribut :
105 |             FillColor : 236,215,143
106 |             FrameColor : 166, 69,111
107 |             SetColorText : 0,0,0
108 |             DrawText : Dt_LEFT
109 |             SetFonts :
110 |             12,8,0,0,Fw_NORMAL,0,0,0,"Arial"
111 |             
112 |     
113 |              
114 |             PictureGIF 60, 540,"#SYSPATHMS4BI+\zPicture\Gif\GifAnimate\iExplorer.gif",Gifexplorer ** or constante path or see you : loadPicture ..
115 |             
116 |             ButtonText 140 ,540, 180,25, "  www.mgplanete.com ", Buttonwww
117 |             Create :    
118 |             Info " Internet  @  www.mgplanete.com",
119 |             PictureGIF 340, 540,"#SYSPATHMS4BI+\zPicture\Gif\courrier.gif",Gifcourrier ** or constante path or see you : loadPicture ..
120 |             ButtonText 140 ,560, 180,25, "  getms4bi.com ", Buttonwwwgetms4bi    
121 |          Create :    
122 |             Info " Internet  @  getms4bi.com",    
123 | 
124 |             ButtonText 370, 540,220,25, " contact@mgplanete.com" ,Buttonemail
125 |             Create : 
126 |             Info " Option Internet @ Email : Contact Mandragore",
127 |          
128 |          
129 |         Frame 50,250,545,195, wtitleSplash Attribut :
130 |         FillColor : 144,136,176
131 |             FrameColor : 250,250,250
132 |             ShadowText : 1,2 Color(0,0,0)
133 |             SetColorText : 185,50,90
134 |             DrawText : Dt_CENTER
135 |              SetFonts : 38,10,1,0,Fw_NORMAL,0,0,0,"ARIAL"
136 |         
137 |           
138 |         Frame 240, 360,120,40, NbDayWin Attribut :
139 |         FillColor : 144,136,176
140 |             FrameColor : 250,250,250
141 |             ShadowText : 1,2 Color(0,0,0)
142 |             SetColorText : 185,50,90
143 |         DrawText : Dt_CENTER
144 |         SetFonts : 38,10,1,0,Fw_NORMAL,0,0,0,"ARIAL"
145 | End_Splash
146 | 
147 |     Begin_Initialize
148 |             SetWinTxt(Wtitle1:"   MS4BI : Ultra light, Simple , Agile && Full Responsive ");
149 |             SetWinTxt(wtitleSplash:" MANDRAGORE PLANETE  ");
150 |                
151 |             SetWinTxt(Frame4:PostalAddress);
152 |              
153 |             Color(192,193,218) return(Color1);
154 |             SetColorText(Buttonwww:Blue, Color1); SetColorText(Buttonwwwgetms4bi:Blue, Color1);
155 |             SetColorText(Buttonemail: Blue, Color1);
156 |                   SetWinTxt(wtitleSplash:"    MS4BI PROFESSIONAL   (S E R V E R)                           TRIAL VERSION   ");
157 |  
158 |         SetWinTxt(NbDayWin:NbDayString );    
159 |                 
160 |          End_Initialize
161 |                 
162 |         ShowSplash(Splash1: 5000) ;
163 |          SetStatusDialog(UserDialog:Sw_HIDE);    
164 | 
165 |           DestroyDialog(UserDialog);
166 |         Exit_TRANSFRAMMSGWAIT := 1 ;
167 |                  
168 |     End_Transaction ;
169 |