LMD VCL - LMD ElPack FAQ - Revision history

Fduch at 11:38, 18 August 2017

2017-08-18T11:38:06Z

← Older revision		Revision as of 13:38, 18 August 2017
Line 33:		Line 33:
	c) '''To manage buttons''':		c) '''To manage buttons''':

	<~~pre class~~="~~brush:~~delphi">		<syntaxhighlight lang="delphi">
	type		type
	THElDateTimePicker = class(TElDateTimePicker);		THElDateTimePicker = class(TElDateTimePicker);
Line 48:		Line 48:
	end;		end;
	end;		end;
	</~~pre~~>		</syntaxhighlight>

	Available buttons: ClearBtn, TodayBtn, OkBtn, CancelBtn.		Available buttons: ClearBtn, TodayBtn, OkBtn, CancelBtn.
Line 56:		Line 56:
	=== How to use custom inplace editors? ===		=== How to use custom inplace editors? ===

	Inspector uses own collection of inplace editors. You can examine them in ElInspectorEditors.pas We'll define simple descendant of the button edit and will use it for editing of boolean values. <~~pre class~~="~~brush:~~delphi">		Inspector uses own collection of inplace editors. You can examine them in ElInspectorEditors.pas We'll define simple descendant of the button edit and will use it for editing of boolean values. <syntaxhighlight lang="delphi">
	type		type

Line 110:		Line 110:
	end;		end;
	end;		end;
	</~~pre~~><br>		</syntaxhighlight><br>

	== TStyleManager ==		== TStyleManager ==
Line 140:		Line 140:
	In this example we place on form TElXTree, TMemo and TButton.		In this example we place on form TElXTree, TMemo and TButton.

	<~~pre class~~="~~brush:~~delphi">		<syntaxhighlight lang="delphi">
	procedure TForm1.Button1Click(Sender: TObject);		procedure TForm1.Button1Click(Sender: TObject);
	var		var
Line 166:		Line 166:
	end;		end;
	end;		end;
	</~~pre~~>		</syntaxhighlight>

	=== How to automatically check/uncheck all child nodes with check/uncheck a folder node? ===		=== How to automatically check/uncheck all child nodes with check/uncheck a folder node? ===
Line 172:		Line 172:
	In this example we place on form TElShellTree and assign it's event handlers as below.		In this example we place on form TElShellTree and assign it's event handlers as below.

	<~~pre class~~="~~brush:~~delphi">		<syntaxhighlight lang="delphi">
	uses .... , LMDTypes, ShlObj;		uses .... , LMDTypes, ShlObj;

Line 209:		Line 209:
	Item.Checked := Item.Parent.Checked;		Item.Checked := Item.Parent.Checked;
	end;		end;
	</~~pre~~>		</syntaxhighlight>

	=== How to add new folder to TElShell* controls ===		=== How to add new folder to TElShell* controls ===

	<~~pre class~~="~~brush:~~delphi">		<syntaxhighlight lang="delphi">
	procedure LMDNewFolder(const ATree: TCustomElTree; const AFolder: TLMDString);		procedure LMDNewFolder(const ATree: TCustomElTree; const AFolder: TLMDString);
	var		var
Line 243:		Line 243:
	LTree.RefreshTree(LTree.Selected, 2);		LTree.RefreshTree(LTree.Selected, 2);
	end;		end;
	</~~pre~~>		</syntaxhighlight>

	== El(X)Tree, ElTreeStringGrid ==		== El(X)Tree, ElTreeStringGrid ==
Line 249:		Line 249:
	=== How handle all selected items in tree (grid)? ===		=== How handle all selected items in tree (grid)? ===

	<~~pre class~~="~~brush:~~delphi">		<syntaxhighlight lang="delphi">
	var		var
	LItem: TElTreeItem;		LItem: TElTreeItem;
Line 260:		Line 260:
	end;		end;
	end;		end;
	</~~pre~~>		</syntaxhighlight>

	=== How to draw part of item's text to pass over the several columns? ===		=== How to draw part of item's text to pass over the several columns? ===
Line 266:		Line 266:
	You can use OnItemPostDraw event to redraw part of item. For example I can redraw item text over first two columns:		You can use OnItemPostDraw event to redraw part of item. For example I can redraw item text over first two columns:

	<~~pre class~~="~~brush:~~delphi">		<syntaxhighlight lang="delphi">
	uses elstrutils;		uses elstrutils;

