watermark doesn´t appear in TIFF FILES

[osmanjr]

I´m a Delphi developer, and i use Delphi 2007 in Windows Xp Prefessional. I downloaded the gdPicture Pro SDK and i have a 30 days evaluation number. I designed an application to put watermark on tiff files. yesterday i learned how tou use the "DrawRotatedText" method, and it woks fine. I was pretty happy. Today, i opened the application and used it again, but this time, the watermark doesn´t appear. I revised the code line by line and i don´t know why the watermark doesn´t appear anymore. The destination file is saved (the file size is bigger), but the watermark doesn´t appear. What am i doing wrong, or what´s the problem?

I´m sending my complete delphi project attached in this post. you can unzip in drive C: Root, and it creates the "Sistemas" folder. My application source code, images, are all in the folder "Sistemas". If someone can help me telling what´s wrong, i´ll be very gratefull. I intend to buy this OCX, but first, i need to know if i can put watermark on diferent scanned tif files.

thank you for some aswer, and sorry bad english.

[Loïc]

Hi,

You have a problem with the destination of the text:

Code: Select all

 ResultMark := Imaging.DrawRotatedText (   45, EdtTxtMark.Text, ImgWidth , ImgHeight, 30       , 0    , nSemiTransparentBlueValue, 'Arial', true);

You ask to start the text drawing from the last visible pixel of the image.

I think you should use:

Code: Select all

 ResultMark := Imaging.DrawRotatedText (   45, EdtTxtMark.Text, 0, 0, 30       , 0    , nSemiTransparentBlueValue, 'Arial', true);

With best regards,

Loïc Carrère