FiveTech Support Forums

Hello,

is it possible to show / hide defined Image-scrollbars
related to the Image-size ?
I tested to hide defined scrollbars from resource, but it seems not to be possible.
I check Image-size against Resource-size. As a result I want to show only the needed scrollbars.
There is just lScroll .T. or .F., not HScroll and VScroll can be defined, like in xBrowse.
I only want to show Scrollbars if Images > Resource-size.

I found oVScroll and oHScroll in class TBitmap,
also tested changing the Image-style, but the bars are still visible.

REDEFINE IMAGE oIMAGE ID 510 FILENAME NIL OF oDlg PIXEL BORDER

oIMAGE:nStyle := nOR( WS_BORDER,;
WS_CHILD, WS_VISIBLE, WS_CLIPSIBLINGS,;
WS_CLIPCHILDREN, WS_GROUP ) // , WS_TABSTOP )

oIMAGE:oHScroll := .F.
oIMAGE:oVScroll := .F.



Best Regards
Uwe

Hello

I think that this is the code.



http://msdn.microsoft.com/es-es/library/windows/desktop/bb787601(v=vs.85).aspx

pgfdz ,
Thank You very much for the info,
but the defined scrollbars from resource are still visible :

( Image defined from function )
REDEFINE IMAGE oIMAGE ID 510 FILENAME NIL OF oDlg PIXEL BORDER
//SB_HORZ 0
//SB_VERT 1
//SB_CTL 2
//SB_BOTH 3
ShowScrollBar( oIMAGE:hWnd, 3 , .F. )

#pragma BEGINDUMP
#include "windows.h"
#include "hbapi.h"

HB_FUNC( SHOWSCROLLBAR )
{
hb_retni( ShowScrollBar( ( HWND ) hb_parnl( 1 ), hb_parl( 2 ), hb_parl( 3 ) ) ) ;
}

#pragma ENDDUMP

Best Regards
Uwe

ON INIT doesn't help.
I must change / adjust as a result of a defined action ( from button or TSelex ).

This sample shows a image resized to 60 %.
The hight is smaller resourceheight ( no scrollar neded )
The width is igger resource-with ( scrollbar needed )

oIMAGE:bPainted := { |hDC| ADJ_ZOOM1(oImage, hDC, cAction, oZSelect1) }

A Button :

@ 5, 475 BTNBMP oBtn[5] FILENAME c_path1 + "Original.Bmp" ;
SIZE 115, 50 OF oBar PIXEL BORDER ; // Width , Height
LEFT ;
PROMPT " &Original." ;
FONT oFont1 ;
ACTION ( oZSelect1:SetOption(9), ;
nZoom := 1, cAction := "O", oImage:Refresh() )

oImage:Refresh calls the calculation.

FUNCTION ADJ_ZOOM1(oImage, hDC, cAction, oZSelect1)
DEFINE IMAGE oImg0 FILENAME c_path1 + cZImage
oImg0:lScroll := .F. // scrollbar only disabled !!
// Size-calculations
...
oImage := FILoadImg( c_path1 + cZImage )
lAlpha := HasAlpha( oImage )
IF lAlpha = .T.
hBmp = ResizeImg( oImage, nSizeW, nSizeH )
ABPaint( hDC, 0, 0, hBmp, 255 )
DeleteObject( oImage )
ELSE
PalBmpDraw( hDC, 0, 0, oImg0:hBitmap, ,nSizeW, nSizeH )
ENDIF
DeleteObject( oImg0 )



Best Regards
Uwe