Line 296:		Line 296:
	DrawTextW(Canvas.Handle, PWideChar(s), length(s), R, DT_NOPREFIX and DT_Left);		DrawTextW(Canvas.Handle, PWideChar(s), length(s), R, DT_NOPREFIX and DT_Left);
	end;		end;
	</~~pre~~>		</syntaxhighlight>

	== ElDB(X)Tree ==		== ElDB(X)Tree ==
Line 315:		Line 315:
	:1) you may use OnSortEnd event to set custom style to each cell<br>		:1) you may use OnSortEnd event to set custom style to each cell<br>

	ex:<br> <~~pre class~~="~~brush:~~delphi">		ex:<br> <syntaxhighlight lang="delphi">
	procedure TForm1.ElXTree1SortEnd(Sender: TObject);		procedure TForm1.ElXTree1SortEnd(Sender: TObject);
	var		var
Line 342:		Line 342:
	end;		end;
	end;		end;
	</~~pre~~><br>		</syntaxhighlight><br>

	:2) you may use the cascading property of style to reach the same effect:<br>		:2) you may use the cascading property of style to reach the same effect:<br>

	ex:<br> <~~pre class~~="~~brush:~~delphi">		ex:<br> <syntaxhighlight lang="delphi">
	procedure TForm1.FormCreate(Sender: TObject);		procedure TForm1.FormCreate(Sender: TObject);
	var		var
Line 383:		Line 383:
	end;		end;
	end;		end;
	</~~pre~~><br>		</syntaxhighlight><br>

	:3) if the tree contains a lot of items more optimized to set colors in OnItemPreDraw event:<br>		:3) if the tree contains a lot of items more optimized to set colors in OnItemPreDraw event:<br>

	ex:<br> <~~pre class~~="~~brush:~~delphi">		ex:<br> <syntaxhighlight lang="delphi">
	procedure TForm1.ElXTree1ItemPreDraw(Sender: TObject; Item: TElXTreeItem);		procedure TForm1.ElXTree1ItemPreDraw(Sender: TObject; Item: TElXTreeItem);
	var		var
Line 411:		Line 411:
	end;		end;
	end;		end;
	</~~pre~~><br>		</syntaxhighlight><br>

	:3a) ... or use virtual mode of tree <br>		:3a) ... or use virtual mode of tree <br>

Fduch at 11:34, 18 August 2017

2017-08-18T11:34:49Z

← Older revision		Revision as of 13:34, 18 August 2017
Line 17:		Line 17:
	:3) you can change variable that declared in ElDTPick for example as below: <br>		:3) you can change variable that declared in ElDTPick for example as below: <br>

	<~~pre class~~="~~brush:~~delphi">		<syntaxhighlight lang="delphi">
	procedure TForm1.FormCreate(Sender: TObject);		procedure TForm1.FormCreate(Sender: TObject);
	begin		begin
Line 27:		Line 27:
	ElDateTimePicker1.ShowPopupCalendar := True;		ElDateTimePicker1.ShowPopupCalendar := True;
	end;		end;
	</~~pre~~>		</syntaxhighlight>

	You can change ClearCap, TodayCap, OkCap, CancelCap, CalendarCap, CapCalendarGB, CapClockGB, NextYearHint, NextMonthHint, PrevYearHint and PrevMonthHint.		You can change ClearCap, TodayCap, OkCap, CancelCap, CalendarCap, CapCalendarGB, CapClockGB, NextYearHint, NextMonthHint, PrevYearHint and PrevMonthHint.

Fduch at 18:37, 20 October 2009

2009-10-20T18:37:41Z

← Older revision		Revision as of 20:37, 20 October 2009
Line 17:		Line 17:
	:3) you can change variable that declared in ElDTPick for example as below: <br>		:3) you can change variable that declared in ElDTPick for example as below: <br>

	<delphi>		<pre class="brush:delphi">
	procedure TForm1.FormCreate(Sender: TObject);		procedure TForm1.FormCreate(Sender: TObject);
	begin		begin
Line 27:		Line 27:
	ElDateTimePicker1.ShowPopupCalendar := True;		ElDateTimePicker1.ShowPopupCalendar := True;
	end;		end;
	</~~delphi~~>		</pre>

	You can change ClearCap, TodayCap, OkCap, CancelCap, CalendarCap, CapCalendarGB, CapClockGB, NextYearHint, NextMonthHint, PrevYearHint and PrevMonthHint.		You can change ClearCap, TodayCap, OkCap, CancelCap, CalendarCap, CapCalendarGB, CapClockGB, NextYearHint, NextMonthHint, PrevYearHint and PrevMonthHint.
