xbrowse cols smaller than bmp or row lower than bmp height

Otto

Posts: 6983

Joined: Fri Oct 07, 2005 07:07 PM

xbrowse cols smaller than bmp or row lower than bmp height
Posted: Thu Nov 08, 2007 08:02 PM

Otto

Posts: 6983

Joined: Fri Oct 07, 2005 07:07 PM

xbrowse cols smaller than bmp or row lower than bmp height
Posted: Sat Dec 15, 2007 09:00 AM

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

Otto

Posts: 6983

Joined: Fri Oct 07, 2005 07:07 PM

xbrowse cols smaller than bmp or row lower than bmp height
Posted: Thu Dec 20, 2007 05:21 PM

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

Richard Chidiak

Posts: 946

Joined: Thu Oct 06, 2005 07:05 PM

xbrowse cols smaller than bmp or row lower than bmp height
Posted: Tue Mar 04, 2008 08:27 AM

Antonio

Can you apply Otto's fix to fwh 8.03

When there is no data, bmp is badly displayed,

With Otto's fix it works OK

Thanks

Richard

http://www.cbati.com

Uestudio
Fwh 13.05 Harbour 3.2 MSVC 2013

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

xbrowse cols smaller than bmp or row lower than bmp height
Posted: Tue Mar 04, 2008 08:37 AM

Richard, Otto,

We have already implemented it for 8.03. This code is placed from line 3983:

Code: Select all Collapse

   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

Unless you mean another place for it, thanks!

regards, saludos

Antonio Linares
www.fivetechsoft.com

FiveTech Support Forums

Continue the discussion