Viva HMG !!!

You can share your experience with HMG. Share with some screenshots/project details so that others will also be benefited.

Moderator: Rathinagiri

EduardoLuis
Posts: 648
Joined: Tue Jun 04, 2013 6:33 pm
Location: Argentina
Has thanked: 1 time
Been thanked: 60 times

Re: Viva HMG !!!

Post by EduardoLuis » Tue Feb 18, 2014 6:29 pm

Esguici:

As allways: you are GREAT!!!!!!!!
Congratulations. Works Fine.

Como siempre: eres GRANDIOSO
Felicitaciones. Gran trabajo.

User avatar
esgici
Posts: 4508
Joined: Wed Jul 30, 2008 9:17 pm
DBs Used: DBF
Location: iskenderun / Turkiye
Has thanked: 386 times
Been thanked: 111 times
Contact:

Post by esgici » Tue Feb 18, 2014 7:03 pm

Thanks friends 8-)

@ Eduardo :

GREAT is HMG with builder, supporters, and followers :arrow:

... and :
serge_girard wrote:And of course, Andrés !

Waiting for the latest version !

Serge
+1

Viva HMG :D
Viva INTERNATIONAL HMG :D

User avatar
andyglezl
Posts: 1149
Joined: Fri Oct 26, 2012 7:58 pm
Location: Guadalajara Jalisco, MX
Has thanked: 35 times
Been thanked: 68 times
Contact:

Post by andyglezl » Mon Feb 24, 2014 10:38 pm

Hola

Ya modifique el programa con lo mencionado por Danny y Esgici
y ya corre en Win7 y Win8.

En vista de que no pude hacer funcionar los fuentes de
hb_SendMail() ni CDO para enviar correo, opté por utilizar un programa externo.

Se llama "SwithMail", lo estuve probando y pude enviar mails
sin necesidad de nada más.

Aqui les dejo el .EXE corregido y aumentado.
------------------------------------------------------------------------------
Hello

Now modify the program as mentioned by Danny and Esgici
and it runs on Win7 and Win8.

Since I could not operate the sources
hb_SendMail () or CDO to send mail, I chose to use an external program.

It's called "SwithMail" I was testing and I could send mails
no need for anything more.

Here I leave the. EXE corrected and enhanced.
Attachments
Inventory System.jpg
Inventory System.jpg (91.4 KiB) Viewed 2071 times
is.rar
(1.14 MiB) Downloaded 156 times
Andrés González López
Desde Guadalajara, Jalisco. México.

User avatar
andyglezl
Posts: 1149
Joined: Fri Oct 26, 2012 7:58 pm
Location: Guadalajara Jalisco, MX
Has thanked: 35 times
Been thanked: 68 times
Contact:

Post by andyglezl » Tue Feb 25, 2014 11:15 pm

Cuando llega la inspiracion no hay que dejarla pasar...
---------------------------------------------------
When inspiration comes should not pass up ...

Code: Select all

#include <hmg.ch>
#define BLUE1 { 218,229,243 }
#define BLUE2 { 000,120,187 }

Function Main()
	PRIVATE nSecu:=0
	
	DEFINE WINDOW w_test AT 240 , 850 WIDTH 1024 HEIGHT 730 BACKCOLOR BLUE2 TITLE "MyFRAME -  By AndyGlezL" MAIN NOSIZE NOMAXIMIZE NOMINIMIZE
   
		ON KEY ESCAPE ACTION Thiswindow.Release()
		*--------------------------------------------------------------------------------------
		i1 := 0  ;  i2 := 1
		aColors := { RED, BLUE, GRAY, BROWN, BLACK, GREEN }
		FOR i1=0 TO 130 STEP 25
			MyFRAME1( "w_test", nSecu++, 50+i1, 50+i1, 250, 400, 3+i2, aColors[ i2 ], "Este sería el Título...", REPLICATE( "Este sería el Mensaje...", 15 ), .T. )
			++i2
		NEXT
		MyFRAME1( "w_test", nSecu++, 240, 700, 150, 300, 5, { 128,   0, 255 }, "Este sería el Título...", ;
			REPLICATE( "Este sería el Mensaje...", 15 ), .T. )
		MyFRAME1( "w_test", nSecu++,  50, 550,  100, 400, 2, { 128,  64,   0 } , "Este sería el Título...", ; 
			REPLICATE( "Este sería el Mensaje...", 15 ), .F. )

		MyFRAME1( "w_test", nSecu++, 450, 550, 150, 400, 5, RED, "Este sería el Título...", "", .T. )
		@ 470,570 TEXTBOX TXB_1 WIDTH 220 HEIGHT 25 FONTCOLOR WHITE BACKCOLOR BLUE2 VALUE " TEXTBOX . . . " MAXLENGTH 60 FONT "Verdana" SIZE 10

	END WINDOW
	CENTER   WINDOW w_test
	ACTIVATE WINDOW w_test
