property Tree.FilterBarPromptPattern as String
Specifies the pattern for the filter prompt.

 TypeDescription 
   String A string expression that specifies the pattern to filter the list.  
By default, the FilterBarPromptPattern property is empty. If the FilterBarPromptPattern property is empty, the filter bar displays the FilterBarPrompt property, if the FilterBarPromptVisible property is True. The FilterBarPromptPattern property indicates the patter to filter the list. The pattern may include wild characters if the FilterBarPromptType property is exFilterPromptPattern. The FilterBarPromptColumns specifies the list of columns to be used when filtering. Changing the FilterBarPromptPattern property does not require calling the ApplyFilter method to apply the new filter, only if filtering is required right a way.

The following samples shows the filter prompt, and filter for items that contains "london":

Access

With Tree1
	.BeginUpdate 
	.ColumnAutoResize = True
	.ContinueColumnScroll = 0
	.MarkSearchColumn = False
	.SearchColumnIndex = 1
	.FilterBarPromptVisible = True
	.FilterBarPromptPattern = "london"
	With .Columns
		.Add("Name").Width = 96
		.Add("Title").Width = 96
		.Add "City"
	End With
	With .Items
		h0 = .AddItem("Nancy Davolio")
		.CellCaption(h0,1) = "Sales Representative"
		.CellCaption(h0,2) = "Seattle"
		h0 = .AddItem("Andrew Fuller")
		.CellCaption(h0,1) = "Vice President, Sales"
		.CellCaption(h0,2) = "Tacoma"
		.SelectItem(h0) = 1
		h0 = .AddItem("Janet Leverling")
		.CellCaption(h0,1) = "Sales Representative"
		.CellCaption(h0,2) = "Kirkland"
		h0 = .AddItem("Margaret Peacock")
		.CellCaption(h0,1) = "Sales Representative"
		.CellCaption(h0,2) = "Redmond"
		h0 = .AddItem("Steven Buchanan")
		.CellCaption(h0,1) = "Sales Manager"
		.CellCaption(h0,2) = "London"
		h0 = .AddItem("Michael Suyama")
		.CellCaption(h0,1) = "Sales Representative"
		.CellCaption(h0,2) = "London"
		h0 = .AddItem("Robert King")
		.CellCaption(h0,1) = "Sales Representative"
		.CellCaption(h0,2) = "London"
		h0 = .AddItem("Laura Callahan")
		.CellCaption(h0,1) = "Inside Sales Coordinator"
		.CellCaption(h0,2) = "Seattle"
		h0 = .AddItem("Anne Dodsworth")
		.CellCaption(h0,1) = "Sales Representative"
		.CellCaption(h0,2) = "London"
	End With
	.EndUpdate 
End With

C++

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

	#import <ExTree.dll>
	using namespace EXTREELib;
*/
EXTREELib::ITreePtr spTree1 = GetDlgItem(IDC_TREE1)->GetControlUnknown();
spTree1->BeginUpdate();
spTree1->PutColumnAutoResize(VARIANT_TRUE);
spTree1->PutContinueColumnScroll(VARIANT_FALSE);
spTree1->PutMarkSearchColumn(VARIANT_FALSE);
spTree1->PutSearchColumnIndex(1);
spTree1->PutFilterBarPromptVisible(VARIANT_TRUE);
spTree1->PutFilterBarPromptPattern(L"london");
EXTREELib::IColumnsPtr var_Columns = spTree1->GetColumns();
	((EXTREELib::IColumnPtr)(var_Columns->Add(L"Name")))->PutWidth(96);
	((EXTREELib::IColumnPtr)(var_Columns->Add(L"Title")))->PutWidth(96);
	var_Columns->Add(L"City");
EXTREELib::IItemsPtr var_Items = spTree1->GetItems();
	long h0 = var_Items->AddItem("Nancy Davolio");
	var_Items->PutCellCaption(h0,long(1),"Sales Representative");
	var_Items->PutCellCaption(h0,long(2),"Seattle");
	h0 = var_Items->AddItem("Andrew Fuller");
	var_Items->PutCellCaption(h0,long(1),"Vice President, Sales");
	var_Items->PutCellCaption(h0,long(2),"Tacoma");
	var_Items->PutSelectItem(h0,VARIANT_TRUE);
	h0 = var_Items->AddItem("Janet Leverling");
	var_Items->PutCellCaption(h0,long(1),"Sales Representative");
	var_Items->PutCellCaption(h0,long(2),"Kirkland");
	h0 = var_Items->AddItem("Margaret Peacock");
	var_Items->PutCellCaption(h0,long(1),"Sales Representative");
	var_Items->PutCellCaption(h0,long(2),"Redmond");
	h0 = var_Items->AddItem("Steven Buchanan");
	var_Items->PutCellCaption(h0,long(1),"Sales Manager");
	var_Items->PutCellCaption(h0,long(2),"London");
	h0 = var_Items->AddItem("Michael Suyama");
	var_Items->PutCellCaption(h0,long(1),"Sales Representative");
	var_Items->PutCellCaption(h0,long(2),"London");
	h0 = var_Items->AddItem("Robert King");
	var_Items->PutCellCaption(h0,long(1),"Sales Representative");
	var_Items->PutCellCaption(h0,long(2),"London");
	h0 = var_Items->AddItem("Laura Callahan");
	var_Items->PutCellCaption(h0,long(1),"Inside Sales Coordinator");
	var_Items->PutCellCaption(h0,long(2),"Seattle");
	h0 = var_Items->AddItem("Anne Dodsworth");
	var_Items->PutCellCaption(h0,long(1),"Sales Representative");
	var_Items->PutCellCaption(h0,long(2),"London");
spTree1->EndUpdate();

C#

extree1.BeginUpdate();
extree1.ColumnAutoResize = true;
extree1.ContinueColumnScroll = false;
extree1.MarkSearchColumn = false;
extree1.SearchColumnIndex = 1;
extree1.FilterBarPromptVisible = true;
extree1.FilterBarPromptPattern = "london";
exontrol.EXTREELib.Columns var_Columns = extree1.Columns;
	(var_Columns.Add("Name") as exontrol.EXTREELib.Column).Width = 96;
	(var_Columns.Add("Title") as exontrol.EXTREELib.Column).Width = 96;
	var_Columns.Add("City");
exontrol.EXTREELib.Items var_Items = extree1.Items;
	int h0 = var_Items.AddItem("Nancy Davolio");
	var_Items.set_CellCaption(h0,1,"Sales Representative");
	var_Items.set_CellCaption(h0,2,"Seattle");
	h0 = var_Items.AddItem("Andrew Fuller");
	var_Items.set_CellCaption(h0,1,"Vice President, Sales");
	var_Items.set_CellCaption(h0,2,"Tacoma");
	var_Items.set_SelectItem(h0,1);
	h0 = var_Items.AddItem("Janet Leverling");
	var_Items.set_CellCaption(h0,1,"Sales Representative");
	var_Items.set_CellCaption(h0,2,"Kirkland");
	h0 = var_Items.AddItem("Margaret Peacock");
	var_Items.set_CellCaption(h0,1,"Sales Representative");
	var_Items.set_CellCaption(h0,2,"Redmond");
	h0 = var_Items.AddItem("Steven Buchanan");
	var_Items.set_CellCaption(h0,1,"Sales Manager");
	var_Items.set_CellCaption(h0,2,"London");
	h0 = var_Items.AddItem("Michael Suyama");
	var_Items.set_CellCaption(h0,1,"Sales Representative");
	var_Items.set_CellCaption(h0,2,"London");
	h0 = var_Items.AddItem("Robert King");
	var_Items.set_CellCaption(h0,1,"Sales Representative");
	var_Items.set_CellCaption(h0,2,"London");
	h0 = var_Items.AddItem("Laura Callahan");
	var_Items.set_CellCaption(h0,1,"Inside Sales Coordinator");
	var_Items.set_CellCaption(h0,2,"Seattle");
	h0 = var_Items.AddItem("Anne Dodsworth");
	var_Items.set_CellCaption(h0,1,"Sales Representative");
	var_Items.set_CellCaption(h0,2,"London");
extree1.EndUpdate();

C# for /COM

