Colocar tarja preta na imagem

31/01/2006

0

Galera preciso colocar uma tarja preta na imagem.. só que não está dando certo.. alguem pode me ajudar??


procedure TForm1.Button1Click(Sender: TObject);
var foto,nome: string;
tam:integer;
x:integer;
texto,texto1:string;
BitMap:TBitMap;
MyJPEG:TJpegImage;
CP01,CP02,CP03,CP04,CP05,CP06,CP07,CP08:String;
begin
foto := Filelistbox1.FileName;
if FileExists(foto) then
begin
image1.Picture.LoadFromFile(foto);
BitMap:=TBitMap.Create;
BitMap:=TBitmap(Image1.Picture);
Clipboard.Assign(bitmap);
Image1.Picture.Assign(ClipBoard);
texto:= ´ ´;
Image1.Canvas.TextOut(2,439,texto);
Image1.Canvas.Brush.Color := clblack;
MyJPEG := TJpegImage.Create;
MyJpeg.Assign(Image1.Picture.BitMap);
MyJpeg.SaveToFile(´\testando1.jpg´);
MyJpeg.Free;
end
else
begin
showmessage(´Fotograma não encontrado!´);
end;
end;


ele salva como branca

obrigado
Eric


Responder

Que tal ter acesso a um e-book gratuito que vai te ajudar muito nesse momento decisivo?

Ver ebook

Recomendado pra quem ainda não iniciou o estudos.

Eu quero
Ver ebook

Recomendado para quem está passando por dificuldades nessa etapa inicial

Eu quero

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar