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