Clipper/FiveWin - AYUDA CON HMG (HARBOUR MINI)

   
Vista:

AYUDA CON HMG (HARBOUR MINI)

Publicado por LUCHO (1 intervención) el 17/02/2014 03:00:12
NECESITO UNA AYUDA , ESTOY EMPEZANDO CON ESTE LENGUAJE

QUIERO :

1 : COMO HAGO PARA QUE LA VENTANA SALGA EN "PANTALLA COMPLETA"
2 : COMO ELIMINO LOS BOTONES "MAXIMIZAR Y CERRAR EN EL FORMULARIO
3: COMO HABO QUE UN "SUB FORMULARIO" SALGA EN UNA POSICION EXACTA Y NO SE PUEDA MOVER NI
CAMBIAR DE TAMAÑO

AGRADECERE SUS RESPUESTAS
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

AYUDA CON HMG (HARBOUR MINI)

Publicado por Adalberto eninsoft@yahoo.es (213 intervenciones) el 21/02/2014 00:51:53
Lucho,
Para que no cambien el tamaño de la ventana uso este código

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
DEFINE WINDOW WinEdit AT 0, 0 HEIGHT nRowW WIDTH nColW	;
	TITLE cTitulo ICON ENIN MODAL BACKCOLOR MiFondo		;
	ON SIZE SizeCheckBrw('WinEdit', nRowW, nColW)
 
 
 
FUNCTION SizeCheckBrw(cWindow, nRow, nCol)
LOCAL nWidth:= GETPROPERTY(cWindow, 'Width')
LOCAL nHeight:= GETPROPERTY(cWindow, 'Height')
//
IF (nHeight # nRow)
	SETPROPERTY(cWindow, 'Height', nRow)
ENDIF
IF (nWidth # nCol)
	SETPROPERTY(cWindow, 'Width', nCol)
ENDIF
RETURN NIL

Y me funciona bien, claro que el nombre de la funcion puede ser cambiado.

Tengo por ahí un código para pantalla completa (siempre tipo ventana, pero de punta a punta), lo buscaré y te lo hago llegar.

Para que NO muevan la ventana, no sé como podría hacerse pero voy a investigar y si me entero ete aviso.

[ ] Adalberto
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

AYUDA CON HMG (HARBOUR MINI)

Publicado por Adalberto (213 intervenciones) el 21/02/2014 01:35:53
Lucho,

Tal vez estas funciones te puedan ser de ayuda.

1
2
3
4
5
6
GetDesktopRealWidth() //Te da el tamaño del escritorio
GetDesktopRealHeight() //Descontando la barra de tareas de Windows
 
GetBorderHeight( ) Retorna el Tamano del Border de la Ventana
GetTitleHeight( ) Retorna el Ancho del Titulo
GetMenubarHeight( ) Retorna el Tamano del Main Menu

Si tienenes una Status Bar y quieres saber el ancho
puedes hacer una funcion como esta:

1
2
3
4
5
6
7
8
FUNCTION GetMainStatusBarHeight()
LOCAL aRect:= {0, 0, 0, 0}
LOCAL nValue:= 0
if _IsControlDefined("STATUSBAR& quot;," Nombre de tu ventana")
	GetClientRect(GetControlHandle ("STATUSBAR "," Nombre de tu ventana" ), aRect)
	nValue:= aRect[4]
Endif
RETURN(nValue)

Atentos saludos, desde Santa Cruz de la Sierra, Bolivia

[ ] Adalberto
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

AYUDA CON HMG (HARBOUR MINI)

Publicado por Adalberto (213 intervenciones) el 25/02/2014 21:12:52
Hola Lucho,

Aunque no se si leiste las respuestas y menos aun si te sirvieron, igual sigo respondiendo por si acaso le sirve a alguien más le sirve.

Para que nuestra ventana ocupe toda la pantalla es suficiente con escribir lo siguiente:

END WINDOW

MAXIMIZE WINDOW Form_1
ACTIVATE WINDOW Form_1
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

AYUDA CON HMG (HARBOUR MINI)

Publicado por Adalberto (213 intervenciones) el 25/02/2014 21:18:09
Lucho,

Para solucionar el segundo punto de tu post.

"2 : COMO ELIMINO LOS BOTONES "MAXIMIZAR Y CERRAR EN EL FORMULARIO"

DEFINE WINDOW FrmMsgExtended ;
AT nMsBxRow, nMsBxCol HEIGHT nRowW WIDTH nMBxWidt ;
TITLE xTitle ICON ENIN MODAL NOSYSMENU

Recibe un atento saludo

Adalberto.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar