Array
(
)

Colocar tarja preta na imagem

Jm
   - 31 jan 2006

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