Exclusive forum for HMG, a Free / Open Source xBase WIN32/64 Bits / GUI Development System
http://mail.hmgforum.com/
+1serge_girard wrote:And of course, Andrés !
Waiting for the latest version !
Serge
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