texto em imagem

Delphi

12/09/2003

eu tenho um programa que gera thumbnail, eu gostaria se alguem me ajuda-se a criar um codigo que na hora que gero o thumb.. ele insira uma mensagem no canto da imagem..

obrigado


Tatooman

Tatooman

Curtidas 0

Respostas

Nildo

Nildo

12/09/2003

Pesquise na internet sobre o Canvas.

ficaria assim:
SuaImagem.canvas.font.size := 8;
SuaImagem.canvas.textOut(10,10,´Seu texto´)


GOSTEI 0
Tatooman

Tatooman

12/09/2003

eu procurei na internet sobre o canvas,mas não achei nada expecifico eu achei um ex. eu gostaria de saber se vc pode me ajudar,

aqui ta o codigo que achei
Image1.Canvas.TextOut(50,50,’Exemplo’);

[b:75f1cc9c80]como faço para coloca-lo dentro do meu codigo?[/b:75f1cc9c80]

aqui ta o codigo que faço para abrir as imagens

var
i: Integer;
InFileName, OutFileName: string;
FilePath, FileName: string;
begin
for i:=0 to FilesListBox.Items.Count-1 do
begin
InFileName:=FilesListBox.Items[i];
FilePath:=ExtractFilePath(InFileName);
FileName:=ExtractFileName(InFileName);
if OutDirEdit.Text<>´´ then
FilePath:=IncludeTrailingBackSlash(OutDirEdit.Text);
OutFileName:=Concat(FilePath,PrefixEdit.Text,FileName);
CreateThumbnail(InFileName,OutFileName,WidthUpDown.Position,
HeightUpDown.Position,Shape1.Brush.Color);
Application.ProcessMessages;
StatusBar1.SimpleText:=´Done ´+IntToStr(i+1)+´ of ´+IntToStr(FilesListBox.Items.count);
end;


GOSTEI 0
Tatooman

Tatooman

12/09/2003

por favor me ajudem


GOSTEI 0
Marcelo Saviski

Marcelo Saviski

12/09/2003

O que é um Thumbnail? :)
o que vc quer?
pegar um arquivo de imagem e colocar um texto em algum lugar dele?


GOSTEI 0
Tatooman

Tatooman

12/09/2003

eu tenho um programa que diminui as imagens, eu queria que na hora que dimiu as imagens ele coloca-se uma mensagem em baixo dela...


GOSTEI 0
Cebikyn

Cebikyn

12/09/2003

Coloque o código do nildo dentro da procedure CreateThumbnail. Qualquer dúvida coloque a procedure aqui pra gente dar uma olhada...


GOSTEI 0
POSTAR