this is 1st "basic" Sample how to use Listview.
! Note : a lot HB_FUNCC() are not used in Sample yet, i will need them in Future
/*********************************************************************
ListView_GetItemCount <!-- m --><a class="postlink" href="https://learn.microsoft.com/en-us/windows/win32/api/commctrl/nf-commctrl-listview_getitemcount">https://learn.microsoft.com/en-us/windo ... titemcount</a><!-- m -->
ListView_InsertItem <!-- m --><a class="postlink" href="https://learn.microsoft.com/en-us/windows/win32/api/commctrl/nf-commctrl-listview_insertitem">https://learn.microsoft.com/en-us/windo ... insertitem</a><!-- m -->
ListView_SetItemText https://learn.microsoft.com/en-us/windows/win32/api/commctrl/nf-commctrl-listview_setitemtext
ListView_InsertColumn <!-- m --><a class="postlink" href="https://learn.microsoft.com/en-us/windows/win32/api/commctrl/nf-commctrl-listview_insertcolumn">https://learn.microsoft.com/en-us/windo ... sertcolumn</a><!-- m -->
ListView_GetExtendedListViewStyle <!-- m --><a class="postlink" href="https://learn.microsoft.com/en-us/windows/win32/api/commctrl/nf-commctrl-listview_getextendedlistviewstyle">https://learn.microsoft.com/en-us/windo ... tviewstyle</a><!-- m -->
ListView_SetExtendedListViewStyle <!-- m --><a class="postlink" href="https://learn.microsoft.com/en-us/windows/win32/api/commctrl/nf-commctrl-listview_setextendedlistviewstyle">https://learn.microsoft.com/en-us/windo ... tviewstyle</a><!-- m -->
ListView_DeleteColumn <!-- m --><a class="postlink" href="https://learn.microsoft.com/en-us/windows/win32/api/commctrl/nf-commctrl-listview_deletecolumn">https://learn.microsoft.com/en-us/windo ... letecolumn</a><!-- m -->
ListView_EnsureVisible https://learn.microsoft.com/en-us/windows/win32/api/commctrl/nf-commctrl-listview_ensurevisible
ListView_GetBkColor <!-- m --><a class="postlink" href="https://learn.microsoft.com/en-us/windows/win32/api/commctrl/nf-commctrl-listview_setbkcolor">https://learn.microsoft.com/en-us/windo ... setbkcolor</a><!-- m -->
ListView_GetCountPerPage https://learn.microsoft.com/en-us/windows/win32/api/commctrl/nf-commctrl-listview_getcountperpage
ListView_GetItemState <!-- m --><a class="postlink" href="https://learn.microsoft.com/en-us/windows/win32/api/commctrl/nf-commctrl-listview_getitemstate">https://learn.microsoft.com/en-us/windo ... titemstate</a><!-- m -->
ListView_GetItem https://learn.microsoft.com/en-us/windows/win32/api/commctrl/nf-commctrl-listview_getitem
ListView_GetNextItem https://learn.microsoft.com/en-us/windows/win32/api/commctrl/nf-commctrl-listview_getnextitem
ListView_GetSelectedCount <!-- m --><a class="postlink" href="https://learn.microsoft.com/de-de/windows/win32/api/commctrl/nf-commctrl-listview_getselectedcount">https://learn.microsoft.com/de-de/windo ... ectedcount</a><!-- m -->
ListView_GetSelectionMark <!-- m --><a class="postlink" href="https://learn.microsoft.com/en-us/windows/win32/api/commctrl/nf-commctrl-listview_getselectionmark">https://learn.microsoft.com/en-us/windo ... ectionmark</a><!-- m -->
ListView_GetTextColor <!-- m --><a class="postlink" href="https://learn.microsoft.com/en-us/windows/win32/api/commctrl/nf-commctrl-listview_gettextcolor">https://learn.microsoft.com/en-us/windo ... ttextcolor</a><!-- m -->
ListView_GetTopIndex https://learn.microsoft.com/en-us/windows/win32/api/commctrl/nf-commctrl-listview_gettopindex
ListView_GetSubItemRect <!-- m --><a class="postlink" href="https://learn.microsoft.com/en-us/windows/win32/api/commctrl/nf-commctrl-listview_getsubitemrect">https://learn.microsoft.com/en-us/windo ... ubitemrect</a><!-- m -->
ListView_GetItemRect https://learn.microsoft.com/en-us/windows/win32/api/commctrl/nf-commctrl-listview_getitemrect
ListView_SubItemHitTest <!-- m --><a class="postlink" href="https://learn.microsoft.com/en-us/windows/win32/api/commctrl/nf-commctrl-listview_subitemhittest">https://learn.microsoft.com/en-us/windo ... temhittest</a><!-- m -->
ListView_RedrawItems https://learn.microsoft.com/en-us/windows/win32/api/commctrl/nf-commctrl-listview_redrawitems
ListView_Scroll <!-- m --><a class="postlink" href="https://learn.microsoft.com/en-us/windows/win32/api/commctrl/nf-commctrl-listview_scroll">https://learn.microsoft.com/en-us/windo ... iew_scroll</a><!-- m -->
ListView_SetBkColor <!-- m --><a class="postlink" href="https://learn.microsoft.com/en-us/windows/win32/api/commctrl/nf-commctrl-listview_setbkcolor">https://learn.microsoft.com/en-us/windo ... setbkcolor</a><!-- m -->
ListView_SetItemCount <!-- m --><a class="postlink" href="https://learn.microsoft.com/en-us/windows/win32/api/commctrl/nf-commctrl-listview_setitemcount">https://learn.microsoft.com/en-us/windo ... titemcount</a><!-- m -->
ListView_SetItemState <!-- m --><a class="postlink" href="https://learn.microsoft.com/en-us/windows/win32/api/commctrl/nf-commctrl-listview_setitemstate">https://learn.microsoft.com/en-us/windo ... titemstate</a><!-- m -->
ListView_SetTextBkColor <!-- m --><a class="postlink" href="https://learn.microsoft.com/en-us/windows/win32/api/commctrl/nf-commctrl-listview_settextbkcolor">https://learn.microsoft.com/en-us/windo ... extbkcolor</a><!-- m -->
ListView_SetTextColor <!-- m --><a class="postlink" href="https://learn.microsoft.com/en-us/windows/win32/api/commctrl/nf-commctrl-listview_settextcolor">https://learn.microsoft.com/en-us/windo ... ttextcolor</a><!-- m -->
ListView_Update <!-- m --><a class="postlink" href="https://learn.microsoft.com/en-us/windows/win32/api/commctrl/nf-commctrl-listview_update">https://learn.microsoft.com/en-us/windo ... iew_update</a><!-- m -->
*********************************************************************/
******************************** HB_FUNC() ****************************
#pragma BEGINDUMP
#include <windows.h>
#include <commctrl.h>
#include <hbapi.h>
#define AVOID_COMPILER_WARNING // by Dr. Claudio Soto (November 2013)
HB_FUNC( IMAGELIST_REMOVEALL )
{
#ifndef _WIN64
ImageList_RemoveAll( ( HIMAGELIST ) hb_parnl( 1 ) );
#else
ImageList_RemoveAll( ( HIMAGELIST ) hb_parnll( 1 ) );
#endif
}
HB_FUNC( REDRAWWINDOW )
{
#ifndef _WIN64
HWND hWnd = ( HWND ) hb_parnl( 1 );
#else
HWND hWnd = ( HWND ) hb_parnll( 1 );
#endif
RedrawWindow (hWnd, NULL , NULL , RDW_ERASE | RDW_FRAME | RDW_INVALIDATE | RDW_ALLCHILDREN | RDW_ERASENOW | RDW_UPDATENOW );
}
// LV_ADDITEMS ( hWnd, aItem, iImage, [nRow] )
HB_FUNC( LV_ADDITEMS )
{
LV_ITEM lvi;
WORD nColumnCount;
int nCol, nRow;
#ifndef _WIN64
HWND hWnd = ( HWND ) hb_parnl( 1 );
#else
HWND hWnd = ( HWND ) hb_parnll( 1 );
#endif
nColumnCount = ( WORD ) hb_parinfa (2, 0);
if ( HB_ISNIL(4) )
nRow = ListView_GetItemCount (hWnd);
else
nRow = hb_parni (4);
lvi.mask = LVIF_TEXT | LVIF_IMAGE;
lvi.state = 0;
lvi.stateMask = 0;
lvi.iImage = hb_parni (3);
lvi.iSubItem = 0;
lvi.iItem = nRow;
lvi.pszText = (TCHAR*) hb_parvc (2, 1);
ListView_InsertItem (hWnd, &lvi);
for (nCol = 1; nCol < nColumnCount; nCol++)
ListView_SetItemText (hWnd, nRow, nCol, (TCHAR*) hb_parvc (2, nCol+1));
}
// LV_ADDCOLUMN( hWnd, nSubItem, nWeight, cText, nFMT (
HB_FUNC( LV_ADDCOLUMN )
{
#ifndef _WIN64
HWND hWnd = ( HWND ) hb_parnl( 1 );
#else
HWND hWnd = ( HWND ) hb_parnll( 1 );
#endif
LV_COLUMN COL;
COL.mask= LVCF_WIDTH | LVCF_TEXT | LVCF_FMT | LVCF_SUBITEM ;
COL.cx= hb_parni(3);
COL.pszText = (TCHAR*) hb_parc(4);
COL.iSubItem=hb_parni(2)-1;
COL.fmt = hb_parni(5) ;
ListView_InsertColumn ( hWnd, hb_parni(2)-1, &COL );
}
// LV_ChangeExtendedStyle ( hWnd, [ nAddStyle ], [ nRemoveStyle ] )
HB_FUNC( LV_CHANGEEXTENDEDSTYLE )
{
#ifndef _WIN64
HWND hWnd = ( HWND ) hb_parnl( 1 );
#else
HWND hWnd = ( HWND ) hb_parnll( 1 );
#endif
DWORD Add = (DWORD) hb_parnl (2);
DWORD Remove = (DWORD) hb_parnl (3);
DWORD OldStyle, NewStyle, Style;
OldStyle = ListView_GetExtendedListViewStyle (hWnd);
NewStyle = (OldStyle | Add) & ( ~Remove );
Style = ListView_SetExtendedListViewStyle ( hWnd, NewStyle );
hb_retnl ((LONG) Style);
}
HB_FUNC( LV_COLUMNEND )
{
hb_xfree( ( void * ) hb_parptr( 1 ) );
}
HB_FUNC( LV_DELETECOLUMN )
{
#ifndef _WIN64
HWND hWnd = ( HWND ) hb_parnl( 1 );
#else
HWND hWnd = ( HWND ) hb_parnll( 1 );
#endif
ListView_DeleteColumn ( hWnd, hb_parni(2)-1 );
}
// LV_ENSUREVISIBLE( hWnd, nItem, lPart)
HB_FUNC( LV_ENSUREVISIBLE)
{
BOOL lEnablePartialView = HB_ISLOG (3) ? hb_parl (3) : TRUE;
#ifndef _WIN64
HWND hWnd = ( HWND ) hb_parnl( 1 );
#else
HWND hWnd = ( HWND ) hb_parnll( 1 );
#endif
ListView_EnsureVisible( hWnd, hb_parni(2)-1 , lEnablePartialView ) ;
}
HB_FUNC( LV_GETBKCOLOR )
{
#ifndef _WIN64
HWND hWnd = ( HWND ) hb_parnl( 1 );
#else
HWND hWnd = ( HWND ) hb_parnll( 1 );
#endif
hb_retnl ( ListView_GetBkColor ( hWnd ) ) ;
}
HB_FUNC( LV_GETCOUNTPERPAGE )
{
#ifndef _WIN64
HWND hWnd = ( HWND ) hb_parnl( 1 );
#else
HWND hWnd = ( HWND ) hb_parnll( 1 );
#endif
hb_retnl ( ListView_GetCountPerPage ( hWnd ) ) ;
}
HB_FUNC( LV_GETITEMSTATE )
{
#ifndef _WIN64
HWND hWnd = ( HWND ) hb_parnl( 1 );
#else
HWND hWnd = ( HWND ) hb_parnll( 1 );
#endif
INT nRow = (INT) hb_parni (2);
UINT uMask = (UINT) hb_parni (3);
hb_retni ((INT) ListView_GetItemState ( hWnd, (nRow - 1), uMask ) );
}
// LV_GETITEMTEXT (ControlHandle, nRow, nCol)
HB_FUNC( LV_GETITEMTEXT )
{
TCHAR buffer [1024] ;
LV_ITEM lvi;
#ifndef _WIN64
HWND hWnd = ( HWND ) hb_parnl( 1 );
#else
HWND hWnd = ( HWND ) hb_parnll( 1 );
#endif
lvi.mask = LVIF_TEXT | LVIF_IMAGE;
lvi.state = 0;
lvi.stateMask = 0;
lvi.iItem = hb_parni( 2 ) - 1;
lvi.iSubItem = hb_parni( 3 ) - 1; ;
lvi.cchTextMax = 1022;
lvi.pszText = buffer;
buffer[ 0 ] = 0;
buffer[ 1023 ] = 0;
ListView_GetItem( hWnd, &lvi );
hb_retc (lvi.pszText);
}
// LV_GETGRIDDISPINFOINDEX(nPtrNMHDR)
HB_FUNC( LV_GETGRIDDISPINFOINDEX )
{
#ifndef _WIN64
LPARAM lParam = (LPARAM) hb_parnl (1);
#else
LPARAM lParam = (LPARAM) hb_parnll (1);
#endif
LV_DISPINFO* pDispInfo = (LV_DISPINFO*) lParam;
int iItem = pDispInfo->item.iItem;
int iSubItem = pDispInfo->item.iSubItem;
hb_reta( 2 );
hb_storvni( iItem + 1, -1, 1 );
hb_storvni( iSubItem + 1, -1, 2 );
}
// LV_GETGRIDVKEY( nPtrNMHDR )
HB_FUNC( LV_GETGRIDVKEY )
{
#ifndef _WIN64
LPARAM lParam = (LPARAM) hb_parnl (1);
#else
LPARAM lParam = (LPARAM) hb_parnll (1);
#endif
LV_KEYDOWN * LVK = (LV_KEYDOWN *) lParam;
hb_retni ( LVK->wVKey );
}
HB_FUNC( LV_GETNEXTITEM )
{
#ifndef _WIN64
HWND hWnd = ( HWND ) hb_parnl( 1 );
#else
HWND hWnd = ( HWND ) hb_parnll( 1 );
#endif
// hb_retni( ListView_GetNextItem( hWnd, (int) (hb_parni(2)-1) , LVNI_ALL | LVNI_SELECTED ) + 1 );
hb_retni( ListView_GetNextItem( hWnd, (int) (hb_parni(2)-1) , hb_parni(3) ) );
}
HB_FUNC( LV_GETSELECTEDCOUNT )
{
#ifndef _WIN64
HWND hWnd = ( HWND ) hb_parnl( 1 );
#else
HWND hWnd = ( HWND ) hb_parnll( 1 );
#endif
hb_retni( ListView_GetSelectedCount(hWnd) );
}
HB_FUNC( LV_GETSELECTIONMARK )
{
#ifndef _WIN64
HWND hWnd = ( HWND ) hb_parnl( 1 );
#else
HWND hWnd = ( HWND ) hb_parnll( 1 );
#endif
hb_retni( ListView_GetSelectionMark(hWnd) );
}
HB_FUNC( LV_GETTEXTCOLOR )
{
#ifndef _WIN64
HWND hWnd = ( HWND ) hb_parnl( 1 );
#else
HWND hWnd = ( HWND ) hb_parnll( 1 );
#endif
hb_retnl ( ListView_GetTextColor ( hWnd ) ) ;
}
HB_FUNC( LV_GETTOPINDEX )
{
#ifndef _WIN64
HWND hWnd = ( HWND ) hb_parnl( 1 );
#else
HWND hWnd = ( HWND ) hb_parnll( 1 );
#endif
hb_retnl ( ListView_GetTopIndex ( hWnd ) ) ;
}
HB_FUNC( LV_GETSUBITEMRECT )
{
RECT Rect;
#ifndef _WIN64
HWND hWnd = ( HWND ) hb_parnl( 1 );
#else
HWND hWnd = ( HWND ) hb_parnll( 1 );
#endif
int iItem = (int) hb_parni (2); // Index of the subitem's parent item
int iSubItem = (int) hb_parni (3); // The one-based index of the subitem
int code = (int) LVIR_BOUNDS; // A portion of the list-view subitem for which to retrieve the bounding rectangle information
#ifdef AVOID_COMPILER_WARNING
Rect.top = iSubItem;
Rect.left = code;
SendMessage ( hWnd, LVM_GETSUBITEMRECT, (WPARAM) iItem, (LPARAM) &Rect );
#else
ListView_GetSubItemRect ( hWnd, iItem, iSubItem, code, &Rect ) ;
#endif
hb_reta( 4 );
hb_storvni( Rect.top , -1, 1 );
hb_storvni( Rect.left , -1, 2 );
hb_storvni( Rect.right - Rect.left , -1, 3 );
hb_storvni( Rect.bottom - Rect.top , -1, 4 );
}
HB_FUNC( LV_GETITEMRECT )
{
RECT Rect ;
#ifndef _WIN64
HWND hWnd = ( HWND ) hb_parnl( 1 );
#else
HWND hWnd = ( HWND ) hb_parnll( 1 );
#endif
int i = (int) hb_parni (2); // The index of the list-view item
int code = (int) LVIR_LABEL; // The portion of the list-view item from which to retrieve the bounding rectangle
#ifdef AVOID_COMPILER_WARNING
Rect.left = code;
SendMessage ( hWnd, LVM_GETITEMRECT, (WPARAM) i, (LPARAM) &Rect );
#else
ListView_GetItemRect ( hWnd, i, &Rect, code );
#endif
hb_reta( 4 );
hb_storvni( Rect.top , -1, 1 );
hb_storvni( Rect.left , -1, 2 );
hb_storvni( Rect.right - Rect.left , -1, 3 );
hb_storvni( Rect.bottom - Rect.top , -1, 4 );
}
HB_FUNC( LV_HIDEWINDOW )
{
#ifndef _WIN64
HWND hWnd = ( HWND ) hb_parnl( 1 );
#else
HWND hWnd = ( HWND ) hb_parnll( 1 );
#endif
hb_retnl( ShowWindow(hWnd, SW_HIDE) );
}
HB_FUNC( LV_HITTEST )
{
POINT point ;
LVHITTESTINFO lvhti;
#ifndef _WIN64
HWND hWnd = ( HWND ) hb_parnl( 1 );
#else
HWND hWnd = ( HWND ) hb_parnll( 1 );
#endif
point.y = hb_parni(2) ;
point.x = hb_parni(3) ;
lvhti.pt = point;
ListView_SubItemHitTest ( hWnd, &lvhti ) ;
if(lvhti.flags & LVHT_ONITEM)
{
hb_reta( 2 );
hb_storvni( lvhti.iItem + 1 , -1, 1 );
hb_storvni( lvhti.iSubItem + 1 , -1, 2 );
}
else
{
hb_reta( 2 );
hb_storvni( 0 , -1, 1 );
hb_storvni( 0 , -1, 2 );
}
}
HB_FUNC( LV_INSERTCOLUMN )
{
#ifndef _WIN64
HWND hWnd = ( HWND ) hb_parnl( 1 );
#else
HWND hWnd = ( HWND ) hb_parnll( 1 );
#endif
LV_COLUMN COL;
COL.mask= LVCF_WIDTH | LVCF_TEXT | LVCF_FMT | LVCF_SUBITEM ;
COL.cx= hb_parni(3);
COL.pszText = (TCHAR*) hb_parc(4);
COL.iSubItem=hb_parni(2)-1;
COL.fmt = hb_parni(5) ;
ListView_InsertColumn ( hWnd, hb_parni(2)-1, &COL );
}
HB_FUNC( LV_REDRAWITEMS )
{
#ifndef _WIN64
HWND hWnd = ( HWND ) hb_parnl( 1 );
#else
HWND hWnd = ( HWND ) hb_parnll( 1 );
#endif
hb_retnl ( ListView_RedrawItems ( hWnd, hb_parni(2) , hb_parni(3) ) ) ;
}
// LV_Scroll ( hWnd, nDx, nDy )
HB_FUNC( LV_SCROLL )
{
#ifndef _WIN64
HWND hWnd = ( HWND ) hb_parnl( 1 );
#else
HWND hWnd = ( HWND ) hb_parnll( 1 );
#endif
ListView_Scroll( hWnd, hb_parni(2), hb_parni(3) ) ;
}
HB_FUNC( LV_SETBKCOLOR )
{
#ifndef _WIN64
HWND hWnd = ( HWND ) hb_parnl( 1 );
#else
HWND hWnd = ( HWND ) hb_parnll( 1 );
#endif
ListView_SetBkColor ( hWnd, (COLORREF) RGB(hb_parni(2), hb_parni(3), hb_parni(4)) ) ;
}
// LV_SETITEMCOUNT( hWnd, nMax )
HB_FUNC( LV_SETITEMCOUNT )
{
#ifndef _WIN64
HWND hWnd = ( HWND ) hb_parnl( 1 );
#else
HWND hWnd = ( HWND ) hb_parnll( 1 );
#endif
ListView_SetItemCount ( hWnd , hb_parni (2) );
}
// LV_SETITEMSELECT( hWnd, nPosi )
HB_FUNC( LV_SETITEMSELECT )
{
#ifndef _WIN64
HWND hWnd = ( HWND ) hb_parnl( 1 );
#else
HWND hWnd = ( HWND ) hb_parnll( 1 );
#endif
ListView_EnsureVisible( hWnd, hb_parnl( 2 ) -1, FALSE );
ListView_SetItemState( hWnd, -1, 0, LVIS_SELECTED );
ListView_SetItemState( hWnd, hb_parnl( 2 ) -1, ( LVIS_SELECTED | LVIS_FOCUSED ),
( LVIS_SELECTED | LVIS_FOCUSED ) );
}
HB_FUNC( LV_SETITEMSTATE)
{
#ifndef _WIN64
HWND hWnd = ( HWND ) hb_parnl( 1 );
#else
HWND hWnd = ( HWND ) hb_parnll( 1 );
#endif
// ListView_SetItemState( hWnd, (int) (hb_parni(2)-1) , LVIS_FOCUSED | LVIS_SELECTED , LVIS_FOCUSED | LVIS_SELECTED );
ListView_SetItemState( hWnd, (int) (hb_parni(2)-1) , hb_parni(3) , hb_parni(4) );
// ListView_SetItemState( hWnd, (int) (hb_parni(2)-1) , hb_parni(3) , LVIS_FOCUSED | LVIS_SELECTED );
}
HB_FUNC( LV_SETTEXTBKCOLOR )
{
#ifndef _WIN64
HWND hWnd = ( HWND ) hb_parnl( 1 );
#else
HWND hWnd = ( HWND ) hb_parnll( 1 );
#endif
ListView_SetTextBkColor ( hWnd, (COLORREF) RGB(hb_parni(2), hb_parni(3), hb_parni(4)) ) ;
}
HB_FUNC( LV_SETTEXTCOLOR )
{
#ifndef _WIN64
HWND hWnd = ( HWND ) hb_parnl( 1 );
#else
HWND hWnd = ( HWND ) hb_parnll( 1 );
#endif
ListView_SetTextColor ( hWnd, (COLORREF) RGB(hb_parni(2), hb_parni(3), hb_parni(4)) ) ;
}
// LV_SetItemText (hWnd, aItem, nRow)
HB_FUNC( LV_SETITEMTEXT )
{
#ifndef _WIN64
HWND hWnd = ( HWND ) hb_parnl( 1 );
#else
HWND hWnd = ( HWND ) hb_parnll( 1 );
#endif
WORD nLen = ( WORD ) hb_parinfa (2, 0);
int nRow = hb_parni (3) - 1;
TCHAR *cText;
int nCol;
for (nCol=0 ; nCol < nLen ; nCol++ )
{
cText = (TCHAR*) hb_parvc (2 , nCol + 1);
ListView_SetItemText (hWnd, nRow, nCol, cText);
}
}
HB_FUNC( LV_SHOWWINDOW )
{
#ifndef _WIN64
HWND hWnd = ( HWND ) hb_parnl( 1 );
#else
HWND hWnd = ( HWND ) hb_parnll( 1 );
#endif
hb_retnl( ShowWindow(hWnd, SW_SHOW) );
}
HB_FUNC( LV_UPDATE )
{
#ifndef _WIN64
HWND hWnd = ( HWND ) hb_parnl( 1 );
#else
HWND hWnd = ( HWND ) hb_parnll( 1 );
#endif
hb_retnl( ListView_Update ( hWnd, hb_parni(2) - 1 ) );
}
#pragma ENDDUMP
*+--------------------------------------------------------------------
*+
*+ Source Module => c:\fwh\0\Listview\TGRID.PRG
*+
*+ Copyright(C) 1983-2022 by Auge & Ohr
*+
*+ Functions: Procedure Main()
*+ Static Function BUILDMENU()
*+ Static Procedure DoResize()
*+ Procedure SayBar()
*+ Function VAR2CHAR()
*+ Function onDummy()
*+ Class TExplorer
*+ Class TGrid
*+
*+ Reformatted by Click! 2.05.40 on Oct-24-2022 at 10:29 am
*+
*+--------------------------------------------------------------------
#include "FiveWin.ch"
#include "Constant.ch"
#include "Directry.ch"
#include "COMMON.CH"
#include "TGRID.CH"
#define COLOR_WINDOW 5
#define COLOR_WINDOWTEXT 8
#define COLOR_BTNFACE 15
#define COLOR_BTNSHADOW 16
#define COLOR_BTNHIGHLIGHT 20
#define ID_HEADER 1
#define ID_WIDTH 2
#define ID_ALIGN 3
#define ID_TYPE 4
#define SW_SHOW 5
#define isworking
/********************************************
*
* use your HB_LANG_* and HB_CODEPAGE_*
*
********************************************/
REQUEST HB_LANG_ES
REQUEST HB_LANG_EN
REQUEST HB_LANG_FR
REQUEST HB_LANG_PT
REQUEST HB_LANG_DEWIN
REQUEST HB_LANG_RUWIN
REQUEST HB_LANG_IT
REQUEST HB_LANG_PLWIN
REQUEST HB_LANG_EU
REQUEST HB_LANG_HR852
REQUEST HB_LANG_SLWIN
REQUEST HB_LANG_CSWIN
REQUEST HB_CODEPAGE_BG866
REQUEST HB_CODEPAGE_BGISO
REQUEST HB_CODEPAGE_BGMIK
REQUEST HB_CODEPAGE_BGWIN
REQUEST HB_CODEPAGE_CS852
REQUEST HB_CODEPAGE_CS852C
REQUEST HB_CODEPAGE_CSISO
REQUEST HB_CODEPAGE_CSKAMC
REQUEST HB_CODEPAGE_CSWIN
REQUEST HB_CODEPAGE_DE850
REQUEST HB_CODEPAGE_DE850M
REQUEST HB_CODEPAGE_DEISO
REQUEST HB_CODEPAGE_DEWIN
REQUEST HB_CODEPAGE_DK865
REQUEST HB_CODEPAGE_EL437
REQUEST HB_CODEPAGE_EL737
REQUEST HB_CODEPAGE_ELISO
REQUEST HB_CODEPAGE_ELWIN
REQUEST HB_CODEPAGE_EN
REQUEST HB_CODEPAGE_ES850
REQUEST HB_CODEPAGE_ES850C
REQUEST HB_CODEPAGE_ES850M
REQUEST HB_CODEPAGE_ESISO
REQUEST HB_CODEPAGE_ESMWIN
REQUEST HB_CODEPAGE_ESWIN
REQUEST HB_CODEPAGE_FI850
REQUEST HB_CODEPAGE_FR850
REQUEST HB_CODEPAGE_FR850C
REQUEST HB_CODEPAGE_FR850M
REQUEST HB_CODEPAGE_FRISO
REQUEST HB_CODEPAGE_FRWIN
REQUEST HB_CODEPAGE_HE862
REQUEST HB_CODEPAGE_HEWIN
REQUEST HB_CODEPAGE_HR646
REQUEST HB_CODEPAGE_HR852
REQUEST HB_CODEPAGE_HRISO
REQUEST HB_CODEPAGE_HRWIN
REQUEST HB_CODEPAGE_HU852
REQUEST HB_CODEPAGE_HU852C
REQUEST HB_CODEPAGE_HUISO
REQUEST HB_CODEPAGE_HUWIN
REQUEST HB_CODEPAGE_IS850
REQUEST HB_CODEPAGE_IS861
REQUEST HB_CODEPAGE_IT437
REQUEST HB_CODEPAGE_IT850
REQUEST HB_CODEPAGE_IT850M
REQUEST HB_CODEPAGE_ITISB
REQUEST HB_CODEPAGE_ITISO
REQUEST HB_CODEPAGE_ITWIN
REQUEST HB_CODEPAGE_LT775
REQUEST HB_CODEPAGE_LTWIN
REQUEST HB_CODEPAGE_NL850
REQUEST HB_CODEPAGE_NL850M
REQUEST HB_CODEPAGE_NO865
REQUEST HB_CODEPAGE_PL852
REQUEST HB_CODEPAGE_PLISO
REQUEST HB_CODEPAGE_PLMAZ
REQUEST HB_CODEPAGE_PLWIN
REQUEST HB_CODEPAGE_PT850
REQUEST HB_CODEPAGE_PT860
REQUEST HB_CODEPAGE_PTISO
REQUEST HB_CODEPAGE_RO852
REQUEST HB_CODEPAGE_ROISO
REQUEST HB_CODEPAGE_ROWIN
REQUEST HB_CODEPAGE_RU1251
REQUEST HB_CODEPAGE_RU866
REQUEST HB_CODEPAGE_RUISO
REQUEST HB_CODEPAGE_RUKOI8
REQUEST HB_CODEPAGE_SK852
REQUEST HB_CODEPAGE_SK852C
REQUEST HB_CODEPAGE_SKISO
REQUEST HB_CODEPAGE_SKKAMC
REQUEST HB_CODEPAGE_SKWIN
REQUEST HB_CODEPAGE_SL646
REQUEST HB_CODEPAGE_SL852
REQUEST HB_CODEPAGE_SLISO
REQUEST HB_CODEPAGE_SLWIN
REQUEST HB_CODEPAGE_SR646
REQUEST HB_CODEPAGE_SR646C
REQUEST HB_CODEPAGE_SRWIN
REQUEST HB_CODEPAGE_SV437C
REQUEST HB_CODEPAGE_SV850
REQUEST HB_CODEPAGE_SV850M
REQUEST HB_CODEPAGE_SVISO
REQUEST HB_CODEPAGE_SVWIN
REQUEST HB_CODEPAGE_TR857
REQUEST HB_CODEPAGE_TRISO
REQUEST HB_CODEPAGE_TRWIN
REQUEST HB_CODEPAGE_UA1125
REQUEST HB_CODEPAGE_UA1251
REQUEST HB_CODEPAGE_UA866
REQUEST HB_CODEPAGE_UAKOI8
REQUEST HB_CODEPAGE_UTF16LE
REQUEST HB_CODEPAGE_UTF8
REQUEST HB_CODEPAGE_UTF8EX
STATIC lDebug := .T.
STATIC cVersion := "v0.1.25"
// **********************************************************************
//
// 24.10.2022 v0.1.25 1st Release
//
// **********************************************************************
MEMVAR oWnd, oExplorer, oStatusBar
*+--------------------------------------------------------------------
*+
*+ Procedure Main()
*+
*+--------------------------------------------------------------------
*+
PROCEDURE Main( cPath, cLangCode, cCodepage )
LOCAL oFont
LOCAL nHeight := 1024
LOCAL nWidth := 1280
LOCAL nTop := 0
LOCAL nLeft := 0
LOCAL nIcoLarge := 256
LOCAL nIcoSmall := 32
LOCAL cLog := cFileSetExt( ExeName(), "LOG" )
PRIVATE oWnd
PRIVATE oExplorer
PRIVATE oStatusBar
DEFAULT cPath := hb_Dirbase()
DEFAULT cLangCode := "DEWIN"
DEFAULT cCodepage := "DEWIN"
FW_SetUnicode( .T. ) // is this need ?
hb_LangSelect( cLangCode )
hb_CDPSELECT( cCodepage )
FWLOG TIME(), "Start"
SET DATE GERMAN
DEFINE FONT oFont NAME "TAHOMA" SIZE 0, - 200
#IFDEF __HMG__
END FONT
#ENDIF
DEFINE WINDOW oWnd FROM nTop, nLeft TO nHeight, nWidth PIXEL TITLE "FiveWin TGrid Listview Demo " + cVersion ICON "A1MAIN" MENU BuildMenu()
oExplorer := TExplorer() :New( oWnd, nTop, nLeft, nWidth - 20, nHeight - 20, cPath, nIcoLarge, nIcoSmall )
DEFINE STATUSBAR oStatusBar PROMPT "Hello World " OF oWnd SIZES nWidth - 100 CLOCK
// oStatusBar:SetPartText( 1, "Hello Statusbar" )
// oStatusBar:ClockOn()
#IFDEF __HMG__
END STATUSBAR
END WINDOW
#ENDIF
ACTIVATE WINDOW oWnd ON RESIZE DoResize( oWnd, oExplorer ) CENTER
FWLOG TIME(), "Ende"
// WinExec( "notepad.exe " + cLog )
IF !EMPTY( oFont )
oFont:End()
ENDIF
IF !EMPTY( oExplorer )
oExplorer:Destroy()
ENDIF
IF !EMPTY( oStatusBar )
oStatusBar:End()
ENDIF
IF !EMPTY( oWnd )
oWnd:End()
ENDIF
RETURN
*+--------------------------------------------------------------------
*+
*+ Static Function BUILDMENU()
*+
*+ Called from ( tgrid.prg ) 1 - procedure main()
*+
*+--------------------------------------------------------------------
*+
STATIC FUNCTION BUILDMENU()
LOCAL oMenu
MENU oMenu
MENUITEM "ICON " ACTION oExplorer:oGrid:SetViewStyle( LVS_ICON )
MENUITEM "SMALLICON" ACTION oExplorer:oGrid:SetViewStyle( LVS_SMALLICON )
MENUITEM "LIST " ACTION oExplorer:oGrid:SetViewStyle( LVS_LIST )
MENUITEM "REPORT " ACTION oExplorer:oGrid:SetViewStyle( LVS_REPORT )
ENDMENU
RETURN oMenu
*+--------------------------------------------------------------------
*+
*+ Static Procedure DoResize()
*+
*+ Called from ( tgrid.prg ) 1 - procedure main()
*+
*+--------------------------------------------------------------------
*+
STATIC PROCEDURE DoResize( oWnd, oExplorer )
LOCAL nHeight := oWnd:nHeight
LOCAL nWidth := oWnd:nWidth
oExplorer:oGrid:SetSize( nWidth - 20, nHeight - 80 )
RETURN
*+--------------------------------------------------------------------
*+
*+ Procedure SayBar()
*+
*+ Called from ( tgrid.prg ) 1 - class texplorer
*+
*+--------------------------------------------------------------------
*+
PROCEDURE SayBar( cText, nPart )
DEFAULT nPart := 1
// how does Statusbar work ?
//
// oStatusBar:SetPartText( nPart, cText )
// oStatusBar:SetMsg( cText )
// oWnd:SetMsg( cText )
RETURN
*+--------------------------------------------------------------------
*+
*+ Function VAR2CHAR()
*+
*+ Called from ( tgrid.prg ) 2 - function ondummy()
*+ 6 - class tgrid
*+
*+--------------------------------------------------------------------
*+
FUNCTION VAR2CHAR( cIn )
LOCAL cOut := hb_valToExp( cIn )
RETURN STRTRAN( cOut, '"', '' )
*+--------------------------------------------------------------------
*+
*+ Function onDummy()
*+
*+--------------------------------------------------------------------
*+
FUNCTION onDummy()
LOCAL iMax := PCOUNT()
LOCAL i
LOCAL cText := ""
LOCAL xValue
IF lDebug = .T.
FOR i := 1 TO iMax - 1
cText += Var2Char( PValue( i ) ) + CHR( 9 )
NEXT
cText += Var2Char( PValue( iMax ) )
IF EMPTY( cText )
cText := TIME() + " no Parameter ? " + CRLF + PROCNAME( 1 ) + STR( PROCLINE( 1 ) ) + CRLF + PROCNAME( 2 ) + STR( PROCLINE( 2 ) )
ENDIF
// Fivewin Logfile
FWLOG cText
ENDIF
RETURN NIL
// ******************************* CLASS TExplorer ****************************
*+--------------------------------------------------------------------
*+
*+ Class TExplorer
*+
*+--------------------------------------------------------------------
*+
CLASS TExplorer FROM TGrid
DATA oGrid
METHOD New( oWnd, nTop, nLeft, nWidth, nHeight, cPath, nIcoLarge, nIcoSmall ) CONSTRUCTOR
METHOD DoGetItem( nRow )
METHOD DoLastFolder( cLastPath )
METHOD DoNextFolder( cPath )
METHOD SetStyle( nView )
METHOD FillGrid()
METHOD DoSayItem( nItem )
ENDCLASS
METHOD New( oWnd, nTop, nLeft, nWidth, nHeight, cPath, nIcoLarge, nIcoSmall ) CLASS TExplorer
LOCAL nClrFore := GetSysColor( COLOR_WINDOWTEXT )
LOCAL nClrBack := GetSysColor( COLOR_WINDOW )
LOCAL lPixel := .F.
LOCAL lDesign := .F.
LOCAL cMsg := "hello Fivewin"
LOCAL bAction := nil
LOCAL aHeader := {}
LOCAL aDir
DEFAULT nIcoLarge := 32
DEFAULT nIcoSmall := 16
AADD( aHeader, { "Name", 200, LVCFMT_LEFT, "C" } )
AADD( aHeader, { "Size", 150, LVCFMT_RIGHT, "N" } )
AADD( aHeader, { "Date", 090, LVCFMT_RIGHT, "D" } )
AADD( aHeader, { "Time", 090, LVCFMT_RIGHT, "C" } )
AADD( aHeader, { "Attr", 050, LVCFMT_LEFT, "C" } )
::oGrid := TGrid() :New( nTop, nLeft, bAction, oWnd, nClrFore, ;
nClrBack, lPixel, lDesign, nWidth, nHeight, cMsg, nIcoLarge, nIcoSmall )
::oGrid:aHeader := aHeader
aDir := DIRECTORY( cPath + "*.*", "DHS" )
// remove "."
ADEL( aDir, 1 )
ASIZE( aDir, LEN( aDir ) - 1 )
::oGrid:cPath := cPath
::oGrid:aSource := aDir
::oGrid:InitTheListView()
::oGrid:bClick := { | nItem | ::DoGetItem( nItem ) }
::oGrid:bAction := { | nItem | ::DoSayItem( nItem ) }
::FillGrid()
RETURN Self
METHOD DoSayItem( nRow ) CLASS TExplorer
LOCAL cRet := ""
LOCAL hWnd := ::oGrid:hWnd
LOCAL nCol := 1 // only F_NAME
LOCAL cPath := ::oGrid:cPath
cRet := LV_GETITEMTEXT( hWnd, nRow, nCol )
// how does Statusbar work ?
//
::oGrid:cMsg := cPath + cRet
RETURN cRet
METHOD DoGetItem( nRow ) CLASS TExplorer
LOCAL cRet := ""
LOCAL hWnd := ::oGrid:hWnd
LOCAL nCol := 1 // only F_NAME
LOCAL cPath := ::oGrid:cPath
LOCAL aSource := ::oGrid:aSource
LOCAL nPosi, cAttr
// when using LVN_GETDISPINFO you NEED Source Array
// cRet := ::aSource[nRow][nCol]
cRet := LV_GETITEMTEXT( hWnd, nRow, nCol )
nPosi := ASCAN( aSource, { | x | x[ F_NAME ] = TRIM( cRet ) } )
IF nPosi > 0
cAttr := aSource[ nPosi ] [ F_ATTR ]
DO CASE
CASE TRIM( cRet ) = ".."
::DoLastFolder( TRIM( cPath ) )
CASE TRIM( cRet ) = "."
OTHERWISE
IF "D" $ cAttr
::DoNextFolder( TRIM( cPath + cRet ) )
ELSE
// MsgInfo( cPath + cRet )
ShellExecute( oWnd:hWnd, "Open", cPath + cRet,,, SW_SHOW )
ENDIF
ENDCASE
ELSE
MsgInfo( cRet + " not found in Folder " + cPath )
ENDIF
RETURN cRet
METHOD DoLastFolder( cLastPath ) CLASS TExplorer
LOCAL cPath
LOCAL nPosi
LOCAL aToken
LOCAL cFolder
nPosi := hb_RAt( "\", cLastPath, 1, LEN( cLastPath ) - 1 )
IF nPosi > 0
cPath := SUBSTR( cLastPath, 1, nPosi - 1 )
cFolder := SUBSTR( cLastPath, nPosi )
cFolder := TRIM( STRTRAN( cFolder, "\", "" ) )
::DoNextFolder( cPath, cFolder )
ENDIF
RETURN nil
METHOD DoNextFolder( cPath, cFolder ) CLASS TExplorer
LOCAL cRet := ""
LOCAL aDir
LOCAL nPosi, nMax
DEFAULT cFolder := ""
aDir := DIRECTORY( cPath + "\*.*", "DHS" )
// remove "."
ADEL( aDir, 1 )
ASIZE( aDir, LEN( aDir ) - 1 )
::cPath := cPath + "\"
::aSource := aDir
::FillGrid()
nMax := LEN( ::aSource )
// need for LVS_OWNERDATA / ::OnDISPINFO()
LV_SETITEMCOUNT( ::hLv, nMax )
IF !EMPTY( cFolder )
nPosi := ASCAN( aDir, { | e | LOWER( e[ F_NAME ] ) = LOWER( cFolder ) } )
IF nPosi > 0
LV_SETITEMSELECT( ::hLv, nPosi )
ELSE
msginfo( "not found Folder " + cFolder )
ENDIF
ENDIF
RETURN cRet
METHOD SetStyle( nView ) CLASS TExplorer
DEFAULT nView := LVS_REPORT
DO CASE
CASE nView = LVS_ICON
::SetViewStyle( LVS_ICON )
CASE nView = LVS_SMALLICON
::SetViewStyle( LVS_SMALLICON )
CASE nView = LVS_LIST
::SetViewStyle( LVS_LIST )
CASE nView = LVS_REPORT
::SetViewStyle( LVS_REPORT )
ENDCASE
RETURN self
METHOD FillGrid() CLASS TExplorer
LOCAL ii, nMax, aItem, iImage, iImage_0, cFile, hBitMap, aBitmaps, cExt
LV_HIDEWINDOW( ::hLv )
SendMessage( ::hLv, LVM_DELETEALLITEMS, 0, 0 )
ImageList_RemoveAll( ::oImageListSmall )
ImageList_RemoveAll( ::oImageListBig )
nMax := LEN( ::aSource )
// slow Way i a loop
FOR ii := 1 TO nmax
aItem := { ::aSource[ ii ] [ F_NAME ], STR( ::aSource[ ii ] [ F_SIZE ] ), DTOC( ::aSource[ ii ] [ F_DATE ] ), ::aSource[ ii ] [ F_TIME ], ::aSource[ ii ] [ F_ATTR ] }
cFile := ::aSource[ ii ] [ F_NAME ]
SayBar( cFile )
// ::cMsg := cFile
SysRefresh()
cExt := UPPER( cFileExt( cFile ) )
IF cExt $ "BMP,JPG,PNG,GIF,ICO,CUR,DLL,JPEG,TIF,TIFF,EMF,WMF"
// ******** small Icon ********
// make it +10 Pixel bigger while RESIZEBMP() do NOT change Aspect Ratio
#IFDEF isworking
aBitmaps := ::ReadImage( ::cPath + cFile, { ::nIcoSmall + 10, ::nIcoSmall + 10 } )
iImage_0 := aBitmaps[ 1 ]
#ELSE
// return HIMAGELIST
iImage_0 := ::oImageListSmall:ReadBitmap( ::cPath + cFile, ::nIcoSmall + 10, 10 )
#ENDIF
// change Aspect Ratio while else might not display
iImage_0 := RESIZEBMP( iImage_0, ::nIcoSmall, ::nIcoSmall, .T. )
ILADD( ::oImageListSmall:hImageList, iImage_0 )
PalBmpFree(aBitmaps)
// ******** big Icon **********
#IFDEF isworking
aBitmaps := ::ReadImage( ::cPath + cFile, { ::nIcoLarge + ::nIcoSmall, ::nIcoLarge + ::nIcoSmall } )
iImage := aBitmaps[ 1 ]
#ELSE
// return HIMAGELIST
iImage := ::oImageListBig:ReadBitmap( ::cPath + cFile, ::nIcoLarge + ::nIcoSmall, 10 )
#ENDIF
// change Aspect Ratio while else might not display
iImage := RESIZEBMP( iImage, ::nIcoLarge, ::nIcoLarge, .T. )
iImage := MAX( 0, ILADD( ::oImageListBig:hImageList, iImage ) )
PalBmpFree(aBitmaps)
ELSE
// search for System Icon
iImage := Icon_Read( cFile )
ILADDICON( ::oImageListSmall:hImageList, iImage )
iImage := MAX( 0, ILADDICON( ::oImageListBig:hImageList, iImage ) )
ENDIF
LV_ADDITEMS( ::hLv, aItem, iImage )
NEXT
LV_SHOWWINDOW( ::hLv )
// SayBar("")
// ::cMsg := ""
::RefreshAll()
LV_SETITEMSTATE( ::hLv, 1, nOr( LVIS_FOCUSED, LVIS_SELECTED ), nOr( LVIS_SELECTED, LVIS_FOCUSED ) )
LV_ENSUREVISIBLE( ::hLv, 1 )
RETURN self
// ******************************* CLASS TGrid ****************************
*+--------------------------------------------------------------------
*+
*+ Class TGrid
*+
*+--------------------------------------------------------------------
*+
CLASS TGrid FROM TControl
CLASSDATA aProperties INIT { "nAlign", "nClrText", "nClrPane", "nOption", ;
"nTop", "nLeft", "nWidth", "nHeight", "Cargo" }
DATA aItems INIT {}
DATA aGroups INIT {}
DATA bAction, bDisplay
DATA bClick
DATA nOption
DATA nGroups INIT 0
DATA aSource INIT {}
DATA aHeader INIT {}
DATA oLVCol
DATA oLVItem
DATA aEvents INIT {}
DATA bOnEvent
DATA view
DATA hLv
DATA oImageListBig, oImageListSmall
DATA hFont
DATA cPath
DATA nIcoLarge INIT 32
DATA nIcoSmall INIT 16
METHOD New( nTop, nLeft, bAction, oWnd, nClrFore, ;
nClrBack, lPixel, lDesign, nWidth, nHeight, ;
cMsg, nIcoLarge, nIcoSmall ) CONSTRUCTOR
METHOD ReDefine( nId, oWnd, bAction ) CONSTRUCTOR
METHOD Notify( nIdCtrl, nPtrNMHDR )
METHOD OnEvent( nEvent, aParams, pParams )
METHOD SetImageList( oImageList, nType )
METHOD InitTheListView()
METHOD Destroy()
METHOD OnDISPINFO()
METHOD SetViewStyle()
METHOD HandleEvent( nMsg, nWParam, nLParam )
METHOD RefreshAll()
METHOD RefreshCurrent( nRec )
METHOD UnMarkAll( lAll )
ENDCLASS
METHOD New( nTop, nLeft, bAction, oWnd, nClrFore, ;
nClrBack, lPixel, lDesign, nWidth, nHeight, cMsg, nIcoLarge, nIcoSmall ) CLASS TGrid
DEFAULT nTop := 0, nLeft := 0, ;
oWnd := GetWndDefault(), ;
nClrFore := oWnd:nClrText, ;
nClrBack := GetSysColor( COLOR_BTNFACE ), ;
lPixel := .f., ;
lDesign := .f., ;
nWidth := 200, nHeight := 21, ;
nIcoLarge := 32, nIcoSmall := 16
::view := LVS_REPORT
::nStyle := nOR( LVS_SHAREIMAGELISTS, WS_CHILD, WS_VISIBLE, IF( lDesign, WS_CLIPSIBLINGS, 0 ), WS_TABSTOP, WS_BORDER, LVS_SHOWSELALWAYS, LVS_AUTOARRANGE , LVS_SINGLESEL, ::view )
// LVS_OWNERDATA
::nId := ::GetNewId()
::oWnd := oWnd
::bAction := bAction
::cMsg := cMsg
::nTop := IF( lPixel, nTop, nTop * SAY_CHARPIX_H )
::nLeft := IF( lPixel, nLeft, nLeft * SAY_CHARPIX_W )
::nBottom := ::nTop + nHeight - 1
::nRight := ::nLeft + nWidth - 1
::lDrag := lDesign
::lCaptured := .f.
::oFont := TFont() :New( "Ms Sans Serif", 0, - 20 )
::nClrText := nClrFore
::nClrPane := nClrBack
::nOption := 1
::bDisplay := { | nPtrNMHDR | ::OnDISPINFO( nPtrNMHDR ) }
::cPath := hb_Dirbase()
IF !EMPTY( oWnd:hWnd )
::Create( CTRL_CLASS )
oWnd:AddControl( Self )
ELSE
oWnd:DefControl( Self )
ENDIF
// ::Default() ???
IF lDesign // what is this ?
::CheckDots()
ENDIF
// handle of Listview
::hLv := ::hWnd
// set FONT
::hFont := ::hFont
SendMessage( ::hLv, WM_SETFONT, ::hFont, 0 )
// set FULLROWSELECT
LV_CHANGEEXTENDEDSTYLE( ::hLv, nOr( LVS_EX_GRIDLINES, LVS_EX_FULLROWSELECT, LVS_EX_DOUBLEBUFFER ) )
// Icon Size
::nIcoLarge := nIcoLarge
::nIcoSmall := nIcoSmall
::oImageListBig := TImageList() :New( nIcoLarge, nIcoLarge )
::oImageListSmall := TImageList() :New( nIcoSmall, nIcoSmall )
::SetImageList( ::oImageListBig, LVSIL_NORMAL )
::SetImageList( ::oImageListSmall, LVSIL_SMALL )
RETURN Self
METHOD ReDefine( nId, oWnd, bAction ) CLASS TGrid // unknown
DEFAULT oWnd := GetWndDefault()
::nId := nId
::oWnd := oWnd
::bAction := bAction
oWnd:DefControl( Self )
RETURN Self
METHOD Destroy() CLASS TGrid
::oImageListBig:End() // ILDESTROY ?
::oImageListSmall:End()
::End()
RETURN Self
METHOD InitTheListView() CLASS TGrid
LOCAL nCol, nMax
LOCAL nWidth, cCaption, nJustify
FOR nCol := 1 TO LEN( ::aHeader )
nWidth := ::aHeader[ nCol ] [ ID_WIDTH ]
cCaption := VAR2CHAR( ::aHeader[ nCol ] [ ID_HEADER ] ) + CHR( 0 )
nJustify := ::aHeader[ nCol ] [ ID_ALIGN ]
LV_INSERTCOLUMN( ::hLv, nCol, nWidth, cCaption, nJustify ) // Call C-Level Routine (source c_grid.c)
NEXT
nMax := LEN( ::aSource )
// need for LVS_OWNERDATA / ::OnDISPINFO()
LV_SETITEMCOUNT( ::hLv, nMax )
RETURN self
METHOD Notify( nIdCtrl, nPtrNMHDR ) CLASS TGrid
LOCAL nCode := GetNMHDRCode( nPtrNMHDR )
LOCAL nKey
STATIC nOption
DO CASE
CASE nCode == NM_DBLCLK
nOption = GetNMListViewItem( nPtrNMHDR ) + 1
IF ::bClick != nil
::nOption := nOption
EVAL( ::bClick, ::nOption, Self )
ENDIF
CASE nCode == LVN_ITEMCHANGED
nOption = GetNMListViewItem( nPtrNMHDR ) + 1
IF ::nOption != nOption
::nOption := nOption
IF ::bAction != nil
EVAL( ::bAction, ::nOption, Self )
ENDIF
ENDIF
CASE nCode == LVN_GETDISPINFO
nOption = GetNMListViewItem( nPtrNMHDR ) + 1
FWLOG TIME(), "LVN_GETDISPINFO", VAR2CHAR( nOption )
IF ::bDisplay != nil
::nOption := nOption
EVAL( ::bDisplay, ::nOption, Self )
ENDIF
CASE nCode == LVN_KEYDOWN
// nOption = GetNMListViewItem( nPtrNMHDR ) + 1
nKey := LV_GETGRIDVKEY( nPtrNMHDR )
IF nKey = 13
IF ::bClick != nil
// ::nOption := nOption
// use last from LVN_ITEMCHANGED
EVAL( ::bClick, ::nOption, Self )
ENDIF
ENDIF
ENDCASE
RETURN nil
METHOD OnDISPINFO( nPtrNMHDR ) CLASS TGrid // unused
LOCAL st
LOCAL nRec
LOCAL nSub
LOCAL ctext
LOCAL bSaveError, oError
LOCAL aItem
FWLOG TIME(), "OnDISPINFO", VAR2CHAR( nPtrNMHDR )
aItem := LV_GETGRIDDISPINFOINDEX( nPtrNMHDR )
SysRefresh()
// aItem := LV_DISPINFO( nPtrNMHDR )
msgInfo( VAR2CHAR( aItem ) )
FWLOG TIME(), VAR2CHAR( nPtrNMHDR ), VAR2CHAR( aItem )
/***************************
st := LVDISPINFO():New()
st:pszText := REPLICATE(CHR(0),255)
st:cchTextMax := 255
// ZERO-based :iItem and :iSubItem
//
nRec := st:iItem // Array ZERO-based+1
nSub := st:iSubItem+1
// use Array ::aSource
//
ctext := ::aSource[nRec+1][nSub]
bSaveError := ErrorBlock()
ErrorBlock( {|e|Break(e)} )
BEGIN SEQUENCE
DO CASE
CASE VALTYPE(cText) = "C" ; cText := TRIM(cText)
CASE VALTYPE(cText) = "N" ; cText := Transform(cText, "999,999,999,999" )
CASE VALTYPE(cText) = "D" ; cText := DTOC(cText)
CASE VALTYPE(cText) = "L" ; cText := IF(cText,"Y","N")
ENDCASE
// Assign Array Text to Display
//
st:pszText := ctext // +CHR(0)
RECOVER USING oError
ErrorBlock( bSaveError )
END SEQUENCE
ErrorBlock( bSaveError )
***************************/
RETURN 0
METHOD OnEvent( nEvent, aParams, pParams ) CLASS TGrid // unused
LOCAL nAt := ASCAN( ::aEvents, { | aEvent | aEvent[ 2 ] == nEvent } )
LOCAL cEvent := IF( nAt != 0, ::aEvents[ nAt ] [ 1 ], "" )
IF !EMPTY( ::bOnEvent )
EVAL( ::bOnEvent, IF( !EMPTY( cEvent ), cEvent, nEvent ), aParams, pParams )
ENDIF
RETURN nil
METHOD SetImageList( oImageList, nType ) CLASS TGrid
LOCAL nResult
DEFAULT nType := LVSIL_NORMAL
nResult = SendMessage( ::hLv, LVM_SETIMAGELIST, nType, oImageList:hImageList )
SysRefresh()
RETURN nResult
METHOD SetViewStyle( nView ) CLASS TGrid
DEFAULT nView := LVS_REPORT
DO CASE
CASE nView = LVS_ICON
::nStyle := nOR( LVS_SHAREIMAGELISTS, WS_CHILD, WS_VISIBLE, WS_TABSTOP, WS_BORDER, LVS_SHOWSELALWAYS, LVS_AUTOARRANGE , LVS_SINGLESEL, LVS_ICON )
CASE nView = LVS_SMALLICON
::nStyle := nOR( LVS_SHAREIMAGELISTS, WS_CHILD, WS_VISIBLE, WS_TABSTOP, WS_BORDER, LVS_SHOWSELALWAYS, LVS_AUTOARRANGE , LVS_SINGLESEL, LVS_SMALLICON )
CASE nView = LVS_LIST
::nStyle := nOR( LVS_SHAREIMAGELISTS, WS_CHILD, WS_VISIBLE, WS_TABSTOP, WS_BORDER, LVS_SHOWSELALWAYS, LVS_AUTOARRANGE , LVS_SINGLESEL, LVS_LIST )
CASE nView = LVS_REPORT
::nStyle := nOR( LVS_SHAREIMAGELISTS, WS_CHILD, WS_VISIBLE, WS_TABSTOP, WS_BORDER, LVS_SHOWSELALWAYS, LVS_AUTOARRANGE , LVS_SINGLESEL, LVS_REPORT )
ENDCASE
SetWindowLong( ::hLv, GWL_STYLE, ::nStyle )
::view := nView
REDRAWWINDOW( ::hLv )
UpdateWindow( ::hLv )
RETURN nView
METHOD HandleEvent( nMsg, nWParam, nLParam ) CLASS TGrid // unused
DO CASE
// use for LVS_OWNERDRAWFIXED
CASE nMsg == WM_MEASUREITEM
CASE nMsg == WM_DRAWITEM
ENDCASE
RETURN ::HandleEvent( nMsg, nWParam, nLParam )
METHOD RefreshAll() CLASS TGrid
LOCAL nCount := LV_GetCountPerPage( ::hLv )
LOCAL nTopNo := LV_GetTopIndex( ::hLv )
LV_RedrawItems( ::hLv, nTopNo, nTopNo + nCount )
RETURN self
METHOD RefreshCurrent( nRec ) CLASS TGrid
LV_RedrawItems( ::hLv, nRec, nRec )
RETURN self
METHOD UnMarkAll( lAll ) CLASS TGrid
LOCAL iMax := LV_GETSELECTEDCOUNT( ::hLv )
LOCAL nCount := 0
LOCAL nSel
DEFAULT lAll := .T.
// zurest den markierten
nSel := LV_GetSelectionMark( ::hLv )
LV_SETITEMSTATE( ::hLv, nSel, 0, nOr( LVIS_SELECTED, LVIS_FOCUSED ) )
iMax := LV_GETSELECTEDCOUNT( ::hLv )
IF iMax > 0
nSel := LV_GETNEXTITEM( ::hLv, - 1, nOr( LVNI_SELECTED ) )
LV_SETITEMSTATE( ::hLv, nSel, 0, nOr( LVIS_SELECTED, LVIS_FOCUSED ) )
DO WHILE .T.
nSel := LV_GETNEXTITEM( ::hLv, nSel, nOr( LVNI_SELECTED ) )
nCount ++
IF nSel > 0
LV_SETITEMSTATE( ::hLv, nSel, 0, nOr( LVIS_SELECTED, LVIS_FOCUSED ) )
ELSE
EXIT
ENDIF
IF nCount > iMax
EXIT
ENDIF
ENDDO
ENDIF
RETURN self
//
// how to use Project File and List of *.PRG ?
//
#include "HB_FUNC.PRG"
