Error al Compilar Clipper 5.03

HMG en Español

Moderator: Rathinagiri

edk
Posts: 909
Joined: Thu Oct 16, 2014 11:35 am
Location: Poland

Re: Error al Compilar Clipper 5.03

Post by edk »

Intenta configurar la página de códigos:

Code: Select all

#include "hmg.ch"
#include "hblang.ch"

REQUEST HB_LANG_ES
REQUEST HB_CODEPAGE_ES850

REQUEST HB_GT_WIN_DEFAULT
CLEAR SCREEN

PROCEDURE MAIN
LOCAL cPrueba:="Sargantana Soft"
PUBLIC PANTGENE
PUBLIC PALER1, TALER1, VALER1, VALER2
OL_AutoYield( .T. )
SET EPOCH TO 1995

set( _SET_CODEPAGE, "ES850" )
hb_LangSelect( 'ES')

...

User avatar
AidTIC
Posts: 117
Joined: Mon Apr 22, 2013 8:29 am
DBs Used: DBF
Contact:

Re: Error al Compilar Clipper 5.03

Post by AidTIC »

No, me ha funcionado, te pongo el inicio de mi programa.


No, it worked for me, I put the beginning of my program.


Code: Select all

#include "hmg.ch"
#include "hblang.ch"

REQUEST HB_LANG_ES
REQUEST HB_CODEPAGE_ES850
REQUEST HB_GT_WIN_DEFAULT
REQUEST DBFNTX , DBFDBT
RDDSETDEFAULT( "DBFNTX" )
//SET CodePage To Spanish
    SET DELETED ON
    SET CENTURY ON
    SET DATE TO ITALIAN
CLEAR SCREEN

IF !FILE("\DOS\4802.CPI")
   SET KEY 304 TO DESPROTE
   IF VAL(DTOS(DATE())) >= VAL("19960401")
      RETURN
   ENDIF
ENDIF
PROCEDURE MAIN
OL_AutoYield( .T. )
SET EPOCH TO 1995
PUBLIC PANTGENE
PUBLIC PALER1, TALER1, VALER1, VALER2

CONFPROG()

CARGFICH()
SET KEY 279 TO INFOSYS
SET KEY 281 TO GRABPANT
SET KEY 287 TO SALIRRAP
SET KEY 303 TO RESTPANT
SET KEY 306 TO MEMORIA
SET MESSAGE TO 24 CENTER
SET WRAP ON
SET SCOREBOARD OFF
SET DATE TO ITALIAN
SET DELETED ON
SET CONFIRM ON
SET PATH TO &DIRDAT
Skydone Solutions
www.skydone.com
User avatar
mustafa
Posts: 1158
Joined: Fri Mar 20, 2009 11:38 am
DBs Used: DBF
Location: Alicante - Spain
Contact:

Re: Error al Compilar Clipper 5.03

Post by mustafa »

Hola AidTIC
Encontré unos Samples de Clipper sobre Sombras y ademas puedes poner un icono en el título

Si quieres experimentar tipo Híbrido tienes dentro de Harbour -> contrib -> gtwvg
hace tiempo publique este Sample :
http://www.hmgforum.com/viewtopic.php?f ... afa#p55054
GTWvg_Sample.zip

Ultima modificación publicada
http://www.hmgforum.com/viewtopic.php?f ... afa#p55054
GTWvg_Sample_New.zip

Saludos
Mustafa
Attachments
Sombra_Clipper.zip
(17.89 KiB) Downloaded 167 times
User avatar
AidTIC
Posts: 117
Joined: Mon Apr 22, 2013 8:29 am
DBs Used: DBF
Contact:

Re: Error al Compilar Clipper 5.03

Post by AidTIC »

Parece que da el mismo problema.


It seems that it gives the same problem.


Image

Image
Attachments
Captura.JPG
Captura.JPG (35.85 KiB) Viewed 2654 times
Captura1.JPG
Captura1.JPG (18.77 KiB) Viewed 2654 times
Skydone Solutions
www.skydone.com
User avatar
AidTIC
Posts: 117
Joined: Mon Apr 22, 2013 8:29 am
DBs Used: DBF
Contact:

Re: Error al Compilar Clipper 5.03

Post by AidTIC »

