The library compile ok using harbour and Mingw
But , binarys compiled with this harbour generates this error
/////////////////////////////////////////////////
Date: 24/06/09 Time: 13:11:54
Version: ooHG V3.2 - 2008.03.27
Alias in use:
Error: Error BASE/1082 Error de argumento: -
Called from VALIDATESCROLLS(1592)
Called from TFORMMAIN:DEFINE2(429)
Called from TFORMMAIN:DEFINE(1700)
Called from DEFINEWINDOW(2259)
Called from MAIN(103)
////////////////////////////////////////////////////////////
This error not appears in a few behind commits
but I don't know when exactly
This is the function into h_form.prg that generates the error in execution
time
If more information is needed only say to me
///////////////////////////////////////Lines 1572 to 1652 of
H_FORM.prg////////////////////////////////////////////
*-----------------------------------------------------------------------------*
Procedure ValidateScrolls( Self, lMove )
*-----------------------------------------------------------------------------*
Local hWnd, nVirtualWidth, nVirtualHeight
Local aRect, w, h, hscroll, vscroll
If ! ValidHandler( ::hWnd ) .OR. ::HScrollBar == nil .OR. ::VScrollBar ==
nil
Return
EndIf
// Initializes variables
hWnd := ::hWnd
nVirtualWidth := ::VirtualWidth
nVirtualHeight := ::VirtualHeight
If !HB_IsLogical( lMove )
lMove := .F.
EndIf
vscroll := hscroll := .F.
aRect := ARRAY( 4 )
GetClientRect( hWnd, aRect )
w := aRect[ 3 ] - aRect[ 1 ] + IF( IsWindowStyle( ::hWnd, WS_VSCROLL ),
GetVScrollBarWidth(), 0 ) <-------Line 1592
h := aRect[ 4 ] - aRect[ 2 ] + IF( IsWindowStyle( ::hWnd, WS_HSCROLL ),
GetHScrollBarHeight(), 0 )
::RangeWidth := ::RangeHeight := 0
// Checks if there's space on the window
If h < nVirtualHeight
::RangeHeight := nVirtualHeight - h
vscroll := .T.
w -= GetVScrollBarWidth()
EndIf
If w < nVirtualWidth
::RangeWidth := nVirtualWidth - w
hscroll := .T.
h -= GetHScrollBarHeight()
EndIf
If h < nVirtualHeight .AND. ! vscroll
::RangeHeight := nVirtualHeight - h
vscroll := .T.
w -= GetVScrollBarWidth()
EndIf
// Shows/hides scroll bars
_SetScroll( hWnd, hscroll, vscroll )
::VScrollBar:lAutoMove := vscroll
::VScrollBar:nPageSkip := h
::HScrollBar:lAutoMove := hscroll
::HScrollBar:nPageSkip := w
// Verifies there's no "extra" space derived from resize
If vscroll
::VScrollBar:SetRange( 0, ::VirtualHeight )
::VScrollBar:Page := h
If ::RangeHeight < ( - ::RowMargin )
::RowMargin := - ::RangeHeight
::VScrollBar:Value := ::RangeHeight
Else
vscroll := .F.
EndIf
ElseIf nVirtualHeight > 0 .AND. ::RowMargin != 0
::RowMargin := 0
vscroll := .T.
EndIf
If hscroll
::HScrollBar:SetRange( 0, ::VirtualWidth )
::HScrollBar:Page := w
If ::RangeWidth < ( - ::ColMargin )
::ColMargin := - ::RangeWidth
::HScrollBar:Value := ::RangeWidth
Else
hscroll := .F.
EndIf
ElseIf nVirtualWidth > 0 .AND. ::ColMargin != 0
::ColMargin := 0
hscroll := .T.
EndIf
// Reubicates controls
If lMove .AND. ( vscroll .OR. hscroll )
::ScrollControls()
EndIf
Return
/////////////////////////////////////////////////////////////////////////////////////////////////////////
_______________________________________________
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour
