Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 03-02-2009
tebre tebre is offline
Miembro
 
Registrado: nov 2008
Posts: 93
Poder: 16
tebre Va por buen camino
ayuda con Timagen

como ponerle una imagen de fondo a un TTabcontrol....aparte como hacer que esa figura se repita varias veces..que quede como un mosaico..

la verdad estoy en ceros..espero su ayuda gracias............
Responder Con Cita
  #2  
Antiguo 03-02-2009
rrf rrf is offline
Miembro
 
Registrado: ago 2003
Ubicación: S/C Tenerife, España
Posts: 454
Poder: 21
rrf Va por buen camino
Hola.

Mira en este enlace. Creo que habla de lo que buscas (Poner un bitmap en mosaico como fondo en tu form):

http://www.q3.nu/trucomania/truco.cgi?210&esp

Salu2.

Ramón.
Responder Con Cita
  #3  
Antiguo 03-02-2009
tebre tebre is offline
Miembro
 
Registrado: nov 2008
Posts: 93
Poder: 16
tebre Va por buen camino
Imagen

hola gracias por responder..pero principalmente lo que quiero es como ponerle fondo a una pagecontrol..el fondo q quiero es una imagen .jpeg...


pero quiero q esa imagen me se me repita varias veces a lo largo y ancho del page control...


gracias por aclarar mis dudas
Responder Con Cita
  #4  
Antiguo 03-02-2009
rrf rrf is offline
Miembro
 
Registrado: ago 2003
Ubicación: S/C Tenerife, España
Posts: 454
Poder: 21
rrf Va por buen camino
Pues lamento no poder ayudarte en eso...
Salu2.
Ramón.
Responder Con Cita
  #5  
Antiguo 03-02-2009
cocute cocute is offline
Miembro
 
Registrado: nov 2008
Posts: 403
Poder: 16
cocute Va por buen camino
puedes poner un Timage de fondo como mosaico con esta funcion

Cita:


function TileImage(const FileName: TFileName; Sender: TObject): Boolean;
var
x, y: Integer;
Bmp: TBitmap;
begin
if FileExists(FileName) then
begin
bmp := TBitmap.Create;
try
bmp.LoadFromFile(FileName);
with (Sender as TImage) do
begin
for x := 0 to (Width div bmp.Width) do
for y := 0 to (Height div bmp.Height) do
Canvas.Draw(x * bmp.Width, y * bmp.Height, bmp);
end;
finally
bmp.Free;
end;
Result := True;
end
else
Result := False;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
if Opendialog1.Execute then
TileImage(OpenDialog1.FileName, Image1);
end;

Última edición por cocute fecha: 03-02-2009 a las 19:33:50.
Responder Con Cita
  #6  
Antiguo 04-02-2009
tebre tebre is offline
Miembro
 
Registrado: nov 2008
Posts: 93
Poder: 16
tebre Va por buen camino
timagen

hola gracias por responder.. mi imagen es jpeg..este codigo funciona con este tipo de archivo??... donde pongo la direccion de mi archivo..

gracias de antemano..
Responder Con Cita
  #7  
Antiguo 04-02-2009
cocute cocute is offline
Miembro
 
Registrado: nov 2008
Posts: 403
Poder: 16
cocute Va por buen camino
te pongo un ejemplo de como seria con un jpeg, ya que para un jpeg el codigo cambia.
http://rapidshare.com/files/19387454...image.rar.html

pero vamos tendrias mejor que adaptarlo tu mismo para que el jpeg quedara dentro del proyecto con un timagelist o algo, aunque quizas te insterese que quede fuera para poderlo cambiar mas facil.


de todas formas lo mejor seria no matarte la cabeza y crearte una imagen en mosaico mas grande que lo que creas que puede ocupar en el form y cargarla sin mas en un timage.

Última edición por cocute fecha: 04-02-2009 a las 18:16:22.
Responder Con Cita
  #8  
Antiguo 04-02-2009
tebre tebre is offline
Miembro
 
Registrado: nov 2008
Posts: 93
Poder: 16
tebre Va por buen camino
Imagen

ah ok buena idea...ahora me resulta otra duda. como agregrar una imagen de fondo para un PageControl????...

me podrias ayudar??
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Averiguar parametros trect en un Timagen avmm2004 Gráficos 3 06-02-2008 03:37:37
Problema Con Timagen Y Listview NEOALEX00016 Gráficos 4 06-02-2008 02:51:53
Scrollbar a Timagen angelp4492 Gráficos 5 21-12-2007 19:52:03
¿TImagen ..? Ledian_Fdez C++ Builder 1 21-06-2007 23:05:20
Dibujar sobre Timagen eljose Gráficos 7 13-12-2006 11:01:58


La franja horaria es GMT +2. Ahora son las 09:20:26.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi