xbrowse cols smaller than bmp or row lower than bmp height
Antonio, could you please have a look on this.
Thanks in advance,
Otto
Same problem:
http://fivetechsoft.com/forums/viewtopi ... ht=xbrowse
At this momoent it is already possible to browse JPG files in a xBrowse()
But it only works when there is only 1 dataline. Is it possible with xBrowse to combine bitmaps and multiple datalines.
The JPG is not displayed in the middel of the column. When I give the column the exact width it is not displayed completely.
Thanks
Willy
Thanks in advance,
Otto
Same problem:
http://fivetechsoft.com/forums/viewtopi ... ht=xbrowse
At this momoent it is already possible to browse JPG files in a xBrowse()
But it only works when there is only 1 dataline. Is it possible with xBrowse to combine bitmaps and multiple datalines.
The JPG is not displayed in the middel of the column. When I give the column the exact width it is not displayed completely.
Thanks
Willy
Antonio, I found the problem.
METHOD PaintData
If you have only a bmp elseif AL_LEFT is never executed.
I comment out the whole if endif and use:
nBmpCol := nCol
This way the bmp's are displayed correctly.
Regards
Otto
if ::bStrData == nil
nBmpCol := nCol + ( ( nWidth - aBitmap[ BITMAP_WIDTH ] ) / 2 ) + 2
elseif ::nDataBmpAlign == AL_LEFT
nBmpCol := nCol
nCol += aBitmap[ BITMAP_WIDTH ] + BMP_EXTRAWIDTH
else
nBmpCol := nCol + nWidth
endif
METHOD PaintData
If you have only a bmp elseif AL_LEFT is never executed.
I comment out the whole if endif and use:
nBmpCol := nCol
This way the bmp's are displayed correctly.
Regards
Otto
if ::bStrData == nil
nBmpCol := nCol + ( ( nWidth - aBitmap[ BITMAP_WIDTH ] ) / 2 ) + 2
elseif ::nDataBmpAlign == AL_LEFT
nBmpCol := nCol
nCol += aBitmap[ BITMAP_WIDTH ] + BMP_EXTRAWIDTH
else
nBmpCol := nCol + nWidth
endif
- Richard Chidiak
- Posts: 946
- Joined: Thu Oct 06, 2005 7:05 pm
- Location: France
- Contact:
- Antonio Linares
- Site Admin
- Posts: 37481
- Joined: Thu Oct 06, 2005 5:47 pm
- Location: Spain
- Contact:
Richard, Otto,
We have already implemented it for 8.03. This code is placed from line 3983:
Unless you mean another place for it, thanks!
We have already implemented it for 8.03. This code is placed from line 3983:
Code: Select all
if nBmpNo > 0 .and. nBmpNo <= Len( ::aBitmaps )
aBitmap := ::aBitmaps[ nBmpNo ]
nWidth -= aBitmap[ BITMAP_WIDTH ]
if ::bStrData == nil
nBmpCol := nCol + ( ( nWidth - aBitmap[ BITMAP_WIDTH ] ) / 2 ) + 2
elseif ::nDataBmpAlign == AL_LEFT
nBmpCol := nCol
nCol += aBitmap[ BITMAP_WIDTH ] + BMP_EXTRAWIDTH
else
nBmpCol := nCol + nWidth
endif