PC Toledo

Código: Selecionar todos

#include "hmg.ch"

Function Main

	SET SCROLLSTEP TO 10

	DEFINE WINDOW Win_1 ;
		ROW 0 ;
		COL 0 ;
		WIDTH 400 ;
		HEIGHT 400 ;
		TITLE 'HMG Panel Window Demo' ;
		WINDOWTYPE MAIN  


		DEFINE WINDOW Win_Panel ;
			ROW 30 ;
			COL 30 ;
			WIDTH 300 ;
			HEIGHT 200 ;
			VIRTUALWIDTH 400 ;
			VIRTUALHEIGHT 400 ;
			WINDOWTYPE PANEL

			DEFINE LABEL LABEL_1
				ROW		10
				COL		10
				VALUE		'Panel windows...'
				WIDTH		300
			END LABEL

			DEFINE BUTTON BUTTON_1
				ROW		40
				COL		10
				CAPTION		'Click Me!'
				ACTION		MsgInfo('Clicked!')
			END BUTTON

			DEFINE LABEL LABEL_2
				ROW		90
				COL		10
				VALUE		"Can do this!"
				WIDTH		300
			END LABEL

			DEFINE TEXTBOX TEXT_1
				ROW		120
				COL		10
				VALUE		'Test'
			END TEXTBOX

			DEFINE TEXTBOX TEXT_2
				ROW		150
				COL		10
				VALUE		'Test'
			END TEXTBOX

			DEFINE TEXTBOX TEXT_3
				ROW		180
				COL		10
				VALUE		'Test'
			END TEXTBOX
	
			DEFINE TEXTBOX TEXT_4
				ROW		210
				COL		10
				VALUE		'Test'
			END TEXTBOX

			DEFINE TEXTBOX TEXT_5
				ROW		240
				COL		10
				VALUE		'Test'
			END TEXTBOX

		END WINDOW

		DEFINE BUTTON BUTTON_1
			ROW		300
			COL		10
			CAPTION		'Panel Size -'
			ACTION  ( x := ScreenToClientCol (Win_1.HANDLE, Win_Panel.Col),;
                   y := ScreenToClientRow (Win_1.HANDLE, Win_Panel.Row),;
                   MoveWindow (Win_Panel.HANDLE, x, y, Win_Panel.WIDTH - 10, Win_Panel.HEIGHT - 10, .T.))
		END BUTTON

		DEFINE BUTTON BUTTON_2
			ROW		300
			COL		200
			CAPTION		'Panel Size +'
			ACTION  ( x := ScreenToClientCol (Win_1.HANDLE, Win_Panel.Col),;
                   y := ScreenToClientRow (Win_1.HANDLE, Win_Panel.Row),;
                   MoveWindow (Win_Panel.HANDLE, x, y, Win_Panel.WIDTH + 10, Win_Panel.HEIGHT + 10, .T.))
		END BUTTON

	END WINDOW

	Win_1.Center 

	Activate Window Win_1 

Return

Código: Selecionar todos

hBitmap  := BT_BitmapLoadFile ("imagen.jpg")   // BMP, JPG, GIF, TIF, PNG
nWidth   := BT_BitmapWidth (hBitmap)
nHeight  := BT_BitmapHeight (hBitmap)
BT_HMGSetImage ("Win_Panel", "Image_Panel", hBitmap, .T.)

x := ScreenToClientCol (Win_1.HANDLE, Win_Panel.Col)
y := ScreenToClientRow (Win_1.HANDLE, Win_Panel.Row)
MoveWindow (Win_Panel.HANDLE, x, y, nWidth + 5, nHeight + 5, .T.)