#include "minigui.ch" 
  
 Function Main 
  
 	DEFINE WINDOW Win_1 ; 
 		ROW 0 ; 
 		COL 0 ; 
 		WIDTH 400 ; 
 		HEIGHT 400 ; 
 		TITLE 'Panel Window Demo' ; 
 		WINDOWTYPE MAIN   
  
  
 		DEFINE WINDOW Win_2 ; 
 			ROW 30 ; 
 			COL 30 ; 
 			WIDTH 300 ; 
 			HEIGHT 200 ; 
 			VIRTUAL WIDTH 400 ; 
 			VIRTUAL HEIGHT 600 ; 
 			WINDOWTYPE PANEL 
  
 			DEFINE LABEL LABEL_1 
 				ROW		10 
 				COL		10 
 				VALUE		'Panel window...' 
 				WIDTH		300 
 			END LABEL 
  
 			DEFINE TEXTBOX TEXT_5 
 				ROW		240 
 				COL		10 
 				WIDTH		350 
 				VALUE		'Test5' 
 			END TEXTBOX 
  
 		END WINDOW 
  
  
 		DEFINE BUTTON BUTTON_1 
 			ROW		300 
 			COL		10 
 			WIDTH		200 
 			CAPTION		'Draw Line' 
 			ACTION		MyLine() 
 		END BUTTON 
 		 
 	DEFINE TEXTBOX TEXT_1 
 				ROW		340 
 				COL		10 
 				WIDTH		450 
 				VALUE		'Test5' 
 			END TEXTBOX	 
  
 	END WINDOW 
  
  
 	Center Window Win_1 
  
 	// Panel windows are automatically activated through its parent 
 	// so, only Win_1 must be activated. 
 	 
 	Activate Window Win_1  
  
 Return Nil 
  
 //--------------------- 
 function MyLine() 
 	DRAW LINE IN WINDOW Win_2 AT 0,0 TO 100,200 PENCOLOR {255,0,0} PENWIDTH 1 
 	//нарисуем линию над текстом 
 	DRAW LINE IN WINDOW Win_2 AT Win_2.TEXT_5.Row-2,Win_2.TEXT_5.Col TO Win_2.TEXT_5.Row-2,Win_2.TEXT_5.Col+200 PENCOLOR {255,0,0} PENWIDTH 1 
 	//нарисуем такую же линию на строке 20 
 	DRAW LINE IN WINDOW Win_2 AT 20,Win_2.TEXT_5.Col TO 20,Win_2.TEXT_5.Col+200 PENCOLOR {255,0,0} PENWIDTH 1 
 return Nil 
 //---------------------