Dúvida de iniciante

[cida]

Boa tarde pessoal!

Eu montei uma tela de um programa que estou desenvolvendo, apenas pra teste e aprendizado, e gostaria de colocar um desenho de fundo.

Porém o comando não está funcionando.

Eu fiz da seguinte maneira:

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

FUNCTION Main()

// objeto Icon - icone da tela e oBar - barra de botäes LOCAL OBRUSH, OBAR, OBTN, OBMP, OFONT, oFnt, GetList

LOCAL OICO, CHECKED, DS_3DLOOK, oMsgBar, oTimer, oTmr, nClr

hBorland:=LoadLibrary("bwcc.dll")

SET RESOURCES TO "CPD.DLL"

CLEAR

REQUEST DBFCDX

RDDSETDEFAULT( "DBFCDX" ) // CARREGA RDD DEFINIDO

SET CENTURY ON

SET DATE BRITISH

SET DATE FORMAT "dd/mm/yyyy"

SET DELETED ON

SET EPOCH TO 1960

SET ESCAPE ON

SET EXCLUSIVE ON

SET SOFTSEEK ON

SETCANCEL( .F. )

DEFINE BRUSH oBrush STYLE BORLAND

DEFINE WINDOW oWnd Title oemtoansi("Indústria Metalúrgica Ramalho Ltda.");

MENU BuildMenu() ;

ICON oIco; // apesar de não ter atribuido nenhum Icone

MENUINFO 3;

BORDER SINGLE;

MDI;

BRUSH oBrush

DEFINE BUTTONBAR oBar 3D SIZE 40, 42 OF oWnd

.

. Nesse espaço eu defini os botões, não vou colocar pra não ficar extenso

.

SET MESSAGE OF oWnd to "Sistema de Gerenciamento do CPD" ;

CLOCK DATE KEYBOARD

if file ("FUNDO.BMP")

@ 00,00 bitmap file "FUNDO.BMP" of oWnd size 800,600 adjust

endif

ACTIVATE WINDOW oWnd MAXIMIZED

return nil

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

Quando eu executo o programa ele não carrega o FUNDO.BMP na tela.

O que eu não entendi é que tenho um exemplo baixado de Dicas que tem esse comando e um outro programa exemplo que fiz que funciona o comando direitinho.

Obs.: Utilizo o Workshop e a versão de demonstração do Fivewin que baixei aqui no site.

Agradeço a atenção de todos!

Cida - Santo André - SP.

Editado por - cida on 25/01/2005 15:51:58

[personal]

DEFINE BRUSH oBRUSH Resource "fundownd"

DEFINE WINDOW oWnd FROM 00, 00 TO 550, 750 Pixel ;

TITLE Seu_Titulo BRUSH oBrush

Oliveira, Sérgio A.

PERSONAL - LINS

MSN - sergio@personal.com.br

SKYPE - sergio-personal

FWH 2.5 / xHarbour 0.99 / brMake / no WS

[cida]

Muito Obrigada Sérgio, eu alterei e deu certinho.