Line 33:		Line 33:
	c) '''To manage buttons''':		c) '''To manage buttons''':

	<delphi>		<pre class="brush:delphi">
	type		type
	THElDateTimePicker = class(TElDateTimePicker);		THElDateTimePicker = class(TElDateTimePicker);
Line 48:		Line 48:
	end;		end;
	end;		end;
	</~~delphi~~>		</pre>

	Available buttons: ClearBtn, TodayBtn, OkBtn, CancelBtn.		Available buttons: ClearBtn, TodayBtn, OkBtn, CancelBtn.
Line 56:		Line 56:
	=== How to use custom inplace editors? ===		=== How to use custom inplace editors? ===

	Inspector uses own collection of inplace editors. You can examine them in ElInspectorEditors.pas We'll define simple descendant of the button edit and will use it for editing of boolean values. <delphi>		Inspector uses own collection of inplace editors. You can examine them in ElInspectorEditors.pas We'll define simple descendant of the button edit and will use it for editing of boolean values. <pre class="brush:delphi">
	type		type

Line 110:		Line 110:
	end;		end;
	end;		end;
	</~~delphi~~><br>		</pre><br>

	== TStyleManager ==		== TStyleManager ==
Line 140:		Line 140:
	In this example we place on form TElXTree, TMemo and TButton.		In this example we place on form TElXTree, TMemo and TButton.

	<delphi>		<pre class="brush:delphi">
	procedure TForm1.Button1Click(Sender: TObject);		procedure TForm1.Button1Click(Sender: TObject);
	var		var
Line 166:		Line 166:
	end;		end;
	end;		end;
	</~~delphi~~>		</pre>

	=== How to automatically check/uncheck all child nodes with check/uncheck a folder node? ===		=== How to automatically check/uncheck all child nodes with check/uncheck a folder node? ===
Line 172:		Line 172:
	In this example we place on form TElShellTree and assign it's event handlers as below.		In this example we place on form TElShellTree and assign it's event handlers as below.

	<delphi>		<pre class="brush:delphi">
	uses .... , LMDTypes, ShlObj;		uses .... , LMDTypes, ShlObj;

Line 209:		Line 209:
	Item.Checked := Item.Parent.Checked;		Item.Checked := Item.Parent.Checked;
	end;		end;
	</~~delphi~~>		</pre>

	=== How to add new folder to TElShell* controls ===		=== How to add new folder to TElShell* controls ===

	<delphi>		<pre class="brush:delphi">
	procedure LMDNewFolder(const ATree: TCustomElTree; const AFolder: TLMDString);		procedure LMDNewFolder(const ATree: TCustomElTree; const AFolder: TLMDString);
	var		var
Line 243:		Line 243:
	LTree.RefreshTree(LTree.Selected, 2);		LTree.RefreshTree(LTree.Selected, 2);
	end;		end;
	</~~delphi~~>		</pre>

	== El(X)Tree, ElTreeStringGrid ==		== El(X)Tree, ElTreeStringGrid ==
Line 249:		Line 249:
	=== How handle all selected items in tree (grid)? ===		=== How handle all selected items in tree (grid)? ===

	<delphi>		<pre class="brush:delphi">
	var		var
	LItem: TElTreeItem;		LItem: TElTreeItem;
Line 260:		Line 260:
	end;		end;
	end;		end;
	</~~delphi~~>		</pre>

	=== How to draw part of item's text to pass over the several columns? ===		=== How to draw part of item's text to pass over the several columns? ===
Line 266:		Line 266:
	You can use OnItemPostDraw event to redraw part of item. For example I can redraw item text over first two columns:		You can use OnItemPostDraw event to redraw part of item. For example I can redraw item text over first two columns:

	<delphi>		<pre class="brush:delphi">
	uses elstrutils;		uses elstrutils;

Line 296:		Line 296:
	DrawTextW(Canvas.Handle, PWideChar(s), length(s), R, DT_NOPREFIX and DT_Left);		DrawTextW(Canvas.Handle, PWideChar(s), length(s), R, DT_NOPREFIX and DT_Left);
	end;		end;
	</~~delphi~~>		</pre>

	== ElDB(X)Tree ==		== ElDB(X)Tree ==
