Thanks for the example, however, your example shows the same problems as mine.
Attached to this forum post is a zip file that contains screenshots of every step I used, as well as the input and output tiff's.
Here are the steps I performed.
First I loaded the project.
Then I changed
Private Sub Command1_Click()
LEAD1.Load "c:\fax1.tif", 0, 1, -1
count1 = 0
End Sub
to
Private Sub Command1_Click()
LEAD1.Load "c:\test\test.tif", 0, 1, -1
count1 = 0
End Sub
(test.tif is included with the screen shots.)
Then I changed
Private Sub Command4_Click()
LEAD1.AnnSaveTag True, False
LEAD1.SavePage = Count + 1
LEAD1.Save "AnnTestTag.tif", FILE_CCITT_GROUP4, 1, 2, SAVE_INSERT
End Sub
Private Sub Command5_Click()
LEAD1.Load "AnnTestTag.tif", 0, 1, -1
LEAD1.AnnLoad "AnnTestTag.tif", 1
End Sub
to
Private Sub Command4_Click()
LEAD1.AnnSaveTag True, False
LEAD1.SavePage = Count + 1
LEAD1.Save "c:\test\AnnTestTag.tif", FILE_CCITT_GROUP4, 1, 2, SAVE_INSERT
End Sub
Private Sub Command5_Click()
LEAD1.Load "c:\test\AnnTestTag.tif", 0, 1, -1
LEAD1.AnnLoad "c:\test\AnnTestTag.tif", 1
End Sub
Then i changed
LEAD1.UnlockSupport L_SUPPORT_DOCUMENT, "Document Unlock Key"
to use our key...
When i ran the app..
Shot1.jpg = Run the application
Shot2.jpg = Click the Load command button
Shot3.jpg = Select the stamp that i want to use
Shot4.jpg = Draw the stamp on the image
Shot5.jpg = Click AnnSetTag command button
Shot6.jpg = Click Clear Image command button
Shot7.jpg = Click AnnLoad command button
(I included the outputfile AnnTestTag.tif so maybe it will help.)
Notice in Shot7.jpg when we try to load the file
you see a red sqaure box. This box can be moved and
deleted like an annotation but it's not the annotation
that we saved. That's the problem that I get when
i tried your suggestion in our application.
Thanks for your help and please let me know if you need anything else.
Maybe this will help us figure out the problem.
Thanks.
Bryan James.