property ExShellView.DrawGridLines as Boolean
Specifies whether the control shows the grid lines arround items, when the control's view is details.

TypeDescription
Boolean A Boolean expression that specifies whether the control shows the grid lines around items/files/folders.
By default, the DrawGridLines property is False, which indicates that no grid lines are displayed around the items. The DrawGridLines property has effect while the control's ViewMode property is Details. 

The following screen shot shows the view with grid lines around the files/folders:

The following samples shows the grid lines around the files/folders:

VBA (MS Access, Excell...)

With ExShellView1
	.ViewMode = 4
	.DrawGridLines = True
	.Refresh 
End With

VB6

With ExShellView1
	.ViewMode = Details
	.DrawGridLines = True
	.Refresh 
End With

VB.NET

With Exshellview1
	.ViewMode = exontrol.EXSHELLVIEWLib.ViewModeType.Details
	.DrawGridLines = True
	.Refresh()
End With

VB.NET for /COM

With AxExShellView1
	.ViewMode = EXSHELLVIEWLib.ViewModeType.Details
	.DrawGridLines = True
	.Refresh()
End With

C++

/*
	Copy and paste the following directives to your header file as
	it defines the namespace 'EXSHELLVIEWLib' for the library: 'ExShellView 1.0 Control Library'

	#import <ExShellView.dll>
	using namespace EXSHELLVIEWLib;
*/
EXSHELLVIEWLib::IExShellViewPtr spExShellView1 = GetDlgItem(IDC_EXSHELLVIEW1)->GetControlUnknown();
spExShellView1->PutViewMode(EXSHELLVIEWLib::Details);
spExShellView1->PutDrawGridLines(VARIANT_TRUE);
spExShellView1->Refresh();

C++ Builder

ExShellView1->ViewMode = Exshellviewlib_tlb::ViewModeType::Details;
ExShellView1->DrawGridLines = true;
ExShellView1->Refresh();

C#

exshellview1.ViewMode = exontrol.EXSHELLVIEWLib.ViewModeType.Details;
exshellview1.DrawGridLines = true;
exshellview1.Refresh();

JScript/JavaScript

<BODY onload='Init()'>
<OBJECT CLASSID="clsid:B4E1F234-AF0D-4EAD-8113-A563B40E71CA" id="ExShellView1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	ExShellView1.ViewMode = 4;
	ExShellView1.DrawGridLines = true;
	ExShellView1.Refresh();
}
</SCRIPT>
</BODY>

VBScript

<BODY onload='Init()'>
<OBJECT CLASSID="clsid:B4E1F234-AF0D-4EAD-8113-A563B40E71CA" id="ExShellView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExShellView1
		.ViewMode = 4
		.DrawGridLines = True
		.Refresh 
	End With
End Function
</SCRIPT>
</BODY>

C# for /COM

axExShellView1.ViewMode = EXSHELLVIEWLib.ViewModeType.Details;
axExShellView1.DrawGridLines = true;
axExShellView1.Refresh();

X++ (Dynamics Ax 2009)

public void init()
{
	;

	super();

	exshellview1.ViewMode(4/*Details*/);
	exshellview1.DrawGridLines(true);
	exshellview1.Refresh();
}

Delphi 8 (.NET only)

with AxExShellView1 do
begin
	ViewMode := EXSHELLVIEWLib.ViewModeType.Details;
	DrawGridLines := True;
	Refresh();
end

Delphi (standard)

with ExShellView1 do
begin
	ViewMode := EXSHELLVIEWLib_TLB.Details;
	DrawGridLines := True;
	Refresh();
end

VFP

with thisform.ExShellView1
	.ViewMode = 4
	.DrawGridLines = .T.
	.Refresh
endwith

dBASE Plus

local oExShellView

oExShellView = form.Activex1.nativeObject
oExShellView.ViewMode = 4
oExShellView.DrawGridLines = true
oExShellView.Refresh()

XBasic (Alpha Five)

Dim oExShellView as P

oExShellView = topparent:CONTROL_ACTIVEX1.activex
oExShellView.ViewMode = 4
oExShellView.DrawGridLines = .t.
oExShellView.Refresh()

Visual Objects


oDCOCX_Exontrol1:ViewMode := Details
oDCOCX_Exontrol1:DrawGridLines := true
oDCOCX_Exontrol1:Refresh()

PowerBuilder

OleObject oExShellView

oExShellView = ole_1.Object
oExShellView.ViewMode = 4
oExShellView.DrawGridLines = true
oExShellView.Refresh()

Visual DataFlex

Procedure OnCreate
	Forward Send OnCreate
	Set ComViewMode to OLEDetails
	Set ComDrawGridLines to True
	Send ComRefresh
End_Procedure

XBase++

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oExShellView

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oExShellView := XbpActiveXControl():new( oForm:drawingArea )
	oExShellView:CLSID  := "Exontrol.ShellView.1" /*{B4E1F234-AF0D-4EAD-8113-A563B40E71CA}*/
	oExShellView:create(,, {10,60},{610,370} )

		oExShellView:ViewMode := 4/*Details*/
		oExShellView:DrawGridLines := .T.
		oExShellView:Refresh()

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN