MS4BI®

MS4BI HELP 2022

by MS4script
01-Introduction
Preface & Copyright
Getting started
Informations + Cmd/param Server
Demos Simple
02- Declarations
Structure
Type
03- Instructions
Conditions if,do,while..
Char/Text functions Char or Text..()
Get + Include functions Get, Include..
String functions String# (hashtag)
Date-Time Day, Time, Year.
Display
Call
Formulas Complex
04- Database
Connector Ado, Odbc, Dsn, SAP, Ms4
DB Connect Create, delete
Import DataSource Import, Consolidation
Administration Admin, User
05- Sql-Query
Sql
Query Form : BTS,Plus
Grid option
06- Charts
Forms Plus, Win, Image, Excel, Morris...
Pie Std, Donut, 3D...
Bar Std, Stack, Line, Area, Plot
Radar
QrCode, Gauge
Step, Stock...
,Google,Leaflet... GeoMap
,Gantt,Timeline,Org.
DrawWindow [web]
07- Dashboard
Form tab, no tab
Responsive UI
08- Report
Report Hierarchy
Report Design
09- Filters
Dialogue + Call
10- Menus
Menu Design
Menu Frameset
Menu Custom
11-UI : Responsive
Tables Responsive,Frame,position
List Group
Text
Panel Header, body, Footer
Button Button, Progress Bar
Icon & Button
Collapse Group, Panel
Notifications
12- Encryption
Encrypt
Decrypt
13- Windows
Dialogue
Picture, Frame, Button..
MsgBox
Grid

Designer

00-OverView
01-Transaction
02-Setting
05-Import
10-Formula
15-Report-Part1
16-Report-Part2
20-Query-Part1
21-Query-Part2
25-Report-Query-Style
30-QrCodeImage
31-Windows
32-Frame
40-TabStrip
50-Collapse
60-BeginForm
63-Input-SubmitBox
70-Input-Select
71-Input-Insert
72-Input-Update
73-Input-Delete
75-Input-Query
77-ListComBo
81-Button-Link
82-Button-DataList
86-Sticky-Label
91-Insert-PhpJsHtml
92-Insert-MS4script
15- Css, html, Php, js.
Insert Native language Begin_sw..End_Sw
16-Install + tools.
Installation & Configuration This Menu
Generate Native... Php, Html, js..
Code Generator Ms4 Script
MarkDown Ms4 Script
Source Code Menu Help This Menu
written with ms4script
      

BASIC HELP : MS4BI by MS4script

2023 version 1.18

Chapter 13 : WINDOWS

KEYWORD : GRID

Definition

Creates a Windows grid in a Windows dialogue box.

Syntax

  		   	
Grid x,y, (height) integer, (width) integer , VarGrid 
Create :
Column integer : literal or string " ,Property : ButtonPush or char or checkbox ,Size integer
Column integer : literal or string " ,Property : ButtonPush or char or checkbox ,Size integer
Column integer : ...

Example

  	
#include  "#SYSPATHMS4BI+\zInclude\IncludeSysMs4Windows.h"     

Begin_Dialog		
		 
       BackgroundColor : Color(192,193,218)
		WinExtendStyle : :Ws_Ex_DlgModalFrame
		WinStyle 	 : :Ws_POPUP	
                 680,10,540,630 , " Cube",UserDialog
 	Frame     ....
	Grid 10,60, 530, 500, Grid1  
		/rCreate : 
		Column/r 1 : "N°     " ,Property :ButtonPush,Size 50
	 	Column 2 : "Select",Property : Checkbox,Size 45
		Column 3 : " Measures/View " ,  Property : CHAR, Size 340,Left
		Column 4 : "type " ,Property : CHAR,Size 80,Left

    Frame  	...	
 	 
End_Dialog	;
 
