LMD VCL - LMD ElPack FAQ - Revision history

Fduch at 11:38, 18 August 2017

2017-08-18T11:38:06Z

Fduch at 11:34, 18 August 2017

2017-08-18T11:34:49Z

Fduch at 18:37, 20 October 2009

2009-10-20T18:37:41Z

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?

Fduch at 12:53, 13 June 2008

2008-06-13T12:53:49Z

Fduch at 12:51, 13 June 2008

2008-06-13T12:51:40Z

Krivonos: /* El(X)Tree */

2008-05-23T10:10:22Z

‎El(X)Tree

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?

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?

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?

@@ Line 33: / Line 33: @@
 c) '''To manage buttons''':
-<pre class="brush:delphi">
+<syntaxhighlight lang="delphi">
 type
     THElDateTimePicker = class(TElDateTimePicker);
@@ Line 48: / Line 48: @@
    end;
 end;
-</pre>
+</syntaxhighlight>
 Available buttons: ClearBtn, TodayBtn, OkBtn, CancelBtn.
@@ Line 56: / Line 56: @@
 === 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
@@ Line 110: / Line 110: @@
      end;
    end;
-</pre><br>
+</syntaxhighlight><br>
 == TStyleManager ==
@@ Line 140: / Line 140: @@
 In this example we place on form TElXTree, TMemo and TButton.
-<pre class="brush:delphi">
+<syntaxhighlight lang="delphi">
 procedure TForm1.Button1Click(Sender: TObject);
 var
@@ Line 166: / Line 166: @@
   end;
 end;
-</pre>
+</syntaxhighlight>
 === 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.
-<pre class="brush:delphi">
+<syntaxhighlight lang="delphi">
 uses .... , LMDTypes, ShlObj;
@@ Line 209: / Line 209: @@
      Item.Checked := Item.Parent.Checked;
 end;
-</pre>
+</syntaxhighlight>
 === How to add new folder to TElShell* controls ===
-<pre class="brush:delphi">
+<syntaxhighlight lang="delphi">
 procedure LMDNewFolder(const ATree: TCustomElTree; const AFolder: TLMDString);
 var
@@ Line 243: / Line 243: @@
      LTree.RefreshTree(LTree.Selected, 2);
 end;
-</pre>
+</syntaxhighlight>
 == El(X)Tree, ElTreeStringGrid ==
@@ Line 249: / Line 249: @@
 === How handle all selected items in tree (grid)? ===
-<pre class="brush:delphi">
+<syntaxhighlight lang="delphi">
 var
    LItem: TElTreeItem;
@@ Line 260: / Line 260: @@
    end;
 end;
-</pre>
+</syntaxhighlight>
 === 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:
-<pre class="brush:delphi">
+<syntaxhighlight lang="delphi">
 uses elstrutils;
@@ Line 296: / Line 296: @@
    DrawTextW(Canvas.Handle, PWideChar(s), length(s), R, DT_NOPREFIX and DT_Left);
 end;
-</pre>
+</syntaxhighlight>
 == ElDB(X)Tree ==
@@ Line 315: / Line 315: @@
 :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);
 var
@@ Line 342: / Line 342: @@
    end;
 end;
-</pre><br>
+</syntaxhighlight><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);
 var
@@ Line 383: / Line 383: @@
    end;
 end;
-</pre><br>
+</syntaxhighlight><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);
 var
@@ Line 411: / Line 411: @@
    end;
 end;
-</pre><br>
+</syntaxhighlight><br>
 :3a) ... or use virtual mode of tree <br>

@@ Line 17: / Line 17: @@
 :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);
 begin
@@ Line 27: / Line 27: @@
    ElDateTimePicker1.ShowPopupCalendar := True;
 end;
-</pre>
+</syntaxhighlight>
 You can change ClearCap, TodayCap, OkCap, CancelCap, CalendarCap, CapCalendarGB, CapClockGB, NextYearHint, NextMonthHint, PrevYearHint and PrevMonthHint.

@@ Line 17: / Line 17: @@
 :3) you can change variable that declared in ElDTPick for example as below: <br>
-<delphi>
+<pre class="brush:delphi">
 procedure TForm1.FormCreate(Sender: TObject);
 begin
@@ Line 27: / Line 27: @@
    ElDateTimePicker1.ShowPopupCalendar := True;
 end;
-</delphi>
+</pre>
 You can change ClearCap, TodayCap, OkCap, CancelCap, CalendarCap, CapCalendarGB, CapClockGB, NextYearHint, NextMonthHint, PrevYearHint and PrevMonthHint.
@@ Line 33: / Line 33: @@
 c) '''To manage buttons''':
-<delphi>
+<pre class="brush:delphi">
 type
     THElDateTimePicker = class(TElDateTimePicker);
@@ Line 48: / Line 48: @@
    end;
 end;
-</delphi>
+</pre>
 Available buttons: ClearBtn, TodayBtn, OkBtn, CancelBtn.
@@ Line 56: / Line 56: @@
 === 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
@@ Line 110: / Line 110: @@
      end;
    end;
-</delphi><br>
+</pre><br>
 == TStyleManager ==
@@ Line 140: / Line 140: @@
 In this example we place on form TElXTree, TMemo and TButton.
-<delphi>
+<pre class="brush:delphi">
 procedure TForm1.Button1Click(Sender: TObject);
 var
@@ Line 166: / Line 166: @@
   end;
 end;
-</delphi>
+</pre>
 === 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.
-<delphi>
+<pre class="brush:delphi">
 uses .... , LMDTypes, ShlObj;
@@ Line 209: / Line 209: @@
      Item.Checked := Item.Parent.Checked;
 end;
-</delphi>
+</pre>
 === How to add new folder to TElShell* controls ===
-<delphi>
+<pre class="brush:delphi">
 procedure LMDNewFolder(const ATree: TCustomElTree; const AFolder: TLMDString);
 var
@@ Line 243: / Line 243: @@
      LTree.RefreshTree(LTree.Selected, 2);
 end;
-</delphi>
+</pre>
 == El(X)Tree, ElTreeStringGrid ==
@@ Line 249: / Line 249: @@
 === How handle all selected items in tree (grid)? ===
-<delphi>
+<pre class="brush:delphi">
 var
    LItem: TElTreeItem;
@@ Line 260: / Line 260: @@
    end;
 end;
-</delphi>
+</pre>
 === 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:
-<delphi>
+<pre class="brush:delphi">
 uses elstrutils;
@@ Line 296: / Line 296: @@
    DrawTextW(Canvas.Handle, PWideChar(s), length(s), R, DT_NOPREFIX and DT_Left);
 end;
-</delphi>
+</pre>
 == ElDB(X)Tree ==
@@ Line 315: / Line 315: @@
 :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);
 var
@@ Line 342: / Line 342: @@
    end;
 end;
-</delphi><br>
+</pre><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);
 var
@@ Line 383: / Line 383: @@
    end;
 end;
-</delphi><br>
+</pre><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);
 var
@@ Line 411: / Line 411: @@
    end;
 end;
-</delphi><br>
+</pre><br>
 :3a) ... or use virtual mode of tree <br>

← Older revision		Revision as of 08: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? ===

@@ 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]]

@@ 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]]

← Older revision		Revision as of 10: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? ===

@@ Line 50: / Line 50: @@
 </delphi>
-Buttons: ClearBtn, TodayBtn, OkBtn, CancelBtn.
+Available buttons: ClearBtn, TodayBtn, OkBtn, CancelBtn.
 == TElInspector ==