** ****************************************************************************************** * ** EndUser4gl : Exemple d'un langage de 4 ème génération ** ******************************************************************************************* ** ** EndUser4gl Ph Bergougnoux : DEMO ENDUSER 4GL ** ******************************************************************************************* GLOBAL #include "c:\EndUser4gl\4gl\hlp\IncludeSysEU\includesyseu.h" ** *************************************************************************************************************** ** Declare DATA : char,integer,LONG, FLOAT,DOUBLE,const_num,const_string table etc... ** *************************************************************************************************************** long : color1 ,color2 ; integer : exit_trans1,g_Langue :=0 , x,Ival,iLevel,itemTabCtl,y, ItemID,VT_VERTICAL1 :=27 ,VT_VERTICAL2 :=30,Drap :=FALSE ; integer : inverse := 1,noinverse :=0 ; char : text1:255,LabelText:255, szMsg:255 ,firstCar:1 , DirectorySysEndUser4gl:255 := "c:\EndUser4gl\4gl\bin\EndUser4gl.exe", Component:255 := " EndUser4gl : Bergougnoux Consulting \\n Adresse : 14 rue Jean Moulin \\n37550 St Avertin FRANCE\\n Fax : 00 33 2 47 28 58 19 THANK YOU FOR EVALUATING VERSION EndUser4gl www.enduser4gl.com Email : bergou@club-internet.fr "; char : Copyright:255 := " Copyright (c) 2001 EndUser4gl : Bergougnoux Consulting ,France Tous droits réservés Ph Bergougnoux. " ; char : file1:255 := "c:\EndUser4gl\4gl\hlp\instructionsQuery\" ,filePath:255; Char : UsTitle1:50 := " 1 End-users ", UsTitle2 :50 := " 2 Users and the EndUser4gl tool: ", UsTitle3 :50 := " 3 Data processing specialists: "; End_global ** ************************************************************* ** BEGIN PRG ** ************************************************************* Begin_Main EndUser4gl_Sp_Scrn_EndUser4gl(void); EndUser4gl_LanguePresent(void); EndUser4gl_Sp_Scrn_presentation(void); EndUser4gl_Pres_QueryCommunication(void); end_main /* *********************************************************************************************************** */ /* DISPLAY FLASH WINDOW */ /* *********************************************************************************************************** */ proc EndUser4gl_Sp_Scrn_EndUser4gl(void) begin_procedure Begin_splash WinExtendstyle : :WS_EX_DLGMODALFRAME Winstyle : :WS_OVERLAPPED & CENTERDIALOG 1,1, 720, 320, " EndUser 4 GL : PictureJpg ",UserDialog PictureJpg 1, 1, "c:\EndUser4gl\4gl\hlp\PgmJpg\enduser4gl.jpg",JpgEndUser1 End_splash ; ShowSplash (UserDialog: 4500) ; SetStatusDialog(UserDialog:SW_HIDE); end_procedure ** ********************************************************************************************************** ** PRESENTATION QUERY Communication ** BEGIN TRANSACTION :dialog,initialize, opendialog,inputdata, getpush etc.. ** ********************************************************************************************************** proc EndUser4gl_Pres_QueryCommunication(void) begin_procedure Local char : FileEndUser4gl:255, directory:255 ; ** ******************************************************************************* ** FRENCH ** ******************************************************************************* char : FrSztextComm1:255 := "\\nEndUser4Gl est un langage dédié : A TOUS 1 - Aux Utilisateurs finaux\\n2 - Aux Utilisateurs désireux d'utiliser le langage EndUser4gl\\n 3 - Aux Informaticiens ."; char : FrSztextComm2:512 := "Mise à disposition de fonctions applicatives , bureautiques de haut niveau . Le langage EndUser4gl est totalement transparent pour l'utilsateur sachant qu'il pourrait lui meme les programmer sans effort particulier."+ "En Exemple, la fonction [QUERYDIALOG] ou [interrogation d'une base de données] illustre parfaitement cette nouvelle approche. ...\\n\\n"; char : FrSztextComm3:512 := "Ce Langage EndUser4gl se veut SIMPLE à l'emploi et EFFICACE sur ces objectifs. Ce langage permet , en quelques instructions de programmation, de construire des applications Windows, "+ "ou d'effectuer des requêtes et ou de créer des base de données, de trier facilement un ou des fichier textes, d'effectuer du reporting Etc... Ce langage a pour vocation d'être L'OUTIL de l'utilisateur\\n\\n "; char : FrSztextComm4:512 := "La NOUVEAUTE : ils pourront participer à l'évolution du langage EndUser4gl en créant,directement leurs instructions"+ " au sein du langage NATIF C/CPP EndUser4gl.Ce langage évoluera par l'apport de ces nouvelles fonctionnalités externes ."+ " En d'autres termes, EndUser4gl se voudra OUVERT "+"vers le monde extèrieur et sa croissance en sera dépendant.\\n Les outils pour atteindre ces objectifs sont en cours de réalisation\\n \\n "; char : FrSztextComm5:512 := "\\n\\n\\nEndUser4gl et ces différents applicatifs\\n(Query,Sql,Sort,Windows,Report,Internet..) sont en BETA SITE "+ ".\\nJe reste à l'écoute de vos remarques sur les produits et le projet .\\n"+ " Je vous propose de dialoguer sous 48 heures en analysant ces remarques ou si vous êtes intêressé à participer à ce projet Merci "; char : FrTitle1:50 := "1 Utilisateurs Finaux / EndUser : ", FrTitle2:50 := "2 Utilisateurs et l'outil EndUser4gl : ", FrTitle3:50 := "3 Les Informaticiens : ", Title4:50 := " Proposition "; ** ******************************************************************************* ** ENGLIsh ** ******************************************************************************* Char: UsSztextComm1:255 := " \\nEndUser4Gl is a dedicated language: ALL PEOPLE 1 - To the End-users \\n2 - With the Users eager to use the language EndUser4gl \\n 3 - With the Data processing specialists."; char : UsSztextComm2:512 := " Placed at the disposal of applicatives, office automation functions high level. The EndUser4gl language is completely"+" transparent for the utilsator knowing that it could him same program them without particular effort.In example, "+" function [ QUERYDIALOG ] or [ interrogation of a data base ] this new approach illustrates perfectly... \\n\\n"; char : UsSztextComm3:512 := " This EndUser4gl Language wants to be SIMPLE with employment and EFFECTIVE on these objectives. This language allows,"+ " in some instructions of programming, to build Windows applications, or to carry out requests "+ " and or to create carrying out, sorting, data base a textual file easily reporting etc... This "+" language has the role to be the TOOL of the user \\n\\n "; char : UsSztextComm4:512 := " The Innovation: they will be able to take part in the evolution of the EndUser4gl language while creating,"+ " directly their instructions within the NATIVE language EndUser4gl.Ce language will evolve/move by the "+"contribution of these new external functionalities."+ " In other words, EndUser4gl will want to be OPEN towards the world exterior and its growth of it will be dependent. \\n The tools to achieve these goals are under development \\n \\n "; char : UsSztextComm5:512 := " \\n\\n\\nEndUser4gl and these different applications \\n(Query,Sql,Sort,Windows) are in BETA SITE. \\n "+ "I remain with the listening of your remarks on the products and the project. \\n I propose to you to"+" dialogue under 48 hours by analyzing these remarks or if you are interested to take part in this project. Thank you "; integer : x,y; long : color1,color2,color3; end_Local begin_transaction : Trans1 Execute Transaction with exit_trans1 != 1 begin_dialog Backgroundcolor : color(255,255,255) WinExtendstyle : :WS_EX_DLGMODALFRAME Winstyle : :WS_OVERLAPPED & :WS_CAPTION & :WS_SYSMENU 1, 1, 890,650, "EndUser4gl 4 GL : Presentation Communication ",UserDialog ButtonText 5, 5, 600, 30, "E N D U S E R 4 G L: COMMUNICATION " ,ButtonCommunication ButtonText 40, 50, 580, 35, "" ,ButtonHomeUser Announce 40,70,580, 75,Announce2 Attribut : FillColor :255,251,0 FrameColor :253,120,0 ShadowText : 1,-1 color(255,255,255) SetColorText :192,188,190 DrawText : DT_LEFT SetFonts : 14,8,0,0,FW_EXTRABOLD,0,0,0,"Arial" Announce 40,150,580, 30, Wtitle1 Attribut : FillColor : 255,128,35 FrameColor :0,250,0 SetColorText :185,50,90 DrawText : DT_CENTER SetFonts : 16,12,0,0,FW_EXTRABOLD,1,1,0,"Arial" Announce 40,180,580, 80, Announce4 Attribut : FillColor : 2,251,3 FrameColor :10,245,255 SetColorText :7,8,254 DrawText : DT_LEFT SetFonts : 12,8,0,0,FW_EXTRABOLD,0,0,0,"Arial" Announce 40,265,580, 30, Wtitle2 Attribut : FillColor : 255,128,35 FrameColor :255,255,255 SetColorText :185,50,90 DrawText : DT_CENTER SetFonts : 16,12,0,0,FW_EXTRABOLD,1,1,0,"Arial" Announce 40,290,580, 80, Announce5 Attribut : FillColor : 172,251,3 FrameColor :10,245,255 SetColorText :7,8,254 DrawText : DT_LEFT SetFonts : 12,8,0,0,FW_EXTRABOLD,0,0,0,"Arial" Announce 40,390,580, 30, Wtitle3 Attribut : FillColor : 255,128,35 FrameColor :0,250,0 SetColorText :185,50,90 DrawText : DT_CENTER SetFonts : 16,12,0,0,FW_EXTRABOLD,1,1,0,"Arial" Announce 40,422,583, 93, Announce62 Attribut : FillColor : 0,138,20 FrameColor : 0,138,20 SetColorText : 7,8,254 DrawText : DT_LEFT SetFonts : 12,8,0,0,FW_EXTRABOLD,0,0,0,"Arial" Announce 40,420,580, 90, Announce6 Attribut : FillColor : 201,255,160 FrameColor : 0,255,0 SetColorText : 7,8,254 DrawText : DT_LEFT SetFonts : 12,8,0,0,FW_EXTRABOLD,0,0,0,"Arial" Announce 650,10,220, 280, Announce7 Attribut : FillColor : 144,208,213 FrameColor : 55,255,255 ShadowText : 1, 1 color(0,0,0) SetColorText : 255,255,255 DrawText : DT_CENTER SetFonts : 16,8,0,0,FW_EXTRABOLD,0,0,0,"Arial" Announce 652,12,215, 40, Wtitle4 Attribut : FillColor : 144,136,176 FrameColor : 250,250,250 SetColorText : 185,50,90 DrawText : DT_CENTER SetFonts : 18,12,0,0,FW_EXTRABOLD,0,0,0,"Arial" ** Announce9 is Shadow/Ombre Announce 642,302,220, 62, Announce9 Attribut : FillColor : 144,136,176 FrameColor : 144,136,176 SetColorText : 0,0,0 DrawText : DT_LEFT SetFonts : 12,8,0,0,FW_EXTRABOLD,0,0,0,"Arial" Announce 640,300,220, 60, Announce8 Attribut : FillColor : 192,193,218 FrameColor : 255,255,255 ShadowText : 1,1 color(0,0,0) SetColorText : 166, 69,111 DrawText : DT_CENTER SetFonts : 20,9,0,0,FW_EXTRABOLD,1,1,0,"Arial" PictureGif 600, 225, "c:\EndUser4gl\4gl\hlp\PgmGif\gifanimate\explemail1.gif",GifEmail ButtonText 665, 270,190,20, "bergou@club-internet.fr" ,buttonEmail create : use Cursor "c:\EndUser4gl\4gl\hlp\PgmCursor\hand-l.cur" PictureGif 845, 305, "c:\EndUser4gl\4gl\hlp\PgmGif\gifanimate\paiement\dollar08.gif",GifSponsor ButtonRegionChild 640,300,220,40 , ButtonSponsor create : use Cursor "c:\EndUser4gl\4gl\hlp\PgmCursor\hand-l.cur" , info " more Informations @ c:\EndUser\4gl\doc\EndUser4glMarketing.htm\\n or Click on" Elliptical 70,150,18,18, Cercle1 Attribut : FillColor : 201,255,160 FrameColor : 255,255,255 SetColorText : 166, 69,111 DrawText : DT_CENTER SetFonts : 20,9,0,0,FW_EXTRABOLD,1,1,0,"Arial" ButtonRegionChild 70,150,18,18 , ButtonPlusEllip create : use Cursor "c:\EndUser4gl\4gl\hlp\PgmCursor\hand-l.cur" , info " more Informations @ For EndUser 4gl" PictureGif 30, 570, "c:\EndUser4gl\4gl\hlp\PgmGif\gifanimate\enduser4gl1.gif",GifEndUser ButtonText 290, 520,160,20, "EndUser4gl Order" ,buttonOrder create : use Cursor "c:\EndUser4gl\4gl\hlp\PgmCursor\hand-l.cur" PictureGif 320, 535, "c:\EndUser4gl\4gl\hlp\PgmGif\gifanimate\email.gif",GifOrder ButtonText 480 , 520, 120,50,"--> Quit ", BoutonCancel create : use Cursor "c:\EndUser4gl\4gl\hlp\PgmCursor\hand-l.cur" ,info " Option @ Quit/Exit" PictureGif 490, 530, "c:\EndUser4gl\4gl\hlp\PgmGif\gifanimate\byebye.gif",GifExit PictureGif 430, 530, "c:\EndUser4gl\4gl\hlp\PgmGif\gifanimate\fa1next.gif",GifNext ButtonText 130 , 510, 160,20, " ", ButtonSource create : use Cursor "c:\EndUser4gl\4gl\hlp\PgmCursor\hand-l.cur" , info " OptionEdit @ Edit Source c:\EndUser4gl\DemoUserEnd4gl.Eu4glExe ." PictureGif 170, 560,"c:\EndUser4gl\4gl\hlp\PgmGif\gifanimate\iExplorer.gif",GifExplorer ButtonText 200 , 590, 170,20, " www.enduser4gl.com ", ButtonWWW create : use Cursor "c:\EndUser4gl\4gl\hlp\PgmCursor\hand-l.cur" , info " Option Internet @ Connect to www.enduser4gl.com" PictureGif 10, 10,"c:\EndUser4gl\4gl\hlp\PgmGif\gifanimate\CopyRightEnduser.gif",GifCopyRight **390, 590 PictureBmp 650, 380, "c:\EndUser4gl\4gl\bin\adresse.bmp",bmpadresse ButtonRegionChild 650, 390 ,180,240 , ButtonWhoIs create : use Cursor "c:\EndUser4gl\4gl\hlp\PgmCursor\hand-l.cur" , info " Informations..Who is PhBergougnoux ?@ \\n Or Click on " PushIcon 50, 520, 30,25, ICON_EU_FRENCH , BoutonLgFR Create : Info " French" PushIcon 90,520, 30,25, ICON_EU_USA , BoutonLgUS Create : Info " Us/English" end_dialog ** ************************************************************************************************************ ** INITIALIZE :ONE ** *********************************************************************************************************** Begin_Initialize IconDialog(UserDialog:"c:\EndUser4gl\4gl\hlp\pgmicon\enduser4gl.ico"); SetColorText(buttonOrder:red, white ); SetColorText(buttonWWW:blue, white ); color(128,50,140) returning(color1); color( 144,208,213) returning(color2); SetColorText(buttonEmail: blue,color2 ); SetColorText(ButtonCommunication:color1, yellow );DrawTextWin(ButtonCommunication: :DT_RIGHT); SetColorText(ButtonHomeUser:cyan, red ); SetColorText(BoutonCancel:red, green ); SetColorText(ButtonSource:cyan, red ); SetFontsGroup (12, 8, 0, 0,FW_NORMAL,0,1, 0, ANSI_CHARSET, OUT_DEFAULT_PRECIS, CLIP_DEFAULT_PRECIS, DEFAULT_QUALITY, FF_SWISS, "Arial":buttonEmail,buttonWWW ) ; SetFonts(ButtonHomeUser: 18, 12, 0, 0,FW_NORMAL,1,1, 0, ANSI_CHARSET, OUT_DEFAULT_PRECIS, CLIP_DEFAULT_PRECIS, DEFAULT_QUALITY, FF_SWISS, "Arial") ; ** **ANNOUNCE ** if( g_Langue = 1) ** 1 French then SetWinTxt(ButtonHomeUser: "EndUser4gl : OBJECTIFS "); SetWinTxt(Wtitle1:Frtitle1);SetWinTxt(Wtitle2:FRtitle2); SetWinTxt(Wtitle3:Frtitle3); SetWinTxt(Announce2:FRSztextComm1); SetWinTxt(Announce4:FrSztextComm2); SetWinTxt(Announce5:FrSztextComm3); SetWinTxt(Announce6:FrSztextComm4); SetWinTxt(Announce7:FrSztextComm5); SetWinTxt(ButtonSource:"Afficher le pgm Source"); else SetWinTxt(ButtonHomeUser: "EndUser4gl : OBJECTIVES "); SetWinTxt(Wtitle1:Ustitle1);SetWinTxt(Wtitle2:Ustitle2); SetWinTxt(Wtitle3:Ustitle3);SetWinTxt(Announce2:UsSztextComm1); SetWinTxt(Announce4:UsSztextComm2); SetWinTxt(Announce5:UsSztextComm3); SetWinTxt(Announce6:USSztextComm4); SetWinTxt(Announce7:UsSztextComm5); SetWinTxt(ButtonSource:"Display source program "); end_if; SetWinTxt(Announce8:"Commercial,Sponsor "); SetWinTxt(Wtitle4:title4); DrawTextWin(BoutonCancel: :DT_SINGLELINE & :DT_RIGHT); ** is default of ButtonText DrawTextWin(buttonOrder: :DT_SINGLELINE & :DT_LEFT); color(255,128,35) returning(color2); setbkcolorgif(GifNext:yellow);setbkcolorgif(Gifemail:color2); color(192,193,218) returning(color3); setbkcolorgif(GifSponsor:color3); setbkcolorgif(GifOrder:white);setbkcolorgif(GifEndUser:white); ShowDialog(UserDialog); SetCursorPosition(800, 450); ** Show Cursor + Information DrawFocusRect(ButtonWhoIs ); End_Initialize ** VT_VERTICAL = 27 orientation possible : 27 to 45 SetAttrTextOrientation (UserDialog:VT_VERTICAL1,noinverse,3,80,YELLOW,blue," EndUser4gl ", 26,16,0,0,0,1,"Arial"); SetAttrTextOrientation (UserDialog:42,noinverse,580,180,green,color1," EndUser4gL A New4gl " , 12,8,0,0,0,0,"Times New Roman"); do(8) SwapColor(ButtonHomeUser :red, yellow,blue,red ); **SwapColor(BoutonCancel:red, yellow,blue,red ); end_do; OpenDialog(UserDialog) ; ** If Click on Dialog : Message Windows ** ************************************************************************************ Begin_Message_Dialog(UserDialog)::OnClickDialog(void) Begin /* Exit Transaction */ require GetPush(BoutonCancel ) returning (x); if( x Not_Void ) then FileEndUser4gl := "\\n\\n\\n\\nEnd Presentation EndUser4gl "; directory := "Demo EndUser4gl"; MsgFrame(directory,FileEndUser4gl);** title +messsage exit_Pgm(); end_if; end_begin ; Begin /*language */ require GetPush(BoutonLgFR ) returning (x); if( x Not_Void ) then g_Langue :=1; SetWinTxt(ButtonHomeUser: "EndUser4gl : OBJECTIFS "); SetWinTxt(Wtitle1:FRtitle1);SetWinTxt(Wtitle2:frtitle2); SetWinTxt(Wtitle3:frtitle3); SetWinTxt(Announce2:frSztextComm1); SetWinTxt(Announce4:frSztextComm2); SetWinTxt(Announce5:frSztextComm3); SetWinTxt(Announce6:frSztextComm4); SetWinTxt(Announce7:frSztextComm5); SetWinTxt(ButtonSource:"Afficher programme source "); SetStatusDialog(UserDialog:SW_SHOWMINIMIZED ); RefreshDialog(UserDialog); SetStatusDialog(UserDialog:SW_SHOWNORMAL ); RefreshDialog(UserDialog); end_if; require GetPush(BoutonLgUS ) returning (x); if( x Not_Void ) then g_Langue :=2; SetWinTxt(ButtonHomeUser: "EndUser4gl : OBJECTIVES "); SetWinTxt(Wtitle1:Ustitle1);SetWinTxt(Wtitle2:Ustitle2); SetWinTxt(Wtitle3:Ustitle3); SetWinTxt(Announce2:UsSztextComm1); SetWinTxt(Announce4:UsSztextComm2); SetWinTxt(Announce5:UsSztextComm3); SetWinTxt(Announce6:USSztextComm4); SetWinTxt(Announce7:UsSztextComm5); SetWinTxt(ButtonSource:"Display source program "); SetStatusDialog(UserDialog:SW_SHOWMINIMIZED ); RefreshDialog(UserDialog); SetStatusDialog(UserDialog:SW_SHOWNORMAL ); RefreshDialog(UserDialog); end_if; end_begin ; Begin /* Click on EndUser4gl Sponsor */ require GetPush(buttonSponsor) returning (x); if( x Not_Void ) then SetHourGlassCursor(); if(g_Langue =1) then NavigateInternet("c:\EndUser4gl\4gl\doc\FrEndUser4glMarketing.htm");Return_Begin_transaction(Trans1) ; else NavigateInternet("c:\EndUser4gl\4gl\doc\EnEndUser4glMarketing.htm");Return_Begin_transaction(Trans1) ; end_if; end_if; End_begin ; Begin /* Click on EndUser4gl Site enduser4gl */ require GetPush(buttonWWW) returning (x); if( x Not_Void ) then SetHourGlassCursor(); NavigateInternet("www.enduser4gl.com");Return_Begin_transaction(Trans1) ; end_if; End_begin ; require GetPush(ButtonWhoIs ) returning (x); if( x Not_Void ) then SetHourGlassCursor(); EndUser4gl_Pres_bergouConsulting(void); Return_Begin_transaction(Trans1) ; end_if; require GetPush(ButtonSource) returning (x); if( x Not_Void ) then SetHourGlassCursor(); Clear filePath; StringConcat "c:\EndUser4gl\","ProjectEndUser4gl.Eu4glExe" to filePath ; Load_File_NotePad(filePath); Return_Begin_transaction(Trans1) ; end_if; ** ****************************** ** Internet ** ****************************** ** ******************************************************************************************************* ** buttonEndUser4gl 4GL ** ******************************************************************************************************* Begin /* Click on EndUser4gl order */ require GetPush(buttonOrder) returning (x); if( x Not_Void ) then EU_Order(); Return_Begin_transaction(Trans1 ); end_if; End_begin ; Begin /* Click on EndUser4gl Email */ require GetPush(buttonEmail) returning (x); if( x Not_Void ) then SetHourGlassCursor(); SendMail(UserDialog: "bergou@club-internet.fr", "Objet: Info","bergou@club-internet.fr Message to Ph Bergougnoux : "); Return_Begin_transaction(Trans1) ; end_if; End_begin ; End_Message_Dialog /* WM_xxxxx */ ** ******************************************************************************************************* ** ON SETCURSOR DIALOG ** ******************************************************************************************************* Begin_Message_Dialog(UserDialog)::OnMoveCursor(void) isOnSetCursorList(BoutonCancel,ButtonPlusEllip,ButtonSponsor,buttonEmail, ButtonWhoIs) returning (x); if( x Not_Void ) then DrawFocusRectList( ); Return_Begin_transaction(Trans1) ; end_if; require isOnSetCursor(buttonOrder) returning (x); if( x Not_Void ) then SwapColor(buttonOrder: white, red, white,blue ); Return_Begin_transaction(Trans1 ); end_if; End_Message_Dialog /* WM_xxxxx */ SetArrowCursor(); end_transaction ; end_procedure ** ********************************************************************************************************** ** PRESENTATION bergouConsulting : SubRoutine ** BEGIN TRANSACTION :dialog,initialize, opendialog,inputdata, getpush etc.. ** ********************************************************************************************************** #include "c:\EndUser4gl\4gl\hlp\IncludeSysEU\LanguePresentation.EU4glExe" ** is : proc EndUser4gl_LanguePresent(void); #include "c:\EndUser4gl\4gl\hlp\IncludeSysEU\SplashPresentation.EU4glExe" ** is : proc EndUser4gl_Sp_Scrn_presentation(void); #include "c:\EndUser4gl\4gl\hlp\IncludeSysEU\bergouConsulting.EU4glExe" ** is : proc EndUser4gl_Pres_bergouConsulting(void) ** ********************************************************************************************************** ** PRESENTATION MsgFrame : SubRoutine ** ** ********************************************************************************************************** #include "c:\EndUser4gl\4gl\hlp\IncludeSysEU\MsgFrameEu.EU4glExe" ** is : MsgFrame(char title,char Wmessage:255) ** ************************************************************************************************ ** PROCESS WINDOW ** ************************************************************************************************ #include "c:\EndUser4gl\4gl\hlp\IncludeSysEU\RunThreadProcessWin.EU4glExe" ** proc EndUser4gl_Run_THREADProcessWin(char FileApp:255) ** ********************************************************************************************************** ** EndUser4gl_Run_Explorer : SubRoutine ** ** ********************************************************************************************************** #include "c:\EndUser4gl\4gl\hlp\IncludeSysEU\Run_Explorer.EU4glExe" ** is : EndUser4gl_Run_Explorer(char FileApp:255) ** ********************************************************************************************************** ** MsgFrameWait : SubRoutine ** ** ********************************************************************************************************** #include "c:\EndUser4gl\4gl\hlp\IncludeSysEU\MsgFrameWait.EU4glExe" ** is : MsgFrameWait(void ) ** ********************************************************************************************************** ** ******************************************************************************************************* ** LOAD FILE WITH NOTEPAD.EXE ** ******************************************************************************************************* proc Load_File_Write(char fileNotepad:255) begin_procedure local char : LabelMsg:255,directory:255,LabelMsg2:255 ; integer :x; end_local clear LabelMsg ; SetHourGlassCursor(); StringConcat " write.exe ",fileNotepad to LabelMsg ; SysCommandWindows(LabelMsg) returning (x); if( x=2 )** not find notepad.exe then clear LabelMsg ; GetSysWinDir(Directory); StringConcat Directory,"\write.exe ",fileNotepad to LabelMsg; SysCommandWindows(LabelMsg ) returning (x); end_if; end_procedure ** ******************************************************************************************************* ** LOAD FILE WITH NOTEPAD.EXE ** ******************************************************************************************************* proc Load_File_NotePad(char fileNotepad:255) begin_procedure local char : LabelMsg:255,directory:255,LabelMsg2:255 ; integer :x; end_local clear LabelMsg ; SetHourGlassCursor(); StringConcat " notepad.exe ",fileNotepad to LabelMsg ; SysCommandWindows(LabelMsg) returning (x); if( x=2 )** not find notepad.exe then clear LabelMsg ; GetSysWinDir(Directory); StringConcat Directory,"\notepad.exe ",fileNotepad to LabelMsg; SysCommandWindows(LabelMsg ) returning (x); end_if; end_procedure