Begin_Initialize	
 Grid_SetBkColor(Grid1: Column: 1 yellow,Column: 2 orange, Column: 3 black,Column: 4 pink,Column: 5 green);
        Grid_SetColorText(Grid1:  Column: 3  green, Column: 4  black);
        Grid_SetFonts(Grid1:21, "Colibri") ;
		// Grid_SetColumnFullEdit(Grid1);
		Grid_AddColumnEdit(Grid1 : 4);
		BEGIN ** environnement DB
		** retrieve Dir Application MS4
  			 
 			DBexist{Ms4DB}(LEnvDB) return (X) ;
		/*   return codes */
		** x = 1 : Ok , x = 0 Not ok */
		 if (x  void) then
                  Display " DB not found ", LEnvDB;  Exit;
                 End_if;
              END;
 BEGIN 
    DBconnect{Ms4DB}(LEnvDB); 
	Ms4_SQLFetch{ms4db}("select * from sqlite_master ")
 		 Row_ForEach  :
			I++; clear ztypeMeasure,zMeasure;
 		 	 
			ztypeMeasure 	:= Column_GetData:1,CHAR ;
			zMeasure 	    := Column_GetData:2,CHAR ;
      Grid_Additem(Grid1: I , Column:1 I, Column:2 unCheckBox ,Column: 3  zMeasure  ,
	                                      Column:4  CheckBox,  Column: 5 ztypeMeasure,Column: 6 ztypeMeasure)	;
		** or	Grid_Additem(Grid1: I , Column: 1  I   )	;
		**	Grid_Additem(Grid1: I , Column: 2 UnCheckBox  )	;
		**	Grid_Additem(Grid1: I , Column: 3 zMeasure  )	;
		**	Grid_Additem(Grid1: I , Column: 4 ztypeMeasure)	;
		End_Row_ForEach ; 
		Setdisplaypos(1, 10,530,400);
		
		Grid_GetColCount(Grid1) return(i);
		 
				Display "Grid : Nb Columns : ",i;
		Grid_GetItemCount(Grid1) return(i);
				Display "Grid : Nb Items : ",i;
		
			str_format(Text1,"SetITem2----------");
			Grid_Setitem(Grid1: 2 ,   Column: 3 Text1); 
			Grid_SetColorCell(Grid1 : 2,3,red);   
			Grid_SetColorCellText(Grid1 : 2,3,white);
				str_format(Text1,"SetITem%i-------",i);
				Grid_Setitem(Grid1: I ,   Column: 3 Text1);
				 Grid_SetColorCell(Grid1 : I,3,orange);
				 Grid_SetColorCellText(Grid1 : I,3,black);
		Grid_SetCellCheckBox(Grid1: 12 , 2, 1);// line/col/state
		Grid_SetCellPushButton(Grid1: 12 , 1, 1);// line/col/state
END;		
	 	
		Grid_GetCellCheckBox(Grid1: 12 , 2 )return (x);// line/col/state
		if(x Not_Void)
		then
		Display "Cell is checked : Cell : line : 12 Col :2 ";
		End_if;
		OpenDialog (UserDialog); 
   
End_Initialize ;
Begin_Transaction : Trans1 Execute Transaction With Exit_TRANS1 != 1	
  
 
	Require  x := Pressed  (ButtonGdOk) ;	
	IF (X Not_Void) THEN 		
 		  lig :=0;col :=0;x :=0;
	   	  Grid_GetCurrentCellCheck(Grid1) Return  (Lig,col,x);
		  	//   Display "Click Select : : lig ,", Lig," col ",col," check ",x;
 		 /* check line GRID */  	
		 IF ((Lig > 0) And ($_check = x))
		 	THEN   
	 			Grid_GetCellTexT(grid1:lig,3) return (zMeasure);
                             Display "Click Select : Measure : Cell(Line/col)  ", Lig," col ",col," value : ",zMeasure; 
							
		End_if;
       End_if;
	   
	   Require  x := Pressed  (ButtonDeleteAllGd ) ;	
	IF (X Not_Void) THEN 
	 Grid_DeleteAllitem(Grid1);
	  End_if;
End_Transaction ;
 
	

Grid 1

Prerequisites

#include "#SYSPATHMS4BI+\zInclude\IncludeSysMs4Windows.h"

Remarks

This example :
driver:\MandragorePlanete\MS4BI\zInclude\Call\function\LoadDbWin.ms4
driver:\MandragorePlanete\MS4BI\02-DEMO-DESKTOP-BI-EXCELandSTANDARD\99-DATABASE\VersionADO\399-DisplayMyCubeGridView.ms4
driver:\MandragorePlanete\MS4BI\02-DEMO-DESKTOP-BI-EXCELandSTANDARD\zDemo-Simple\Windows\GridWin.ms4
\

