hello , I am using the code below to add a watermark in a tif I'm looking for the disc, the watermark is added , however the color informed in font.color does not come as informed but black, what could be wrong ? follows the code below :
ImageEnView1.IO.LoadFromFileTIFF(arquivotif);
try
with (ImageEnView1) do
begin
LayersAdd;
Proc.Fill(CreateRGB(255, 255, 255));
Bitmap.Canvas.Font.Name := 'Courier New';
Bitmap.Canvas.Font.Color := clRed;
Bitmap.Canvas.Font.Size := 60;
Bitmap.Canvas.TextOut(150,900,'Não tem valor de certidão');
CurrentLayer.Rotate := 45;
Proc.SetTransparentColors(CreateRGB(255, 255, 255), CreateRGB(255,255, 255), 0);
LayersMergeAll;
Update;
IO.SaveToFileBMP('c:\pdf\'+inttostr(Random(1000))+'.bmp');
end;
except
raise;
end;
Search
