Cambios HMG 2.x a 3.x No puedo compilar

HMG en Español

Moderator: Rathinagiri

angelper
Posts: 16
Joined: Sun Dec 19, 2010 9:46 pm
Location: Albacete (España)

Re: Cambios HMG 2.x a 3.x No puedo compilar

Post by angelper »

danielmaximiliano wrote:Angel:
SET Lang es para los mensajes de sistema en tu lengua
SET Codepage es para tipo de teclado
SET EPOCH para la fecha de comeinzo de epoca
SET DATE para formato de fecha en tu sistema
Hola Daniel, los SET LANG, EPOCH y DATE, ya los sabía de Clipper :D , pero el CODEPAGE sólo lo había utilizado en HMG.
Pero he probado sin ningún SET en el siguiente programa y me sale todo bién.

Code: Select all

#include "hmg.ch"

Function Main

	public aMenu :=	{ {"Mayúsculas","MsgInfo('En Mayúsculas ÁÉÍÓÚÑÇ')"} ,;
			{"Minúsculas","MsgInfo('áéíóúñç')"} ,;
			{"Caractéres"    ,"MsgInfo('ºª%&€$@# - Hasta el €uro sale bien')"    }},;
			cAction

	DEFINE WINDOW Win_1 ;
		AT 0,0 ;
		WIDTH 400 ;
		HEIGHT 400 ;
		TITLE 'Prueba de Code Page!' ;
		MAIN 

		DEFINE MAIN MENU
			
			For nI=1 To Len(aMenu)
				POPUP aMenu[nI][1]
					cAction:=aMenu[nI][2]
					ITEM aMenu[nI][1] ACTION { || &cAction }
				END POPUP
			Next
				POPUP 'Salir'
					ITEM 'Salir de la Prueba'	ACTION ThisWindow.Release
			END POPUP
							
		END MENU

	END WINDOW

	ACTIVATE WINDOW Win_1

Return
Por eso mi pregunta del SET CODEPAGE, ya que al parecer HMG sin ponerlo parece que lo hace todo bien.

Gracias por la aclaración, y parece ser que este post está ya solucionado, por lo menos por mi parte y me ha sido de mucha utilidad y agradezco vuestra colaboración.

Saludos.
Angel.
Post Reply