#1
Posted
:
Friday, October 26, 2018 11:51:05 AM(UTC)
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
#2
Posted
:
Friday, October 26, 2018 12:13:07 PM(UTC)
Groups: Registered, Tech Support, Administrators
Posts: 199
Was thanked: 28 time(s) in 28 post(s)
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.