Foros Club Delphi - es posible hacer mosaico con una imagen

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

- Gráficos (https://www.clubdelphi.com/foros/forumdisplay.php?f=8)

- - es posible hacer mosaico con una imagen (https://www.clubdelphi.com/foros/showthread.php?t=6414)

jpcancino

07-01-2004 08:42:42

es posible hacer mosaico con una imagen

Es posible hacerlo? darle la propiedad de mosaico, para que la misma imagen se repita e un area determinada

saludos

Descendents

07-01-2004 10:06:55

No creo que haya una propiedad que poniendola a true, te lo haga, y a false te lo desaga.Con el Timage me refiero.
Pero lo puedes hacer tu sin niguna dificultad.

Mira ejemplos en el buscador de Tbitmap y intenta entender el código y busca un poco

Saludos

jpcancino

07-01-2004 20:17:52

Tenias razon, esque antes no supe como buscarlo, pero hya harta información relacionada al respecto y es muy facil, osea no se me había ocurrido.
Muchas gracias

Pero tengo otra pregunta relacionada.
Qué diferencia habría en que pinte un componente determinado que abarque el area que yo quiero con la imagen repetida varias veces a traves de código, a que simplemente ponga hartos Timages uno al lado del otro y cargue la imagen en cada uno de ellos?

delphi.com.ar

07-01-2004 20:26:47

harto... harta... ¿De Chile No?

La gran diferencia es el consumo de recursos, cada TImage no deja de ser un es TGraphicControl con su Canvas, para Windows Device Context y su ventana.

Saludos!

jpcancino

07-01-2004 22:03:04

jajaja si, de Chile
¿En argentina no se usa esa palabra?

Entonces me conviene usar código.

Gracias por tu ayuda :)

delphi.com.ar

07-01-2004 22:17:52

Si se usa... pero no tanto como del otro lado de la cordillera! ;) y mas apuntando a "Fastidiado, Cansado.."
Yo te recomendaría hacerlo de código, pintar un canvas con un mozaico....

Observá lo sencillo que es este ejemplo, tené en cuenta que así como se hace sobre un Form, puedes hacerlo sobre cualquier TGraphicControl o TCustomControl, o cualquier objeto que tenga Canvas / DC:

Código:

type

  TForm1 = class(TForm)

    procedure FormPaint(Sender: TObject);

    procedure FormCreate(Sender: TObject);

    procedure FormDestroy(Sender: TObject);

  private

    BackGround: TBitmap;

  public

  end;



implementation



....



procedure TForm1.FormPaint(Sender: TObject);

begin

  Canvas.Brush.Bitmap := BackGround;

  Canvas.FillRect(ClientRect);

end;



procedure TForm1.FormCreate(Sender: TObject);

begin

  BackGround := TBitmap.Create;

  BackGround.LoadFromFile('C:\Windows\Burbujas.bmp');

end;



procedure TForm1.FormDestroy(Sender: TObject);

begin

  BackGround.Free;

end;

;

Saludos!

jpcancino

08-01-2004 07:31:43

Si, tienes razon, no me acordaba de que se usaba asi también la palabra, pero ya no se usa tanto. Se usa más "estoy chato" que "estoy harto".

Muchas gracias por tu ayuda, ese codigo use para pintar un form.
Pero que otro componente podría usar aparte de un form?

Descendents

08-01-2004 09:32:08

Cualquiera que tenga canvas, como ya te han dicho.

Cuando te digo canvas , te quiero decir la propiedad canvas.

Ej:image1.canvas o self.canvas o incluso un label label1.canvas

El timage mismo es el que yo usaria, ya que te puede ayudar despues con propiedades que tiene para pictures.

Saludos

La franja horaria es GMT +2. Ahora son las 13:47:33.