2 Consultas

[macrosy]

Hola foro:
Tengo dos pequeñas consulta para hacerles:
1)Cuando tengo varios .prg abiertos en el editor ¿como puedo cambiarme
de un archivo fuente a otro sin utilizar el mouse?, quiero hacerlo
directamente con alguna combinación de teclas y no encuentro cual es.
2)¿Como puedo hacer para que una pequeña imagen (tipo .bmp o .jpeg) se
repita tantas veces como para que quede rellenando el fondo en un form?
Muchas Gracias
Daniel

[Boris]

Daniel...
No soy un experto en xailer de hecho lo estoy evaluando pero con respecto a
tus preguntas para pasarte de un PRG a otro proba con CTRL+TAB y
CTRL+SHIFT+TAB, y por lo de la imagen te detallo el codigo. Fijate que tiene
que respetar siempre el evento FormPaint del Formulario y la imagen que en
mi caso estoy pintando es de 80x80.
METHOD FormPaint( oSender, hDC, cPaintStruct ) CLASS TGesTalle
PonerTapiz(oSender,hdc)
RETURN Nil
Procedure PonerTapiz(oSender,Form)
Local oCanvas := TCanvas():New()
Local MyBitMap2 :=TBitmap():New()
oCanvas:hDC := Form
MyBitmap2:LoadFromFile('..ImagenesDefaultFondoBmp.bmp')
iBMWid := MyBitmap2:nWidth
iBMHeight := MyBitmap2:nHeight
y := 0
Do while y < oSender:nHeight
x := 0
Do while x < oSender:nWidth
oCanvas:DrawPicture({x, y,x+80,y+80}, MyBitmap2)
x := x + iBMWid
enddo
y := y + iBMHeight
endDo
Return nil

[jlalin]

Daniel y Boris,
> 2)¿Como puedo hacer para que una pequeña imagen (tipo .bmp o .jpeg) se
> repita tantas veces como para que quede rellenando el fondo en un form?
No es necesario complicarse para poner una imagen de fondo en un form,
ya que Xailer lo hace automáticamente.
Sólo hay que seguir estos tres pasos:
1) Seleccionar la propiedad oBkGnd y pinchad en "..." para que se abra
el editor para seleccionar una imagen,
2) Escoger la imagen que queréis poner de fondo,
3) Seleccionar la propiedad nBkgndMode y elegir blTILED.
Saludos,
José Lalí­n

[zeasoftware]

1.- Te puedes cambiar con CTRL-AvPag y CTRL-RePag.
2.- En el form pones una imagen en la propiedad oBkGnd y la propiedad nBkGndMode := blTILED.
Saludos.
--
Ramón Zea
ramonzea@yahoo.com
zeasoftware@hotmail.com
zeasoft.movil@hotmail.com
http://www.paginasprodigy.com/zeasoft/
--

[macrosy]

Boris:
Muchas gracias por tu ayuda, pero respecto a la pregunta 2 fí­jate en las
sugerencias que me dieron José y Ramón (a los cuales también les
agradezco mucho)que resulta mucho más sencillo.
Saludos a todos
Daniel.
Boris escribió:
> Daniel...
>
> No soy un experto en xailer de hecho lo estoy evaluando pero con respecto a
> tus preguntas para pasarte de un PRG a otro proba con CTRL+TAB y
> CTRL+SHIFT+TAB, y por lo de la imagen te detallo el codigo. Fijate que tiene
> que respetar siempre el evento FormPaint del Formulario y la imagen que en
> mi caso estoy pintando es de 80x80.
>
>
>
>
> METHOD FormPaint( oSender, hDC, cPaintStruct ) CLASS TGesTalle
>
> PonerTapiz(oSender,hdc)
>
> RETURN Nil
>
> Procedure PonerTapiz(oSender,Form)
> Local oCanvas := TCanvas():New()
> Local MyBitMap2 :=TBitmap():New()
> oCanvas:hDC := Form
> MyBitmap2:LoadFromFile('..ImagenesDefaultFondoBmp.bmp')
> iBMWid := MyBitmap2:nWidth
> iBMHeight := MyBitmap2:nHeight
> y := 0
> Do while y < oSender:nHeight
> x := 0
> Do while x < oSender:nWidth
> oCanvas:DrawPicture({x, y,x+80,y+80}, MyBitmap2)
> x := x + iBMWid
> enddo
> y := y + iBMHeight
> endDo
> Return nil
>
>