** ****************************************************************************************** *
**EndUser4gl : Exemple d'un langage de 4 ème génération
** *******************************************************************************************
 **
**
** SETFONTS ( 
**  L_Window Text,
**  integer nHeight,             // logical height of font
**  integer nWidth,              // logical average character width
**  integer nEscapement,         // angle of escapement
**  integer nOrientation,        // base-line orientation angle
**  integer fnWeight,            // font weight
**  integer fdwItalic,         // italic attribute flag
**  integer fdwUnderline,      // underline attribute flag
**  integer fdwStrikeOut,      // strikeout attribute flag
**  integer fdwCharSet,        // character set identifier
**  integer fdwOutputPrecision,  // output precision
**  integer fdwClipPrecision,  // clipping precision
**  integer fdwQuality,        // output quality
**  integer fdwPitchAndFamily,  // pitch and family
**  char lpszFace          //  typeface name string
 
 
#include   "c:\EndUser4gl\4gl\hlp\IncludeSysEU\includesyseu.h"
 
integer :    exit_trans1  ,x ; 


 begin_transaction : Trans1     Execute   Transaction with  exit_trans1  !=  1      
 begin_dialog 

  WinExtendstyle :  :WS_EX_DLGMODALFRAME
 	  	  Winstyle 	 :  :WS_OVERLAPPED & :WS_CAPTION &    :WS_SYSMENU  &  :WS_THICKFRAME  
				&  :WS_MINIMIZEBOX   &    :WS_MAXIMIZEBOX 
				&   CENTERDIALOG
  
   100,150,680,300,  " EndUser FONTS TEXT...........",UserDialog
        Text:
		 WinExtendstyle :  :0 
		 Winstyle 	:  :SS_LEFT 190, 100,200, 80, "Set Fonts ............." ,text1
	 ButtonBmpDrawLabel  1, 200, 88, 40,  "c:\EndUser4gl\4gl\hlp\PgmBmp\cancel.bmp",BoutonCancel
 	 create :  text "  Cancel " ,   info " Bye Bye........."  use ellipse  ,
 					use Cursor "c:\EndUser4gl\4gl\hlp\PgmCursor\hand-l.cur"                                                  
  end_dialog
 
     
		 Begin_Initialize  
  			IconDialog(UserDialog:"c:\EndUser4gl\4gl\hlp\pgmicon\19.ico");
  		        SetFonts(text1:  30, 15, 0, 0,FW_NORMAL, 0,0, 0, ANSI_CHARSET, OUT_DEFAULT_PRECIS,
               			  CLIP_DEFAULT_PRECIS, DEFAULT_QUALITY, FF_SWISS,  "Times New Roman") ; 
/* voir , see you c:\windows\fonts\ "Arial" , "System"  "Times New Roman"  etc...*/
		
                End_Initialize  
    OpenDialog  (UserDialog)  ;
  
          require  GetPush(BoutonCancel) returning (x);  
         if(  x   Not_Void ) 
         then
               MsgBox  : TITLE "My First TextBox"  
                   Message :      " Push is ok : Cancel Transaction" 
                    button  :       MB_OK
                   icon    :        MB_ICONEXCLAMATION           returning (x) ; 
           exit_trans1  :=  1     ;
    end_if;

 end_transaction ;