Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Gráficos (https://www.clubdelphi.com/foros/forumdisplay.php?f=8)
-   -   como poner textura a una imagen (https://www.clubdelphi.com/foros/showthread.php?t=90781)

cl2raul 02-09-2016 16:09:03

como poner textura a una imagen
 
hola a todos, tengo una imagen (un texto grande) a la cual quiero cargar una textura (imagen de una madera), como lo hace photoshop o el mismo word, o sea en delphi permite poner el color q te de la gana a la imagen, pero ponerle una textura no se...
en FMX para los objetos 3D si tiene un componente para ponerle textura cargando una imagen, yo quiero hacerlo para una imagen o un TText... ayuda

escafandra 03-09-2016 02:26:18

Mira a ver si esto te da alguna idea: Resta de Imágenes


Saludos.

escafandra 05-09-2016 00:41:18

Un ejemplo de como dibujar un texto con textura en un canvas.

Código Delphi [-]
procedure DrawTextTexture(Text: String; Canvas: TCanvas; X, Y: integer; Texture: TBitmap);
var
  Bitmap: TBitmap;
begin
  Bitmap:= TBitmap.Create;

  SetBkMode(Canvas.Handle, TRANSPARENT);
  Canvas.TextOut(20, 20, PCHAR(Text));

  // Invierto la imagen del texto
  Canvas.CopyMode:= cmDstInvert;
  Canvas.Draw(0,0,Bitmap);

  // AND con la textura
  Canvas.CopyMode:= cmSrcPaint;
  Canvas.Draw(0,0,Texture);

  Bitmap.Free;
end;

Forma de uso:
Código Delphi [-]
procedure TForm1.Button3Click(Sender: TObject);
var
  Texture: TBitmap;
begin
  Image1.Canvas.Font.Name:= 'Arial Black';
  Image1.Canvas.Font.Size:= 90;

  Texture:= TBitmap.Create;
  Texture.LoadFromFile('madera.bmp');

  DrawTextTexture('TEXTO', Image1.Canvas, 20, 20, Texture);
  Texture.Free;
end;


Saludos.

cl2raul 26-09-2016 18:56:52

Gracias escafandra por el ejemplo y si funciona, el problema es que estoy usando FMX pq tiene muchas buenas opciones... alguien tiene algo q no sean los ejemplos del XE7

cl2raul 06-05-2017 16:38:44

imagen con fuentes texturizadas
 
2 Archivos Adjunto(s)
hola a todos.
Ya trate este tema y gracias a todos los que me ayudaron, el probleme es con este codigo no consigo el efecto requerido (ver 01.png) y es que verdaderamente la fuente empaste con el fondo o sea quiero lograr el efecto de desgaste de la fuente (ver 02.png)... en la 02.png utilizo adobe fireworks y observen los recuadros rojos, estos es lo que modifique para lograr el efecto de desgaste de la letra (esto es lo que quiero que delphi haga por mi, ya que son varias las targetas y no quiero hacerla de una en una).

muchas gracias y espero de su ayuda, hay una cosa que me encanta de adobe fireworks y es la capasidad de trabajar en los ficheros png como capas, si, es como trabajar un psd de photoshop pero con la bondad de que no tienes que tener un programa que reconosca el formato ni pesan tanto como los psd, pero el como usar capas en png es otro tema.

escafandra 08-05-2017 10:27:37

Pues las imágenes son tan minúsculas que ni se ven. ¿Que es desgaste de la imagen?

Saludos.


La franja horaria es GMT +2. Ahora son las 16:27:49.

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