See also

Grid, Grid_AddItem, Grid_SetItem, Grid_GetCurrentCellCheck, Grid_DeleteAllItem, Grid_SetCellCheckBox, Grid_SetCellPushButton, Grid_GetColCount,Grid_GetItemCount,Grid_SetColumnFullEdit, Grid_AddColumnEdit, Grid_SetBkColor, Grid_SetColorText,Grid_SetColorCell,Grid_SetColorCellText, Grid_SetFonts



KEYWORD : GRID_ADDITEM

Definition

Creates an item in a grid.

Syntax

  		   	
GRID_AddItem(varWinGrid :(item)integer , Column:integer $_uncheck or CHAR (value),
                                      Column:integer $_uncheck or CHAR (value)... );
  	

Example

  	
#include  "#SYSPATHMS4BI+\zInclude\IncludeSysMs4Windows.h"     

Begin_Dialog		
		 
       BackgroundColor : Color(192,193,218)
		WinExtendStyle : :Ws_Ex_DlgModalFrame
	 ....
	Grid 10,60, 530, 500, Grid1  
		
		Create : 
		Column 1 : "N°     " ,Property :ButtonPush,Size 50
	 	Column 2 : "Select",Property : Checkbox,Size 45
		Column 3 : " Measures/View " ,  Property : CHAR, Size 340,Left
		Column 4 : "type " ,Property : CHAR,Size 80,Left

      	...	
 	 
End_Dialog	;
             
 Begin_Initialize	
 		 
  BEGIN 
    DBconnect{Ms4DB}(LEnvDB); 
	Ms4_SQLFetch{ms4db}("select * from sqlite_master ")
 	Row_ForEach  :
			I++; clear ztypeMeasure,zMeasure;
 		 	 
			ztypeMeasure 	:= Column_GetData:1,CHAR ;
			zMeasure 	    := Column_GetData:2,CHAR ;
 Grid_Additem(Grid1: I , Column:1 I, Column:2 unCheckBox ,Column: 3  zMeasure  ,
	                                      Column:4  CheckBox,  Column: 5 ztypeMeasure,Column: 6 ztypeMeasure)	;
		** or	Grid_Additem(Grid1: I , Column: 1  I   )	;
		**	Grid_Additem(Grid1: I , Column: 2 UnCheckBox  )	;
		**	Grid_Additem(Grid1: I , Column: 3 zMeasure  )	;
		**	Grid_Additem(Grid1: I , Column: 4 ztypeMeasure)	;	End_Row_ForEach ; 
   END;		
	OpenDialog (UserDialog); 
End_Initialize ;
        Begin_Transaction : Trans1 Execute Transaction With Exit_TRANS1 != 1	    
	
				...
		End_Transaction ;
	

Prerequisites

#include "#SYSPATHMS4BI+\zInclude\IncludeSysMs4Windows.h"

Remarks

Warning : - Float, double and long type variables should be converted to char type.
\

See also

Grid_AddItem, Grid_SetItem, Grid_GetCurrentCellCheck, Grid_DeleteAllItem, Grid_SetCellCheckBox, Grid_SetCellPushButton, Grid_GetColCount,Grid_GetItemCount,Grid_SetColumnFullEdit, Grid_AddColumnEdit, Grid_SetBkColor, Grid_SetColorText,Grid_SetColorCell,Grid_SetColorCellText, Grid_SetFonts



KEY WORD : GRID_GETCURRENTCELLCHECK

Definition

Finds if n° of the item has been checked in a column of the Windows grid .

Syntax

  		   	
 
 GRID_GetCurrentCellCheck(varWinGrid) Return  (integer(item),integer(column),integer(checked or unchecked));
	

Example

  	
#include  "#SYSPATHMS4BI+\zInclude\IncludeSysMs4Windows.h"     

