Boa tarde pessoal,
Como faço para inserir uma imagem dentro de uma Janela no meu programa?
Att
Vitor

Moderador: Moderadores
// Images DataBase sample in FiveWin from resources
// This code is fully compatible with FiveWin, FiveWin++ and FiveWin for Harbour
#include "FiveWin.ch"
static oWnd
//----------------------------------------------------------------------------//
function Main()
#ifndef __CLIPPER__
SET RESOURCES TO "Fishes32.dll" // 32 bits DLL version
#else
SET RESOURCES TO "Fishes16.dll" // 16 bits DLL version for Clipper users
#endif
DEFINE WINDOW oWnd FROM 1, 1 TO 22, 75 ;
TITLE "Bitmap Test" MENU BuildMenu()
SET MESSAGE OF oWnd TO "FiveWin - Fishes Database!"
ACTIVATE WINDOW oWnd
return nil
//----------------------------------------------------------------------------//
function BuildMenu()
local oMenu
MENU oMenu
MENUITEM "Dialog Box"
MENU
MENUITEM "&Activate..." ACTION DlgFish() ;
MESSAGE "Show the images"
SEPARATOR
MENUITEM "&End..." ACTION oWnd:End() ;
MESSAGE "Thats all folks!"
ENDMENU
oMenu:AddHelp( "FiveWin", "FiveTech" )
ENDMENU
return oMenu
//----------------------------------------------------------------------------//
function DlgFish()
local oDlg
local n := 1
local bmpFish
DEFINE DIALOG oDlg RESOURCE "Fish"
REDEFINE BITMAP bmpFish ID 110 OF oDlg NAME "Fish1"
bmpFish:bLDblClick = { | nRow, nCol, nFlags | ;
MsgInfo( "DblClick on the bitmap" ) }
REDEFINE BUTTON ID 120 OF oDlg ;
ACTION If( n > 1, bmpFish:SetBMP( "Fish" + AllTrim( Str( --n ) ) ), ;
Tone( 956, 2 ) )
REDEFINE BUTTON ID 130 OF oDlg ;
ACTION If( n < 6, bmpFish:SetBMP( "Fish" + AllTrim( Str( ++n ) ) ), ;
Tone( 956, 2 ) )
ACTIVATE DIALOG oDlg CENTERED
return nil
#include "FiveWin.ch"
STATIC oWnd, oBmp
FUNCTION Main()
DEFINE WINDOW oWnd FROM 0,0 TO 10,20 TITLE "Test Class TBitmap"
@ 0,0 BITMAP oBmp FILENAME "..\bitmaps\Tutanka1.bmp" OF oWnd ;
SIZE 0,0 PIXEL SCROLL
WndCenter(oWnd:hWnd)
ACTIVATE WINDOW oWnd ;
ON PAINT ( oBmp:aDjClient(), oBmp:ScrollAdjust() ) ;
ON RESIZE ( oBmp:aDjClient(), oBmp:ScrollAdjust() )
RETURN ( nil )
#include "FiveWin.ch"
FUNC main()
local oWnd, oBmp
DEFINE WINDOW oWnd TITLE "Text on a bitmap"
@ 1, 1 BITMAP oBmp FILENAME "..\bitmaps\magic.bmp" OF oWnd
oBmp:bPainted = { || SetBkMode( oBmp:hDC, 1 ),;
SetTextColor( oBmp:hDC, CLR_YELLOW ),;
TextOut( oBmp:hDC, 5, 5, "Hello" ) }
ACTIVATE WINDOW oWnd
RETURN NIL
Usuários vendo este fórum: Nenhum usuário registrado online e 7 visitantes