* clipper logo
*exospace fi logo lib LLIBG,CLIPPER
*OPTEDIT MENU.EXE -EXTRAMIN 8192
#Include "Llibg.ch"
set procedure to logo
do dibuja
procedure dibuja
arq_bmp:="C:\val\LOGO2.BMP"
IF !FILE(arq_bmp)
@ 10,10 SAY "ARQUIVO "+arq_bmp+" NO ENCONTRADO."
INKEY(0)
QUIT
ENDIF
SETCURSOR(0)
SET(39,158)
nScrMaxX := gMode()[ LLG_MODE_GRAPH_COL ]
nScrMaxY := gMode()[ LLG_MODE_GRAPH_ROW ]
aLogo := gBmpLoad(arq_bmp)
nLin:=INT((nScrMaxY - aLogo[ LLG_BMP_Y ])/2)
nCol:=INT((nScrMaxX - aLogo[ LLG_BMP_X ])/2)
gframe(nCol-4,nLin-4,nCol+aLogo[ LLG_BMP_X ]+4,nLin+aLogo[LLG_BMP_Y]+4,;
7,15,8,4,4,4,4,LLG_MODE_SET)
gBmpDisp( aLogo, nCol, nLin )
RETUrn