Begin_Dialog		
		 
       BackgroundColor : Color(192,193,218)
		WinExtendStyle : :Ws_Ex_DlgModalFrame
	 ....
	Grid 10,60, 530, 500, Grid1  
		Create : 
		Column 1 : "N°     " ,Property :ButtonPush,Size 50
	 	Column 2 : "Select",Property : Checkbox,Size 45
		Column 3 : " Measures/View " ,  Property : CHAR, Size 340,Left
		Column 4 : "type " ,Property : CHAR,Size 80,Left

      	...	
 	 
End_Dialog	;
 
	OpenDialog (UserDialog); 
	Begin_Transaction : Trans1 Execute Transaction With Exit_TRANS1 != 1	
  	Require  x := Pressed  (ButtonGdOk) ;	
	IF (X Not_Void) THEN 		
 		  Line :=0;col :=0;x :=0;/* or clear..*/
	   	  GRID_GetCurrentCellCheck(Grid1) Return  (Line,col,x);
 		 /* check GRID line*/  	
		 IF ((Line > 0) And ($_check = x))
		 	THEN   
	 	.... 
	End_if ;
	...
End_Transaction ;
	

Prerequisites

#include "#SYSPATHMS4BI+\zInclude\IncludeSysMs4Windows.h"

Remarks

Warning :
integer :
$_CHECK := 1,
$_UNCHECK := 0;
- GRID_GETCELLTEXT must be present so as to find the value of the item and the column to select with GRID_GetCurrentCellCheck

See also

GRID, Grid_AddItem, Grid_SetItem, Grid_GetCurrentCellCheck, Grid_DeleteAllItem, Grid_SetCellCheckBox, Grid_SetCellPushButton, Grid_GetColCount,Grid_GetItemCount,Grid_SetColumnFullEdit, Grid_AddColumnEdit, Grid_SetBkColor, Grid_SetColorText,Grid_SetColorCell,Grid_SetColorCellText, Grid_SetFonts



KEY WORD : GRID_GETCELLTEXT

Definition

Find the string value of the N° of the selected item and column in a Windows grid.

Syntax

  		   	
 GRID_GETCELLTEXT(varWinGrid:integer(item),integer(column)) return (string);
	

Example

  	
#include  "#SYSPATHMS4BI+\zInclude\IncludeSysMs4Windows.h"     

Begin_Dialog		
		 
       BackgroundColor : Color(192,193,218)
		WinExtendStyle : :Ws_Ex_DlgModalFrame
	 ....
	Grid 10,60, 530, 500, Grid1  
		Create : 
		Column 1 : "N°     " ,Property :ButtonPush,Size 50
	 	Column 2 : "Select",Property : Checkbox,Size 45
		Column 3 : " Measures/View " ,  Property : CHAR, Size 340,Left
		Column 4 : "type " ,Property : CHAR,Size 80,Left

      	...	
 	 
End_Dialog	;
 
	OpenDialog (UserDialog); 
Begin_Transaction : Trans1 Execute Transaction With Exit_TRANS1 != 1		
  	Require  x := Pressed  (ButtonGdOk) ;	
	IF (X Not_Void) THEN 		
 		  Line :=0;col :=0;x :=0;/* or clear..*/
	   	  GRID_GetCurrentCellCheck(Grid1) Return  (Line,col,x);
 		 /* check line GRID */  	
		 IF ((Line > 0) And ($_check = x))
		 	THEN   
	 	 		 GRID_GETCELLTEXT(grid1:Line,3) return (zMeasure);
                   Ms4_Query: Web {Ms4DB}("  SELECT   *  FROM    [%s] ",zMeasure)  ;  
	End_if ;
	...
End_Transaction ;
	

Prerequisites

#include "#SYSPATHMS4BI+\zInclude\IncludeSysMs4Windows.h"

Remarks

Warning :
- convert float, double, long values to STRING

See also

GRID, Grid_AddItem, Grid_SetItem, Grid_GetCurrentCellCheck, Grid_DeleteAllItem, Grid_SetCellCheckBox, Grid_SetCellPushButton, Grid_GetColCount,Grid_GetItemCount,Grid_SetColumnFullEdit, Grid_AddColumnEdit, Grid_SetBkColor, Grid_SetColorText,Grid_SetColorCell,Grid_SetColorCellText, Grid_SetFonts



