PDA

Ver la Versión Completa : es posible hacer mosaico con una imagen


jpcancino
07-01-2004, 09:42:42
Es posible hacerlo? darle la propiedad de mosaico, para que la misma imagen se repita e un area determinada

saludos

Descendents
07-01-2004, 11: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, 21: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, 21: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, 23: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, 23: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:
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, 08: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, 10: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