Enrico,
Excellent
I also tried it but my code had a mistake so I thought that the implementation was going to be more complex.
Very good!
Enrico,
Excellent
I also tried it but my code had a mistake so I thought that the implementation was going to be more complex.
Very good!
METHOD Initiate( hDlg ) INLINE Super:Initiate( hDlg ), ::SetColor( ::nClrText, ::nClrPane )
METHOD SetColor( nClrText, nClrPane ) INLINE ;
Super:SetColor( nClrText, nClrPane ), TVSetColor( ::hWnd, nClrText, nClrPane ) if ! Empty( oWnd:hWnd )
::Create( CTRL_NAME )
oWnd:AddControl( Self )
::SetColor( nClrFore, nClrBack ) // New !CLIPPER TVSETCOLOR( PARAMS ) // hWnd, nClrFore, nClrBack
{
TreeView_SetBkColor( ( HWND ) _parnl( 1 ), _parnl( 3 ) );
TreeView_SetTextColor( ( HWND ) _parnl( 1 ), _parnl( 2 ) );
} @ 0, 0 TREEVIEW oTree COLOR CLR_WHITE, CLR_GREEN
CLIPPER TVSETCOLOR( PARAMS ) // hWnd, nClrFore, nClrBack
{
TreeView_SetBkColor( ( HWND ) _parnl( 1 ), _parnl( 3 ) );
TreeView_SetTextColor( ( HWND ) _parnl( 1 ), _parnl( 2 ) );
}
Ramesh,
Into source\winapi\treeview.c
Warning W8019 treeview.c 234: Code has no effect in function TVSETCOLOR
Warning W8019 treeview.c 235: Code has no effect in function TVSETCOLOR
Ramesh,
You can ignore those warnings.