- ButtonText or ButtonRegionChild or ButtonPush
 
  x, y,(height) integer, (width) integer , " literal ", VarwinButton 
  Create :	(optional)   
    Info " literal", (info bubble)   
    Use Cursor " Cursor directory "     

- BUTTONICON OR BUTTONICONDRAWLABEL
  Width Icon:integer ,Height Icon : integer , 
  x, y,(height) integer, (width) integer , "  ICON directory  ", VarwinButton   
  Create :	  
    Text : " literal",
    Info   " literal", (info bubble)  
    Use Cursor " Cursor directory "    
			
- require (optional) integer = PRESSED(VarWinButton);
  	

  	
#include  "#SYSPATHMS4BI+\zInclude\IncludeSysMs4Windows.h"     
Begin_Transaction : Trans1 Execute Transaction With VarExit != 1	
Begin_Dialog		
                     BackgroundColor : Color(192,193,218)
 			WinExtendStyle :  :WS_EX_CLIENTEDGE
			WinStyle 	   :  :WS_OVERLAPPED & CenterDialog
	 		1, 1, 800,600, "MS 4 : Presentation  ",UserDialog
 			
			ButtonRegionChild 2,540,48,48, ButtonQuit 
			Create : 
			Info " Option       @   Exit     ",
			Use Cursor "#SYSPATHMS4BI+\zPicture\Cursor\hand-l.cur" ,
			PictureGIF 60, 540,"#SYSPATHMS4BI+\zPicture\Gif\GifAnimate\iExplorer.gif",Gifexplorer ** or constante path or see you : loadPicture ..
			
			ButtonText 140 ,540, 180,25, "  www.mgplanete.com ", Buttonwww
			Create :	
			Info " Internet  @  www.mgplanete.com",
			Use Cursor "#SYSPATHMS4BI+\zPicture\Cursor\hand-l.cur"  
	
			Buttonicondrawlabel Width Icon: 24 ,Height Icon : 24 ,  
			1,545,80,45, "#DRIVERSYS+\MandragorePlanete\MS4BI\zPicture\Icon\XP\cancelxp.ico",Boutoncancel 
			Create :	Text "exit " ,Info " Option   @ Exit "
			Use Cursor "#DRIVERSYS+\MandragorePlanete\MS4BI\zPicture\Cursor\hand-l.cur" 

End_Dialog	
   	OpenDialog (UserDialog1); 
  		BEGIN /*   Click on MANDRAGORE Site */ 

			Require  x := Pressed  (Buttonwww) ;
			IF (X Not_Void) THEN SetHourGlassCursor();
				Internet_Navigate("www.mgplanete.com"); 	
			End_if ;
		END  ;
        BEGIN /* Exit Transaction */
 			Require  x := Pressed(ButtonQuit);
			IF (X Not_Void) THEN 
				SetStatusDialog(UserDialog:Sw_HIDE);
				Exit_TRANS1 := 1 ;
			End_if;
		END  ; 
		OR
        BEGIN /* Exit Transaction */
 			Require  x := Pressed(ButtonCancel);
			IF (X Not_Void) THEN 
				SetStatusDialog(UserDialog:Sw_HIDE);
				Exit_TRANS1 := 1 ;
			End_if;
		END  ;  		
End_Transaction ;
	

  
   Source Transaction 3   	
   Source & Copy Transaction 3  	

 

Prerequisites

#include "#SYSPATHMS4BI+\zInclude\IncludeSysMs4Windows.h"
BEGIN_TRANSACTION..END_TRANSACTION
BEGIN_DIALOG..END_DIALOG

Remarks

This example :
driver:\MandragorePlanete\MS4BI\zDemo-Simple\win-00-database1.db.ms4
- the PRESSED function is necessary to return a TRUE (1) value if the button is selected.

See also

PICTUREXXX, FRAME, PRESSED

---

Interested in joining us? contact@mgplanete.com
The Mg Planete team

---

Copyright 2022 by Mandragore Planete

the official sites :
mgplanete.com
getms4bi.com
demos.ms4bi.com
help.ms4bi.com
ms4script.com

---

Download

official site :
getms4bi.com

---

Our purpose : Keep it simple !

written with ms4script

• help 01.010.2022.8

MS4BI in 5 minutes