Fazer aparecer um BMP no centro da Janela Principal

Discussão sobre a biblioteca Fivewin - O Clipper para Windows.

Moderador: Moderadores

Mário Isa
Usuário Nível 4
Usuário Nível 4
Mensagens: 907
Registrado em: 07 Jul 2004 13:54
Localização: Ilha Solteira-sp

Fazer aparecer um BMP no centro da Janela Principal

Mensagem por Mário Isa »

Olá Amigos,
Tentei isto:
Mas não deu certo

// ----
DEFINE ICON oIcon RESOURCE "SECRETA"
DEFINE BRUSH oBrush STYLE TILED
DEFINE WINDOW wMain TITLE "Secretaria - UNESP DFQ" MDI ;
menu buildmenu() ICON oIcon COLOR 'W/W' BRUSH oBrush
DEFINE BUTTONBAR BarMain BUTTONSIZE 45, 45 3DLOOK TOP OF wMain
DEFINE BUTTON of BarMain RESOURCE "CLIENTE" action funcdoc(1) tooltip 'Funcionários/Docentes' Message "Cadastro de Funcionários/Docentes"
DEFINE BUTTON of BarMain RESOURCE "LUPA" action funcdoc(2) tooltip 'Feriados/Eventos' Message 'Feriados/Eventos'

SET MESSAGE OF wMain TO 'Unesp DFQ' CENTERED DATE CLOCK KEYBOARD NOINSET

@ 4, 16 BITMAP oBmp FILENAME "secwork.bmp" ADJUST SIZE 280, 200 OF wMain ;
ON CLICK ( oBmp:lStretch := ! oBmp:lStretch, oBmp:Refresh( .t. ) )

activate window wMain on RESIZE oBmp:Center() maximized
//-----

Onde foi que eu errei....

Nota:- o secwork.bmp está lá na pasta mas não aparece no centro.
Até mais.
Avatar do usuário
Ale SB
Usuário Nível 3
Usuário Nível 3
Mensagens: 201
Registrado em: 20 Jul 2004 17:30
Localização: Campo Grande / MS

Mensagem por Ale SB »

Bom Dia Mario,

Quando eu quero colocar uma imagem de fundo q nao esta nos meus arquivos de Recursos( .RES ou .RC) eu uso o formato .JPG, acho q fica menor q o BitMap, e chamo ele assim :

Código: Selecionar todos

FUNCTION MAIN()

STATIC ImgFundo:=".\Bitmap\Ondulacao.jpg"
.
.
.
.
*******DEFINE A IMAGEM DE FUNDO****************
@ 00,00 Image oImag Size oWnd:nHorzRes(),oWnd:nVertRes()-112 Of oWnd Adjust
oImag:Progress(.F.)
oImag:LoadBmp(Imgfundo)
.
.
ACTIVATE WINDOW oWnd MAXIMIZED
@braços Ale
Imagemr]
Responder