|
This code section transfers the image from a Lead control to the AX4 barcode control.
LEAD1.ColorRes 1, 0, 0, 0 hMemDC = CreateCompatibleDC(LEAD1.GetBitmapDC) LEAD1.ReleaseBitmapDC hObject = LEAD1.GetDDB(hMemDC)
Ax41.Bitmap = hObject Ax41.DpiX = LEAD1.BitmapXRes Ax41.DpiY = LEAD1.BitmapYRes Ax41.ReadBarcode
DeleteObject(hObject) DeleteDC(hMemDC)
|