I'm modifying an existing program in VB6 but have no clue on how to work with the Lead control (from LeadTools, a 3rd party tool) that also works with another 3rd party for drawing (cresent controls, like CSinv).
The client wants the whole lead control to "save" the drawing/typing the user enters/draws.
The current problem is that only partially is saved and I cannot understand or figure out how to fix this. The user is able to draw in the whole box, but if the window is inactive or repainted, only partially is shown and the rest is gone. But typing in text will not go all the way across the control.
Those APIs and codes are foregin to me.
Any help would be appreicated!
Here's the code in MouseUp, MouseDown, MouseMove:
Private Sub Lead1_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
DrawNow = False
mlReturn = SelectObject(LeadBitmapDC, hOldPen)
hOldPen = DeleteObject(MyPen)
'remember to ADD the offset for the amount that the Lead controls picture
'is scrolled horizontally and vertically to make the drawing appear in the
'same place on the LeadClientDC as on the LeadBitmapDC itself!
mlReturn = MoveToEx(LeadBitmapDC, BStartX, BStartY, MyPoint)
mlReturn = MoveToEx(LeadClientDC, BStartX + Lead1.DstLeft, BStartY + Lead1.DstTop, MyPoint)
mlReturn = LineTo(LeadBitmapDC, BEndX, BEndY)
mlReturn = LineTo(LeadClientDC, BEndX + Lead1.DstLeft, BEndY + Lead1.DstTop)