Version 10.2

[Otto]

Hello Antonio,
trying to compile with the new FWPPC version it errors out with:

--------------------Configuration: whbiene - Debug--------------------
LINK : fatal error LNK1181: cannot open input file 'C:\Harbour_CE\LIB\hbw32.lib'
whbiene.EXE - 1 error(s), 0 warning(s)

Would you be so kind to help me to switch to 10.2.
Thanks in advance
Otto

[anserkk]

Dear Mr.Otto,

I believe that from Harbour 2.0.0 (December 22, 2009) the lib Hbw32.Lib has been renamed to HbWin

I suggest you to change the entry for Hbw32.Lib in your build file to HbWin.Lib

Regards
Anser

[Otto]

Dear Mr. Anser,
thank you for your help. Now the program compiles and executes.
But now there is a problem that I have a scrollbar on the right side.
Maybe you know an answer for this problem, too.
Thanks in advance
Otto

[Antonio Linares]

Otto,

What control are you using there ? A window ? A bitmap ?

[Otto]

Hello Antonio,
thank you for your answer. I use a PANEL.
I can’t remember but I had to link in the attached code. Maybe this is no longer necessary with 10.2?

viewtopic.php?f=4&t=15121&p=78296&hilit=tpanel#p78296

Thanks in advance
Otto

Code: Select all  Expand view  RUN

************************************************************************************************************************
***FIVEWIN CLASSE TPanel
************************************************************************************************************************
// TPanel Class. Mainly used for Automatic Alignment techniques

#include "WinApi.ch"

#define SYS_COLOR_INDEX_FLAG  0x40000000
#define COLOR_BTNFACE         nOr( 15, SYS_COLOR_INDEX_FLAG )

//----------------------------------------------------------------------------//

CLASS TPanel FROM TControl

   DATA   nStart, nEnd

   CLASSDATA lRegistered AS LOGICAL

   METHOD New( nTop, nLeft, nBottom, nRight, oWnd ) CONSTRUCTOR

   METHOD Paint()
   METHOD Display() INLINE ::BeginPaint(), ::Paint(), ::EndPaint()

   METHOD Notify( nIdCtrl, nPtrNMHDR ) INLINE ::oWnd:Notify( nIdCtrl, nPtrNMHDR )

   METHOD VScroll( nWParam, nLParam )

ENDCLASS

//----------------------------------------------------------------------------//

METHOD New( nTop, nLeft, nBottom, nRight, oWnd, lPixel, nClrText, nClrBack ) CLASS TPanel

   DEFAULT nTop := 0, nLeft := 0, nBottom := 100, nRight := 100,;
           oWnd := GetWndDefault(), lPixel := .f.,;
           nClrBack := GetSysColor( COLOR_BTNFACE )

   ::nTop    = nTop
   ::nLeft   = nLeft
   ::nBottom = nBottom * If( lPixel, 1, SAY_CHARPIX_H )
   ::nRight  = nRight * If( lPixel, 1, SAY_CHARPIX_W )
   ::oWnd    = oWnd
   ::nStyle  = nOr( WS_CHILD, WS_VISIBLE, WS_VSCROLL, WS_BORDER )
   ::lDrag   = .f.
   ::nClrText = nClrText
   ::nClrPane = nClrBack
   ::nStart = 0
   ::nEnd   = -1000

   ::Register()

   if ! Empty( ::oWnd:hWnd )
      ::Create()
      ::oWnd:AddControl( Self )
      DEFINE SCROLLBAR ::oVScroll VERTICAL OF Self
      ::oVScroll:SetRange( 0, 100 )
   else
      ::oWnd:DefControl( Self )
   endif

return Self

//----------------------------------------------------------------------------//

METHOD Paint() CLASS TPanel
   local nTop, nLeft, nHeight, nWidth, nBevel
*----------------------------------------------------------

   if ValType( ::bPainted ) != nil
      Eval( ::bPainted, ::hDC )
   endif

   if ::oClient != nil .and. ( nBevel := ::oClient:nClientBevel ) > 0
      nBevel  -= 1
      nTop    := nBevel
      nLeft   := nBevel
      nHeight := ::nHeight - nBevel - 1
      nWidth  := ::nWidth - nBevel - 1
      if ::oTop != nil
         nTop += ::oTop:nHeight
      endif
      if ::oBottom != nil
         nHeight -= ::oBottom:nHeight
      endif
      if ::oLeft != nil
         nLeft += ::oLeft:nWidth
      endif
      if ::oRight != nil
         nWidth -= ::oRight:nWidth
      endif
      WndBoxIn( ::hDC, nTop, nLeft, nHeight, nWidth )
   endif

return nil

//----------------------------------------------------------------------------//

METHOD VScroll( nWParam, nLParam ) CLASS TPanel

   local nScrollCode := nLoWord( nWParam )

   do case
         case nScrollCode == SB_LINEUP
              if ::nStart < 0
              ScrollWindow( ::hWnd, 0, 10 )
              ::nStart += 10
              ::oVScroll:SetPos( -::nStart )
           endif

         case nScrollCode == SB_LINEDOWN
           if ::nStart > ::nEnd
              ScrollWindow( ::hWnd, 0, -10 )
              ::nStart -= 10
              ::oVScroll:SetPos( -::nStart )
           endif
   endcase

return 0
//----------------------------------------------------------------------------//
 

[Antonio Linares]

Otto,

Try to remove the style WS_VSCROLL from the Class used style, thanks