SetColorText(Hwdisplay:text colour , background colour);		
	
	
	

  	 #include  "#SYSPATHMS4BI+\zInclude\IncludeDisplay.h"
INTEGER : Exit_TRANS1 ,X := 99;

CHAR : Mot1:10 := "EU" , Mot2:10 := "RE",Mot3:10 := "KA" , Word:128 ;

BEGIN
	SetColorText (Hwdisplay:yellow,black) ; 		
	Display "------------------------------------------------------------------------- " ;
	Display "     Example de CORLORTEXT ....          " ;
	Display "------------------------------------------------------------------------- " ;
	BEGIN
		SetColorText (Hwdisplay:Blue,Red) ; 
		Display "   mot1  : " , Mot1 Column 20,
		"mot2  : " , Mot2 Column 45 ,
		"mot3  : " ,Mot3 Column 60;
		Word := "";
	END  ;
	BEGIN
		SetColorText (Hwdisplay:Blue,White) ; 
		Display "WORD.......: before  $concatene ",Word Column 40;
		
		concatene  Mot1,"->",Mot2,"<-",Mot3,"...." into Word ;
		concatene  "" into Word;
		
		SetColorText(Hwdisplay:green,black) ; 
		Display "WORD.......: after $concatene ",Word Column 40;
		Word := "string example";
		Display "WORD.......:  ",Word Column 40;
	END  ;
END  ;
Display "   to continue,  Click here                  ";
enter;
Exit;
		 
	
	

Prerequisite

#include "#SYSPATHMS4BI+\zInclude\IncludeDisplay.h" : mandatory, contains all the colours

Remarks

Hwdisplay : identifier for the main window on the display
Keyword : DEFAULT ; text colour
Keyword : NO_BACKGROUND ; no background colour

---

KEY WORD : SKIPLINE

Definition

Line break on the display.

Syntax

  		   	
					SkipLine Line_number;		
	
	
	

Example

  	#include  "#SYSPATHMS4BI+\zInclude\IncludeDisplay.h"
	INTEGER : Exit_TRANS1 ,X := 99;

CHAR : Mot1:10 := "EU" , Mot2:10 := "RE",Mot3:10 := "KA" , Word:128 ;

BEGIN
	Setdisplaypos(1, 10,550,450);
	SetColorText(Hwdisplay:Green,black);
	Display "------------------------------------------------------------------------- " ;
	
	Display "     Example de  SetdisplayPos          " ;
	
	Display "------------------------------------------------------------------------- " ;
	BEGIN
	 		Display "   mot1  : " , Mot1 Column 20,
		"mot2  : " , Mot2 Column 45 ,
		"mot3  : " ,Mot3 Column 60;
		clear Word  ;
	END  ;
	BEGIN
		SetColorText(Hwdisplay:red,NO_BACKGROUND) ;
		Display "WORD.......: before  Concatene ",Word Column 40;
		
		concatene  Mot1,"->",Mot2,"<-",Mot3,"...." inTo Word ;
		concatene  "" into Word;
		
		SetColorText(Hwdisplay:red,yellow);
		Display "WORD.......: after  concatene ",Word Column 40;
		SetColorText(Hwdisplay:Default,green);
		 SkipLine 2; 
	END  ;
END  ;
 Display "   to continue,  Click here                  ";
enter;
 Exit;
 
		 
	
	

Remarks

---

KEYWORD : SETDISPLAYPOS

Definition

Changes the horizontal and vertical positions, and the height and width of the screen.

Syntax

  		   	
			SetDisplayPos( integer X,integer Y,integer nWidth,integer nHeight);
	      

	
	

Example

  	 	     
CHAR : Mot1:10 := "EU" , Mot2:10 := "RE",Mot3:10 := "KA" , Word:128 ;

BEGIN
	Setdisplaypos(1, 10,550,450); 
	SetColorText(Hwdisplay:Green,black);
	Display "------------------------------------------------------------------------- " ;
	
	Display "     Example de  SetdisplayPos          " ;
	
	Display "------------------------------------------------------------------------- " ;
	BEGIN
	 		Display "   mot1  : " , Mot1 Column 20,
		"mot2  : " , Mot2 Column 45 ,
		"mot3  : " ,Mot3 Column 60;
		clear Word  ;
	END  ;
	BEGIN
		SetColorText(Hwdisplay:red,NO_BACKGROUND) ;
		Display "WORD.......: before  Concatene ",Word Column 40;
		
		concatene  Mot1,"->",Mot2,"<-",Mot3,"...." inTo Word ;
		concatene  "" into Word;
		
		SetColorText(Hwdisplay:red,yellow);
		Display "WORD.......: after  concatene ",Word Column 40;
		SetColorText(Hwdisplay:Default,green);
		 SkipLine 2; 
	END  ;
END  ;
 Display "   to continue,  Click here                  ";
enter;
 Exit;
	

Display 3 : Output

Remarks

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