KEYWORD : Grid_SetBkColor, Grid_SetColorText, Grid_SetColorCell,Grid_SetColorCellText,Grid_SetFonts

Definition

Defines the background colour, text colour or font for an item or cell in a Windows grid.

Syntax

  		   	
Grid_SetBkColor(varWinGrid: Column: colour integer, colour integer...);
Grid_SetColorText(varWinGrid: Column: colour integer, colour integer...);
Grid_SetColorCell(varWinGrid: line: integer ,Column: integer, colour integer...);
Grid_SetColorCellText(varWinGrid: line: integer ,Column: integer, colour integer...);
Grid_SetFonts(varWinGrid: Height, "literal" ) ; nota : "literal" as pszFaceName

Example

  	
#include  "#SYSPATHMS4BI+\zInclude\IncludeSysMs4Windows.h"     

Begin_Dialog		
		 
       BackgroundColor : Color(192,193,218)
		WinExtendStyle : :Ws_Ex_DlgModalFrame
	 ....
	Grid 10,60, 530, 500, Grid1  
		Create : 
		Column 1 : "N°     " ,Property :ButtonPush,Size 50
	 	Column 2 : "Select",Property : Checkbox,Size 45
		Column 3 : " Measures/View " ,  Property : CHAR, Size 340,Left
		Column 4 : "type " ,Property : CHAR,Size 80,Left

      	...	
 	 
End_Dialog	;
 Begin_Initialize	
 	    Grid_SetBkColor(Grid1: Column: 1 yellow,Column: 2 orange, Column: 3 black,Column: 4 pink,Column: 5 green);
        Grid_SetColorText(Grid1:  Column: 3  green, Column: 4  black);
        Grid_SetFonts(Grid1:21, "Colibri") ;
		 Grid_SetColorCell(Grid1 : I,3,orange);
		 Grid_SetColorCellText(Grid1 : I,3,black);
	
		OpenDialog (UserDialog); 	 
  End_Initialize 
 Begin_Transaction : Trans1 Execute Transaction With Exit_TRANS1 != 1	           

	...
End_Transaction ;
	

Prerequisites

#include "#SYSPATHMS4BI+\zInclude\IncludeSysMs4Windows.h"

See also

GRID, Grid_AddItem, Grid_SetItem, Grid_GetCurrentCellCheck, Grid_DeleteAllItem, Grid_SetCellCheckBox, Grid_SetCellPushButton, Grid_GetColCount,Grid_GetItemCount,Grid_SetColumnFullEdit, Grid_AddColumnEdit, Grid_SetBkColor, Grid_SetColorText,Grid_SetColorCell,Grid_SetColorCellText, Grid_SetFonts

KEYWORD : Grid_GetColCount

Definition

This function returns the number of columns in a Windows grid.

Syntax

  		   	
Grid_GetColCount(varWinGrid) return (integer)
 	

Example

  	
#include  "#SYSPATHMS4BI+\zInclude\IncludeSysMs4Windows.h"     

Begin_Dialog		
		 
       BackgroundColor : Color(192,193,218)
		WinExtendStyle : :Ws_Ex_DlgModalFrame
	 ....
	Grid 10,60, 530, 500, Grid1  
		Create : 
		Column 1 : "N°     " ,Property :ButtonPush,Size 50
	 	Column 2 : "Select",Property : Checkbox,Size 45
		Column 3 : " Measures/View " ,  Property : CHAR, Size 340,Left
		Column 4 : "type " ,Property : CHAR,Size 80,Left
      	...	
 	 
End_Dialog	;
DBconnect{Ms4DB}(LEnvDB); 
	Ms4_SQLFetch{ms4db}("select * from sqlite_master ")
 		 Row_ForEach  :
			I++; clear ztypeMeasure,zMeasure;
 		 	 
			ztypeMeasure 	:= Column_GetData:1,CHAR ;
			zMeasure 	    := Column_GetData:2,CHAR ;
       Grid_Additem(Grid1: I , Column:1 I, Column:2 unCheckBox ,Column: 3  zMeasure  ,
	                                      Column:4  CheckBox,  Column: 5 ztypeMeasure,Column: 6 ztypeMeasure)	;
		** or	Grid_Additem(Grid1: I , Column: 1  I   )	;
		**	Grid_Additem(Grid1: I , Column: 2 UnCheckBox  )	;
		**	Grid_Additem(Grid1: I , Column: 3 zMeasure  )	;
		**	Grid_Additem(Grid1: I , Column: 4 ztypeMeasure)	;
		End_Row_ForEach ; 
	 
		Grid_GetColCount(Grid1) return(i);
		Display "Grid : number of columns : ",i;
	...
