Viva HMG !!!

[EduardoLuis]

Esguici:

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

Como siempre: eres GRANDIOSO
Felicitaciones. Gran trabajo.

[esgici]

Thanks friends

@ Eduardo :

GREAT is HMG with builder, supporters, and followers

... and :

And of course, Andrés !

Waiting for the latest version !

Serge

+1

Viva HMG

[andyglezl]

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.

[andyglezl]

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

[Javier Tovar]

Bien Andres, gracias por compartir.

Saludos

[Javier Tovar]

Hola Andres, ya viste el siguiente enlace?

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

Saludos

[Javier Tovar]

o este otro?

viewtopic.php?f=15&t=1389&start=20

Saludos

[andyglezl]

Claro que si Javier, muy buenos !!!
Teniendo las herramientas todo es cuestion de creatividad.

[mustafa]

Hola andyglezl
Fantastico
Mustafa

[Agil Abdullah]

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: