** ****************************************************************************************** * **EndUser4gl : Exemple d'un langage de 4 ème génération ** ******************************************************************************************* ** Exemple : BUTTON ICON ** ** ** #include "c:\EndUser4gl\4gl\hlp\IncludeSysEU\includesyseu.h" integer : exit_trans1 ,x ; char : SetTxtButton:20 := "Example Set"; 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,20,650,550," EndUser 4 GL : FORMS BUTTON Icon ",UserDialog ButtonIcon width Icon: 64 ,height Icon : 64 , 100,40, 65,65, "c:\EndUser4gl\4gl\hlp\pgmicon\sunsmile.ico", ButtonIcon1 create : info "Option @ Example Button Icon + Attributes...", use Cursor "c:\EndUser4gl\4gl\hlp\PgmCursor\hand-l.cur" ButtonIcon width Icon: 16 ,height Icon : 16 , 200,40, 45,45, "c:\EndUser4gl\4gl\hlp\pgmicon\lamp.ico", ButtonIcon2 create : info "Option @ Example Button Icon+Attributes \\n ReplaceButtonIcon..." use ellipse, use Cursor "c:\EndUser4gl\4gl\hlp\PgmCursor\hand-l.cur" ButtonIcon 300,40, 45,45, "c:\EndUser4gl\4gl\hlp\pgmicon\cancel.ico", ButtonIcon4 create : info "Option @ Example Button Icon 4+Attributes+ReplaceButtonIcon.." , use Cursor "c:\EndUser4gl\4gl\hlp\PgmCursor\hand-l.cur" ButtonIconDraw 400,40, 32,32, "c:\EndUser4gl\4gl\hlp\pgmicon\ok2.ico", ButtonIcon5 create : info "Option @ Example Button IconDraw \\n Attributes...", use Cursor "c:\EndUser4gl\4gl\hlp\PgmCursor\hand-l.cur" ButtonIconDraw 160,120,60,60, "c:\EndUser4gl\4gl\hlp\pgmicon\57.ico", ButtonIconDraw1 create : info "Option @ Example Button IconDRAW \\n Attributes..." use ellipse, use Cursor "c:\EndUser4gl\4gl\hlp\PgmCursor\hand-l.cur" ButtonIconDraw 360,180, 45,45, "c:\EndUser4gl\4gl\hlp\pgmicon\zip.ico", ButtonIcon3 create : info "Option @ Example Button Icon+Attributes..." use ellipse, use Cursor "c:\EndUser4gl\4gl\hlp\PgmCursor\hand-l.cur" ButtonIconPush 220,200, 45,45, "c:\EndUser4gl\4gl\hlp\pgmicon\stop.ico", ButtonIconPush1 create : info "Option @ Example Button IconPUSH \\n Attributes...", use Cursor "c:\EndUser4gl\4gl\hlp\PgmCursor\hand-l.cur" ButtonIconDrawLabel 280,280,120,45, "c:\EndUser4gl\4gl\hlp\pgmicon\1.ico", ButtonIconDrawLabel1 create : text " Option Printer " info "Example @ Button IconDrawLabel \\n Attributes...", use Cursor "c:\EndUser4gl\4gl\hlp\PgmCursor\hand-l.cur" ButtonIconDrawLabel 460,280,120,60, "c:\EndUser4gl\4gl\hlp\pgmicon\okbor.ico", ButtonIconDrawLabel2 create : text " Option Ok..... " info "Example @ Button IconDrawLabel \\n Attributes...", use Cursor "c:\EndUser4gl\4gl\hlp\PgmCursor\hand-l.cur" ButtonIconDrawLabelCenter 460,150,120,80, "c:\EndUser4gl\4gl\hlp\pgmicon\okbor.ico", ButtonIconDrawLabelCenter1 create : text " Ok Center..... " info "Example @ Button IconDrawLabelCENTER \\n Attributes...", use Cursor "c:\EndUser4gl\4gl\hlp\PgmCursor\hand-l.cur" ButtonIconPushLabel 340,360, 120,45, "c:\EndUser4gl\4gl\hlp\pgmicon\19.ico", ButtonIconPushLabel1 create : text "Eureka..." , info "Option @ Example Button IconPUSH LABEL \\n Attributes..." use ellipse, use Cursor "c:\EndUser4gl\4gl\hlp\PgmCursor\hand-l.cur" PushIcon 160,400, 45, 45, ICON_HAND , BoutonCancel2 create :info "Cancel" end_dialog Begin_Initialize SetColorText (ButtonIconDrawLabel1:yellow,-1 ) ; SetColorText (ButtonIconDrawLabel2:blue,red ) ; **SetColorText (ButtonIconDrawLabelCenter1:red,blue); End_Initialize OpenDialog (UserDialog) ; require GetPush(BoutonCancel2) returning (x); if( x Not_Void ) then MsgBox : TITLE "My First Icon Application " Message : " Push is ok : Cancel Transaction" button : MB_OK icon : MB_ICONEXCLAMATION returning (x) ; exit_trans1 := 1 ; end_if; require GetPush(ButtonIcon1) returning (x); if( x Not_Void ) then MsgBox : TITLE "My First Button Icon :Keyword : BUTTONICON" Message : " Push is ok : Button Icon: Keyword : BUTTONICON" button : MB_OK icon : MB_ICONEXCLAMATION returning (x) ; end_if; require GetPush(ButtonIconDraw1) returning (x); if( x Not_Void ) then MsgBox : TITLE "My First Button Icon DRAW:Keyword : ButtonIconDraw" Message : " Push is ok : Button Icon DRAW ******:", " Keyword : ButtonIconDraw" button : MB_OK icon : MB_ICONEXCLAMATION returning (x) ; end_if; require GetPush(ButtonIconPush1) returning (x); if( x Not_Void ) then MsgBox : TITLE "My First Button Icon PUSH: Keyword : BUTTONICONPUSH" Message : " Push is ok : Button Icon PUSH ******:", " Keyword : BUTTONICONPUSH" button : MB_OK icon : MB_ICONEXCLAMATION returning (x) ; end_if; require GetPush(ButtonIconDrawLabel1) returning (x); if( x Not_Void ) then MsgBox : TITLE "My First Button Icon DRAWLABEL: Keyword : ButtonIconDrawLABEL" Message : " Push is ok : Button Icon DRAWLABEL ******:", " Keyword : ButtonIconDrawLABEL" button : MB_OK icon : MB_ICONEXCLAMATION returning (x) ; end_if; require GetPush(ButtonIconPushLabel1) returning (x); if( x Not_Void ) then MsgBox : TITLE "My First Button Icon PUSHLABEL: Keyword : BUTTONICONPUSHLABEL" Message : " Push is ok : Button Icon PUSHLABEL ******:", " Keyword : BUTTONICONPUSHLABEL" button : MB_OK icon : MB_ICONEXCLAMATION returning (x) ; end_if; /* MOUSE ON ************************************************************************ */ require IsOnSetCursor(ButtonIcon2) returning (x); if( x Not_Void ) then replaceButtonIcon(ButtonIcon2:"c:\EndUser4gl\4gl\hlp\pgmicon\lamp2.ico"); else replaceButtonIcon(ButtonIcon2:"c:\EndUser4gl\4gl\hlp\pgmicon\lamp.ico"); end_if; require IsOnSetCursor(ButtonIcon4) returning (x); if( x Not_Void ) then replaceButtonIcon(ButtonIcon4:"c:\EndUser4gl\4gl\hlp\pgmicon\cancel2.ico"); else replaceButtonIcon(ButtonIcon4:"c:\EndUser4gl\4gl\hlp\pgmicon\cancel.ico"); end_if; require IsOnSetCursor(ButtonIcon3) returning (x); if( x Not_Void ) then replaceButtonIcon(ButtonIcon3:"c:\EndUser4gl\4gl\hlp\pgmicon\zipsmall.ico"); else replaceButtonIcon(ButtonIcon3:"c:\EndUser4gl\4gl\hlp\pgmicon\zip.ico"); end_if; require IsOnSetCursor(ButtonIconDrawLabel2) returning (x); if( x Not_Void ) then replaceButtonIcon(ButtonIconDrawLabel2:"c:\EndUser4gl\4gl\hlp\pgmicon\okbor2.ico"); else replaceButtonIcon(ButtonIconDrawLabel2:"c:\EndUser4gl\4gl\hlp\pgmicon\okbor.ico"); end_if; require IsOnSetCursor(ButtonIconDrawLabelcenter1) returning (x); if( x Not_Void ) then replaceButtonIcon(ButtonIconDrawLabelCenter1:"c:\EndUser4gl\4gl\hlp\pgmicon\okbor2.ico"); else replaceButtonIcon(ButtonIconDrawLabelCenter1:"c:\EndUser4gl\4gl\hlp\pgmicon\okbor.ico"); end_if; end_transaction ;