End_Transaction ;
	

Prerequisites

#include "#SYSPATHMS4BI+\zInclude\IncludeSysMs4Windows.h"

See also

GRID, Grid_AddItem, Grid_SetItem, Grid_GetCurrentCellCheck, Grid_DeleteAllItem, Grid_SetCellCheckBox, Grid_SetCellPushButton, Grid_GetColCount,Grid_GetItemCount,Grid_SetColumnFullEdit, Grid_AddColumnEdit, Grid_SetBkColor, Grid_SetColorText,Grid_SetColorCell,Grid_SetColorCellText, Grid_SetFonts

KEYWORD : Grid_GetItemCount

Definition

This function returns the number of items (rows) in a Windows grid.

Syntax

  		   	
Grid_GetItemCount(varWinGrid) return (integer)
 	

Example

  	
#include  "#SYSPATHMS4BI+\zInclude\IncludeSysMs4Windows.h"     

Begin_Dialog		
		 
       BackgroundColor : Color(192,193,218)
		WinExtendStyle : :Ws_Ex_DlgModalFrame
	 ....
	Grid 10,60, 530, 500, Grid1  
		Create : 
		Column 1 : "N°     " ,Property :ButtonPush,Size 50
	 	Column 2 : "Select",Property : Checkbox,Size 45
		Column 3 : " Measures/View " ,  Property : CHAR, Size 340,Left
		Column 4 : "type " ,Property : CHAR,Size 80,Left
      	...	
 	 
End_Dialog	;
DBconnect{Ms4DB}(LEnvDB); 
	Ms4_SQLFetch{ms4db}("select * from sqlite_master ")
 		 Row_ForEach  :
			I++; clear ztypeMeasure,zMeasure;
 		 	 
			ztypeMeasure 	:= Column_GetData:1,CHAR ;
			zMeasure 	    := Column_GetData:2,CHAR ;
       Grid_Additem(Grid1: I , Column:1 I, Column:2 unCheckBox ,Column: 3  zMeasure  ,
	                                      Column:4  CheckBox,  Column: 5 ztypeMeasure,Column: 6 ztypeMeasure)	;
		** or	Grid_Additem(Grid1: I , Column: 1  I   )	;
		**	Grid_Additem(Grid1: I , Column: 2 UnCheckBox  )	;
		**	Grid_Additem(Grid1: I , Column: 3 zMeasure  )	;
		**	Grid_Additem(Grid1: I , Column: 4 ztypeMeasure)	;
		End_Row_ForEach ; 
	 
		Grid_GetItemCount(Grid1) return(i);
		Display "Grid : number of rows : ",i;
	...
End_Transaction ;
	

Prerequisites

#include "#SYSPATHMS4BI+\zInclude\IncludeSysMs4Windows.h"

See also

GRID, Grid_AddItem, Grid_SetItem, Grid_GetCurrentCellCheck, Grid_DeleteAllItem, Grid_SetCellCheckBox, Grid_SetCellPushButton, Grid_GetColCount,Grid_GetItemCount,Grid_SetColumnFullEdit, Grid_AddColumnEdit, Grid_SetBkColor, Grid_SetColorText,Grid_SetColorCell,Grid_SetColorCellText, Grid_SetFonts

KEYWORD : Grid_SetColumnFullEdit, Grid_AddColumnEdit

Definition

Grid_SetColumnFullEdit :This function sets a specific column to be fully editable in a Windows grid.
Grid_AddColumnEdit :This function adds edit capabilities to a specific column

Syntax

  		   	
Grid_SetColumnFullEdit(varWinGrid) 
Grid_AddColumnEdit(varWinGrid : integer column_index)  The index of the column to which edit capabilities will be added.
 	

Example

  	
#include  "#SYSPATHMS4BI+\zInclude\IncludeSysMs4Windows.h"     