Line 315:		Line 315:
	:1) you may use OnSortEnd event to set custom style to each cell<br>		:1) you may use OnSortEnd event to set custom style to each cell<br>

	ex:<br> <delphi>		ex:<br> <pre class="brush:delphi">
	procedure TForm1.ElXTree1SortEnd(Sender: TObject);		procedure TForm1.ElXTree1SortEnd(Sender: TObject);
	var		var
Line 342:		Line 342:
	end;		end;
	end;		end;
	</~~delphi~~><br>		</pre><br>

	:2) you may use the cascading property of style to reach the same effect:<br>		:2) you may use the cascading property of style to reach the same effect:<br>

	ex:<br> <delphi>		ex:<br> <pre class="brush:delphi">
	procedure TForm1.FormCreate(Sender: TObject);		procedure TForm1.FormCreate(Sender: TObject);
	var		var
Line 383:		Line 383:
	end;		end;
	end;		end;
	</~~delphi~~><br>		</pre><br>

	:3) if the tree contains a lot of items more optimized to set colors in OnItemPreDraw event:<br>		:3) if the tree contains a lot of items more optimized to set colors in OnItemPreDraw event:<br>

	ex:<br> <delphi>		ex:<br> <pre class="brush:delphi">
	procedure TForm1.ElXTree1ItemPreDraw(Sender: TObject; Item: TElXTreeItem);		procedure TForm1.ElXTree1ItemPreDraw(Sender: TObject; Item: TElXTreeItem);
	var		var
Line 411:		Line 411:
	end;		end;
	end;		end;
	</~~delphi~~><br>		</pre><br>

	:3a) ... or use virtual mode of tree <br>		:3a) ... or use virtual mode of tree <br>

Krivonos: /* How to automatically check/uncheck all child nodes with check/uncheck a folder node? */

2008-07-24T08:05:23Z

How to automatically check/uncheck all child nodes with check/uncheck a folder node?

← Older revision		Revision as of 10:05, 24 July 2008
Line 135:		Line 135:

	== ElShellTree, ElTree, ElXTree ==		== ElShellTree, ElTree, ElXTree ==

			=== How to get all nodes above Selected item until root? ===

			In this example we place on form TElXTree, TMemo and TButton.

			<delphi>
			procedure TForm1.Button1Click(Sender: TObject);
			var
			i: integer;
			ParentItem, ChildItem: TElXTreeItem;
			begin
			Memo1.Lines.Clear;
			if Assigned(ElXTree1.Selected) then
			begin
			i := ElXTree1.Selected.Index; // index of item in parent's list
			ChildItem := ElXTree1.Selected;
			ParentItem := ChildItem.Parent;
			while Assigned(ParentItem) do //check parent here. I get items until root
			begin
			while i >= 0 do
			begin
			Memo1.Lines.Add(ParentItem.Children[i].Text);
			dec(i);
			end;
			ChildItem := ParentItem; // new children
			ParentItem := ChildItem.Parent; // new parent
			i := ChildItem.Index; // new children's index
			end;
			Memo1.Lines.Add(ChildItem.Text); // last children
			end;
			end;
			</delphi>

	=== How to automatically check/uncheck all child nodes with check/uncheck a folder node? ===		=== How to automatically check/uncheck all child nodes with check/uncheck a folder node? ===

Fduch at 12:53, 13 June 2008

2008-06-13T12:53:49Z

@@ Line 176: / Line 176: @@
    if Assigned(Item.Parent) then
      Item.Checked := Item.Parent.Checked;
 end;
 </delphi>
@@ Line 356: / Line 390: @@
 '''Solution:'''<br>Try to update to latest Version of nView. There are hooking some Win-API's and Windows-Messages and sometimes forget to pass the messages to the real destination.<br>
 [[Category:FAQ]] [[Category:LMD_ElPack]]

Fduch at 12:51, 13 June 2008

2008-06-13T12:51:40Z

@@ Line 3: / Line 3: @@
 <br>
 == TElDateTimePicker ==
@@ Line 8: / Line 9: @@
 === How to translage button captions and day names? How to hide/show certain buttons? ===
