Imagem de Fundo no sistema

[helio1361303486]

o que vcs usam para colocar imagens no fundo do seus sistemas?

já usei BRUSH e abandonei porque nao da pra colocar .JPG

já usei Timage porque alguns .BMP ñ aceita e quando aceita .JPG que são fotos pequenas ficam distorcidas.

como colocar imagens de fundo de qquer tipo e tamanho e que se ajuste automaticamente e sem distorcer ?

Abraço.

Hélio

xHarbour

[helio1361303486]

o que vcs usam para colocar imagens no fundo do seus sistemas?

já usei BRUSH e abandonei porque nao da pra colocar .JPG

já usei Timage porque alguns .BMP ñ aceita e quando aceita .JPG que são fotos pequenas ficam distorcidas.

como colocar imagens de fundo de qquer tipo e tamanho e que se ajuste automaticamente e sem distorcer ?

Abraço.

Hélio

xHarbour

[helio1361303486]

o que vcs usam para colocar imagens no fundo do seus sistemas?

já usei BRUSH e abandonei porque nao da pra colocar .JPG

já usei Timage porque alguns .BMP ñ aceita e quando aceita .JPG que são fotos pequenas ficam distorcidas.

como colocar imagens de fundo de qquer tipo e tamanho e que se ajuste automaticamente e sem distorcer ?

Abraço.

Hélio

xHarbour

[aldreks]

Olá, Hélio. Aprendi com amigos aqui, assim:

nResHoriz := oJanApollo:nHorzRes() // retorna a resolucao horizontal

nResVert := oJanApollo:nVertRes() // retorna a resolucao vertical

IF nResHoriz = 1024 .and. nResVert = 768

oJanApollo:center()

@ 3.3, 0 IMAGE oImage SIZE 1024,768 OF oJanApollo ADJUST

else

oJanApollo:center()

@ 3.3, 0 IMAGE oImage SIZE 800,470 OF oJanApollo ADJUST

ENDIF

oImage:Progress( .f. )

oImage:LoadBmp([imagens\Eu.jpg] )

ACTIVATE WINDOW oJanApollo MAXIMIZED on paint oImage:Refresh(.F.)

-------------------------

aldreksa@hotmail.com Clipper 5.3b/BLinker7/FW/WS4.5

(Recife-PE)

"A palavra branda sufoca a ira. A palavra dura suscita a ira. "

[aferra]

DEFINE WINDOW oWSig FROM 100,100 TO 490,600 PIXEL TITLE "Seu Programa" ICON oIco1 MDI

....

.....

.....

ACTIVATE WINDOW oWSig MAXIMIZED ON PAINT Fundo()

RETURN(.T.)

FUNCTION Fundo()

DEFINE BITMAP oFONDOPANT FILENAME "LOGO.BMP"

PalBmpDraw(oWSig:oWNDCLIENT:GETDC(),((oWSig:nBOTTOM-oWSig:nTOP)/2)-(oFONDOPANT:nHEIGHT()/2)-70,((oWSig:nRIGHT-oWSig:nLEFT)/2)-(oFONDOPANT:nWIDTH()/2),oFONDOPANT:hBmpPal,oFONDOPANT:nWIDTH(),oFONDOPANT:nHEIGHT(),8913094)

oFONDOPANT:Destroy()

DEFINE BITMAP oFONDOPANT FILENAME "SIG.BMP"

PalBmpDraw(oWSig:oWNDCLIENT:GETDC(),oWSig:nBOTTOM-oFONDOPANT:nHEIGHT()-120,1,oFONDOPANT:hBmpPal,oFONDOPANT:nWIDTH(),oFONDOPANT:nHEIGHT(),8913094)

oFONDOPANT:Destroy()

DEFINE BITMAP oFONDOPANT FILENAME "CPI.BMP"

PalBmpDraw(oWSig:oWNDCLIENT:GETDC(),oWSig:nBOTTOM-oFONDOPANT:nHEIGHT()-120,oWSig:nRIGHT-oFONDOPANT:nWIDTH(),oFONDOPANT:hBmpPal,oFONDOPANT:nWIDTH(),oFONDOPANT:nHEIGHT(),8913094)

oFONDOPANT:Destroy()

RETURN(NIL)

Alessandro F. Silva - Ribeirão Preto/SP

aferracini@terra.com.br

FW2.0d + CL53b + Blinker 7.0

MSN: ferracini_silva@hotmail.com

[vagner]

citação:

o que vcs usam para colocar imagens no fundo do seus sistemas?

---

id=quote>id=quote>

Eu uso .Jpg por ser menor o tamanho, tenho uma variedade muito grande que colecionei da net

citação:

como colocar imagens de fundo de qquer tipo e tamanho e que se ajuste automaticamente e sem distorcer ?

---

id=quote>id=quote>

Para que não distorcer (muito), tente pegar imagens de 600x480 assuma isso como padrão, pois se tiver uma imagem menor, qdo der o adjuste irá realmente distorcer muito

Vagner Wirts

Clipper 5.2 Lib 5.3 - Blinker 5.0 FW 2.0, Harbour 43.0 (Flex), xHarbour 99.1 99.2 99.3 (Simplex) FW 2.5