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
1
2
,1
,753
, 593
, Frame
0 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
1
0
,1
,750
, 590
, Frame
1
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
: 18
5
,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
,15
5, 438
, Frame
2 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
,15
5, 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 | 1
2
,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
, Frame
3 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
,1
2
,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
, Frame
4 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
,1
0
,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
,1
0
,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 |