Welcome Guest! To enable all features, please Login or Register.

Notification

Icon
Error

Options
View
Last Go to last post Unread Go to first unread post
#1 Posted : Friday, October 26, 2018 11:56:05 AM(UTC)

jraggio  
jraggio

Groups: Registered
Posts: 10


Please I need the correspond code for this from Leadtools 13 to 19, we use it to draw a Text in document that are unofficial
or please tell me how to implement this in Leadtools 19 using vb.net
The sample I had read using alpha blend gives me a file 100 times bigger than the original.
This are Black and White TIF documents
thanks a lot

'****Begins Here
Dim leadCOM As New LEADLib.LEAD

Dim iNoOfPages As Integer = -1
leadCOM.UnlockSupport(LEADLib.SupportLockConstants.L_SUPPORT_GIFLZW, L_KEY_GIFLZW)
leadCOM.UnlockSupport(LEADLib.SupportLockConstants.L_SUPPORT_TIFLZW, L_KEY_TIFLZW)
leadCOM.GetFileInfo(strFileName, iNoOfPages, 1)
iNoOfPages = leadCOM.InfoTotalPages()


iNoOfPages = leadCOM.InfoTotalPages()
For j As Integer = 1 To iNoOfPages
leadCOM.Load(strFileName, 0, j, 1)
leadCOM.
leadCOM.BitmapEnableTransparency = True
leadCOM.AutoRepaint = True
leadCOM.TextTop = 200
leadCOM.TextLeft = 100
leadCOM.TextAngle = -550
leadCOM.TextWidth = leadCOM.BitmapWidth
leadCOM.TextHeight = leadCOM.BitmapHeight
leadCOM.DrawPenWidth = 0
leadCOM.Font.Size = 300
leadCOM.Font.Bold = False
leadCOM.Font.Name = "Arena Outline"
leadCOM.DrawPersistence = True
leadCOM.DrawText("U N O F F I C I A L", 0)
leadCOM.ForceRepaint()
leadCOM.Save("c:\temporal\test.tif", LEADLib.FileConstants.FILE_CCITT_GROUP4, 1, 0, 1)
Next
leadCOM = Nothing

'********ends Here
 

Try the latest version of LEADTOOLS for free for 60 days by downloading the evaluation: https://www.leadtools.com/downloads

Wanna join the discussion? Login to your LEADTOOLS Support accountor Register a new forum account.

#2 Posted : Friday, October 26, 2018 12:18:07 PM(UTC)
Anthony Northrup

Groups: Registered, Tech Support, Administrators
Posts: 199

Was thanked: 27 time(s) in 27 post(s)

Hello,

While this example is written in C#, it demonstrates how to watermark a multi-page file with text:
https://www.leadtools.com/support/forum/posts/m43686-HOW-TO--Add-Watermarks-to-Multi-page-Documents#post43686

This example uses our Bates Stamp functionality, specifically the AnnBatesStampComposer class:
https://www.leadtools.com/help/leadtools/v20/dh/abs/annbatesstampcomposer.html

If you are having any issues following our documentation pages, or the C# example linked above, using an online C# to VB converter may be beneficial.

Thanks,
Anthony Northrup
Developer Support Engineer
LEAD Technologies, Inc.

LEAD Logo
 
You cannot post new topics in this forum.
You cannot reply to topics in this forum.
You cannot delete your posts in this forum.
You cannot edit your posts in this forum.
You cannot create polls in this forum.
You cannot vote in polls in this forum.

Powered by YAF.NET | YAF.NET © 2003-2020, Yet Another Forum.NET
This page was generated in 0.200 seconds.