-a) <b>To translate the names of months and days</b> use property CustomCalendarNames that contains lists of LongMonthNames, ShortMonthNames, LongDayNames and ShortDayNames. It changes the captions in calendar-grid. <br>
+a) '''To translate the names of months and days''' use property CustomCalendarNames that contains lists of LongMonthNames, ShortMonthNames, LongDayNames and ShortDayNames. It changes the captions in calendar-grid. <br>
 :1) you can change resourcestrings SLMDCapToday, SLMDCapOk etc. in LMDElConst.pas <br>
 :2) you can use method c) <br>
@@ Line 27: / Line 29: @@
 </delphi>
-You can change ClearCap, TodayCap, OkCap, CancelCap, CalendarCap,
+You can change ClearCap, TodayCap, OkCap, CancelCap, CalendarCap, CapCalendarGB, CapClockGB, NextYearHint, NextMonthHint, PrevYearHint and PrevMonthHint.
-c) <b>To manage buttons</b>:
+c) '''To manage buttons''':
 <delphi>
@@ Line 357: / Line 357: @@
 '''Solution:'''<br>Try to update to latest Version of nView. There are hooking some Win-API's and Windows-Messages and sometimes forget to pass the messages to the real destination.<br>
-<br>
+== NewFolder method TElShell* controls<br> ==
 [[Category:FAQ]] [[Category:LMD_ElPack]]

Krivonos: /* El(X)Tree */

2008-05-23T10:10:22Z

El(X)Tree

← Older revision		Revision as of 12:10, 23 May 2008
Line 179:		Line 179:
	</delphi>		</delphi>

	== El(X)Tree ==		== El(X)Tree, ElTreeStringGrid ==

	=== How handle all selected items in tree (grid)? ===		=== How handle all selected items in tree (grid)? ===

Krivonos: /* How to draw part of item's text to pass over the several columns? */

2008-05-23T10:09:50Z

How to draw part of item's text to pass over the several columns?

← Older revision		Revision as of 12:09, 23 May 2008
Line 180:		Line 180:

	== El(X)Tree ==		== El(X)Tree ==

			=== How handle all selected items in tree (grid)? ===

			<delphi>
			var
			LItem: TElTreeItem;
			begin
			LItem := ElTreeStringGrid1.GetNextSelected(nil);
			while Assigned(it) do
			begin
			// do something with item
			LItem := ElTreeStringGrid1.GetNextSelected(LItem);
			end;
			end;
			</delphi>

	=== How to draw part of item's text to pass over the several columns? ===		=== How to draw part of item's text to pass over the several columns? ===

Krivonos: /* How to translage button captions and day names? How to hide/show certain buttons? */

2008-05-15T08:46:58Z

How to translage button captions and day names? How to hide/show certain buttons?

← Older revision		Revision as of 10:46, 15 May 2008
Line 50:		Line 50:
	</delphi>		</delphi>

	~~Buttons~~: ClearBtn, TodayBtn, OkBtn, CancelBtn.		Available buttons: ClearBtn, TodayBtn, OkBtn, CancelBtn.

	== TElInspector ==		== TElInspector ==

Krivonos: /* How to translage button captions and day names? How to hide/show certain buttons? */

2008-05-15T08:45:53Z

How to translage button captions and day names? How to hide/show certain buttons?

← Older revision		Revision as of 10:45, 15 May 2008
Line 8:		Line 8:
	=== How to translage button captions and day names? How to hide/show certain buttons? ===		=== How to translage button captions and day names? How to hide/show certain buttons? ===

	a) To translate the names of months and days ~~please~~ use property		a) <b>To translate the names of months and days</b> use property CustomCalendarNames that contains lists of LongMonthNames, ShortMonthNames, LongDayNames and ShortDayNames. It changes the captions in calendar-grid. <br>
	CustomCalendarNames that contains lists of LongMonthNames, ShortMonthNames,
	LongDayNames and ShortDayNames. It changes the ~~catrions~~ in
	calendar-grid. <br>

	b) There are several ways to change buttons captions: <br>		b) There are several ways <b>to change buttons captions</b>: <br>
	:1) you can change resourcestrings SLMDCapToday, SLMDCapOk etc. in LMDElConst.pas <br>		:1) you can change resourcestrings SLMDCapToday, SLMDCapOk etc. in LMDElConst.pas <br>
	:2) you can use method c) <br>		:2) you can use method c) <br>
Line 34:		Line 31:
	PrevMonthHint.		PrevMonthHint.

	c) To manage buttons:		c) <b>To manage buttons</b>:

	<delphi>		<delphi>