Begin_Dialog		
		 
       BackgroundColor : Color(192,193,218)
		WinExtendStyle : :Ws_Ex_DlgModalFrame
	 ....
	Grid 10,60, 530, 500, Grid1  
		Create : 
		Column 1 : "N°     " ,Property :ButtonPush,Size 50
	 	Column 2 : "Select",Property : Checkbox,Size 45
		Column 3 : " Measures/View " ,  Property : CHAR, Size 340,Left
		Column 4 : "type " ,Property : CHAR,Size 80,Left
      	...	
 	 
End_Dialog	;
  Grid_SetColumnFullEdit(Grid1);
	OR	Grid_AddColumnEdit(Grid1 : 4);
DBconnect{Ms4DB}(LEnvDB); 
	Ms4_SQLFetch{ms4db}("select * from sqlite_master ")
 		 Row_ForEach  :
			...
		End_Row_ForEach ; 
	 
		 
	...
End_Transaction ;
	

Prerequisites

#include "#SYSPATHMS4BI+\zInclude\IncludeSysMs4Windows.h"

See also

GRID, Grid_AddItem, Grid_SetItem, Grid_GetCurrentCellCheck, Grid_DeleteAllItem, Grid_SetCellCheckBox, Grid_SetCellPushButton, Grid_GetColCount,Grid_GetItemCount,Grid_SetColumnFullEdit, Grid_AddColumnEdit, Grid_SetBkColor, Grid_SetColorText,Grid_SetColorCell,Grid_SetColorCellText, Grid_SetFonts

KEYWORD : Grid_SetCellCheckBox, Grid_SetCellPushButton

Definition

Grid_SetCellCheckBox :This function sets a cell in a Windows grid to contain a checkbox .
Grid_SetCellPushButton :This function sets a cell in a Windows grid to contain a push button .

Syntax

  		   	
Grid_SetCellCheckBox(varWinGrid: integer Row number , integer Column number,integer state) 
Grid_SetCellPushButton(varWinGrid: integer Row number , integer Column number,integer state)  
  
	

Remarks

 
   State of the button (1 for enabled, 0 for disabled or non-functional)

 

Example

  	
#include  "#SYSPATHMS4BI+\zInclude\IncludeSysMs4Windows.h"     

Begin_Dialog		
		 
       BackgroundColor : Color(192,193,218)
		WinExtendStyle : :Ws_Ex_DlgModalFrame
	 ....
	Grid 10,60, 530, 500, Grid1  
		Create : 
		Column 1 : "N°     " ,Property :ButtonPush,Size 50
	 	Column 2 : "Select",Property : Checkbox,Size 45
		Column 3 : " Measures/View " ,  Property : CHAR, Size 340,Left
		Column 4 : "type " ,Property : CHAR,Size 80,Left
      	...	
 	 
End_Dialog	;
 
DBconnect{Ms4DB}(LEnvDB); 
	Ms4_SQLFetch{ms4db}("select * from sqlite_master ")
 		 Row_ForEach  :
			...
		End_Row_ForEach ; 
	 Grid_SetCellCheckBox(Grid1: 12 , 2, 1);// line/col/state
		Grid_SetCellPushButton(Grid1: 12 , 1, 1);// line/col/state
		 
	...
End_Transaction ;
	

Prerequisites

#include "#SYSPATHMS4BI+\zInclude\IncludeSysMs4Windows.h"

See also

GRID, Grid_AddItem, Grid_SetItem, Grid_GetCurrentCellCheck, Grid_DeleteAllItem, Grid_SetCellCheckBox, Grid_SetCellPushButton, Grid_GetColCount,Grid_GetItemCount,Grid_SetColumnFullEdit, Grid_AddColumnEdit, Grid_SetBkColor, Grid_SetColorText,Grid_SetColorCell,Grid_SetColorCellText, Grid_SetFonts

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


The official sites :


Copyright 2020 by Mandragore Planete


Our purpose : Keep it simple !


written with ms4script
  • help 01.020.02.2024

MS4BI in 5 minutes

MS4BI Trial Version : Informations :
this message will disappear : Purchase Professional Licence :

https://www.ms4bi.com