Foros Club Delphi - ayuda con Timagen

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - ayuda con Timagen (https://www.clubdelphi.com/foros/showthread.php?t=63207)

tebre

03-02-2009 17:23:03

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............

rrf	03-02-2009 17:52:25

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.

tebre

03-02-2009 18:11:03

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

rrf	03-02-2009 18:34:08

Pues lamento no poder ayudarte en eso...
Salu2.
Ramón.

cocute

03-02-2009 19:20:47

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;

tebre

04-02-2009 16:41:41

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..

cocute

04-02-2009 18:02:14

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.

tebre

04-02-2009 21:07:28

Imagen

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

me podrias ayudar??

La franja horaria es GMT +2. Ahora son las 07:58:44.