Page 1 of 1
Version 10.2
Posted: Tue Mar 30, 2010 10:26 pm
by 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
Re: Version 10.2
Posted: Wed Mar 31, 2010 6:52 am
by 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
Re: Version 10.2
Posted: Wed Mar 31, 2010 9:52 pm
by 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
Re: Version 10.2
Posted: Sat Apr 03, 2010 10:18 am
by Antonio Linares
Otto,
What control are you using there ? A window ? A bitmap ?
Re: Version 10.2
Posted: Mon Apr 05, 2010 4:39 pm
by 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#p78296Thanks in advance
Otto
Code: Select all | Expand
************************************************************************************************************************
***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
//----------------------------------------------------------------------------//
Re: Version 10.2
Posted: Wed Apr 07, 2010 7:26 am
by Antonio Linares
Otto,
Try to remove the style WS_VSCROLL from the Class used style, thanks