axTree1.BeginUpdate();
axTree1.ColumnAutoResize = true;
axTree1.ContinueColumnScroll = false;
axTree1.MarkSearchColumn = false;
axTree1.SearchColumnIndex = 1;
axTree1.FilterBarPromptVisible = true;
axTree1.FilterBarPromptPattern = "london";
EXTREELib.Columns var_Columns = axTree1.Columns;
	(var_Columns.Add("Name") as EXTREELib.Column).Width = 96;
	(var_Columns.Add("Title") as EXTREELib.Column).Width = 96;
	var_Columns.Add("City");
EXTREELib.Items var_Items = axTree1.Items;
	int h0 = var_Items.AddItem("Nancy Davolio");
	var_Items.set_CellCaption(h0,1,"Sales Representative");
	var_Items.set_CellCaption(h0,2,"Seattle");
	h0 = var_Items.AddItem("Andrew Fuller");
	var_Items.set_CellCaption(h0,1,"Vice President, Sales");
	var_Items.set_CellCaption(h0,2,"Tacoma");
	var_Items.set_SelectItem(h0,true);
	h0 = var_Items.AddItem("Janet Leverling");
	var_Items.set_CellCaption(h0,1,"Sales Representative");
	var_Items.set_CellCaption(h0,2,"Kirkland");
	h0 = var_Items.AddItem("Margaret Peacock");
	var_Items.set_CellCaption(h0,1,"Sales Representative");
	var_Items.set_CellCaption(h0,2,"Redmond");
	h0 = var_Items.AddItem("Steven Buchanan");
	var_Items.set_CellCaption(h0,1,"Sales Manager");
	var_Items.set_CellCaption(h0,2,"London");
	h0 = var_Items.AddItem("Michael Suyama");
	var_Items.set_CellCaption(h0,1,"Sales Representative");
	var_Items.set_CellCaption(h0,2,"London");
	h0 = var_Items.AddItem("Robert King");
	var_Items.set_CellCaption(h0,1,"Sales Representative");
	var_Items.set_CellCaption(h0,2,"London");
	h0 = var_Items.AddItem("Laura Callahan");
	var_Items.set_CellCaption(h0,1,"Inside Sales Coordinator");
	var_Items.set_CellCaption(h0,2,"Seattle");
	h0 = var_Items.AddItem("Anne Dodsworth");
	var_Items.set_CellCaption(h0,1,"Sales Representative");
	var_Items.set_CellCaption(h0,2,"London");
axTree1.EndUpdate();

Delphi

with AxTree1 do
begin
	BeginUpdate();
	ColumnAutoResize := True;
	ContinueColumnScroll := False;
	MarkSearchColumn := False;
	SearchColumnIndex := 1;
	FilterBarPromptVisible := True;
	FilterBarPromptPattern := 'london';
	with Columns do
	begin
		(Add('Name') as EXTREELib.Column).Width := 96;
		(Add('Title') as EXTREELib.Column).Width := 96;
		Add('City');
	end;
	with Items do
	begin
		h0 := AddItem('Nancy Davolio');
		CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
		CellCaption[TObject(h0),TObject(2)] := 'Seattle';
		h0 := AddItem('Andrew Fuller');
		CellCaption[TObject(h0),TObject(1)] := 'Vice President, Sales';
		CellCaption[TObject(h0),TObject(2)] := 'Tacoma';
		SelectItem[h0] := True;
		h0 := AddItem('Janet Leverling');
		CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
		CellCaption[TObject(h0),TObject(2)] := 'Kirkland';
		h0 := AddItem('Margaret Peacock');
		CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
		CellCaption[TObject(h0),TObject(2)] := 'Redmond';
		h0 := AddItem('Steven Buchanan');
		CellCaption[TObject(h0),TObject(1)] := 'Sales Manager';
		CellCaption[TObject(h0),TObject(2)] := 'London';
		h0 := AddItem('Michael Suyama');
		CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
		CellCaption[TObject(h0),TObject(2)] := 'London';
		h0 := AddItem('Robert King');
		CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
		CellCaption[TObject(h0),TObject(2)] := 'London';
		h0 := AddItem('Laura Callahan');
		CellCaption[TObject(h0),TObject(1)] := 'Inside Sales Coordinator';
		CellCaption[TObject(h0),TObject(2)] := 'Seattle';
		h0 := AddItem('Anne Dodsworth');
		CellCaption[TObject(h0),TObject(1)] := 'Sales Representative';
		CellCaption[TObject(h0),TObject(2)] := 'London';
	end;
	EndUpdate();
end

VB

With Tree1
	.BeginUpdate 
	.ColumnAutoResize = True
	.ContinueColumnScroll = 0
	.MarkSearchColumn = False
	.SearchColumnIndex = 1
	.FilterBarPromptVisible = True
	.FilterBarPromptPattern = "london"
	With .Columns
		.Add("Name").Width = 96
		.Add("Title").Width = 96
		.Add "City"
	End With
	With .Items
		h0 = .AddItem("Nancy Davolio")
		.CellCaption(h0,1) = "Sales Representative"
		.CellCaption(h0,2) = "Seattle"
		h0 = .AddItem("Andrew Fuller")
		.CellCaption(h0,1) = "Vice President, Sales"
		.CellCaption(h0,2) = "Tacoma"
		.SelectItem(h0) = 1
		h0 = .AddItem("Janet Leverling")
		.CellCaption(h0,1) = "Sales Representative"
		.CellCaption(h0,2) = "Kirkland"
		h0 = .AddItem("Margaret Peacock")
		.CellCaption(h0,1) = "Sales Representative"
		.CellCaption(h0,2) = "Redmond"
		h0 = .AddItem("Steven Buchanan")
		.CellCaption(h0,1) = "Sales Manager"
		.CellCaption(h0,2) = "London"
		h0 = .AddItem("Michael Suyama")
		.CellCaption(h0,1) = "Sales Representative"
		.CellCaption(h0,2) = "London"
		h0 = .AddItem("Robert King")
		.CellCaption(h0,1) = "Sales Representative"
		.CellCaption(h0,2) = "London"
		h0 = .AddItem("Laura Callahan")
		.CellCaption(h0,1) = "Inside Sales Coordinator"
		.CellCaption(h0,2) = "Seattle"
		h0 = .AddItem("Anne Dodsworth")
		.CellCaption(h0,1) = "Sales Representative"
		.CellCaption(h0,2) = "London"
	End With
	.EndUpdate 
End With

VB.NET

Dim h0
With Extree1
	.BeginUpdate()
	.ColumnAutoResize = True
	.ContinueColumnScroll = False
	.MarkSearchColumn = False
	.SearchColumnIndex = 1
	.FilterBarPromptVisible = True
	.FilterBarPromptPattern = "london"
	With .Columns
		.Add("Name").Width = 96
		.Add("Title").Width = 96
		.Add("City")
	End With
	With .Items
		h0 = .AddItem("Nancy Davolio")
		.set_CellCaption(h0,1,"Sales Representative")
		.set_CellCaption(h0,2,"Seattle")
		h0 = .AddItem("Andrew Fuller")
		.set_CellCaption(h0,1,"Vice President, Sales")
		.set_CellCaption(h0,2,"Tacoma")
		.set_SelectItem(h0,1)
		h0 = .AddItem("Janet Leverling")
		.set_CellCaption(h0,1,"Sales Representative")
		.set_CellCaption(h0,2,"Kirkland")
		h0 = .AddItem("Margaret Peacock")
		.set_CellCaption(h0,1,"Sales Representative")
		.set_CellCaption(h0,2,"Redmond")
		h0 = .AddItem("Steven Buchanan")
		.set_CellCaption(h0,1,"Sales Manager")
		.set_CellCaption(h0,2,"London")
		h0 = .AddItem("Michael Suyama")
		.set_CellCaption(h0,1,"Sales Representative")
		.set_CellCaption(h0,2,"London")
		h0 = .AddItem("Robert King")
		.set_CellCaption(h0,1,"Sales Representative")
		.set_CellCaption(h0,2,"London")
		h0 = .AddItem("Laura Callahan")
		.set_CellCaption(h0,1,"Inside Sales Coordinator")
		.set_CellCaption(h0,2,"Seattle")
		h0 = .AddItem("Anne Dodsworth")
		.set_CellCaption(h0,1,"Sales Representative")
		.set_CellCaption(h0,2,"London")
	End With
	.EndUpdate()
