FiveTech Support Forums

#include "FiveWin.ch"
#include "Image.ch"
#include "ttitle.ch"

static oWnd, hDC

//-------------------------------------------------------------------------------------

Function Main()
Local nAncho:=WndWidth(GetDesktopWindow())

DEFINE WINDOW oWnd FROM 1, 1 TO 25, 79 MDI ;
TITLE "Sistema" Menu BuildMenu()


ACTIVATE WINDOW oWnd MAXIMIZED ;
ON INIT W_TITLE( oWnd, nAncho )

Return Nil

// -------------------------------------------------------------------

FUNCTION W_TITLE( oWnd, nAncho )
Local oDlg, oTitle1
Local cTitulo:=( "TEXTO TEXTO TEXTO TEXTO TEXTO TEXTO TEXTO TEXTO TEXTO TEXTO TEXTO TEXTO ")

nDLGStyle = nOR( DS_MODALFRAME | WS_POPUP | WS_VISIBLE | WS_BORDER )
DEFINE DIALOG oDlg SIZE 60, nAncho STYLE nDLGStyle 

@ 0,0 TITLE oTitle1 Size nAncho, 60 of oDlg SHADOW SHADOWSIZE 0
oTitle1:aGrdBAck:= { {1,nRGB(251,230,148),nRGB(238,149,21) }}
oTitle1:lRound:=.F.
@  10,  10  TITLETEXT OF oTitle1 TEXT cTitulo COLOR CLR_BLACK

ACTIVATE DIALOG oDlg NOWAIT ;
ON INIT ( oDlg:Move( 50, 0, nAncho, 60,  .f. ) ) 

RETURN( NIL )

//--------------------------------------------------------------------

Function BuildMenu()
local oMenu

MENU oMenu 2007
MENUITEM "TTitle"
MENU
            MENUITEM "Error de Ttitle"  ACTION MsgAlert("Mover sobre TTitle","Confirme")
ENDMENU
MENUITEM "TImage"
MENU
            MENUITEM "Error de TImage y JPG" ACTION TestImage()
ENDMENU

ENDMENU

Return oMenu

//-----------------------------------------------------------------------

Function TestImage()
Local oDlgTest, oImg1
Local oFoto1:=Space(150)

Define Dialog oDlgTest Resource "IMAGENES"

// RESOURCE "Blanc" = any small BMP-resource
REDEFINE BITMAP oImg1  ID 11  ADJUST  RESOURCE "Blanc"  OF oDlgTest
oImg1:bPainted := {|hDC| DRAW_IMAGE( oImg1, "ZARZAR.JPG" ) }

REDEFINE GET oGet1  VAR oFoto1  ID 101 Of oDlgTest Picture "@K!" ;
VALID ( oImg1:LoadBmp(ALLTRIM(oFoto1)), oImg1:Refresh(), .T.) ;
ACTION ( oFoto1:=cGetFile32("JPEG  | *.jpg |" + "Todos los Archivos | *.* ", ;
"Seleccione imagen",1,"C:\",,.T.), oGet1:refresh()) update

Redefine Button oBtn1 Id 201 of oDlgTest Action oDlgTest:End()

Activate Dialog oDlgTest Centered NOWAIT

Return Nil

// -------------------------------

FUNCTION DRAW_IMAGE( oBitmap, cBitmap)
Local oImage

DEFINE IMAGE oImage FILENAME cBitmap 

aRect := GETCLIENTRECT( oBitmap:hWnd )
nBmpWidth := oBitmap:nWidth()
nBmpHeight := oBitmap:nHeight()

PalBmpDraw( oBitmap:GETDC(), 0, 0, oImage:hBitmap, , aRect[4], aRect[3] ) 
oBitmap:ReleaseDC()

RETURN( NIL )

Function Main()
Local cTitulo:=( "TEXTO TEXTO TEXTO TEXTO TEXTO TEXTO TEXTO TEXTO TEXTO TEXTO TEXTO TEXTO ")
Local nAncho:=WndWidth(GetDesktopWindow())

   DEFINE WINDOW oWnd FROM 1, 1 TO 25, 79 MDI ;
   TITLE "Sistema con MDI" Menu BuildMenu()

    @ 70,0 TITLE oTitle1 Size nAncho, 60 of oWnD:oWndClient SHADOW SHADOWSIZE 0
      oTitle1:aGrdBAck:= { {1,nRGB(251,230,148),nRGB(238,149,21) }}
      oTitle1:lRound:=.F.
    @  10,  10  TITLETEXT OF oTitle1 TEXT cTitulo COLOR CLR_BLACK

   ACTIVATE WINDOW oWnd MAXIMIZED

Return Nil