RETURN Nil
FUNCTION MyFRAME1( cForm, nSec, nRenIni, nColIni, nAlto, nAncho, nGrueso, aColor, cTit, cMsg, lFdo )
	cPso1 := "TEMP"+STRZERO( nSec, 4 )+"A"
	cPso2 := "TEMP"+STRZERO( nSec, 4 )+"B"
	cPso3 := "TEMP"+STRZERO( nSec, 4 )+"C"
	cPso4 := "TEMP"+STRZERO( nSec, 4 )+"D"
	cPso5 := "TEMP"+STRZERO( nSec, 4 )+"E"
	cPso6 := "TEMP"+STRZERO( nSec, 4 )+"F"

	@ nRenIni-20,nColIni LABEL &cPso1 VALUE "   "+cTit+"   " OF cForm WIDTH 50   HEIGHT 12 ;
						 FONT "Verdana" SIZE 10 FONTCOLOR WHITE BACKCOLOR aColor AUTOSIZE BOLD BORDER
	@ nRenIni,nColIni                   LABEL &cPso2 VALUE "" OF cForm WIDTH nAncho  HEIGHT nGrueso BACKCOLOR aColor
	@ nRenIni+nAlto,nColIni             LABEL &cPso3 VALUE "" OF cForm WIDTH nAncho  HEIGHT nGrueso BACKCOLOR aColor
	@ nRenIni,nColIni                   LABEL &cPso4 VALUE "" OF cForm WIDTH nGrueso HEIGHT nAlto   BACKCOLOR aColor
	@ nRenIni,(nColIni+nAncho)-nGrueso  LABEL &cPso5 VALUE "" OF cForm WIDTH nGrueso HEIGHT nAlto   BACKCOLOR aColor

	IF lFdo
		@ nRenIni+nGrueso,nColIni+nGrueso LABEL &cPso6 VALUE HB_OsNewLine()+cMsg OF cForm WIDTH nAncho-(nGrueso*2) HEIGHT nAlto-nGrueso ; 
										  FONT "Verdana" SIZE 10 FONTCOLOR BLACK BACKCOLOR BLUE1 CENTERALIGN BORDER
	ELSE
		@ nRenIni+nGrueso,nColIni+nGrueso LABEL &cPso6 VALUE HB_OsNewLine()+cMsg OF cForm WIDTH nAncho-(nGrueso*2) HEIGHT nAlto-nGrueso ;
										  FONT "Verdana" SIZE 10 FONTCOLOR WHITE BACKCOLOR aColor TRANSPARENT BORDER
	ENDIF
RETURN nil
Attachments
MyFRAME.jpg
MyFRAME.jpg (83.34 KiB) Viewed 2013 times
Andrés González López
Desde Guadalajara, Jalisco. México.

Javier Tovar
Posts: 1275
Joined: Tue Sep 03, 2013 4:22 am
Location: Tecámac, México
Has thanked: 1 time
Been thanked: 2 times

Post by Javier Tovar » Wed Feb 26, 2014 1:58 am

Bien Andres, gracias por compartir.

Saludos

Javier Tovar
Posts: 1275
Joined: Tue Sep 03, 2013 4:22 am
Location: Tecámac, México
Has thanked: 1 time
Been thanked: 2 times

Post by Javier Tovar » Wed Feb 26, 2014 2:29 am

Hola Andres, ya viste el siguiente enlace?

viewtopic.php?f=9&t=1059&p=11620&hilit=cajas#p11620

Saludos

Javier Tovar
Posts: 1275
Joined: Tue Sep 03, 2013 4:22 am
Location: Tecámac, México
Has thanked: 1 time
Been thanked: 2 times

Post by Javier Tovar » Wed Feb 26, 2014 2:32 am


User avatar
andyglezl
Posts: 1149
Joined: Fri Oct 26, 2012 7:58 pm
Location: Guadalajara Jalisco, MX
Has thanked: 35 times
Been thanked: 68 times
Contact:

Post by andyglezl » Wed Feb 26, 2014 3:20 am

Claro que si Javier, muy buenos !!!
Teniendo las herramientas todo es cuestion de creatividad.
Andrés González López
Desde Guadalajara, Jalisco. México.

User avatar
mustafa
Posts: 829
Joined: Fri Mar 20, 2009 11:38 am
DBs Used: DBF
Location: Alicante - Spain
Been thanked: 117 times
Contact:

Post by mustafa » Wed Feb 26, 2014 9:23 am

Hola andyglezl
Fantastico
Mustafa :P

User avatar
Agil Abdullah
Posts: 204
Joined: Mon Aug 25, 2014 11:57 am
Location: Jakarta, Indonesia
Contact:

Post by Agil Abdullah » Fri Aug 29, 2014 5:02 am

Hi Andress,

I found something wrong when I executed your EXE on my PC. Pls help me how to resolve this. See screen capture below:
Attachments
ispic1.png
on my comp screen it is blinking almost on every corner
ispic1.png (281.91 KiB) Viewed 1741 times
Agil Abdullah Albatati (just call me Agil)
Programmer Never Surrender

Post Reply