End With

VB.NET for /COM

Dim h0
With AxTree1
	.BeginUpdate()
	.ColumnAutoResize = True
	.ContinueColumnScroll = False
	.MarkSearchColumn = False
	.SearchColumnIndex = 1
	.FilterBarPromptVisible = True
	.FilterBarPromptPattern = "london"
	With .Columns
		.Add("Name").Width = 96
		.Add("Title").Width = 96
		.Add("City")
	End With
	With .Items
		h0 = .AddItem("Nancy Davolio")
		.CellCaption(h0,1) = "Sales Representative"
		.CellCaption(h0,2) = "Seattle"
		h0 = .AddItem("Andrew Fuller")
		.CellCaption(h0,1) = "Vice President, Sales"
		.CellCaption(h0,2) = "Tacoma"
		.SelectItem(h0) = True
		h0 = .AddItem("Janet Leverling")
		.CellCaption(h0,1) = "Sales Representative"
		.CellCaption(h0,2) = "Kirkland"
		h0 = .AddItem("Margaret Peacock")
		.CellCaption(h0,1) = "Sales Representative"
		.CellCaption(h0,2) = "Redmond"
		h0 = .AddItem("Steven Buchanan")
		.CellCaption(h0,1) = "Sales Manager"
		.CellCaption(h0,2) = "London"
		h0 = .AddItem("Michael Suyama")
		.CellCaption(h0,1) = "Sales Representative"
		.CellCaption(h0,2) = "London"
		h0 = .AddItem("Robert King")
		.CellCaption(h0,1) = "Sales Representative"
		.CellCaption(h0,2) = "London"
		h0 = .AddItem("Laura Callahan")
		.CellCaption(h0,1) = "Inside Sales Coordinator"
		.CellCaption(h0,2) = "Seattle"
		h0 = .AddItem("Anne Dodsworth")
		.CellCaption(h0,1) = "Sales Representative"
		.CellCaption(h0,2) = "London"
	End With
	.EndUpdate()
End With

VFP

with thisform.Tree1
	.BeginUpdate
	.ColumnAutoResize = .T.
	.ContinueColumnScroll = 0
	.MarkSearchColumn = .F.
	.SearchColumnIndex = 1
	.FilterBarPromptVisible = .T.
	.FilterBarPromptPattern = "london"
	with .Columns
		.Add("Name").Width = 96
		.Add("Title").Width = 96
		.Add("City")
	endwith
	with .Items
		h0 = .AddItem("Nancy Davolio")
		.CellCaption(h0,1) = "Sales Representative"
		.CellCaption(h0,2) = "Seattle"
		h0 = .AddItem("Andrew Fuller")
		.CellCaption(h0,1) = "Vice President, Sales"
		.CellCaption(h0,2) = "Tacoma"
		.SelectItem(h0) = 1
		h0 = .AddItem("Janet Leverling")
		.CellCaption(h0,1) = "Sales Representative"
		.CellCaption(h0,2) = "Kirkland"
		h0 = .AddItem("Margaret Peacock")
		.CellCaption(h0,1) = "Sales Representative"
		.CellCaption(h0,2) = "Redmond"
		h0 = .AddItem("Steven Buchanan")
		.CellCaption(h0,1) = "Sales Manager"
		.CellCaption(h0,2) = "London"
		h0 = .AddItem("Michael Suyama")
		.CellCaption(h0,1) = "Sales Representative"
		.CellCaption(h0,2) = "London"
		h0 = .AddItem("Robert King")
		.CellCaption(h0,1) = "Sales Representative"
		.CellCaption(h0,2) = "London"
		h0 = .AddItem("Laura Callahan")
		.CellCaption(h0,1) = "Inside Sales Coordinator"
		.CellCaption(h0,2) = "Seattle"
		h0 = .AddItem("Anne Dodsworth")
		.CellCaption(h0,1) = "Sales Representative"
		.CellCaption(h0,2) = "London"
	endwith
	.EndUpdate
endwith

 


Send comments on this topic.
1999-2017 Exontrol.COM, Software. All rights reserved.