2007-11-26 07:50 UTC+0800 Pritpal Bedi (pritpal@vouchcac.com)
* harbour/contrib/what32
* wininet.ch
* winerror.prg
* windebug.prg
* wintabs.prg
* wintbar.prg
svn:eol-style = native
svn:keywords = Id
This commit is contained in:
Pritpal Bedi
@@ -8,6 +8,16 @@
|
||||
2002-12-01 13:30 UTC+0100 Foo Bar <foo.bar@foobar.org>
|
||||
*/
|
||||
|
||||
2007-11-26 07:50 UTC+0800 Pritpal Bedi (pritpal@vouchcac.com)
|
||||
* harbour/contrib/what32
|
||||
* wininet.ch
|
||||
* winerror.prg
|
||||
* windebug.prg
|
||||
* wintabs.prg
|
||||
* wintbar.prg
|
||||
svn:eol-style = native
|
||||
svn:keywords = Id
|
||||
|
||||
2007-11-26 14:50 UTC+0100 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
|
||||
* harbour/bin/hb-mkslib.sh
|
||||
* harbour/bin/postinst.sh
|
||||
|
||||
@@ -1,159 +1,159 @@
|
||||
/*
|
||||
* $Id: debug.prg 8045 2007-11-25 18:36:59Z vouchcac $
|
||||
*/
|
||||
|
||||
#INCLUDE "SET.CH"
|
||||
|
||||
#define CRLF chr(13)+chr(10)
|
||||
|
||||
STATIC row_counter := 0
|
||||
|
||||
|
||||
|
||||
*-----------------------------------------------------------------------------*
|
||||
function _trace(c)
|
||||
|
||||
local cn
|
||||
|
||||
if valtype(c)=='C'
|
||||
cn:=c //:classname()
|
||||
endif
|
||||
|
||||
|
||||
OutputDebugString(if(empty(cn),'',cn+':')+procname(1)+'('+alltrim(str(procline(1)))+')'+;
|
||||
' <- '+procname(2)+'('+alltrim(str(procline(2)))+')'+;
|
||||
' <- '+procname(3)+'('+alltrim(str(procline(3)))+')'+;
|
||||
' <- '+procname(4)+'('+alltrim(str(procline(4)))+')'+;
|
||||
' <- '+procname(5)+'('+alltrim(str(procline(5)))+')'+;
|
||||
CRLF)
|
||||
|
||||
return(NIL)
|
||||
|
||||
|
||||
|
||||
*------------------------------------------------------------------------------*
|
||||
* PARAM is used here on purpose to allow for macro expansion of the
|
||||
* parameters which are passed here as private !!!!!!!!!
|
||||
*------------------------------------------------------------------------------*
|
||||
FUNCTION _DVIEW
|
||||
PARAM p1, p2, p3, p4, p5, p6, p7, p8, p9, p10, p11, p12, p13, p14, p15, p16, p17, p18
|
||||
|
||||
LOCAL no_of_param, x, dbg_array, description, half
|
||||
LOCAL t_call_status
|
||||
|
||||
no_of_param := PCOUNT( )
|
||||
half := no_of_param / 2
|
||||
|
||||
OutputDebugString( '------------------------------' +CRLF)
|
||||
BEGIN SEQUENCE
|
||||
FOR x := 1 TO half
|
||||
dbg_array = "p" + lTrim( STR( x, 2, 0 ) )
|
||||
description = "p" + lTrim( STR( x + half, 2, 0 ) )
|
||||
DLIST( &dbg_array, &description )
|
||||
NEXT
|
||||
END
|
||||
|
||||
RETURN NIL
|
||||
|
||||
*------------------------------------------------------------------------------*
|
||||
STATIC FUNCTION DLIST( dbg_array, description )
|
||||
*------------------------------------------------------------------------------*
|
||||
LOCAL heading, x, a_len, data_type, value
|
||||
|
||||
IF ValType( dbg_array ) $ 'AOS'
|
||||
a_len = Len( dbg_array )
|
||||
DQOUT( ' Array:', description, '', IF( a_len == 0, '', dbg_array ) , Len( dbg_array ) )
|
||||
FOR x := 1 TO a_len
|
||||
heading := description + "[" + STR( x, 3, 0 ) + "]"
|
||||
data_type := ValType( dbg_array[ x ] )
|
||||
value := dbg_array[ x ]
|
||||
DSINGLE_VIEW( heading, data_type, value )
|
||||
NEXT
|
||||
ELSE
|
||||
heading := description
|
||||
data_type := ValType( dbg_array )
|
||||
value := dbg_array
|
||||
DSINGLE_VIEW( heading, data_type, value )
|
||||
ENDIF
|
||||
RETURN NIL
|
||||
|
||||
*------------------------------------------------------------------------------*
|
||||
STATIC FUNCTION DSINGLE_VIEW( heading, data_type, value )
|
||||
*------------------------------------------------------------------------------*
|
||||
DO CASE
|
||||
CASE data_type == "A"
|
||||
DLIST( value, heading )
|
||||
CASE data_type == "B"
|
||||
DQOUT( "Code Block:", heading, " => ", value )
|
||||
CASE data_type == "C"
|
||||
DQOUT( " Character:", heading, " => ", value, .T. )
|
||||
CASE data_type == "D"
|
||||
DQOUT( " Date:", heading, " => ", value )
|
||||
CASE data_type == "L"
|
||||
DQOUT( " Logical:", heading, " => ", value )
|
||||
CASE data_type == "M"
|
||||
DQOUT( " Memo:", heading, " => ", value )
|
||||
CASE data_type == "N"
|
||||
DQOUT( " Numeric:", heading, " => ", value )
|
||||
CASE data_type == "O"
|
||||
OutputDebugString( " Object vv" +CRLF) // arrows don't show in Windows
|
||||
DLIST( value, heading )
|
||||
OutputDebugString( " Object ^^" +CRLF) // arrows don't show in windows
|
||||
CASE data_type == "N"
|
||||
DQOUT( " Numeric:", heading, " => ", value )
|
||||
CASE data_type == "U"
|
||||
DQOUT( "Undefinded:", heading, " => ", value )
|
||||
OTHERWISE
|
||||
OutputDebugString( "Unknown data type returned by VALTYPE()" +CRLF)
|
||||
ENDCASE
|
||||
RETURN NIL
|
||||
|
||||
*------------------------------------------------------------------------------*
|
||||
STATIC FUNCTION DQOUT( a, b, c, d, show_len )
|
||||
*------------------------------------------------------------------------------*
|
||||
LOCAL e := ''
|
||||
|
||||
IF ValType( show_len ) == 'L' .AND. show_len
|
||||
e := ' (' + LEFT(ALLTRIM(a),1)+ ALLTRIM(STR( Len( d ) , 4, 0 ))+')'
|
||||
ELSEIF ValType( show_len ) == 'N'
|
||||
e := ' ('+ LEFT(ALLTRIM(a),1) + AllTrim( STR( show_len, 10, 0 ) )+')'
|
||||
// ENDIF
|
||||
ELSE
|
||||
e:=' ('+LEFT(ALLTRIM(a),1)+')'
|
||||
ENDIF
|
||||
|
||||
e:=""
|
||||
|
||||
OutputDebugString( b + e + c + asstring( d ) +CRLF)
|
||||
RETURN NIL
|
||||
|
||||
*-----------------------------------------------------------------------------*
|
||||
STATIC FUNCTION asString( x )
|
||||
local v := ValType( x )
|
||||
|
||||
DO CASE
|
||||
CASE v == "C"
|
||||
RETURN '"' + x + '"'
|
||||
CASE v == "N"
|
||||
RETURN AllTrim( str( x ) )
|
||||
CASE v == "L"
|
||||
IF x
|
||||
RETURN ".T."
|
||||
ELSE
|
||||
RETURN ".F."
|
||||
ENDIF
|
||||
CASE v == "D"
|
||||
RETURN dtoc( x )
|
||||
CASE v == "U"
|
||||
RETURN "NIL"
|
||||
CASE v == "A"
|
||||
RETURN "<Array>"
|
||||
CASE v == "O"
|
||||
RETURN "<Object " + x:classname( ) + ">"
|
||||
CASE v == "B"
|
||||
RETURN "<Block>"
|
||||
OTHERWISE
|
||||
RETURN ""
|
||||
END CASE
|
||||
|
||||
RETURN( x )
|
||||
/*
|
||||
* $Id$
|
||||
*/
|
||||
|
||||
#INCLUDE "SET.CH"
|
||||
|
||||
#define CRLF chr(13)+chr(10)
|
||||
|
||||
STATIC row_counter := 0
|
||||
|
||||
|
||||
|
||||
*-----------------------------------------------------------------------------*
|
||||
function _trace(c)
|
||||
|
||||
local cn
|
||||
|
||||
if valtype(c)=='C'
|
||||
cn:=c //:classname()
|
||||
endif
|
||||
|
||||
|
||||
OutputDebugString(if(empty(cn),'',cn+':')+procname(1)+'('+alltrim(str(procline(1)))+')'+;
|
||||
' <- '+procname(2)+'('+alltrim(str(procline(2)))+')'+;
|
||||
' <- '+procname(3)+'('+alltrim(str(procline(3)))+')'+;
|
||||
' <- '+procname(4)+'('+alltrim(str(procline(4)))+')'+;
|
||||
' <- '+procname(5)+'('+alltrim(str(procline(5)))+')'+;
|
||||
CRLF)
|
||||
|
||||
return(NIL)
|
||||
|
||||
|
||||
|
||||
*------------------------------------------------------------------------------*
|
||||
* PARAM is used here on purpose to allow for macro expansion of the
|
||||
* parameters which are passed here as private !!!!!!!!!
|
||||
*------------------------------------------------------------------------------*
|
||||
FUNCTION _DVIEW
|
||||
PARAM p1, p2, p3, p4, p5, p6, p7, p8, p9, p10, p11, p12, p13, p14, p15, p16, p17, p18
|
||||
|
||||
LOCAL no_of_param, x, dbg_array, description, half
|
||||
LOCAL t_call_status
|
||||
|
||||
no_of_param := PCOUNT( )
|
||||
half := no_of_param / 2
|
||||
|
||||
OutputDebugString( '------------------------------' +CRLF)
|
||||
BEGIN SEQUENCE
|
||||
FOR x := 1 TO half
|
||||
dbg_array = "p" + lTrim( STR( x, 2, 0 ) )
|
||||
description = "p" + lTrim( STR( x + half, 2, 0 ) )
|
||||
DLIST( &dbg_array, &description )
|
||||
NEXT
|
||||
END
|
||||
|
||||
RETURN NIL
|
||||
|
||||
*------------------------------------------------------------------------------*
|
||||
STATIC FUNCTION DLIST( dbg_array, description )
|
||||
*------------------------------------------------------------------------------*
|
||||
LOCAL heading, x, a_len, data_type, value
|
||||
|
||||
IF ValType( dbg_array ) $ 'AOS'
|
||||
a_len = Len( dbg_array )
|
||||
DQOUT( ' Array:', description, '', IF( a_len == 0, '', dbg_array ) , Len( dbg_array ) )
|
||||
FOR x := 1 TO a_len
|
||||
heading := description + "[" + STR( x, 3, 0 ) + "]"
|
||||
data_type := ValType( dbg_array[ x ] )
|
||||
value := dbg_array[ x ]
|
||||
DSINGLE_VIEW( heading, data_type, value )
|
||||
NEXT
|
||||
ELSE
|
||||
heading := description
|
||||
data_type := ValType( dbg_array )
|
||||
value := dbg_array
|
||||
DSINGLE_VIEW( heading, data_type, value )
|
||||
ENDIF
|
||||
RETURN NIL
|
||||
|
||||
*------------------------------------------------------------------------------*
|
||||
STATIC FUNCTION DSINGLE_VIEW( heading, data_type, value )
|
||||
*------------------------------------------------------------------------------*
|
||||
DO CASE
|
||||
CASE data_type == "A"
|
||||
DLIST( value, heading )
|
||||
CASE data_type == "B"
|
||||
DQOUT( "Code Block:", heading, " => ", value )
|
||||
CASE data_type == "C"
|
||||
DQOUT( " Character:", heading, " => ", value, .T. )
|
||||
CASE data_type == "D"
|
||||
DQOUT( " Date:", heading, " => ", value )
|
||||
CASE data_type == "L"
|
||||
DQOUT( " Logical:", heading, " => ", value )
|
||||
CASE data_type == "M"
|
||||
DQOUT( " Memo:", heading, " => ", value )
|
||||
CASE data_type == "N"
|
||||
DQOUT( " Numeric:", heading, " => ", value )
|
||||
CASE data_type == "O"
|
||||
OutputDebugString( " Object vv" +CRLF) // arrows don't show in Windows
|
||||
DLIST( value, heading )
|
||||
OutputDebugString( " Object ^^" +CRLF) // arrows don't show in windows
|
||||
CASE data_type == "N"
|
||||
DQOUT( " Numeric:", heading, " => ", value )
|
||||
CASE data_type == "U"
|
||||
DQOUT( "Undefinded:", heading, " => ", value )
|
||||
OTHERWISE
|
||||
OutputDebugString( "Unknown data type returned by VALTYPE()" +CRLF)
|
||||
ENDCASE
|
||||
RETURN NIL
|
||||
|
||||
*------------------------------------------------------------------------------*
|
||||
STATIC FUNCTION DQOUT( a, b, c, d, show_len )
|
||||
*------------------------------------------------------------------------------*
|
||||
LOCAL e := ''
|
||||
|
||||
IF ValType( show_len ) == 'L' .AND. show_len
|
||||
e := ' (' + LEFT(ALLTRIM(a),1)+ ALLTRIM(STR( Len( d ) , 4, 0 ))+')'
|
||||
ELSEIF ValType( show_len ) == 'N'
|
||||
e := ' ('+ LEFT(ALLTRIM(a),1) + AllTrim( STR( show_len, 10, 0 ) )+')'
|
||||
// ENDIF
|
||||
ELSE
|
||||
e:=' ('+LEFT(ALLTRIM(a),1)+')'
|
||||
ENDIF
|
||||
|
||||
e:=""
|
||||
|
||||
OutputDebugString( b + e + c + asstring( d ) +CRLF)
|
||||
RETURN NIL
|
||||
|
||||
*-----------------------------------------------------------------------------*
|
||||
STATIC FUNCTION asString( x )
|
||||
local v := ValType( x )
|
||||
|
||||
DO CASE
|
||||
CASE v == "C"
|
||||
RETURN '"' + x + '"'
|
||||
CASE v == "N"
|
||||
RETURN AllTrim( str( x ) )
|
||||
CASE v == "L"
|
||||
IF x
|
||||
RETURN ".T."
|
||||
ELSE
|
||||
RETURN ".F."
|
||||
ENDIF
|
||||
CASE v == "D"
|
||||
RETURN dtoc( x )
|
||||
CASE v == "U"
|
||||
RETURN "NIL"
|
||||
CASE v == "A"
|
||||
RETURN "<Array>"
|
||||
CASE v == "O"
|
||||
RETURN "<Object " + x:classname( ) + ">"
|
||||
CASE v == "B"
|
||||
RETURN "<Block>"
|
||||
OTHERWISE
|
||||
RETURN ""
|
||||
END CASE
|
||||
|
||||
RETURN( x )
|
||||
|
||||
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
@@ -1,452 +1,452 @@
|
||||
/*
|
||||
* $Id: wintbar.Prg 8045 2007-11-25 18:36:59Z vouchcac $
|
||||
*/
|
||||
|
||||
|
||||
// What32.Lib
|
||||
// Tollbar class
|
||||
|
||||
|
||||
#Include "winuser.ch"
|
||||
#include "hbclass.ch"
|
||||
#Include "commctrl.ch"
|
||||
#Include 'debug.ch'
|
||||
#Include "wintypes.ch"
|
||||
#Include "cstruct.ch"
|
||||
#Include 'what32.ch'
|
||||
|
||||
pragma pack(4)
|
||||
|
||||
typedef struct _RECT { ;
|
||||
LONG left;
|
||||
LONG top;
|
||||
LONG right;
|
||||
LONG bottom;
|
||||
} RECT
|
||||
|
||||
typedef struct tagNMHDR {;
|
||||
HWND hwndFrom;
|
||||
UINT idFrom;
|
||||
UINT code;
|
||||
} NMHDR
|
||||
|
||||
typedef struct _TBBUTTON {;
|
||||
int iBitmap;
|
||||
int idCommand;
|
||||
BYTE fsState;
|
||||
BYTE fsStyle;
|
||||
DWORD dwData;
|
||||
int iString;
|
||||
} TBBUTTON, NEAR* PTBBUTTON, FAR* LPTBBUTTON
|
||||
|
||||
typedef struct tagNMTOOLBAR {;
|
||||
NMHDR hdr;
|
||||
int iItem;
|
||||
TBBUTTON tbButton;
|
||||
int cchText;
|
||||
LPSTR pszText;
|
||||
RECT rcButton;
|
||||
} NMTOOLBAR, FAR* LPNMTOOLBAR
|
||||
|
||||
|
||||
|
||||
typedef struct tagTBADDBITMAP {;
|
||||
HINSTANCE hInst;
|
||||
UINT nID;
|
||||
} TBADDBITMAP, *LPTBADDBITMAP
|
||||
|
||||
typedef struct {;
|
||||
NMHDR hdr; // required for all WM_NOTIFY messages
|
||||
LPTSTR lpszText; // see below
|
||||
char szText[80]; // buffer for tool tip text
|
||||
HINSTANCE hinst; // see below
|
||||
UINT uflags; // flag indicating how to interpret the idFrom member of the NMHDR structure that is included in the structure
|
||||
} TOOLTIPTEXT, FAR *LPTOOLTIPTEXT
|
||||
|
||||
/*
|
||||
typedef struct tagNMTBHOTITEM {;
|
||||
NMHDR hdr;
|
||||
int idOld;
|
||||
int idNew;
|
||||
DWORD dwFlags;
|
||||
} NMTBHOTITEM, FAR *LPNMTBHOTITEM
|
||||
*/
|
||||
|
||||
// based on cToolBar class
|
||||
*-----------------------------------------------------------------------------*
|
||||
|
||||
CLASS TOOLBAR
|
||||
|
||||
DATA abuttons
|
||||
DATA aBitmaps
|
||||
DATA hParent
|
||||
DATA hWnd
|
||||
DATA nId
|
||||
DATA nStyle
|
||||
DATA Created
|
||||
DATA aText
|
||||
DATA hBmp
|
||||
DATA nProc
|
||||
DATA aTips
|
||||
DATA nBtn HIDDEN
|
||||
DATA aMenus
|
||||
METHOD Init() CONSTRUCTOR
|
||||
|
||||
METHOD AddButton
|
||||
METHOD AddBitmap
|
||||
METHOD AddString
|
||||
METHOD Create
|
||||
METHOD createbuttons
|
||||
METHOD tbProc
|
||||
|
||||
METHOD setsizes(xBtn,yBtn,xImg,yImg )
|
||||
METHOD setheight(nHeight )
|
||||
METHOD loadbitmap
|
||||
METHOD setbitmap
|
||||
METHOD setbuttons
|
||||
METHOD commandtoindex
|
||||
METHOD GetItemId
|
||||
METHOD getitemrect
|
||||
METHOD getbuttonstyle
|
||||
METHOD getbuttoninfo
|
||||
METHOD setbuttoninfo
|
||||
METHOD getbuttontext
|
||||
METHOD setbuttontext
|
||||
METHOD gettollbarctrl
|
||||
METHOD disable
|
||||
METHOD enable
|
||||
METHOD disableall
|
||||
METHOD enableall
|
||||
METHOD CheckButton
|
||||
METHOD IsButtonChecked
|
||||
METHOD AddMenu
|
||||
ENDCLASS
|
||||
|
||||
|
||||
*-----------------------------------------------------------------------------*
|
||||
|
||||
METHOD Init()
|
||||
|
||||
InitCommonControlsEx(ICC_BAR_CLASSES)
|
||||
::aButtons:={}
|
||||
::aTips :={}
|
||||
::nStyle :=0
|
||||
::nId :=0
|
||||
::Created := .F.
|
||||
::aText :={}
|
||||
::aBitmaps:={}
|
||||
::aMenus :={}
|
||||
RETURN(self)
|
||||
|
||||
|
||||
*-----------------------------------------------------------------------------*
|
||||
|
||||
METHOD AddBitmap(hInst, nhIdBmp, nButtons)
|
||||
|
||||
LOCAL tbab IS TBADDBITMAP
|
||||
|
||||
DEFAULT nButtons TO 1
|
||||
|
||||
tbab:hInst := hInst
|
||||
tbab:nId := nhIdBmp
|
||||
|
||||
AADD(::aBitmaps,{tbab,nButtons})
|
||||
IF ::created
|
||||
SendMessage(::hWnd,TB_ADDBITMAP,nButtons,tbab:value)
|
||||
ENDIF
|
||||
|
||||
|
||||
RETURN(1)
|
||||
|
||||
*-----------------------------------------------------------------------------*
|
||||
|
||||
METHOD AddButton(nIndex, nId, nState, nStyle, ncargo, nString, cText, cToolTip )
|
||||
|
||||
LOCAL tbb IS TBBUTTON
|
||||
|
||||
tbb:ibitmap :=IFNIL(nIndex,-1,nIndex)
|
||||
tbb:idCommand :=nId // must be supplied
|
||||
tbb:fsState :=IFNIL(nState,TBSTATE_ENABLED,nState)
|
||||
tbb:fsStyle :=IFNIL(nStyle,TBSTYLE_BUTTON,nStyle)
|
||||
tbb:dwData :=IFNIL(ncargo,0,nCargo)
|
||||
tbb:iString :=IFNIL(nString,0,nString)
|
||||
|
||||
AADD(::aButtons,tbb)
|
||||
AADD(::aTips,cToolTip)
|
||||
IF ::Created
|
||||
SendMessage(::hWnd,TB_ADDBUTTONS,1,tbb:value)
|
||||
Endif
|
||||
|
||||
|
||||
RETURN(self)
|
||||
|
||||
METHOD AddMenu(nButton, nMenuId, cMenuText )
|
||||
AADD(::aMenus,{nButton, nMenuId, cMenuText })
|
||||
return(self)
|
||||
|
||||
*-----------------------------------------------------------------------------*
|
||||
METHOD addstring(cText)
|
||||
|
||||
IF ::created
|
||||
SendMessage(::hWnd,TB_ADDSTRING,0,cText)
|
||||
Else
|
||||
AADD(::aText,cText)
|
||||
Endif
|
||||
|
||||
RETURN(self)
|
||||
|
||||
*-----------------------------------------------------------------------------*
|
||||
// HWND CreateToolbarEx( HWND hwnd, DWORD ws, UINT wID,int nBitmaps,HINSTANCE hBMInst,
|
||||
// UINT wBMID,LPCTBBUTTON lpButtons,int iNumButtons,int dxButton,
|
||||
// int dyButton, int dxBitmap, int dyBitmap,UINT uStructSize );
|
||||
|
||||
METHOD Create(hParent,nStyle,nId,nImg,hBMInst,nBMId,xBtn,yBtn,xBmp,yBmp)
|
||||
|
||||
LOCAL cButtons:=""
|
||||
LOCAL cStrings:=""
|
||||
LOCAL tbb IS TBBUTTON
|
||||
LOCAL i
|
||||
|
||||
|
||||
::hParent:=hParent
|
||||
::nStyle :=IFNIL(nStyle,TBSTYLE_FLAT+WS_CHILD+WS_VISIBLE,nStyle)
|
||||
::nId :=IFNIL(nId,0,nId)
|
||||
|
||||
if ISNIL(hBMInst) .AND. ISNIL(nBMId)
|
||||
hBMInst:=HINST_COMMCTRL
|
||||
nBMId :=IDB_STD_LARGE_COLOR
|
||||
endif
|
||||
|
||||
FOR i:=1 TO LEN(::aButtons)
|
||||
cButtons+=::aButtons[i]:Value
|
||||
NEXT
|
||||
|
||||
// ::hWnd:=CreateWindowEx(0,TOOLBARCLASSNAME,"",::nStyle,0,0,300,30,::hParent,::nId)
|
||||
|
||||
|
||||
::hWnd:=CreateToolBarEx(::hParent,::nStyle,::nId,nImg,hBMInst,nBMId,cButtons,LEN(::aButtons),;
|
||||
xbtn,yBtn,xBmp,yBmp, tbb:sizeof())
|
||||
|
||||
::nProc:=SetProcedure(::hParent,{|hWnd, nMsg,nwParam,nlParam| ::tbProc(nMsg,nwParam,nlParam)},{WM_NOTIFY})
|
||||
|
||||
|
||||
// SendMessage(::hWnd,TB_BUTTONSTRUCTSIZE,::aButtons[1]:sizeof,0)
|
||||
|
||||
// FOR i:=1 TO LEN(::aBitmaps)
|
||||
// SendMessage(::hWnd,TB_ADDBITMAP,::aBitmaps[i,2],::aBitmaps[i,1]:value)
|
||||
// NEXT
|
||||
|
||||
sendmessage(::hwnd,TB_SETEXTENDEDSTYLE,0,TBSTYLE_EX_DRAWDDARROWS )
|
||||
|
||||
//SendMessage(::hWnd,TB_ADDBUTTONS,LEN(::aButtons),cButtons)
|
||||
|
||||
FOR i:=1 to LEN(::aText)
|
||||
SendMessage(::hWnd,TB_ADDSTRING,0,::aText[i])
|
||||
NEXT
|
||||
|
||||
::Created:=.T.
|
||||
|
||||
RETURN(::hWnd)
|
||||
|
||||
|
||||
*-----------------------------------------------------------------------------*
|
||||
|
||||
#undef TBN_DROPDOWN
|
||||
#undef TTN_NEEDTEXT
|
||||
#undef TBN_QUERYINSERT
|
||||
#undef TBN_QUERYDELETE
|
||||
#undef TBN_GETBUTTONINFO
|
||||
|
||||
#DEFINE TBN_DROPDOWN 0
|
||||
#DEFINE TTN_NEEDTEXT 1
|
||||
#DEFINE TBN_QUERYINSERT 2
|
||||
#DEFINE TBN_QUERYDELETE 3
|
||||
#DEFINE TBN_GETBUTTONINFO 4
|
||||
|
||||
METHOD tbProc(nMsg,nwParam,nlParam)
|
||||
|
||||
LOCAL Hdr
|
||||
LOCAL Ttt
|
||||
LOCAL nmt
|
||||
LOCAL nID
|
||||
LOCAL hMenu,rc,aRect, aPoint
|
||||
LOCAL n,x
|
||||
LOCAL hic
|
||||
DO CASE
|
||||
CASE nMsg==WM_NOTIFY
|
||||
Hdr IS NMHDR
|
||||
Hdr:Buffer(peek(nlParam,Hdr:sizeof))
|
||||
|
||||
DO CASE
|
||||
CASE Hdr:code==TBN_DROPDOWN
|
||||
Nmt IS NMTOOLBAR
|
||||
nmt:buffer(peek(nlParam,nmt:sizeof))
|
||||
IF (n:=ASCAN(::aMenus,{|a| a[1]==nmt:iItem})) > 0
|
||||
::nBtn:=nmt:iItem
|
||||
hMenu = CreatePopupMenu( )
|
||||
FOR x:=1 TO LEN(::aMenus)
|
||||
IF ::aMenus[x][1] == nmt:iItem
|
||||
IF ::aMenus[x][3] == "-".and. ::aMenus[x][2] == 0
|
||||
AppendMenu( hMenu, MF_SEPARATOR )
|
||||
ELSE
|
||||
AppendMenu( hMenu, MF_ENABLED + MF_STRING,::aMenus[x][2],::aMenus[x][3])
|
||||
ENDIF
|
||||
ENDIF
|
||||
NEXT
|
||||
|
||||
x:= ASCAN(::aButtons,{|btn| btn:idCommand==nmt:iItem})
|
||||
aRect:=GetToolBarItemRect(::hWnd,x-1)
|
||||
aPoint := {aRect[1],aRect[4]}
|
||||
ClientToScreen( ::hParent, @aPoint )
|
||||
TrackPopupMenu( hMenu, TPM_LEFTALIGN+TPM_TOPALIGN, aPoint[1]+9, aPoint[2], 0, ::hWnd )
|
||||
DestroyMenu(hMenu)
|
||||
RETURN 0
|
||||
end
|
||||
CASE Hdr:code==TTN_NEEDTEXT
|
||||
IF (n:=ASCAN(::aButtons,{|btn| btn:idCommand==Hdr:idFrom})) > 0
|
||||
Ttt IS TOOLTIPTEXT
|
||||
Ttt:Buffer(peek(nlParam,Ttt:sizeof))
|
||||
Ttt:lpszText:=::aTips[n] //"ID:"+STR(Hdr:IdFrom)
|
||||
poke(nlParam,Ttt:value,Ttt:sizeof)
|
||||
ENDIF
|
||||
|
||||
CASE Hdr:code==TBN_QUERYINSERT
|
||||
RETURN(1)
|
||||
CASE Hdr:code==TBN_QUERYDELETE
|
||||
RETURN(1)
|
||||
CASE Hdr:code==TBN_GETBUTTONINFO
|
||||
Nmt IS NMTOOLBAR
|
||||
nmt:buffer(peek(nlParam,nmt:sizeof))
|
||||
/*
|
||||
int iItem; // cmd
|
||||
TBBUTTON tbButton;
|
||||
int cchText; // str len
|
||||
LPSTR pszText; // btn text
|
||||
RECT rcButton; // new (!)
|
||||
*/
|
||||
RETURN(1)
|
||||
|
||||
ENDCASE
|
||||
|
||||
ENDCASE
|
||||
|
||||
RETURN( CallWindowProc(::nProc,::hParent,nMsg,nwParam,nlParam))
|
||||
|
||||
*-----------------------------------------------------------------------------*
|
||||
|
||||
METHOD CreateButtons()
|
||||
|
||||
LOCAL aSize
|
||||
LOCAL i
|
||||
|
||||
|
||||
|
||||
|
||||
FOR i:=1 TO LEN(::aBitmaps)
|
||||
|
||||
|
||||
|
||||
|
||||
NEXT
|
||||
|
||||
|
||||
RETURN(NIL)
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
*-----------------------------------------------------------------------------*
|
||||
|
||||
|
||||
METHOD setsizes(xBtn,yBtn,xImg,yImg )
|
||||
RETURN(self)
|
||||
*-----------------------------------------------------------------------------*
|
||||
|
||||
METHOD setheight(nHeight )
|
||||
RETURN(self)
|
||||
*-----------------------------------------------------------------------------*
|
||||
|
||||
METHOD loadbitmap
|
||||
RETURN(self)
|
||||
*-----------------------------------------------------------------------------*
|
||||
|
||||
METHOD setbitmap
|
||||
RETURN(self)
|
||||
*-----------------------------------------------------------------------------*
|
||||
|
||||
METHOD setbuttons
|
||||
RETURN(self)
|
||||
*-----------------------------------------------------------------------------*
|
||||
|
||||
METHOD commandtoindex
|
||||
RETURN(self)
|
||||
*-----------------------------------------------------------------------------*
|
||||
|
||||
METHOD GetItemId
|
||||
RETURN(self)
|
||||
*-----------------------------------------------------------------------------*
|
||||
|
||||
METHOD getitemrect(nIndex)
|
||||
RETURN(GetToolbarItemRect(::hWnd,nIndex))
|
||||
|
||||
*-----------------------------------------------------------------------------*
|
||||
|
||||
METHOD getbuttonstyle
|
||||
RETURN(self)
|
||||
*-----------------------------------------------------------------------------*
|
||||
|
||||
METHOD getbuttoninfo
|
||||
RETURN(self)
|
||||
*-----------------------------------------------------------------------------*
|
||||
|
||||
METHOD setbuttoninfo
|
||||
RETURN(self)
|
||||
*-----------------------------------------------------------------------------*
|
||||
|
||||
METHOD getbuttontext
|
||||
RETURN(self)
|
||||
*-----------------------------------------------------------------------------*
|
||||
|
||||
METHOD setbuttontext
|
||||
RETURN(self)
|
||||
*-----------------------------------------------------------------------------*
|
||||
|
||||
METHOD gettollbarctrl
|
||||
|
||||
RETURN(self)
|
||||
*-----------------------------------------------------------------------------*
|
||||
|
||||
METHOD disable(nBtn)
|
||||
SendMessage(::hWnd,TB_ENABLEBUTTON,nBtn,0)
|
||||
RETURN(SELF)
|
||||
|
||||
*-----------------------------------------------------------------------------*
|
||||
|
||||
METHOD enable(nBtn,lFlag)
|
||||
DEFAULT lFlag TO .T.
|
||||
SendMessage(::hWnd,TB_ENABLEBUTTON,nBtn,If(lFlag,1,0))
|
||||
RETURN(SELF)
|
||||
|
||||
*-----------------------------------------------------------------------------*
|
||||
|
||||
METHOD disableall()
|
||||
AEVAL(::aButtons,{|btn| ::disable(btn:idCommand)})
|
||||
return(self)
|
||||
|
||||
*-----------------------------------------------------------------------------*
|
||||
|
||||
METHOD enableall()
|
||||
AEVAL(::aButtons,{|btn| ::enable(btn:idCommand)})
|
||||
return(self)
|
||||
|
||||
METHOD CheckButton(nBtn,lFlag)
|
||||
DEFAULT lFlag TO !::IsButtonChecked(nBtn)
|
||||
SendMessage(::hWnd,TB_CHECKBUTTON,nBtn,If(lFlag,1,0))
|
||||
RETURN(SELF)
|
||||
|
||||
METHOD IsButtonChecked(nBtn)
|
||||
RETURN(IIF(SendMessage(::hWnd,TB_ISBUTTONCHECKED,nBtn,0)==0,.F.,.T.))
|
||||
/*
|
||||
* $Id$
|
||||
*/
|
||||
|
||||
|
||||
// What32.Lib
|
||||
// Tollbar class
|
||||
|
||||
|
||||
#Include "winuser.ch"
|
||||
#include "hbclass.ch"
|
||||
#Include "commctrl.ch"
|
||||
#Include 'debug.ch'
|
||||
#Include "wintypes.ch"
|
||||
#Include "cstruct.ch"
|
||||
#Include 'what32.ch'
|
||||
|
||||
pragma pack(4)
|
||||
|
||||
typedef struct _RECT { ;
|
||||
LONG left;
|
||||
LONG top;
|
||||
LONG right;
|
||||
LONG bottom;
|
||||
} RECT
|
||||
|
||||
typedef struct tagNMHDR {;
|
||||
HWND hwndFrom;
|
||||
UINT idFrom;
|
||||
UINT code;
|
||||
} NMHDR
|
||||
|
||||
typedef struct _TBBUTTON {;
|
||||
int iBitmap;
|
||||
int idCommand;
|
||||
BYTE fsState;
|
||||
BYTE fsStyle;
|
||||
DWORD dwData;
|
||||
int iString;
|
||||
} TBBUTTON, NEAR* PTBBUTTON, FAR* LPTBBUTTON
|
||||
|
||||
typedef struct tagNMTOOLBAR {;
|
||||
NMHDR hdr;
|
||||
int iItem;
|
||||
TBBUTTON tbButton;
|
||||
int cchText;
|
||||
LPSTR pszText;
|
||||
RECT rcButton;
|
||||
} NMTOOLBAR, FAR* LPNMTOOLBAR
|
||||
|
||||
|
||||
|
||||
typedef struct tagTBADDBITMAP {;
|
||||
HINSTANCE hInst;
|
||||
UINT nID;
|
||||
} TBADDBITMAP, *LPTBADDBITMAP
|
||||
|
||||
typedef struct {;
|
||||
NMHDR hdr; // required for all WM_NOTIFY messages
|
||||
LPTSTR lpszText; // see below
|
||||
char szText[80]; // buffer for tool tip text
|
||||
HINSTANCE hinst; // see below
|
||||
UINT uflags; // flag indicating how to interpret the idFrom member of the NMHDR structure that is included in the structure
|
||||
} TOOLTIPTEXT, FAR *LPTOOLTIPTEXT
|
||||
|
||||
/*
|
||||
typedef struct tagNMTBHOTITEM {;
|
||||
NMHDR hdr;
|
||||
int idOld;
|
||||
int idNew;
|
||||
DWORD dwFlags;
|
||||
} NMTBHOTITEM, FAR *LPNMTBHOTITEM
|
||||
*/
|
||||
|
||||
// based on cToolBar class
|
||||
*-----------------------------------------------------------------------------*
|
||||
|
||||
CLASS TOOLBAR
|
||||
|
||||
DATA abuttons
|
||||
DATA aBitmaps
|
||||
DATA hParent
|
||||
DATA hWnd
|
||||
DATA nId
|
||||
DATA nStyle
|
||||
DATA Created
|
||||
DATA aText
|
||||
DATA hBmp
|
||||
DATA nProc
|
||||
DATA aTips
|
||||
DATA nBtn HIDDEN
|
||||
DATA aMenus
|
||||
METHOD Init() CONSTRUCTOR
|
||||
|
||||
METHOD AddButton
|
||||
METHOD AddBitmap
|
||||
METHOD AddString
|
||||
METHOD Create
|
||||
METHOD createbuttons
|
||||
METHOD tbProc
|
||||
|
||||
METHOD setsizes(xBtn,yBtn,xImg,yImg )
|
||||
METHOD setheight(nHeight )
|
||||
METHOD loadbitmap
|
||||
METHOD setbitmap
|
||||
METHOD setbuttons
|
||||
METHOD commandtoindex
|
||||
METHOD GetItemId
|
||||
METHOD getitemrect
|
||||
METHOD getbuttonstyle
|
||||
METHOD getbuttoninfo
|
||||
METHOD setbuttoninfo
|
||||
METHOD getbuttontext
|
||||
METHOD setbuttontext
|
||||
METHOD gettollbarctrl
|
||||
METHOD disable
|
||||
METHOD enable
|
||||
METHOD disableall
|
||||
METHOD enableall
|
||||
METHOD CheckButton
|
||||
METHOD IsButtonChecked
|
||||
METHOD AddMenu
|
||||
ENDCLASS
|
||||
|
||||
|
||||
*-----------------------------------------------------------------------------*
|
||||
|
||||
METHOD Init()
|
||||
|
||||
InitCommonControlsEx(ICC_BAR_CLASSES)
|
||||
::aButtons:={}
|
||||
::aTips :={}
|
||||
::nStyle :=0
|
||||
::nId :=0
|
||||
::Created := .F.
|
||||
::aText :={}
|
||||
::aBitmaps:={}
|
||||
::aMenus :={}
|
||||
RETURN(self)
|
||||
|
||||
|
||||
*-----------------------------------------------------------------------------*
|
||||
|
||||
METHOD AddBitmap(hInst, nhIdBmp, nButtons)
|
||||
|
||||
LOCAL tbab IS TBADDBITMAP
|
||||
|
||||
DEFAULT nButtons TO 1
|
||||
|
||||
tbab:hInst := hInst
|
||||
tbab:nId := nhIdBmp
|
||||
|
||||
AADD(::aBitmaps,{tbab,nButtons})
|
||||
IF ::created
|
||||
SendMessage(::hWnd,TB_ADDBITMAP,nButtons,tbab:value)
|
||||
ENDIF
|
||||
|
||||
|
||||
RETURN(1)
|
||||
|
||||
*-----------------------------------------------------------------------------*
|
||||
|
||||
METHOD AddButton(nIndex, nId, nState, nStyle, ncargo, nString, cText, cToolTip )
|
||||
|
||||
LOCAL tbb IS TBBUTTON
|
||||
|
||||
tbb:ibitmap :=IFNIL(nIndex,-1,nIndex)
|
||||
tbb:idCommand :=nId // must be supplied
|
||||
tbb:fsState :=IFNIL(nState,TBSTATE_ENABLED,nState)
|
||||
tbb:fsStyle :=IFNIL(nStyle,TBSTYLE_BUTTON,nStyle)
|
||||
tbb:dwData :=IFNIL(ncargo,0,nCargo)
|
||||
tbb:iString :=IFNIL(nString,0,nString)
|
||||
|
||||
AADD(::aButtons,tbb)
|
||||
AADD(::aTips,cToolTip)
|
||||
IF ::Created
|
||||
SendMessage(::hWnd,TB_ADDBUTTONS,1,tbb:value)
|
||||
Endif
|
||||
|
||||
|
||||
RETURN(self)
|
||||
|
||||
METHOD AddMenu(nButton, nMenuId, cMenuText )
|
||||
AADD(::aMenus,{nButton, nMenuId, cMenuText })
|
||||
return(self)
|
||||
|
||||
*-----------------------------------------------------------------------------*
|
||||
METHOD addstring(cText)
|
||||
|
||||
IF ::created
|
||||
SendMessage(::hWnd,TB_ADDSTRING,0,cText)
|
||||
Else
|
||||
AADD(::aText,cText)
|
||||
Endif
|
||||
|
||||
RETURN(self)
|
||||
|
||||
*-----------------------------------------------------------------------------*
|
||||
// HWND CreateToolbarEx( HWND hwnd, DWORD ws, UINT wID,int nBitmaps,HINSTANCE hBMInst,
|
||||
// UINT wBMID,LPCTBBUTTON lpButtons,int iNumButtons,int dxButton,
|
||||
// int dyButton, int dxBitmap, int dyBitmap,UINT uStructSize );
|
||||
|
||||
METHOD Create(hParent,nStyle,nId,nImg,hBMInst,nBMId,xBtn,yBtn,xBmp,yBmp)
|
||||
|
||||
LOCAL cButtons:=""
|
||||
LOCAL cStrings:=""
|
||||
LOCAL tbb IS TBBUTTON
|
||||
LOCAL i
|
||||
|
||||
|
||||
::hParent:=hParent
|
||||
::nStyle :=IFNIL(nStyle,TBSTYLE_FLAT+WS_CHILD+WS_VISIBLE,nStyle)
|
||||
::nId :=IFNIL(nId,0,nId)
|
||||
|
||||
if ISNIL(hBMInst) .AND. ISNIL(nBMId)
|
||||
hBMInst:=HINST_COMMCTRL
|
||||
nBMId :=IDB_STD_LARGE_COLOR
|
||||
endif
|
||||
|
||||
FOR i:=1 TO LEN(::aButtons)
|
||||
cButtons+=::aButtons[i]:Value
|
||||
NEXT
|
||||
|
||||
// ::hWnd:=CreateWindowEx(0,TOOLBARCLASSNAME,"",::nStyle,0,0,300,30,::hParent,::nId)
|
||||
|
||||
|
||||
::hWnd:=CreateToolBarEx(::hParent,::nStyle,::nId,nImg,hBMInst,nBMId,cButtons,LEN(::aButtons),;
|
||||
xbtn,yBtn,xBmp,yBmp, tbb:sizeof())
|
||||
|
||||
::nProc:=SetProcedure(::hParent,{|hWnd, nMsg,nwParam,nlParam| ::tbProc(nMsg,nwParam,nlParam)},{WM_NOTIFY})
|
||||
|
||||
|
||||
// SendMessage(::hWnd,TB_BUTTONSTRUCTSIZE,::aButtons[1]:sizeof,0)
|
||||
|
||||
// FOR i:=1 TO LEN(::aBitmaps)
|
||||
// SendMessage(::hWnd,TB_ADDBITMAP,::aBitmaps[i,2],::aBitmaps[i,1]:value)
|
||||
// NEXT
|
||||
|
||||
sendmessage(::hwnd,TB_SETEXTENDEDSTYLE,0,TBSTYLE_EX_DRAWDDARROWS )
|
||||
|
||||
//SendMessage(::hWnd,TB_ADDBUTTONS,LEN(::aButtons),cButtons)
|
||||
|
||||
FOR i:=1 to LEN(::aText)
|
||||
SendMessage(::hWnd,TB_ADDSTRING,0,::aText[i])
|
||||
NEXT
|
||||
|
||||
::Created:=.T.
|
||||
|
||||
RETURN(::hWnd)
|
||||
|
||||
|
||||
*-----------------------------------------------------------------------------*
|
||||
|
||||
#undef TBN_DROPDOWN
|
||||
#undef TTN_NEEDTEXT
|
||||
#undef TBN_QUERYINSERT
|
||||
#undef TBN_QUERYDELETE
|
||||
#undef TBN_GETBUTTONINFO
|
||||
|
||||
#DEFINE TBN_DROPDOWN 0
|
||||
#DEFINE TTN_NEEDTEXT 1
|
||||
#DEFINE TBN_QUERYINSERT 2
|
||||
#DEFINE TBN_QUERYDELETE 3
|
||||
#DEFINE TBN_GETBUTTONINFO 4
|
||||
|
||||
METHOD tbProc(nMsg,nwParam,nlParam)
|
||||
|
||||
LOCAL Hdr
|
||||
LOCAL Ttt
|
||||
LOCAL nmt
|
||||
LOCAL nID
|
||||
LOCAL hMenu,rc,aRect, aPoint
|
||||
LOCAL n,x
|
||||
LOCAL hic
|
||||
DO CASE
|
||||
CASE nMsg==WM_NOTIFY
|
||||
Hdr IS NMHDR
|
||||
Hdr:Buffer(peek(nlParam,Hdr:sizeof))
|
||||
|
||||
DO CASE
|
||||
CASE Hdr:code==TBN_DROPDOWN
|
||||
Nmt IS NMTOOLBAR
|
||||
nmt:buffer(peek(nlParam,nmt:sizeof))
|
||||
IF (n:=ASCAN(::aMenus,{|a| a[1]==nmt:iItem})) > 0
|
||||
::nBtn:=nmt:iItem
|
||||
hMenu = CreatePopupMenu( )
|
||||
FOR x:=1 TO LEN(::aMenus)
|
||||
IF ::aMenus[x][1] == nmt:iItem
|
||||
IF ::aMenus[x][3] == "-".and. ::aMenus[x][2] == 0
|
||||
AppendMenu( hMenu, MF_SEPARATOR )
|
||||
ELSE
|
||||
AppendMenu( hMenu, MF_ENABLED + MF_STRING,::aMenus[x][2],::aMenus[x][3])
|
||||
ENDIF
|
||||
ENDIF
|
||||
NEXT
|
||||
|
||||
x:= ASCAN(::aButtons,{|btn| btn:idCommand==nmt:iItem})
|
||||
aRect:=GetToolBarItemRect(::hWnd,x-1)
|
||||
aPoint := {aRect[1],aRect[4]}
|
||||
ClientToScreen( ::hParent, @aPoint )
|
||||
TrackPopupMenu( hMenu, TPM_LEFTALIGN+TPM_TOPALIGN, aPoint[1]+9, aPoint[2], 0, ::hWnd )
|
||||
DestroyMenu(hMenu)
|
||||
RETURN 0
|
||||
end
|
||||
CASE Hdr:code==TTN_NEEDTEXT
|
||||
IF (n:=ASCAN(::aButtons,{|btn| btn:idCommand==Hdr:idFrom})) > 0
|
||||
Ttt IS TOOLTIPTEXT
|
||||
Ttt:Buffer(peek(nlParam,Ttt:sizeof))
|
||||
Ttt:lpszText:=::aTips[n] //"ID:"+STR(Hdr:IdFrom)
|
||||
poke(nlParam,Ttt:value,Ttt:sizeof)
|
||||
ENDIF
|
||||
|
||||
CASE Hdr:code==TBN_QUERYINSERT
|
||||
RETURN(1)
|
||||
CASE Hdr:code==TBN_QUERYDELETE
|
||||
RETURN(1)
|
||||
CASE Hdr:code==TBN_GETBUTTONINFO
|
||||
Nmt IS NMTOOLBAR
|
||||
nmt:buffer(peek(nlParam,nmt:sizeof))
|
||||
/*
|
||||
int iItem; // cmd
|
||||
TBBUTTON tbButton;
|
||||
int cchText; // str len
|
||||
LPSTR pszText; // btn text
|
||||
RECT rcButton; // new (!)
|
||||
*/
|
||||
RETURN(1)
|
||||
|
||||
ENDCASE
|
||||
|
||||
ENDCASE
|
||||
|
||||
RETURN( CallWindowProc(::nProc,::hParent,nMsg,nwParam,nlParam))
|
||||
|
||||
*-----------------------------------------------------------------------------*
|
||||
|
||||
METHOD CreateButtons()
|
||||
|
||||
LOCAL aSize
|
||||
LOCAL i
|
||||
|
||||
|
||||
|
||||
|
||||
FOR i:=1 TO LEN(::aBitmaps)
|
||||
|
||||
|
||||
|
||||
|
||||
NEXT
|
||||
|
||||
|
||||
RETURN(NIL)
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
*-----------------------------------------------------------------------------*
|
||||
|
||||
|
||||
METHOD setsizes(xBtn,yBtn,xImg,yImg )
|
||||
RETURN(self)
|
||||
*-----------------------------------------------------------------------------*
|
||||
|
||||
METHOD setheight(nHeight )
|
||||
RETURN(self)
|
||||
*-----------------------------------------------------------------------------*
|
||||
|
||||
METHOD loadbitmap
|
||||
RETURN(self)
|
||||
*-----------------------------------------------------------------------------*
|
||||
|
||||
METHOD setbitmap
|
||||
RETURN(self)
|
||||
*-----------------------------------------------------------------------------*
|
||||
|
||||
METHOD setbuttons
|
||||
RETURN(self)
|
||||
*-----------------------------------------------------------------------------*
|
||||
|
||||
METHOD commandtoindex
|
||||
RETURN(self)
|
||||
*-----------------------------------------------------------------------------*
|
||||
|
||||
METHOD GetItemId
|
||||
RETURN(self)
|
||||
*-----------------------------------------------------------------------------*
|
||||
|
||||
METHOD getitemrect(nIndex)
|
||||
RETURN(GetToolbarItemRect(::hWnd,nIndex))
|
||||
|
||||
*-----------------------------------------------------------------------------*
|
||||
|
||||
METHOD getbuttonstyle
|
||||
RETURN(self)
|
||||
*-----------------------------------------------------------------------------*
|
||||
|
||||
METHOD getbuttoninfo
|
||||
RETURN(self)
|
||||
*-----------------------------------------------------------------------------*
|
||||
|
||||
METHOD setbuttoninfo
|
||||
RETURN(self)
|
||||
*-----------------------------------------------------------------------------*
|
||||
|
||||
METHOD getbuttontext
|
||||
RETURN(self)
|
||||
*-----------------------------------------------------------------------------*
|
||||
|
||||
METHOD setbuttontext
|
||||
RETURN(self)
|
||||
*-----------------------------------------------------------------------------*
|
||||
|
||||
METHOD gettollbarctrl
|
||||
|
||||
RETURN(self)
|
||||
*-----------------------------------------------------------------------------*
|
||||
|
||||
METHOD disable(nBtn)
|
||||
SendMessage(::hWnd,TB_ENABLEBUTTON,nBtn,0)
|
||||
RETURN(SELF)
|
||||
|
||||
*-----------------------------------------------------------------------------*
|
||||
|
||||
METHOD enable(nBtn,lFlag)
|
||||
DEFAULT lFlag TO .T.
|
||||
SendMessage(::hWnd,TB_ENABLEBUTTON,nBtn,If(lFlag,1,0))
|
||||
RETURN(SELF)
|
||||
|
||||
*-----------------------------------------------------------------------------*
|
||||
|
||||
METHOD disableall()
|
||||
AEVAL(::aButtons,{|btn| ::disable(btn:idCommand)})
|
||||
return(self)
|
||||
|
||||
*-----------------------------------------------------------------------------*
|
||||
|
||||
METHOD enableall()
|
||||
AEVAL(::aButtons,{|btn| ::enable(btn:idCommand)})
|
||||
return(self)
|
||||
|
||||
METHOD CheckButton(nBtn,lFlag)
|
||||
DEFAULT lFlag TO !::IsButtonChecked(nBtn)
|
||||
SendMessage(::hWnd,TB_CHECKBUTTON,nBtn,If(lFlag,1,0))
|
||||
RETURN(SELF)
|
||||
|
||||
METHOD IsButtonChecked(nBtn)
|
||||
RETURN(IIF(SendMessage(::hWnd,TB_ISBUTTONCHECKED,nBtn,0)==0,.F.,.T.))
|
||||
|
||||
Reference in New Issue
Block a user