texto em imagem
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
obrigado
Tatooman
Curtidas 0
Respostas
Nildo
12/09/2003
Pesquise na internet sobre o Canvas.
ficaria assim:
SuaImagem.canvas.font.size := 8;
SuaImagem.canvas.textOut(10,10,´Seu texto´)
ficaria assim:
SuaImagem.canvas.font.size := 8;
SuaImagem.canvas.textOut(10,10,´Seu texto´)
GOSTEI 0
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;
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
12/09/2003
por favor me ajudem
GOSTEI 0
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?
o que vc quer?
pegar um arquivo de imagem e colocar um texto em algum lugar dele?
GOSTEI 0
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
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