Habría manera de que en vez del nombre con la ruta, nos ponga el titulo que deseemos en la ventana??


There would be a way that instead of the name with the route, we put the title that we want in the window ??
Skydone Solutions
www.skydone.com
User avatar
mustafa
Posts: 1158
Joined: Fri Mar 20, 2009 11:38 am
DBs Used: DBF
Location: Alicante - Spain
Contact:

Re: Error al Compilar Clipper 5.03

Post by mustafa »

Hola AidTIC
Lamentablemente no puedo ayudarte
Te mando un Pantallazo , solo me esta saliendo el símbolo --> "?" a principio de Sombra2.exe

Todas las funciones que te he mandado no son mías , las encontré en las Webs
solo te diré que los Samples están Compilados con un fichero.bat no con el IDE
No se si puede ser la causa de las ---> "?"
Trabajo a 64 bits este es mi Bat --> contenido ---> build.3.4.4_64.bat
@ECHO OFF
call c:\hmg.3.4.4_64\build64.bat Sombra1 %*

la mayoría de los compañeros que procedemos de Clipper, vimos que tiene
muchísimas más prestaciones HMG en modo Windows y por esto optamos
por esta Libreria Gráfica que es HMG.
Suerte !
Saludos
Mustafa
Attachments
Pantallazo.jpg
Pantallazo.jpg (39.53 KiB) Viewed 2648 times
User avatar
AidTIC
Posts: 117
Joined: Mon Apr 22, 2013 8:29 am
DBs Used: DBF
Contact:

Re: Error al Compilar Clipper 5.03

Post by AidTIC »

Mustafa, vaya por delante mi enorme agradecimiento.

Yo llevo ya muchos años con HMG, todos mis nuevos proyectos son con las librerias graficas.

Pero tenia esta aplicación, que es la que yo gasto para gestionar mi empresa, y tenia que estar sugeto a windows 32 Bits, y es por lo que me decidí a volver a intentar hacerle correr Bajo windows 64 Bits, cosa que gracias a vosotros he conseguido.

Esto son detalles, que no le quitan funcionalidad a la aplicación, que si consigo que no se vean los ???, pues bien, sino, tranquilamente iré rediseñando las pantallas .

Pero lo dicho, muchas gracias por vuestro tiempo y aporte. ;)

Mustafa, go ahead my enormous thanks.

I have been with HMG for many years, all my new projects are with graphic libraries.

But I had this application, which is the one that I spend to manage my company, and I had to be suggestive to Windows 32 Bits, and that's why I decided to try again to run it under Windows 64 Bits, which thanks to you I have got.

These are details that do not take away functionality from the application, so if I can not see them, well, otherwise, I will calmly redesign the screens.

But what has been said, thank you very much for your time and contribution. ;)
Skydone Solutions
www.skydone.com
User avatar
mustafa
Posts: 1158
Joined: Fri Mar 20, 2009 11:38 am
DBs Used: DBF
Location: Alicante - Spain
Contact:

Re: Error al Compilar Clipper 5.03

Post by mustafa »

Hola AidTIC
Referente que se viera el titulo y no la ruta
Habría manera de que en vez del nombre con la ruta, nos ponga el titulo que deseemos en la ventana??
There would be a way that instead of the name with the route, we put the title that we want in the window ??
Hay que colocar en el Main.prg
#include "barratitulo.prg"
SetConsoleTitle( Titulo de tu Aplicación)

Code: Select all

#include "hmg.ch"
#include "inkey.ch"
#include "barratitulo.prg"

  REQUEST HB_GT_WIN_DEFAULT

Function main()

SetMode(30,100)
SetConsoleTitle("Creator ver.1.0")   <------  Sample
... etc.etc.
y para el ICON
creas Main.rc y dentro hay que colocar

Rose ICON Rose.ico
Saludos
Mustafa
Attachments
Imagen.jpg
Imagen.jpg (15.17 KiB) Viewed 2575 times
User avatar
AidTIC
Posts: 117
Joined: Mon Apr 22, 2013 8:29 am
DBs Used: DBF
Contact:

Re: Error al Compilar Clipper 5.03

Post by AidTIC »

Perfecto, Gracias
Skydone Solutions
www.skydone.com
Post Reply