https://wiki.lmd.de/api.php?action=feedcontributions&feedformat=atom&user=WikiadminLMD - User contributions [en]2026-05-24T08:22:19ZUser contributionsMediaWiki 1.27.3https://wiki.lmd.de/index.php?title=FCKEditor&diff=2057FCKEditor2008-03-25T21:11:43Z<p>Wikiadmin: </p>
<hr />
<div>For WYSIWYG-editing you can use FCKEditor for MediaWiki. It's uses a special version of the FCKeditor WYSIWYG editor that outputs wiki text, not HTML.<br><br />
<br />
By default this addon activated for all users. You can return to standard Wiki-editing through toggle&nbsp;[[Image:Wikitext icon.png|Image:Wikitext_icon.png]] icon. Or you can permanently disable it for the whole site or for defined namespaces on the "Misc" tab in your [[Special:Preferences|Preferences]] page - a '''Rich Editor:*''' selectors.<br></div>Wikiadminhttps://wiki.lmd.de/index.php?title=FCKEditor&diff=2056FCKEditor2008-03-25T21:09:29Z<p>Wikiadmin: </p>
<hr />
<div>For WYSIWYG-editing you can use FCKEditor for MediaWiki. It's uses a special version of the FCKeditor WYSIWYG editor that outputs wiki text, not HTML.<br><br />
<br />
By default this addon activated for all users. You can return to standard Wiki-editing through toggle&nbsp;[[Image:Wikitext icon.png|Image:Wikitext_icon.png]] icon. Or you can permanently disable it for whole site or for defined namespaces on the "Misc" tab in your [[Special:Preferences|Preferences]] - Rich Editor:* selectors.<br></div>Wikiadminhttps://wiki.lmd.de/index.php?title=FCKEditor&diff=2055FCKEditor2008-03-25T21:00:47Z<p>Wikiadmin: </p>
<hr />
<div>For WYSIWYG-editing you can use FCKEditor for MediaWiki. It's uses a special version of the FCKeditor WYSIWYG editor that outputs wiki text, not HTML.<br><br />
<br />
By default this addon activated for all users. You can return to standard Wiki-editing through toggle&nbsp;[[Image:Wikitext icon.png|Image:Wikitext_icon.png]] icon. Or you can permanently disable it for whole site or for defined namespaces on the "Misc" tab in your [http://wiki.lmd.de/index.php/Special:Preferences wiki.lmd.de/index.php/Special:Preferences|Preferences] - Rich Editor:* selectors.<br></div>Wikiadminhttps://wiki.lmd.de/index.php?title=FCKEditor&diff=2054FCKEditor2008-03-25T21:00:18Z<p>Wikiadmin: </p>
<hr />
<div>For WYSIWYG-editing you can use FCKEditor for MediaWiki. It's uses a special version of the FCKeditor WYSIWYG editor that outputs wiki text, not HTML.<br><br />
<br />
By default this addon activated for all users. You can return to standard Wiki-editing through toggle&nbsp;[[Image:Wikitext icon.png|Image:Wikitext_icon.png]] icon. Or you can permanently disable it for whole site or for defined namespaces on the "Misc" tab in your&nbsp;[[http://wiki.lmd.de/index.php/Special:Preferences wiki.lmd.de/index.php/Special:Preferences|Preferences]] - Rich Editor:* selectors.<br></div>Wikiadminhttps://wiki.lmd.de/index.php?title=FCKEditor&diff=2053FCKEditor2008-03-25T20:48:13Z<p>Wikiadmin: </p>
<hr />
<div>For WYSIWYG-editing you can use FCKEditor for MediaWiki. It's uses a special version of the FCKeditor WYSIWYG editor that outputs wiki text, not HTML.<br><br />
<br />
By default this addon activated for all users. You can return to standard Wiki-editing through toggle&nbsp;[[Image:Wikitext icon.png|Image:Wikitext_icon.png]] icon. Or you can permanently disable it for whole site or for defined namespaces on the "Misc" tab in your&nbsp;[http://wiki.lmd.de/index.php/Special:Preferences wiki.lmd.de/index.php/Special:Preferences] - Rich Editor:* selectors.<br></div>Wikiadminhttps://wiki.lmd.de/index.php?title=FCKEditor&diff=2052FCKEditor2008-03-24T22:37:23Z<p>Wikiadmin: </p>
<hr />
<div>For WYSIWYG-editing you can use FCKEditor for MediaWiki. It's uses a special version of the FCKeditor WYSIWYG editor that outputs wiki text, not HTML.<br><br />
<br />
By default this addon activated for all users. You can return to standard Wiki-editing through toggle&nbsp;[[Image:Wikitext icon.png|Image:Wikitext_icon.png]] icon.<br><br />
<br />
...</div>Wikiadminhttps://wiki.lmd.de/index.php?title=FCKEditor&diff=2051FCKEditor2008-03-24T22:37:04Z<p>Wikiadmin: </p>
<hr />
<div>For WYSIWYG-editing you can use FCKEditor for MediaWiki. It's uses a special version of the FCKeditor WYSIWYG editor that outputs wiki text, not HTML.<br><br />
<br />
By default this addon activated for all users. You can return to standard Wiki-editing through toggle&nbsp;[[Image:Wikitext_icon.png]] icon.<br></div>Wikiadminhttps://wiki.lmd.de/index.php?title=File:Wikitext_icon.png&diff=2050File:Wikitext icon.png2008-03-24T22:36:19Z<p>Wikiadmin: </p>
<hr />
<div></div>Wikiadminhttps://wiki.lmd.de/index.php?title=FCKEditor&diff=2049FCKEditor2008-03-24T22:28:56Z<p>Wikiadmin: New page: For WYSIWYG-editing you can use FCKEditor for MediaWiki. It's uses a special version of the FCKeditor WYSIWYG editor that outputs wiki text, not HTML.<br> By default this addon activated ...</p>
<hr />
<div>For WYSIWYG-editing you can use FCKEditor for MediaWiki. It's uses a special version of the FCKeditor WYSIWYG editor that outputs wiki text, not HTML.<br><br />
<br />
By default this addon activated for all users. You can return to standard Wiki-editing through toggle</div>Wikiadminhttps://wiki.lmd.de/index.php?title=Help:Contents&diff=2048Help:Contents2008-03-24T22:17:14Z<p>Wikiadmin: </p>
<hr />
<div>[http://meta.wikimedia.org/wiki/Help:Contents MediaWiki Docs]<br />
<br />
[[FCKEditor|WYSIWYG Editor]]<br></div>Wikiadminhttps://wiki.lmd.de/index.php?title=File:Perfectcreature.flv&diff=2014File:Perfectcreature.flv2008-03-12T00:34:44Z<p>Wikiadmin: </p>
<hr />
<div>FLVPlayer test<br />
<flvplayer width="320" height="262" autoplay="true">Perfectcreature.flv</flvplayer></div>Wikiadminhttps://wiki.lmd.de/index.php?title=File:Perfectcreature.flv&diff=2013File:Perfectcreature.flv2008-03-12T00:34:01Z<p>Wikiadmin: </p>
<hr />
<div>FLVPlayer test<br />
<flvplayer width="320" height="262" autoplay="true" hidecontrols="true">Perfectcreature.flv</flvplayer></div>Wikiadminhttps://wiki.lmd.de/index.php?title=File:Perfectcreature.flv&diff=2012File:Perfectcreature.flv2008-03-12T00:33:00Z<p>Wikiadmin: </p>
<hr />
<div>FLVPlayer test<br />
<flvplayer width="400" height="400" autoplay="true" hidecontrols="true">Perfectcreature.flv</flvplayer></div>Wikiadminhttps://wiki.lmd.de/index.php?title=File:Perfectcreature.flv&diff=2011File:Perfectcreature.flv2008-03-12T00:32:02Z<p>Wikiadmin: FLVPlayer test</p>
<hr />
<div>FLVPlayer test</div>Wikiadminhttps://wiki.lmd.de/index.php?title=LMD_VCL_-_LMD-Tools_FAQ&diff=1570LMD VCL - LMD-Tools FAQ2007-04-10T20:25:46Z<p>Wikiadmin: /* CBuilder SpeedUp */</p>
<hr />
<div>{{Head-Overview}} [[Category:FAQ]] [[Category:LMD-Tools]] <br />
<br />
==General==<br />
===CBuilder SpeedUp===<br />
<c><br />
#include <oleidl.h><br />
HKEY_CURRECTUSER<br />
SaveSettings<br />
#define NO_WIN32_LEAN_AND_MEAN<br />
</c><br />
NO_WIN32_LEAN_AND_MEAN <br />
When this macro is defined, VCL.H does not define WIN32_LEAN_AND_MEAN. Default: OFF <br />
<br />
VCL_FULL <br />
Same as NO_WIN32_LEAN_AND_MEAN (NOTE: This macro is for BCB v1.0 backward compatibility) Default: OFF <br />
<br />
INC_VCLDB_HEADERS <br />
When this macro is defined, VCL.H includes the core Database headers of VCL. <br />
(Defining this macro is functionally equivalent to including VCLDB.H) Default: OFF <br />
<br />
INC_ALLVCL_HEADERS When this macro is defined, VCL.H includes all VCL headers. <br />
(Defining this macro is functionally equivalent to including VCLMAX.H) Default: OFF<br />
<br />
===Installation===<br />
====Installing Source Version (Release 7)====<br />
Make sure to install first the CE special packages (DesignPack, BarPack and StoragePack) and at last LMD-Tools Core Package (oldest to latest package). I strongly suggest to install all to the same installation path. Make sure that the source path is available in Library path settings and is in best case the first path mentioned. Then load the <br><br />
__lmd2003all_d5.bpg <br />
project group. <br><br />
This project group contains all package files in the order we suggest to install them. Ignore if e.g. dcllmdold.dpk is not found (or CE packages if you did not install them). However the most important point is, that dcllmdshared_d5 is the first package to be compiled. As a rule: lmd*.bpl are runtime packages, dcllmd*.bpl packages are designtime packages. Only for designtime packages press "Install" button. <br />
The compiler will place all new packages into your projects\bpl folder, so I suggest you remove runtime packages from previous installation. <br><br />
Do not use "Build ALL" command, because this feature is buggy in D5. If any further problems occur please let me know.<br><br />
<br />
====Version Mix Up====<br />
if Delphi claims that it can't find a file (though DCUs are available and Library Path is set correctly - see Environment Options), there can be only possible cause for the problem: There is a version mix up. <br />
For the offending files please check whether a previous version was completely uninstalled, that no parts are compiled into existing packages (e.g. your personal packages, you might have to rebuild the package), that your project was REBUILD (to force the compilation of latest PAS/DCU files). Furthermore the project files may have references to older package files (especially if you use runtime packages, simply check Package settings in Project Options.<br />
<br />
===="Entry Point not found" (Release 6)====<br />
Each time you receive "Entry Point not found" or "Could not find [..]" error, you can be sure that it is caused by a version mix up. I guess somehow you did not uninstall a previous version completely. E.g. if you compiled sourcecode, Delphi places created runtime BPL's automatically into the default BPL output path <br />
(can be set in Environment Options dialog). Older version may have installed them in System directory - so there is the possible version conflict.<br />
To completely remove an old LMD-Tools version (the hard way):<br />
* Close Delphi (Note: Be sure that you did not include any LMD-Tools units in own packages, otherwise <br />
open these packages, remove LMD-Tools units and recompile them).<br />
** Use all uninstallers for previous version<br />
** Delete all LMD-Tools directoies<br />
** Delete all LMD-Tools path settings from Extras|Environment Options|Tab Library<br />
** Now most important point: Search your harddisk (at least in your system directory <br />
and the Delphi Projects\BPL path) for LMD BPLs.<br />
* Use as search string lmd*.bpl for runtime packages.<br />
* Use as search string dcllmd*.bpl for designtime packages.<br />
* Remove them all<br />
To install LMD-Tools sourcecode:<br />
* Use the LMD-Tools 6 source installer<br />
* After installation check whether paths to LMD-Tools Source files are correctly set. If for any reason not, add them yourself<br />
* We have extremly simplified source compilation. Load the correct project group (e.g. lmdtools_d6.bpg for Delphi 6). and compile one package after another. Install only Desigtime packages (dcllmd*.bpk). All compiled packages can be found after compilation in the Projects\BPL path of your Delphi version. <br />
Note: Simply ignore errors for RichPack and ShellPack project files, both packages are not included in current release and will be available in the next days.<br><br />
<br><br />
To install LMD-Tools default packages:<br />
Run the correct installer. The only issues which could go wrong are:<br />
* Paths are not updated: Solution is to add paths manually<br />
* Packages are not seen in Delphi: Add dcl*.bpl packages manually from the Install Packages dialog.<br />
<br />
<br />
==LMD-Tools==<br />
===TLMDOneInstance: Flickering of main window when second instance is started.===<br />
There are two ways to workaround this:<br />
* You create a small separate application which has nothing else to do except closing the current instance and restarting it..<br />
* You do not use the component but internal functions of LMD-Tools (more complex, but elegant). <br />
To mimic TLMDOneInstance without using the control: In the project source file add LMDClass unit to uses clause and check LMDApplication.IsPrevRunning property before any form is loaded (this global property tells you, whether a previous instance is running). If yes, simple exit the application and call LMDActivatePrevInstance method from LMDUtils.pas to activate the already running instance. <br />
To explicitely allow restart simply use a command line parameter, so that test for previous instance is skipped when command line parameter is set.<br />
===Using OnCustomize event in dialog controls===<br />
<delphi><br />
procedure TForm1.dCustomize(Sender: TObject);<br />
var<br />
i:Integer;<br />
begin<br />
with TForm(Sender) do<br />
for i:=0 to ComponentCount-1 do<br />
if (Components[i] is TLMDButton) and (TLMDButton(Components[i]).Caption='&New Folder') then<br />
TLMDButton(Components[i]).Caption:='MyString';<br />
end;<br />
</delphi><br />
<br />
===Help Index problems until Delphi 7===<br />
Itsa actually a limitation of WinHelp and the amount of Indexes it can deal with. Go over the limit and the index part of WinHelp just packs up and goes home. The only solution is to open OpenHelp and remove a few indexes from the index tab until you get under the WinHelp threshold.</div>Wikiadminhttps://wiki.lmd.de/index.php?title=LMD_VCL_-_LMD_ElPack_FAQ&diff=1569LMD VCL - LMD ElPack FAQ2007-04-10T20:22:38Z<p>Wikiadmin: /* Could you tell me how to get the HTML text on an HTML Label (View, TElXTreeCell etc.) to center? */</p>
<hr />
<div>{{Head-Overview}} [[Category:FAQ]] [[Category:LMD ElPack]] <br />
<br />
<br />
== TElInspector ==<br />
=== How to use custom inplace editors? ===<br />
Inspector uses own collection of inplace editors. You can examine them in<br />
ElInspectorEditors.pas We'll define simple descendant of the button edit<br />
and will use it for editing of boolean values.<br />
<delphi><br />
type<br />
<br />
TForm1 = class(TForm)<br />
<br />
ElInspector1: TElInspector;<br />
ElInspectorRTTIDataSource1: TElInspectorRTTIDataSource;<br />
...<br />
<br />
end;<br />
<br />
TMyElInspectorInplaceButtonEdit = class(TElInspectorInplaceButtonEdit)<br />
protected<br />
procedure BtnClick(Sender: TObject); override;<br />
end;<br />
<br />
<br />
implementation<br />
<br />
{ TMyElInspectorInplaceButtonEdit }<br />
<br />
procedure TMyElInspectorInplaceButtonEdit.BtnClick(Sender: TObject);<br />
begin<br />
if MessageDlg('Yes = True, No = False', mtConfirmation, [mbYes,mbNo], 0) = mrYes then<br />
begin<br />
TElInspectorItem(Item).InspectorData.AsString := 'True';<br />
Editor.Text := 'True';<br />
end<br />
else<br />
begin<br />
TElInspectorItem(Item).InspectorData.AsString := 'False';<br />
Editor.Text := 'False';<br />
end;<br />
end;<br />
<br />
<br />
procedure TForm1.FormCreate(Sender: TObject);<br />
var<br />
i: integer;<br />
LT: TElInspectorRegister;<br />
begin<br />
// we must to find current editor for boolean values in inspector's editors list<br />
for i := 1 to ElInspectorRTTIDataSource1.RegisterList.Count - 1 do<br />
begin<br />
LT := TElInspectorRegister(ElInspectorRTTIDataSource1.RegisterList.Items[i]);<br />
if (LT is TElInspectorTypeInfo) and (TElInspectorTypeInfo(LT).TypeInfo = TypeInfo(Boolean)) then<br />
begin <br />
// remove current boolean editor<br />
ElInspectorRTTIDataSource1.RegisterList.Remove( ElInspectorRTTIDataSource1.RegisterList.Items[i] );<br />
// register our editor<br />
ElInspectorRTTIDataSource1.RegisterList.Insert(i, TElInspectorTypeInfo.Create(TMyElInspectorInplaceButtonEdit, TElBooleanProperty, TypeInfo(Boolean)));<br />
Break;<br />
end;<br />
end;<br />
</delphi><br><br />
<br />
== TStyleManager ==<br />
=== How to use StyleName? ===<br />
<br />
Style Manager operates with hierarchical style sheets. These style sheets are similar to Cascading Style Sheets (CSS), used in web pages, but they are more effective and easy to use. Each style sheet contains several styles. <br><br />
<br />
Each style contains one or more property values. When the style is applied to the component, the component is checked for presence of the property with given name. If the property is present, it is set to the value, specified in the style. <br><br />
<br />
Style can be one of three types: <br><br />
<br />
:1) Default<br />
:2) Class<br />
:3) Specific<br />
<br />
There is one default style per style sheet. It is an ancestor for all other styles. Specific styles are applied when they are explicitly referred to by the component (in it's StyleName property).<br><br />
Name of Specific style should begin by point (ex. '.CustomStyle') for prevention of crossing with names of classes.<br> <br />
Class styles are applied when there is no specific style name specified for the component. In this case the style with the name equal to component's class is searched for and applied. For example, if the component TElEdit refers to style manager, but there is no style name specified, Style Manager tries to find the style named 'TElEdit'. If it finds, this style is applied. <br><br />
<br />
== HTML controls ==<br />
=== Could you tell me how to get the HTML text on an HTML Label (View, TElXTreeCell etc.) to center? ===<br />
You may use <html4strict>'<p align="Center"></p>'</html4strict> tag to set desired text alignment.<br><br />
<br />
== El(X)Tree ==<br />
=== How to draw part of item's text to pass over the several columns? ===<br />
<br />
You can use OnItemPostDraw event to redraw part of item. For example I can<br />
redraw item text over first two columns:<br />
<br />
<delphi><br />
uses elstrutils;<br />
<br />
procedure TForm1.ElTree1ItemPostDraw(Sender: TObject; Canvas: TCanvas;<br />
Item: TElTreeItem; ItemRect: TRect; var DrawFocusRect: Boolean);<br />
var<br />
R: TRect;<br />
s: TElFString;<br />
i: integer;<br />
begin<br />
R := ItemRect;<br />
R.Right := ElTree1.HeaderSections[0].Width + ElTree1.HeaderSections[1].Width - 1;<br />
R.Top := R.Top + Item.Height div 2; // dirty calculation. use HTMLRender to render text if you need exact result<br />
// this is main column so we need to take into account space for lines and buttons<br />
R.Left := R.Left + Item.IndentAdjust;<br />
if (ElTree1.ShowRoot and ElTree1.ShowLines) or (ElTree1.ShowButtons and ElTree1.ShowRootButtons) then<br />
Inc(R.Left, ElTree1.ItemIndent)<br />
else<br />
Inc(R.Left, ElTree1.ItemIndent div 5);<br />
// offset rect if we use images<br />
R.Left := R.Left + 20 ; // paste here image width + 4 instead of 20<br />
Canvas.Brush.Style := bsSolid;<br />
Canvas.Brush.Color := clWhite; // set item's color if need<br />
// my Item.Text = '<html><b>Some text 1</b> <p>'+#13#10+'Some very very very very very very long text 2</html>'<br />
i := Pos(#10, Item.Text);<br />
s := '';<br />
if i > 0 then<br />
s := Copy(Item.Text, i + 1, length(Item.Text) - i - 8); // 8 to ignore '</html>'<br />
DrawTextW(Canvas.Handle, PWideChar(s), length(s), R, DT_NOPREFIX and DT_Left);<br />
end;<br />
</delphi><br />
<br />
== ElDB(X)Tree ==<br />
=== How could I display images in an Item if I've stored image's indexes in a database field? ===<br />
:1. Set TElDBXTree.ShowImages = True <br><br />
:2. Assign list of images (TImageList, TElImageList etc) to TElDBXTree.Images (and TElDBXTree.Images2 if you need it) properties <br><br />
:3. Open TElDBXTree.StylesDefs property in Object Inspector and choice "Table field" radiobutton in "Item images" radiogroup. It enforce setting Item.ImagesFromBase property to True for items. <br><br />
:4. Set data fields, where values for 1st (and 2st) image indexes was stored (look at Normal and State combos). <br><br />
<br />
Hereon you should see images on the left side of the item's text. <br><br />
<br />
=== How to make the sorted column drawn with an special background color ===<br />
There are several ways to reach it. <br><br />
<br />
:1) you may use OnSortEnd event to set custom style to each cell<br><br />
<br />
ex:<br><br />
<delphi><br />
procedure TForm1.ElXTree1SortEnd(Sender: TObject);<br />
var<br />
i, j: integer;<br />
begin<br />
for j := 0 to ElXTree1.Items.Count - 1 do<br />
begin<br />
for i := 0 to ElXTree1.HeaderSections.Count - 1 do<br />
begin<br />
ElXTree1.Items.Item[j].Cells[i].UseOwnStyle := True;<br />
if (i = ElXTree1.SortSection) and<br />
(ElXTree1.HeaderSections.Sections[ElXTree1.SortSection].SortMode <> hsmNone)<br />
then<br />
begin<br />
ElXTree1.Items.Item[j].Cells[i].Style.CellBackGroundColor := clMoneyGreen;<br />
ElXTree1.Items.Item[j].Cells[i].Style.ParentColors := false;<br />
ElXTree1.Items.Item[j].Cells[i].Style.UseBackGroundColor := true;<br />
end<br />
else<br />
begin<br />
ElXTree1.Items.Item[j].Cells[i].Style.CellBackGroundColor := clWhite;<br />
ElXTree1.Items.Item[j].Cells[i].Style.ParentColors := false;<br />
ElXTree1.Items.Item[j].Cells[i].Style.UseBackGroundColor := true;<br />
end;<br />
end;<br />
end;<br />
end;<br />
</delphi><br><br />
<br />
:2) you may use the cascading property of style to reach the same effect:<br><br />
ex:<br><br />
<delphi><br />
procedure TForm1.FormCreate(Sender: TObject);<br />
var<br />
i, j: integer;<br />
begin<br />
// create test tree with 5 items. set custom colors in cells but not activate it<br />
for j := 0 to 5 do<br />
begin<br />
ElXTree1.Items.AddChild(nil,'Item'+Inttostr(j));<br />
ElXTree1.Items.Item[j].Cells[1].Text := Inttostr(j);<br />
for i := 0 to ElXTree1.HeaderSections.Count - 1 do<br />
begin<br />
ElXTree1.Items.Item[j].Cells[i].UseOwnStyle := True;<br />
ElXTree1.Items.Item[j].Cells[i].Style.CellBackGroundColor := clMoneyGreen;<br />
ElXTree1.Items.Item[j].Cells[i].Style.ParentColors := true;<br />
end;<br />
end;<br />
end;<br />
<br />
procedure TForm1.ElXTree1SortEnd(Sender: TObject);<br />
var<br />
i, j: integer;<br />
begin<br />
// in this procedure we activate using own colors for cells in sorted section<br />
for j := 0 to ElXTree1.Items.Count - 1 do<br />
begin<br />
for i := 0 to ElXTree1.HeaderSections.Count - 1 do<br />
begin<br />
if (i = ElXTree1.SortSection) and<br />
(ElXTree1.HeaderSections.Sections[ElXTree1.SortSection].SortMode <> hsmNone) <br />
then<br />
ElXTree1.Items.Item[j].Cells[i].Style.ParentColors := false<br />
else<br />
ElXTree1.Items.Item[j].Cells[i].Style.ParentColors := true;<br />
end;<br />
end;<br />
end;<br />
</delphi><br><br />
<br />
:3) if the tree contains a lot of items more optimized to set colors in OnItemPreDraw event:<br><br />
ex:<br><br />
<delphi><br />
procedure TForm1.ElXTree1ItemPreDraw(Sender: TObject; Item: TElXTreeItem);<br />
var<br />
i: integer;<br />
begin<br />
for i := 0 to ElXTree1.HeaderSections.Count - 1 do<br />
begin<br />
Item.Cells[i].UseOwnStyle := True;<br />
if (i = ElXTree1.SortSection) and<br />
(ElXTree1.HeaderSections.Sections[ElXTree1.SortSection].SortMode <> hsmNone)<br />
then<br />
begin<br />
Item.Cells[i].Style.CellBackGroundColor := clMoneyGreen;<br />
Item.Cells[i].Style.ParentColors := false;<br />
Item.Cells[i].Style.UseBackGroundColor := true;<br />
end<br />
else<br />
begin<br />
Item.Cells[i].Style.CellBackGroundColor := clWhite;<br />
Item.Cells[i].Style.ParentColors := false;<br />
Item.Cells[i].Style.UseBackGroundColor := true;<br />
end;<br />
end;<br />
end;<br />
</delphi><br><br />
: 3a) ... or use virtual mode of tree <br><br />
[ Please look examle of virtual tree in our demo]<br></div>Wikiadminhttps://wiki.lmd.de/index.php?title=LMD_VCL_-_LMD_ElPack_FAQ&diff=1568LMD VCL - LMD ElPack FAQ2007-04-10T20:21:41Z<p>Wikiadmin: </p>
<hr />
<div>{{Head-Overview}} [[Category:FAQ]] [[Category:LMD ElPack]] <br />
<br />
<br />
== TElInspector ==<br />
=== How to use custom inplace editors? ===<br />
Inspector uses own collection of inplace editors. You can examine them in<br />
ElInspectorEditors.pas We'll define simple descendant of the button edit<br />
and will use it for editing of boolean values.<br />
<delphi><br />
type<br />
<br />
TForm1 = class(TForm)<br />
<br />
ElInspector1: TElInspector;<br />
ElInspectorRTTIDataSource1: TElInspectorRTTIDataSource;<br />
...<br />
<br />
end;<br />
<br />
TMyElInspectorInplaceButtonEdit = class(TElInspectorInplaceButtonEdit)<br />
protected<br />
procedure BtnClick(Sender: TObject); override;<br />
end;<br />
<br />
<br />
implementation<br />
<br />
{ TMyElInspectorInplaceButtonEdit }<br />
<br />
procedure TMyElInspectorInplaceButtonEdit.BtnClick(Sender: TObject);<br />
begin<br />
if MessageDlg('Yes = True, No = False', mtConfirmation, [mbYes,mbNo], 0) = mrYes then<br />
begin<br />
TElInspectorItem(Item).InspectorData.AsString := 'True';<br />
Editor.Text := 'True';<br />
end<br />
else<br />
begin<br />
TElInspectorItem(Item).InspectorData.AsString := 'False';<br />
Editor.Text := 'False';<br />
end;<br />
end;<br />
<br />
<br />
procedure TForm1.FormCreate(Sender: TObject);<br />
var<br />
i: integer;<br />
LT: TElInspectorRegister;<br />
begin<br />
// we must to find current editor for boolean values in inspector's editors list<br />
for i := 1 to ElInspectorRTTIDataSource1.RegisterList.Count - 1 do<br />
begin<br />
LT := TElInspectorRegister(ElInspectorRTTIDataSource1.RegisterList.Items[i]);<br />
if (LT is TElInspectorTypeInfo) and (TElInspectorTypeInfo(LT).TypeInfo = TypeInfo(Boolean)) then<br />
begin <br />
// remove current boolean editor<br />
ElInspectorRTTIDataSource1.RegisterList.Remove( ElInspectorRTTIDataSource1.RegisterList.Items[i] );<br />
// register our editor<br />
ElInspectorRTTIDataSource1.RegisterList.Insert(i, TElInspectorTypeInfo.Create(TMyElInspectorInplaceButtonEdit, TElBooleanProperty, TypeInfo(Boolean)));<br />
Break;<br />
end;<br />
end;<br />
</delphi><br><br />
<br />
== TStyleManager ==<br />
=== How to use StyleName? ===<br />
<br />
Style Manager operates with hierarchical style sheets. These style sheets are similar to Cascading Style Sheets (CSS), used in web pages, but they are more effective and easy to use. Each style sheet contains several styles. <br><br />
<br />
Each style contains one or more property values. When the style is applied to the component, the component is checked for presence of the property with given name. If the property is present, it is set to the value, specified in the style. <br><br />
<br />
Style can be one of three types: <br><br />
<br />
:1) Default<br />
:2) Class<br />
:3) Specific<br />
<br />
There is one default style per style sheet. It is an ancestor for all other styles. Specific styles are applied when they are explicitly referred to by the component (in it's StyleName property).<br><br />
Name of Specific style should begin by point (ex. '.CustomStyle') for prevention of crossing with names of classes.<br> <br />
Class styles are applied when there is no specific style name specified for the component. In this case the style with the name equal to component's class is searched for and applied. For example, if the component TElEdit refers to style manager, but there is no style name specified, Style Manager tries to find the style named 'TElEdit'. If it finds, this style is applied. <br><br />
<br />
== HTML controls ==<br />
=== Could you tell me how to get the HTML text on an HTML Label (View, TElXTreeCell etc.) to center? ===<br />
You may use <pre>'<p align="Center"></p>'</pre> tag to set desired text alignment.<br><br />
<br />
== El(X)Tree ==<br />
=== How to draw part of item's text to pass over the several columns? ===<br />
<br />
You can use OnItemPostDraw event to redraw part of item. For example I can<br />
redraw item text over first two columns:<br />
<br />
<delphi><br />
uses elstrutils;<br />
<br />
procedure TForm1.ElTree1ItemPostDraw(Sender: TObject; Canvas: TCanvas;<br />
Item: TElTreeItem; ItemRect: TRect; var DrawFocusRect: Boolean);<br />
var<br />
R: TRect;<br />
s: TElFString;<br />
i: integer;<br />
begin<br />
R := ItemRect;<br />
R.Right := ElTree1.HeaderSections[0].Width + ElTree1.HeaderSections[1].Width - 1;<br />
R.Top := R.Top + Item.Height div 2; // dirty calculation. use HTMLRender to render text if you need exact result<br />
// this is main column so we need to take into account space for lines and buttons<br />
R.Left := R.Left + Item.IndentAdjust;<br />
if (ElTree1.ShowRoot and ElTree1.ShowLines) or (ElTree1.ShowButtons and ElTree1.ShowRootButtons) then<br />
Inc(R.Left, ElTree1.ItemIndent)<br />
else<br />
Inc(R.Left, ElTree1.ItemIndent div 5);<br />
// offset rect if we use images<br />
R.Left := R.Left + 20 ; // paste here image width + 4 instead of 20<br />
Canvas.Brush.Style := bsSolid;<br />
Canvas.Brush.Color := clWhite; // set item's color if need<br />
// my Item.Text = '<html><b>Some text 1</b> <p>'+#13#10+'Some very very very very very very long text 2</html>'<br />
i := Pos(#10, Item.Text);<br />
s := '';<br />
if i > 0 then<br />
s := Copy(Item.Text, i + 1, length(Item.Text) - i - 8); // 8 to ignore '</html>'<br />
DrawTextW(Canvas.Handle, PWideChar(s), length(s), R, DT_NOPREFIX and DT_Left);<br />
end;<br />
</delphi><br />
<br />
== ElDB(X)Tree ==<br />
=== How could I display images in an Item if I've stored image's indexes in a database field? ===<br />
:1. Set TElDBXTree.ShowImages = True <br><br />
:2. Assign list of images (TImageList, TElImageList etc) to TElDBXTree.Images (and TElDBXTree.Images2 if you need it) properties <br><br />
:3. Open TElDBXTree.StylesDefs property in Object Inspector and choice "Table field" radiobutton in "Item images" radiogroup. It enforce setting Item.ImagesFromBase property to True for items. <br><br />
:4. Set data fields, where values for 1st (and 2st) image indexes was stored (look at Normal and State combos). <br><br />
<br />
Hereon you should see images on the left side of the item's text. <br><br />
<br />
=== How to make the sorted column drawn with an special background color ===<br />
There are several ways to reach it. <br><br />
<br />
:1) you may use OnSortEnd event to set custom style to each cell<br><br />
<br />
ex:<br><br />
<delphi><br />
procedure TForm1.ElXTree1SortEnd(Sender: TObject);<br />
var<br />
i, j: integer;<br />
begin<br />
for j := 0 to ElXTree1.Items.Count - 1 do<br />
begin<br />
for i := 0 to ElXTree1.HeaderSections.Count - 1 do<br />
begin<br />
ElXTree1.Items.Item[j].Cells[i].UseOwnStyle := True;<br />
if (i = ElXTree1.SortSection) and<br />
(ElXTree1.HeaderSections.Sections[ElXTree1.SortSection].SortMode <> hsmNone)<br />
then<br />
begin<br />
ElXTree1.Items.Item[j].Cells[i].Style.CellBackGroundColor := clMoneyGreen;<br />
ElXTree1.Items.Item[j].Cells[i].Style.ParentColors := false;<br />
ElXTree1.Items.Item[j].Cells[i].Style.UseBackGroundColor := true;<br />
end<br />
else<br />
begin<br />
ElXTree1.Items.Item[j].Cells[i].Style.CellBackGroundColor := clWhite;<br />
ElXTree1.Items.Item[j].Cells[i].Style.ParentColors := false;<br />
ElXTree1.Items.Item[j].Cells[i].Style.UseBackGroundColor := true;<br />
end;<br />
end;<br />
end;<br />
end;<br />
</delphi><br><br />
<br />
:2) you may use the cascading property of style to reach the same effect:<br><br />
ex:<br><br />
<delphi><br />
procedure TForm1.FormCreate(Sender: TObject);<br />
var<br />
i, j: integer;<br />
begin<br />
// create test tree with 5 items. set custom colors in cells but not activate it<br />
for j := 0 to 5 do<br />
begin<br />
ElXTree1.Items.AddChild(nil,'Item'+Inttostr(j));<br />
ElXTree1.Items.Item[j].Cells[1].Text := Inttostr(j);<br />
for i := 0 to ElXTree1.HeaderSections.Count - 1 do<br />
begin<br />
ElXTree1.Items.Item[j].Cells[i].UseOwnStyle := True;<br />
ElXTree1.Items.Item[j].Cells[i].Style.CellBackGroundColor := clMoneyGreen;<br />
ElXTree1.Items.Item[j].Cells[i].Style.ParentColors := true;<br />
end;<br />
end;<br />
end;<br />
<br />
procedure TForm1.ElXTree1SortEnd(Sender: TObject);<br />
var<br />
i, j: integer;<br />
begin<br />
// in this procedure we activate using own colors for cells in sorted section<br />
for j := 0 to ElXTree1.Items.Count - 1 do<br />
begin<br />
for i := 0 to ElXTree1.HeaderSections.Count - 1 do<br />
begin<br />
if (i = ElXTree1.SortSection) and<br />
(ElXTree1.HeaderSections.Sections[ElXTree1.SortSection].SortMode <> hsmNone) <br />
then<br />
ElXTree1.Items.Item[j].Cells[i].Style.ParentColors := false<br />
else<br />
ElXTree1.Items.Item[j].Cells[i].Style.ParentColors := true;<br />
end;<br />
end;<br />
end;<br />
</delphi><br><br />
<br />
:3) if the tree contains a lot of items more optimized to set colors in OnItemPreDraw event:<br><br />
ex:<br><br />
<delphi><br />
procedure TForm1.ElXTree1ItemPreDraw(Sender: TObject; Item: TElXTreeItem);<br />
var<br />
i: integer;<br />
begin<br />
for i := 0 to ElXTree1.HeaderSections.Count - 1 do<br />
begin<br />
Item.Cells[i].UseOwnStyle := True;<br />
if (i = ElXTree1.SortSection) and<br />
(ElXTree1.HeaderSections.Sections[ElXTree1.SortSection].SortMode <> hsmNone)<br />
then<br />
begin<br />
Item.Cells[i].Style.CellBackGroundColor := clMoneyGreen;<br />
Item.Cells[i].Style.ParentColors := false;<br />
Item.Cells[i].Style.UseBackGroundColor := true;<br />
end<br />
else<br />
begin<br />
Item.Cells[i].Style.CellBackGroundColor := clWhite;<br />
Item.Cells[i].Style.ParentColors := false;<br />
Item.Cells[i].Style.UseBackGroundColor := true;<br />
end;<br />
end;<br />
end;<br />
</delphi><br><br />
: 3a) ... or use virtual mode of tree <br><br />
[ Please look examle of virtual tree in our demo]<br></div>Wikiadminhttps://wiki.lmd.de/index.php?title=LMD_VCL_-_LMD_ElPack_FAQ&diff=1567LMD VCL - LMD ElPack FAQ2007-04-10T20:15:37Z<p>Wikiadmin: </p>
<hr />
<div>{{Head-Overview}} [[Category:FAQ]] [[Category:LMD ElPack]] <br />
<br />
<br />
== TElInspector ==<br />
=== How to use custom inplace editors? ===<br />
Inspector uses own collection of inplace editors. You can examine them in<br />
ElInspectorEditors.pas We'll define simple descendant of the button edit<br />
and will use it for editing of boolean values.<br />
<delphi><br />
type<br />
<br />
TForm1 = class(TForm)<br />
<br />
ElInspector1: TElInspector;<br />
ElInspectorRTTIDataSource1: TElInspectorRTTIDataSource;<br />
...<br />
<br />
end;<br />
<br />
TMyElInspectorInplaceButtonEdit = class(TElInspectorInplaceButtonEdit)<br />
protected<br />
procedure BtnClick(Sender: TObject); override;<br />
end;<br />
<br />
<br />
implementation<br />
<br />
{ TMyElInspectorInplaceButtonEdit }<br />
<br />
procedure TMyElInspectorInplaceButtonEdit.BtnClick(Sender: TObject);<br />
begin<br />
if MessageDlg('Yes = True, No = False', mtConfirmation, [mbYes,mbNo], 0) = mrYes then<br />
begin<br />
TElInspectorItem(Item).InspectorData.AsString := 'True';<br />
Editor.Text := 'True';<br />
end<br />
else<br />
begin<br />
TElInspectorItem(Item).InspectorData.AsString := 'False';<br />
Editor.Text := 'False';<br />
end;<br />
end;<br />
<br />
<br />
procedure TForm1.FormCreate(Sender: TObject);<br />
var<br />
i: integer;<br />
LT: TElInspectorRegister;<br />
begin<br />
// we must to find current editor for boolean values in inspector's editors list<br />
for i := 1 to ElInspectorRTTIDataSource1.RegisterList.Count - 1 do<br />
begin<br />
LT := TElInspectorRegister(ElInspectorRTTIDataSource1.RegisterList.Items[i]);<br />
if (LT is TElInspectorTypeInfo) and (TElInspectorTypeInfo(LT).TypeInfo = TypeInfo(Boolean)) then<br />
begin <br />
// remove current boolean editor<br />
ElInspectorRTTIDataSource1.RegisterList.Remove( ElInspectorRTTIDataSource1.RegisterList.Items[i] );<br />
// register our editor<br />
ElInspectorRTTIDataSource1.RegisterList.Insert(i, TElInspectorTypeInfo.Create(TMyElInspectorInplaceButtonEdit, TElBooleanProperty, TypeInfo(Boolean)));<br />
Break;<br />
end;<br />
end;<br />
</delphi><br><br />
<br />
== TStyleManager ==<br />
=== How to use StyleName? ===<br />
<br />
Style Manager operates with hierarchical style sheets. These style sheets are similar to Cascading Style Sheets (CSS), used in web pages, but they are more effective and easy to use. Each style sheet contains several styles. <br><br />
<br />
Each style contains one or more property values. When the style is applied to the component, the component is checked for presence of the property with given name. If the property is present, it is set to the value, specified in the style. <br><br />
<br />
Style can be one of three types: <br><br />
<br />
:1) Default<br />
:2) Class<br />
:3) Specific<br />
<br />
There is one default style per style sheet. It is an ancestor for all other styles. Specific styles are applied when they are explicitly referred to by the component (in it's StyleName property).<br><br />
Name of Specific style should begin by point (ex. '.CustomStyle') for prevention of crossing with names of classes.<br> <br />
Class styles are applied when there is no specific style name specified for the component. In this case the style with the name equal to component's class is searched for and applied. For example, if the component TElEdit refers to style manager, but there is no style name specified, Style Manager tries to find the style named 'TElEdit'. If it finds, this style is applied. <br><br />
<br />
== HTML controls ==<br />
=== Could you tell me how to get the HTML text on an HTML Label (View, TElXTreeCell etc.) to center? ===<br />
You may use <pre>'<p align="Center"></p>'</pre> tag to set desired text alignment.<br><br />
<br />
== El(X)Tree ==<br />
=== How to draw part of item's text to pass over the several columns? ===<br />
<br />
You can use OnItemPostDraw event to redraw part of item. For example I can<br />
redraw item text over first two columns:<br />
<br />
<pre><br />
uses elstrutils;<br />
<br />
procedure TForm1.ElTree1ItemPostDraw(Sender: TObject; Canvas: TCanvas;<br />
Item: TElTreeItem; ItemRect: TRect; var DrawFocusRect: Boolean);<br />
var<br />
R: TRect;<br />
s: TElFString;<br />
i: integer;<br />
begin<br />
R := ItemRect;<br />
R.Right := ElTree1.HeaderSections[0].Width + ElTree1.HeaderSections[1].Width - 1;<br />
R.Top := R.Top + Item.Height div 2; // dirty calculation. use HTMLRender to render text if you need exact result<br />
// this is main column so we need to take into account space for lines and buttons<br />
R.Left := R.Left + Item.IndentAdjust;<br />
if (ElTree1.ShowRoot and ElTree1.ShowLines) or (ElTree1.ShowButtons and ElTree1.ShowRootButtons) then<br />
Inc(R.Left, ElTree1.ItemIndent)<br />
else<br />
Inc(R.Left, ElTree1.ItemIndent div 5);<br />
// offset rect if we use images<br />
R.Left := R.Left + 20 ; // paste here image width + 4 instead of 20<br />
Canvas.Brush.Style := bsSolid;<br />
Canvas.Brush.Color := clWhite; // set item's color if need<br />
// my Item.Text = '<html><b>Some text 1</b> <p>'+#13#10+'Some very very very very very very long text 2</html>'<br />
i := Pos(#10, Item.Text);<br />
s := '';<br />
if i > 0 then<br />
s := Copy(Item.Text, i + 1, length(Item.Text) - i - 8); // 8 to ignore '</html>'<br />
DrawTextW(Canvas.Handle, PWideChar(s), length(s), R, DT_NOPREFIX and DT_Left);<br />
end;<br />
</pre><br />
<br />
== ElDB(X)Tree ==<br />
=== How could I display images in an Item if I've stored image's indexes in a database field? ===<br />
:1. Set TElDBXTree.ShowImages = True <br><br />
:2. Assign list of images (TImageList, TElImageList etc) to TElDBXTree.Images (and TElDBXTree.Images2 if you need it) properties <br><br />
:3. Open TElDBXTree.StylesDefs property in Object Inspector and choice "Table field" radiobutton in "Item images" radiogroup. It enforce setting Item.ImagesFromBase property to True for items. <br><br />
:4. Set data fields, where values for 1st (and 2st) image indexes was stored (look at Normal and State combos). <br><br />
<br />
Hereon you should see images on the left side of the item's text. <br><br />
<br />
=== How to make the sorted column drawn with an special background color ===<br />
There are several ways to reach it. <br><br />
<br />
:1) you may use OnSortEnd event to set custom style to each cell<br><br />
<br />
ex:<br><br />
<pre><br />
procedure TForm1.ElXTree1SortEnd(Sender: TObject);<br />
var<br />
i, j: integer;<br />
begin<br />
for j := 0 to ElXTree1.Items.Count - 1 do<br />
begin<br />
for i := 0 to ElXTree1.HeaderSections.Count - 1 do<br />
begin<br />
ElXTree1.Items.Item[j].Cells[i].UseOwnStyle := True;<br />
if (i = ElXTree1.SortSection) and<br />
(ElXTree1.HeaderSections.Sections[ElXTree1.SortSection].SortMode <> hsmNone)<br />
then<br />
begin<br />
ElXTree1.Items.Item[j].Cells[i].Style.CellBackGroundColor := clMoneyGreen;<br />
ElXTree1.Items.Item[j].Cells[i].Style.ParentColors := false;<br />
ElXTree1.Items.Item[j].Cells[i].Style.UseBackGroundColor := true;<br />
end<br />
else<br />
begin<br />
ElXTree1.Items.Item[j].Cells[i].Style.CellBackGroundColor := clWhite;<br />
ElXTree1.Items.Item[j].Cells[i].Style.ParentColors := false;<br />
ElXTree1.Items.Item[j].Cells[i].Style.UseBackGroundColor := true;<br />
end;<br />
end;<br />
end;<br />
end;<br />
</pre><br><br />
<br />
:2) you may use the cascading property of style to reach the same effect:<br><br />
ex:<br><br />
<pre><br />
procedure TForm1.FormCreate(Sender: TObject);<br />
var<br />
i, j: integer;<br />
begin<br />
// create test tree with 5 items. set custom colors in cells but not activate it<br />
for j := 0 to 5 do<br />
begin<br />
ElXTree1.Items.AddChild(nil,'Item'+Inttostr(j));<br />
ElXTree1.Items.Item[j].Cells[1].Text := Inttostr(j);<br />
for i := 0 to ElXTree1.HeaderSections.Count - 1 do<br />
begin<br />
ElXTree1.Items.Item[j].Cells[i].UseOwnStyle := True;<br />
ElXTree1.Items.Item[j].Cells[i].Style.CellBackGroundColor := clMoneyGreen;<br />
ElXTree1.Items.Item[j].Cells[i].Style.ParentColors := true;<br />
end;<br />
end;<br />
end;<br />
<br />
procedure TForm1.ElXTree1SortEnd(Sender: TObject);<br />
var<br />
i, j: integer;<br />
begin<br />
// in this procedure we activate using own colors for cells in sorted section<br />
for j := 0 to ElXTree1.Items.Count - 1 do<br />
begin<br />
for i := 0 to ElXTree1.HeaderSections.Count - 1 do<br />
begin<br />
if (i = ElXTree1.SortSection) and<br />
(ElXTree1.HeaderSections.Sections[ElXTree1.SortSection].SortMode <> hsmNone) <br />
then<br />
ElXTree1.Items.Item[j].Cells[i].Style.ParentColors := false<br />
else<br />
ElXTree1.Items.Item[j].Cells[i].Style.ParentColors := true;<br />
end;<br />
end;<br />
end;<br />
</pre><br><br />
<br />
:3) if the tree contains a lot of items more optimized to set colors in OnItemPreDraw event:<br><br />
ex:<br><br />
<pre><br />
procedure TForm1.ElXTree1ItemPreDraw(Sender: TObject; Item: TElXTreeItem);<br />
var<br />
i: integer;<br />
begin<br />
for i := 0 to ElXTree1.HeaderSections.Count - 1 do<br />
begin<br />
Item.Cells[i].UseOwnStyle := True;<br />
if (i = ElXTree1.SortSection) and<br />
(ElXTree1.HeaderSections.Sections[ElXTree1.SortSection].SortMode <> hsmNone)<br />
then<br />
begin<br />
Item.Cells[i].Style.CellBackGroundColor := clMoneyGreen;<br />
Item.Cells[i].Style.ParentColors := false;<br />
Item.Cells[i].Style.UseBackGroundColor := true;<br />
end<br />
else<br />
begin<br />
Item.Cells[i].Style.CellBackGroundColor := clWhite;<br />
Item.Cells[i].Style.ParentColors := false;<br />
Item.Cells[i].Style.UseBackGroundColor := true;<br />
end;<br />
end;<br />
end;<br />
</pre><br><br />
: 3a) ... or use virtual mode of tree <br><br />
[ Please look examle of virtual tree in our demo]<br></div>Wikiadminhttps://wiki.lmd.de/index.php?title=LMD_VCL_-_LMD_ElPack_FAQ&diff=1566LMD VCL - LMD ElPack FAQ2007-04-10T20:02:24Z<p>Wikiadmin: </p>
<hr />
<div>{{Head-Overview}} [[Category:FAQ]] [[Category:LMD ElPack]] <br />
<br />
<br />
== TElInspector ==<br />
=== How to use custom inplace editors? ===<br />
Inspector uses own collection of inplace editors. You can examine them in<br />
ElInspectorEditors.pas We'll define simple descendant of the button edit<br />
and will use it for editing of boolean values.<br />
<pre lang="delphi"><br />
type<br />
<br />
TForm1 = class(TForm)<br />
<br />
ElInspector1: TElInspector;<br />
ElInspectorRTTIDataSource1: TElInspectorRTTIDataSource;<br />
...<br />
<br />
end;<br />
<br />
TMyElInspectorInplaceButtonEdit = class(TElInspectorInplaceButtonEdit)<br />
protected<br />
procedure BtnClick(Sender: TObject); override;<br />
end;<br />
<br />
<br />
implementation<br />
<br />
{ TMyElInspectorInplaceButtonEdit }<br />
<br />
procedure TMyElInspectorInplaceButtonEdit.BtnClick(Sender: TObject);<br />
begin<br />
if MessageDlg('Yes = True, No = False', mtConfirmation, [mbYes,mbNo], 0) = mrYes then<br />
begin<br />
TElInspectorItem(Item).InspectorData.AsString := 'True';<br />
Editor.Text := 'True';<br />
end<br />
else<br />
begin<br />
TElInspectorItem(Item).InspectorData.AsString := 'False';<br />
Editor.Text := 'False';<br />
end;<br />
end;<br />
<br />
<br />
procedure TForm1.FormCreate(Sender: TObject);<br />
var<br />
i: integer;<br />
LT: TElInspectorRegister;<br />
begin<br />
// we must to find current editor for boolean values in inspector's editors list<br />
for i := 1 to ElInspectorRTTIDataSource1.RegisterList.Count - 1 do<br />
begin<br />
LT := TElInspectorRegister(ElInspectorRTTIDataSource1.RegisterList.Items[i]);<br />
if (LT is TElInspectorTypeInfo) and (TElInspectorTypeInfo(LT).TypeInfo = TypeInfo(Boolean)) then<br />
begin <br />
// remove current boolean editor<br />
ElInspectorRTTIDataSource1.RegisterList.Remove( ElInspectorRTTIDataSource1.RegisterList.Items[i] );<br />
// register our editor<br />
ElInspectorRTTIDataSource1.RegisterList.Insert(i, TElInspectorTypeInfo.Create(TMyElInspectorInplaceButtonEdit, TElBooleanProperty, TypeInfo(Boolean)));<br />
Break;<br />
end;<br />
end;<br />
</pre><br><br />
<br />
== TStyleManager ==<br />
=== How to use StyleName? ===<br />
<br />
Style Manager operates with hierarchical style sheets. These style sheets are similar to Cascading Style Sheets (CSS), used in web pages, but they are more effective and easy to use. Each style sheet contains several styles. <br><br />
<br />
Each style contains one or more property values. When the style is applied to the component, the component is checked for presence of the property with given name. If the property is present, it is set to the value, specified in the style. <br><br />
<br />
Style can be one of three types: <br><br />
<br />
:1) Default<br />
:2) Class<br />
:3) Specific<br />
<br />
There is one default style per style sheet. It is an ancestor for all other styles. Specific styles are applied when they are explicitly referred to by the component (in it's StyleName property).<br><br />
Name of Specific style should begin by point (ex. '.CustomStyle') for prevention of crossing with names of classes.<br> <br />
Class styles are applied when there is no specific style name specified for the component. In this case the style with the name equal to component's class is searched for and applied. For example, if the component TElEdit refers to style manager, but there is no style name specified, Style Manager tries to find the style named 'TElEdit'. If it finds, this style is applied. <br><br />
<br />
== HTML controls ==<br />
=== Could you tell me how to get the HTML text on an HTML Label (View, TElXTreeCell etc.) to center? ===<br />
You may use <pre>'<p align="Center"></p>'</pre> tag to set desired text alignment.<br><br />
<br />
== El(X)Tree ==<br />
=== How to draw part of item's text to pass over the several columns? ===<br />
<br />
You can use OnItemPostDraw event to redraw part of item. For example I can<br />
redraw item text over first two columns:<br />
<br />
<pre><br />
uses elstrutils;<br />
<br />
procedure TForm1.ElTree1ItemPostDraw(Sender: TObject; Canvas: TCanvas;<br />
Item: TElTreeItem; ItemRect: TRect; var DrawFocusRect: Boolean);<br />
var<br />
R: TRect;<br />
s: TElFString;<br />
i: integer;<br />
begin<br />
R := ItemRect;<br />
R.Right := ElTree1.HeaderSections[0].Width + ElTree1.HeaderSections[1].Width - 1;<br />
R.Top := R.Top + Item.Height div 2; // dirty calculation. use HTMLRender to render text if you need exact result<br />
// this is main column so we need to take into account space for lines and buttons<br />
R.Left := R.Left + Item.IndentAdjust;<br />
if (ElTree1.ShowRoot and ElTree1.ShowLines) or (ElTree1.ShowButtons and ElTree1.ShowRootButtons) then<br />
Inc(R.Left, ElTree1.ItemIndent)<br />
else<br />
Inc(R.Left, ElTree1.ItemIndent div 5);<br />
// offset rect if we use images<br />
R.Left := R.Left + 20 ; // paste here image width + 4 instead of 20<br />
Canvas.Brush.Style := bsSolid;<br />
Canvas.Brush.Color := clWhite; // set item's color if need<br />
// my Item.Text = '<html><b>Some text 1</b> <p>'+#13#10+'Some very very very very very very long text 2</html>'<br />
i := Pos(#10, Item.Text);<br />
s := '';<br />
if i > 0 then<br />
s := Copy(Item.Text, i + 1, length(Item.Text) - i - 8); // 8 to ignore '</html>'<br />
DrawTextW(Canvas.Handle, PWideChar(s), length(s), R, DT_NOPREFIX and DT_Left);<br />
end;<br />
</pre><br />
<br />
== ElDB(X)Tree ==<br />
=== How could I display images in an Item if I've stored image's indexes in a database field? ===<br />
:1. Set TElDBXTree.ShowImages = True <br><br />
:2. Assign list of images (TImageList, TElImageList etc) to TElDBXTree.Images (and TElDBXTree.Images2 if you need it) properties <br><br />
:3. Open TElDBXTree.StylesDefs property in Object Inspector and choice "Table field" radiobutton in "Item images" radiogroup. It enforce setting Item.ImagesFromBase property to True for items. <br><br />
:4. Set data fields, where values for 1st (and 2st) image indexes was stored (look at Normal and State combos). <br><br />
<br />
Hereon you should see images on the left side of the item's text. <br><br />
<br />
=== How to make the sorted column drawn with an special background color ===<br />
There are several ways to reach it. <br><br />
<br />
:1) you may use OnSortEnd event to set custom style to each cell<br><br />
<br />
ex:<br><br />
<pre><br />
procedure TForm1.ElXTree1SortEnd(Sender: TObject);<br />
var<br />
i, j: integer;<br />
begin<br />
for j := 0 to ElXTree1.Items.Count - 1 do<br />
begin<br />
for i := 0 to ElXTree1.HeaderSections.Count - 1 do<br />
begin<br />
ElXTree1.Items.Item[j].Cells[i].UseOwnStyle := True;<br />
if (i = ElXTree1.SortSection) and<br />
(ElXTree1.HeaderSections.Sections[ElXTree1.SortSection].SortMode <> hsmNone)<br />
then<br />
begin<br />
ElXTree1.Items.Item[j].Cells[i].Style.CellBackGroundColor := clMoneyGreen;<br />
ElXTree1.Items.Item[j].Cells[i].Style.ParentColors := false;<br />
ElXTree1.Items.Item[j].Cells[i].Style.UseBackGroundColor := true;<br />
end<br />
else<br />
begin<br />
ElXTree1.Items.Item[j].Cells[i].Style.CellBackGroundColor := clWhite;<br />
ElXTree1.Items.Item[j].Cells[i].Style.ParentColors := false;<br />
ElXTree1.Items.Item[j].Cells[i].Style.UseBackGroundColor := true;<br />
end;<br />
end;<br />
end;<br />
end;<br />
</pre><br><br />
<br />
:2) you may use the cascading property of style to reach the same effect:<br><br />
ex:<br><br />
<pre><br />
procedure TForm1.FormCreate(Sender: TObject);<br />
var<br />
i, j: integer;<br />
begin<br />
// create test tree with 5 items. set custom colors in cells but not activate it<br />
for j := 0 to 5 do<br />
begin<br />
ElXTree1.Items.AddChild(nil,'Item'+Inttostr(j));<br />
ElXTree1.Items.Item[j].Cells[1].Text := Inttostr(j);<br />
for i := 0 to ElXTree1.HeaderSections.Count - 1 do<br />
begin<br />
ElXTree1.Items.Item[j].Cells[i].UseOwnStyle := True;<br />
ElXTree1.Items.Item[j].Cells[i].Style.CellBackGroundColor := clMoneyGreen;<br />
ElXTree1.Items.Item[j].Cells[i].Style.ParentColors := true;<br />
end;<br />
end;<br />
end;<br />
<br />
procedure TForm1.ElXTree1SortEnd(Sender: TObject);<br />
var<br />
i, j: integer;<br />
begin<br />
// in this procedure we activate using own colors for cells in sorted section<br />
for j := 0 to ElXTree1.Items.Count - 1 do<br />
begin<br />
for i := 0 to ElXTree1.HeaderSections.Count - 1 do<br />
begin<br />
if (i = ElXTree1.SortSection) and<br />
(ElXTree1.HeaderSections.Sections[ElXTree1.SortSection].SortMode <> hsmNone) <br />
then<br />
ElXTree1.Items.Item[j].Cells[i].Style.ParentColors := false<br />
else<br />
ElXTree1.Items.Item[j].Cells[i].Style.ParentColors := true;<br />
end;<br />
end;<br />
end;<br />
</pre><br><br />
<br />
:3) if the tree contains a lot of items more optimized to set colors in OnItemPreDraw event:<br><br />
ex:<br><br />
<pre><br />
procedure TForm1.ElXTree1ItemPreDraw(Sender: TObject; Item: TElXTreeItem);<br />
var<br />
i: integer;<br />
begin<br />
for i := 0 to ElXTree1.HeaderSections.Count - 1 do<br />
begin<br />
Item.Cells[i].UseOwnStyle := True;<br />
if (i = ElXTree1.SortSection) and<br />
(ElXTree1.HeaderSections.Sections[ElXTree1.SortSection].SortMode <> hsmNone)<br />
then<br />
begin<br />
Item.Cells[i].Style.CellBackGroundColor := clMoneyGreen;<br />
Item.Cells[i].Style.ParentColors := false;<br />
Item.Cells[i].Style.UseBackGroundColor := true;<br />
end<br />
else<br />
begin<br />
Item.Cells[i].Style.CellBackGroundColor := clWhite;<br />
Item.Cells[i].Style.ParentColors := false;<br />
Item.Cells[i].Style.UseBackGroundColor := true;<br />
end;<br />
end;<br />
end;<br />
</pre><br><br />
: 3a) ... or use virtual mode of tree <br><br />
[ Please look examle of virtual tree in our demo]<br></div>Wikiadminhttps://wiki.lmd.de/index.php?title=LMD_VCL_-_LMD_ElPack_FAQ&diff=1565LMD VCL - LMD ElPack FAQ2007-04-10T20:02:01Z<p>Wikiadmin: </p>
<hr />
<div>{{Head-Overview}} [[Category:FAQ]] [[Category:LMD ElPack]] <br />
<br />
<br />
== TElInspector ==<br />
=== How to use custom inplace editors? ===<br />
Inspector uses own collection of inplace editors. You can examine them in<br />
ElInspectorEditors.pas We'll define simple descendant of the button edit<br />
and will use it for editing of boolean values.<br />
<source lang="delphi"><br />
type<br />
<br />
TForm1 = class(TForm)<br />
<br />
ElInspector1: TElInspector;<br />
ElInspectorRTTIDataSource1: TElInspectorRTTIDataSource;<br />
...<br />
<br />
end;<br />
<br />
TMyElInspectorInplaceButtonEdit = class(TElInspectorInplaceButtonEdit)<br />
protected<br />
procedure BtnClick(Sender: TObject); override;<br />
end;<br />
<br />
<br />
implementation<br />
<br />
{ TMyElInspectorInplaceButtonEdit }<br />
<br />
procedure TMyElInspectorInplaceButtonEdit.BtnClick(Sender: TObject);<br />
begin<br />
if MessageDlg('Yes = True, No = False', mtConfirmation, [mbYes,mbNo], 0) = mrYes then<br />
begin<br />
TElInspectorItem(Item).InspectorData.AsString := 'True';<br />
Editor.Text := 'True';<br />
end<br />
else<br />
begin<br />
TElInspectorItem(Item).InspectorData.AsString := 'False';<br />
Editor.Text := 'False';<br />
end;<br />
end;<br />
<br />
<br />
procedure TForm1.FormCreate(Sender: TObject);<br />
var<br />
i: integer;<br />
LT: TElInspectorRegister;<br />
begin<br />
// we must to find current editor for boolean values in inspector's editors list<br />
for i := 1 to ElInspectorRTTIDataSource1.RegisterList.Count - 1 do<br />
begin<br />
LT := TElInspectorRegister(ElInspectorRTTIDataSource1.RegisterList.Items[i]);<br />
if (LT is TElInspectorTypeInfo) and (TElInspectorTypeInfo(LT).TypeInfo = TypeInfo(Boolean)) then<br />
begin <br />
// remove current boolean editor<br />
ElInspectorRTTIDataSource1.RegisterList.Remove( ElInspectorRTTIDataSource1.RegisterList.Items[i] );<br />
// register our editor<br />
ElInspectorRTTIDataSource1.RegisterList.Insert(i, TElInspectorTypeInfo.Create(TMyElInspectorInplaceButtonEdit, TElBooleanProperty, TypeInfo(Boolean)));<br />
Break;<br />
end;<br />
end;<br />
</source><br><br />
<br />
== TStyleManager ==<br />
=== How to use StyleName? ===<br />
<br />
Style Manager operates with hierarchical style sheets. These style sheets are similar to Cascading Style Sheets (CSS), used in web pages, but they are more effective and easy to use. Each style sheet contains several styles. <br><br />
<br />
Each style contains one or more property values. When the style is applied to the component, the component is checked for presence of the property with given name. If the property is present, it is set to the value, specified in the style. <br><br />
<br />
Style can be one of three types: <br><br />
<br />
:1) Default<br />
:2) Class<br />
:3) Specific<br />
<br />
There is one default style per style sheet. It is an ancestor for all other styles. Specific styles are applied when they are explicitly referred to by the component (in it's StyleName property).<br><br />
Name of Specific style should begin by point (ex. '.CustomStyle') for prevention of crossing with names of classes.<br> <br />
Class styles are applied when there is no specific style name specified for the component. In this case the style with the name equal to component's class is searched for and applied. For example, if the component TElEdit refers to style manager, but there is no style name specified, Style Manager tries to find the style named 'TElEdit'. If it finds, this style is applied. <br><br />
<br />
== HTML controls ==<br />
=== Could you tell me how to get the HTML text on an HTML Label (View, TElXTreeCell etc.) to center? ===<br />
You may use <pre>'<p align="Center"></p>'</pre> tag to set desired text alignment.<br><br />
<br />
== El(X)Tree ==<br />
=== How to draw part of item's text to pass over the several columns? ===<br />
<br />
You can use OnItemPostDraw event to redraw part of item. For example I can<br />
redraw item text over first two columns:<br />
<br />
<pre><br />
uses elstrutils;<br />
<br />
procedure TForm1.ElTree1ItemPostDraw(Sender: TObject; Canvas: TCanvas;<br />
Item: TElTreeItem; ItemRect: TRect; var DrawFocusRect: Boolean);<br />
var<br />
R: TRect;<br />
s: TElFString;<br />
i: integer;<br />
begin<br />
R := ItemRect;<br />
R.Right := ElTree1.HeaderSections[0].Width + ElTree1.HeaderSections[1].Width - 1;<br />
R.Top := R.Top + Item.Height div 2; // dirty calculation. use HTMLRender to render text if you need exact result<br />
// this is main column so we need to take into account space for lines and buttons<br />
R.Left := R.Left + Item.IndentAdjust;<br />
if (ElTree1.ShowRoot and ElTree1.ShowLines) or (ElTree1.ShowButtons and ElTree1.ShowRootButtons) then<br />
Inc(R.Left, ElTree1.ItemIndent)<br />
else<br />
Inc(R.Left, ElTree1.ItemIndent div 5);<br />
// offset rect if we use images<br />
R.Left := R.Left + 20 ; // paste here image width + 4 instead of 20<br />
Canvas.Brush.Style := bsSolid;<br />
Canvas.Brush.Color := clWhite; // set item's color if need<br />
// my Item.Text = '<html><b>Some text 1</b> <p>'+#13#10+'Some very very very very very very long text 2</html>'<br />
i := Pos(#10, Item.Text);<br />
s := '';<br />
if i > 0 then<br />
s := Copy(Item.Text, i + 1, length(Item.Text) - i - 8); // 8 to ignore '</html>'<br />
DrawTextW(Canvas.Handle, PWideChar(s), length(s), R, DT_NOPREFIX and DT_Left);<br />
end;<br />
</pre><br />
<br />
== ElDB(X)Tree ==<br />
=== How could I display images in an Item if I've stored image's indexes in a database field? ===<br />
:1. Set TElDBXTree.ShowImages = True <br><br />
:2. Assign list of images (TImageList, TElImageList etc) to TElDBXTree.Images (and TElDBXTree.Images2 if you need it) properties <br><br />
:3. Open TElDBXTree.StylesDefs property in Object Inspector and choice "Table field" radiobutton in "Item images" radiogroup. It enforce setting Item.ImagesFromBase property to True for items. <br><br />
:4. Set data fields, where values for 1st (and 2st) image indexes was stored (look at Normal and State combos). <br><br />
<br />
Hereon you should see images on the left side of the item's text. <br><br />
<br />
=== How to make the sorted column drawn with an special background color ===<br />
There are several ways to reach it. <br><br />
<br />
:1) you may use OnSortEnd event to set custom style to each cell<br><br />
<br />
ex:<br><br />
<pre><br />
procedure TForm1.ElXTree1SortEnd(Sender: TObject);<br />
var<br />
i, j: integer;<br />
begin<br />
for j := 0 to ElXTree1.Items.Count - 1 do<br />
begin<br />
for i := 0 to ElXTree1.HeaderSections.Count - 1 do<br />
begin<br />
ElXTree1.Items.Item[j].Cells[i].UseOwnStyle := True;<br />
if (i = ElXTree1.SortSection) and<br />
(ElXTree1.HeaderSections.Sections[ElXTree1.SortSection].SortMode <> hsmNone)<br />
then<br />
begin<br />
ElXTree1.Items.Item[j].Cells[i].Style.CellBackGroundColor := clMoneyGreen;<br />
ElXTree1.Items.Item[j].Cells[i].Style.ParentColors := false;<br />
ElXTree1.Items.Item[j].Cells[i].Style.UseBackGroundColor := true;<br />
end<br />
else<br />
begin<br />
ElXTree1.Items.Item[j].Cells[i].Style.CellBackGroundColor := clWhite;<br />
ElXTree1.Items.Item[j].Cells[i].Style.ParentColors := false;<br />
ElXTree1.Items.Item[j].Cells[i].Style.UseBackGroundColor := true;<br />
end;<br />
end;<br />
end;<br />
end;<br />
</pre><br><br />
<br />
:2) you may use the cascading property of style to reach the same effect:<br><br />
ex:<br><br />
<pre><br />
procedure TForm1.FormCreate(Sender: TObject);<br />
var<br />
i, j: integer;<br />
begin<br />
// create test tree with 5 items. set custom colors in cells but not activate it<br />
for j := 0 to 5 do<br />
begin<br />
ElXTree1.Items.AddChild(nil,'Item'+Inttostr(j));<br />
ElXTree1.Items.Item[j].Cells[1].Text := Inttostr(j);<br />
for i := 0 to ElXTree1.HeaderSections.Count - 1 do<br />
begin<br />
ElXTree1.Items.Item[j].Cells[i].UseOwnStyle := True;<br />
ElXTree1.Items.Item[j].Cells[i].Style.CellBackGroundColor := clMoneyGreen;<br />
ElXTree1.Items.Item[j].Cells[i].Style.ParentColors := true;<br />
end;<br />
end;<br />
end;<br />
<br />
procedure TForm1.ElXTree1SortEnd(Sender: TObject);<br />
var<br />
i, j: integer;<br />
begin<br />
// in this procedure we activate using own colors for cells in sorted section<br />
for j := 0 to ElXTree1.Items.Count - 1 do<br />
begin<br />
for i := 0 to ElXTree1.HeaderSections.Count - 1 do<br />
begin<br />
if (i = ElXTree1.SortSection) and<br />
(ElXTree1.HeaderSections.Sections[ElXTree1.SortSection].SortMode <> hsmNone) <br />
then<br />
ElXTree1.Items.Item[j].Cells[i].Style.ParentColors := false<br />
else<br />
ElXTree1.Items.Item[j].Cells[i].Style.ParentColors := true;<br />
end;<br />
end;<br />
end;<br />
</pre><br><br />
<br />
:3) if the tree contains a lot of items more optimized to set colors in OnItemPreDraw event:<br><br />
ex:<br><br />
<pre><br />
procedure TForm1.ElXTree1ItemPreDraw(Sender: TObject; Item: TElXTreeItem);<br />
var<br />
i: integer;<br />
begin<br />
for i := 0 to ElXTree1.HeaderSections.Count - 1 do<br />
begin<br />
Item.Cells[i].UseOwnStyle := True;<br />
if (i = ElXTree1.SortSection) and<br />
(ElXTree1.HeaderSections.Sections[ElXTree1.SortSection].SortMode <> hsmNone)<br />
then<br />
begin<br />
Item.Cells[i].Style.CellBackGroundColor := clMoneyGreen;<br />
Item.Cells[i].Style.ParentColors := false;<br />
Item.Cells[i].Style.UseBackGroundColor := true;<br />
end<br />
else<br />
begin<br />
Item.Cells[i].Style.CellBackGroundColor := clWhite;<br />
Item.Cells[i].Style.ParentColors := false;<br />
Item.Cells[i].Style.UseBackGroundColor := true;<br />
end;<br />
end;<br />
end;<br />
</pre><br><br />
: 3a) ... or use virtual mode of tree <br><br />
[ Please look examle of virtual tree in our demo]<br></div>Wikiadminhttps://wiki.lmd.de/index.php?title=LMD_VCL_-_LMD_ElPack_FAQ&diff=1564LMD VCL - LMD ElPack FAQ2007-04-10T19:59:32Z<p>Wikiadmin: </p>
<hr />
<div>{{Head-Overview}} [[Category:FAQ]] [[Category:LMD ElPack]] <br />
<br />
<br />
== TElInspector ==<br />
=== How to use custom inplace editors? ===<br />
Inspector uses own collection of inplace editors. You can examine them in<br />
ElInspectorEditors.pas We'll define simple descendant of the button edit<br />
and will use it for editing of boolean values.<br />
<pre lang="delphi"><br />
type<br />
<br />
TForm1 = class(TForm)<br />
<br />
ElInspector1: TElInspector;<br />
ElInspectorRTTIDataSource1: TElInspectorRTTIDataSource;<br />
...<br />
<br />
end;<br />
<br />
TMyElInspectorInplaceButtonEdit = class(TElInspectorInplaceButtonEdit)<br />
protected<br />
procedure BtnClick(Sender: TObject); override;<br />
end;<br />
<br />
<br />
implementation<br />
<br />
{ TMyElInspectorInplaceButtonEdit }<br />
<br />
procedure TMyElInspectorInplaceButtonEdit.BtnClick(Sender: TObject);<br />
begin<br />
if MessageDlg('Yes = True, No = False', mtConfirmation, [mbYes,mbNo], 0) = mrYes then<br />
begin<br />
TElInspectorItem(Item).InspectorData.AsString := 'True';<br />
Editor.Text := 'True';<br />
end<br />
else<br />
begin<br />
TElInspectorItem(Item).InspectorData.AsString := 'False';<br />
Editor.Text := 'False';<br />
end;<br />
end;<br />
<br />
<br />
procedure TForm1.FormCreate(Sender: TObject);<br />
var<br />
i: integer;<br />
LT: TElInspectorRegister;<br />
begin<br />
// we must to find current editor for boolean values in inspector's editors list<br />
for i := 1 to ElInspectorRTTIDataSource1.RegisterList.Count - 1 do<br />
begin<br />
LT := TElInspectorRegister(ElInspectorRTTIDataSource1.RegisterList.Items[i]);<br />
if (LT is TElInspectorTypeInfo) and (TElInspectorTypeInfo(LT).TypeInfo = TypeInfo(Boolean)) then<br />
begin <br />
// remove current boolean editor<br />
ElInspectorRTTIDataSource1.RegisterList.Remove( ElInspectorRTTIDataSource1.RegisterList.Items[i] );<br />
// register our editor<br />
ElInspectorRTTIDataSource1.RegisterList.Insert(i, TElInspectorTypeInfo.Create(TMyElInspectorInplaceButtonEdit, TElBooleanProperty, TypeInfo(Boolean)));<br />
Break;<br />
end;<br />
end;<br />
</pre><br><br />
<br />
== TStyleManager ==<br />
=== How to use StyleName? ===<br />
<br />
Style Manager operates with hierarchical style sheets. These style sheets are similar to Cascading Style Sheets (CSS), used in web pages, but they are more effective and easy to use. Each style sheet contains several styles. <br><br />
<br />
Each style contains one or more property values. When the style is applied to the component, the component is checked for presence of the property with given name. If the property is present, it is set to the value, specified in the style. <br><br />
<br />
Style can be one of three types: <br><br />
<br />
:1) Default<br />
:2) Class<br />
:3) Specific<br />
<br />
There is one default style per style sheet. It is an ancestor for all other styles. Specific styles are applied when they are explicitly referred to by the component (in it's StyleName property).<br><br />
Name of Specific style should begin by point (ex. '.CustomStyle') for prevention of crossing with names of classes.<br> <br />
Class styles are applied when there is no specific style name specified for the component. In this case the style with the name equal to component's class is searched for and applied. For example, if the component TElEdit refers to style manager, but there is no style name specified, Style Manager tries to find the style named 'TElEdit'. If it finds, this style is applied. <br><br />
<br />
== HTML controls ==<br />
=== Could you tell me how to get the HTML text on an HTML Label (View, TElXTreeCell etc.) to center? ===<br />
You may use <pre>'<p align="Center"></p>'</pre> tag to set desired text alignment.<br><br />
<br />
== El(X)Tree ==<br />
=== How to draw part of item's text to pass over the several columns? ===<br />
<br />
You can use OnItemPostDraw event to redraw part of item. For example I can<br />
redraw item text over first two columns:<br />
<br />
<pre><br />
uses elstrutils;<br />
<br />
procedure TForm1.ElTree1ItemPostDraw(Sender: TObject; Canvas: TCanvas;<br />
Item: TElTreeItem; ItemRect: TRect; var DrawFocusRect: Boolean);<br />
var<br />
R: TRect;<br />
s: TElFString;<br />
i: integer;<br />
begin<br />
R := ItemRect;<br />
R.Right := ElTree1.HeaderSections[0].Width + ElTree1.HeaderSections[1].Width - 1;<br />
R.Top := R.Top + Item.Height div 2; // dirty calculation. use HTMLRender to render text if you need exact result<br />
// this is main column so we need to take into account space for lines and buttons<br />
R.Left := R.Left + Item.IndentAdjust;<br />
if (ElTree1.ShowRoot and ElTree1.ShowLines) or (ElTree1.ShowButtons and ElTree1.ShowRootButtons) then<br />
Inc(R.Left, ElTree1.ItemIndent)<br />
else<br />
Inc(R.Left, ElTree1.ItemIndent div 5);<br />
// offset rect if we use images<br />
R.Left := R.Left + 20 ; // paste here image width + 4 instead of 20<br />
Canvas.Brush.Style := bsSolid;<br />
Canvas.Brush.Color := clWhite; // set item's color if need<br />
// my Item.Text = '<html><b>Some text 1</b> <p>'+#13#10+'Some very very very very very very long text 2</html>'<br />
i := Pos(#10, Item.Text);<br />
s := '';<br />
if i > 0 then<br />
s := Copy(Item.Text, i + 1, length(Item.Text) - i - 8); // 8 to ignore '</html>'<br />
DrawTextW(Canvas.Handle, PWideChar(s), length(s), R, DT_NOPREFIX and DT_Left);<br />
end;<br />
</pre><br />
<br />
== ElDB(X)Tree ==<br />
=== How could I display images in an Item if I've stored image's indexes in a database field? ===<br />
:1. Set TElDBXTree.ShowImages = True <br><br />
:2. Assign list of images (TImageList, TElImageList etc) to TElDBXTree.Images (and TElDBXTree.Images2 if you need it) properties <br><br />
:3. Open TElDBXTree.StylesDefs property in Object Inspector and choice "Table field" radiobutton in "Item images" radiogroup. It enforce setting Item.ImagesFromBase property to True for items. <br><br />
:4. Set data fields, where values for 1st (and 2st) image indexes was stored (look at Normal and State combos). <br><br />
<br />
Hereon you should see images on the left side of the item's text. <br><br />
<br />
=== How to make the sorted column drawn with an special background color ===<br />
There are several ways to reach it. <br><br />
<br />
:1) you may use OnSortEnd event to set custom style to each cell<br><br />
<br />
ex:<br><br />
<pre><br />
procedure TForm1.ElXTree1SortEnd(Sender: TObject);<br />
var<br />
i, j: integer;<br />
begin<br />
for j := 0 to ElXTree1.Items.Count - 1 do<br />
begin<br />
for i := 0 to ElXTree1.HeaderSections.Count - 1 do<br />
begin<br />
ElXTree1.Items.Item[j].Cells[i].UseOwnStyle := True;<br />
if (i = ElXTree1.SortSection) and<br />
(ElXTree1.HeaderSections.Sections[ElXTree1.SortSection].SortMode <> hsmNone)<br />
then<br />
begin<br />
ElXTree1.Items.Item[j].Cells[i].Style.CellBackGroundColor := clMoneyGreen;<br />
ElXTree1.Items.Item[j].Cells[i].Style.ParentColors := false;<br />
ElXTree1.Items.Item[j].Cells[i].Style.UseBackGroundColor := true;<br />
end<br />
else<br />
begin<br />
ElXTree1.Items.Item[j].Cells[i].Style.CellBackGroundColor := clWhite;<br />
ElXTree1.Items.Item[j].Cells[i].Style.ParentColors := false;<br />
ElXTree1.Items.Item[j].Cells[i].Style.UseBackGroundColor := true;<br />
end;<br />
end;<br />
end;<br />
end;<br />
</pre><br><br />
<br />
:2) you may use the cascading property of style to reach the same effect:<br><br />
ex:<br><br />
<pre><br />
procedure TForm1.FormCreate(Sender: TObject);<br />
var<br />
i, j: integer;<br />
begin<br />
// create test tree with 5 items. set custom colors in cells but not activate it<br />
for j := 0 to 5 do<br />
begin<br />
ElXTree1.Items.AddChild(nil,'Item'+Inttostr(j));<br />
ElXTree1.Items.Item[j].Cells[1].Text := Inttostr(j);<br />
for i := 0 to ElXTree1.HeaderSections.Count - 1 do<br />
begin<br />
ElXTree1.Items.Item[j].Cells[i].UseOwnStyle := True;<br />
ElXTree1.Items.Item[j].Cells[i].Style.CellBackGroundColor := clMoneyGreen;<br />
ElXTree1.Items.Item[j].Cells[i].Style.ParentColors := true;<br />
end;<br />
end;<br />
end;<br />
<br />
procedure TForm1.ElXTree1SortEnd(Sender: TObject);<br />
var<br />
i, j: integer;<br />
begin<br />
// in this procedure we activate using own colors for cells in sorted section<br />
for j := 0 to ElXTree1.Items.Count - 1 do<br />
begin<br />
for i := 0 to ElXTree1.HeaderSections.Count - 1 do<br />
begin<br />
if (i = ElXTree1.SortSection) and<br />
(ElXTree1.HeaderSections.Sections[ElXTree1.SortSection].SortMode <> hsmNone) <br />
then<br />
ElXTree1.Items.Item[j].Cells[i].Style.ParentColors := false<br />
else<br />
ElXTree1.Items.Item[j].Cells[i].Style.ParentColors := true;<br />
end;<br />
end;<br />
end;<br />
</pre><br><br />
<br />
:3) if the tree contains a lot of items more optimized to set colors in OnItemPreDraw event:<br><br />
ex:<br><br />
<pre><br />
procedure TForm1.ElXTree1ItemPreDraw(Sender: TObject; Item: TElXTreeItem);<br />
var<br />
i: integer;<br />
begin<br />
for i := 0 to ElXTree1.HeaderSections.Count - 1 do<br />
begin<br />
Item.Cells[i].UseOwnStyle := True;<br />
if (i = ElXTree1.SortSection) and<br />
(ElXTree1.HeaderSections.Sections[ElXTree1.SortSection].SortMode <> hsmNone)<br />
then<br />
begin<br />
Item.Cells[i].Style.CellBackGroundColor := clMoneyGreen;<br />
Item.Cells[i].Style.ParentColors := false;<br />
Item.Cells[i].Style.UseBackGroundColor := true;<br />
end<br />
else<br />
begin<br />
Item.Cells[i].Style.CellBackGroundColor := clWhite;<br />
Item.Cells[i].Style.ParentColors := false;<br />
Item.Cells[i].Style.UseBackGroundColor := true;<br />
end;<br />
end;<br />
end;<br />
</pre><br><br />
: 3a) ... or use virtual mode of tree <br><br />
[ Please look examle of virtual tree in our demo]<br></div>Wikiadminhttps://wiki.lmd.de/index.php?title=LMD_VCL_-_LMD_ElPack_FAQ&diff=1563LMD VCL - LMD ElPack FAQ2007-04-10T15:35:52Z<p>Wikiadmin: </p>
<hr />
<div>{{Head-Overview}} [[Category:FAQ]] [[Category:LMD ElPack]] <br />
<br />
<br />
== TElInspector ==<br />
=== How to use custom inplace editors? ===<br />
Inspector uses own collection of inplace editors. You can examine them in<br />
ElInspectorEditors.pas We'll define simple descendant of the button edit<br />
and will use it for editing of boolean values.<br />
<pre><br />
type<br />
<br />
TForm1 = class(TForm)<br />
<br />
ElInspector1: TElInspector;<br />
ElInspectorRTTIDataSource1: TElInspectorRTTIDataSource;<br />
...<br />
<br />
end;<br />
<br />
TMyElInspectorInplaceButtonEdit = class(TElInspectorInplaceButtonEdit)<br />
protected<br />
procedure BtnClick(Sender: TObject); override;<br />
end;<br />
<br />
<br />
implementation<br />
<br />
{ TMyElInspectorInplaceButtonEdit }<br />
<br />
procedure TMyElInspectorInplaceButtonEdit.BtnClick(Sender: TObject);<br />
begin<br />
if MessageDlg('Yes = True, No = False', mtConfirmation, [mbYes,mbNo], 0) = mrYes then<br />
begin<br />
TElInspectorItem(Item).InspectorData.AsString := 'True';<br />
Editor.Text := 'True';<br />
end<br />
else<br />
begin<br />
TElInspectorItem(Item).InspectorData.AsString := 'False';<br />
Editor.Text := 'False';<br />
end;<br />
end;<br />
<br />
<br />
procedure TForm1.FormCreate(Sender: TObject);<br />
var<br />
i: integer;<br />
LT: TElInspectorRegister;<br />
begin<br />
// we must to find current editor for boolean values in inspector's editors list<br />
for i := 1 to ElInspectorRTTIDataSource1.RegisterList.Count - 1 do<br />
begin<br />
LT := TElInspectorRegister(ElInspectorRTTIDataSource1.RegisterList.Items[i]);<br />
if (LT is TElInspectorTypeInfo) and (TElInspectorTypeInfo(LT).TypeInfo = TypeInfo(Boolean)) then<br />
begin <br />
// remove current boolean editor<br />
ElInspectorRTTIDataSource1.RegisterList.Remove( ElInspectorRTTIDataSource1.RegisterList.Items[i] );<br />
// register our editor<br />
ElInspectorRTTIDataSource1.RegisterList.Insert(i, TElInspectorTypeInfo.Create(TMyElInspectorInplaceButtonEdit, TElBooleanProperty, TypeInfo(Boolean)));<br />
Break;<br />
end;<br />
end;<br />
</pre><br><br />
<br />
== TStyleManager ==<br />
=== How to use StyleName? ===<br />
<br />
Style Manager operates with hierarchical style sheets. These style sheets are similar to Cascading Style Sheets (CSS), used in web pages, but they are more effective and easy to use. Each style sheet contains several styles. <br><br />
<br />
Each style contains one or more property values. When the style is applied to the component, the component is checked for presence of the property with given name. If the property is present, it is set to the value, specified in the style. <br><br />
<br />
Style can be one of three types: <br><br />
<br />
:1) Default<br />
:2) Class<br />
:3) Specific<br />
<br />
There is one default style per style sheet. It is an ancestor for all other styles. Specific styles are applied when they are explicitly referred to by the component (in it's StyleName property).<br><br />
Name of Specific style should begin by point (ex. '.CustomStyle') for prevention of crossing with names of classes.<br> <br />
Class styles are applied when there is no specific style name specified for the component. In this case the style with the name equal to component's class is searched for and applied. For example, if the component TElEdit refers to style manager, but there is no style name specified, Style Manager tries to find the style named 'TElEdit'. If it finds, this style is applied. <br><br />
<br />
== HTML controls ==<br />
=== Could you tell me how to get the HTML text on an HTML Label (View, TElXTreeCell etc.) to center? ===<br />
You may use <pre>'<p align="Center"></p>'</pre> tag to set desired text alignment.<br><br />
<br />
== El(X)Tree ==<br />
=== How to draw part of item's text to pass over the several columns? ===<br />
<br />
You can use OnItemPostDraw event to redraw part of item. For example I can<br />
redraw item text over first two columns:<br />
<br />
<pre><br />
uses elstrutils;<br />
<br />
procedure TForm1.ElTree1ItemPostDraw(Sender: TObject; Canvas: TCanvas;<br />
Item: TElTreeItem; ItemRect: TRect; var DrawFocusRect: Boolean);<br />
var<br />
R: TRect;<br />
s: TElFString;<br />
i: integer;<br />
begin<br />
R := ItemRect;<br />
R.Right := ElTree1.HeaderSections[0].Width + ElTree1.HeaderSections[1].Width - 1;<br />
R.Top := R.Top + Item.Height div 2; // dirty calculation. use HTMLRender to render text if you need exact result<br />
// this is main column so we need to take into account space for lines and buttons<br />
R.Left := R.Left + Item.IndentAdjust;<br />
if (ElTree1.ShowRoot and ElTree1.ShowLines) or (ElTree1.ShowButtons and ElTree1.ShowRootButtons) then<br />
Inc(R.Left, ElTree1.ItemIndent)<br />
else<br />
Inc(R.Left, ElTree1.ItemIndent div 5);<br />
// offset rect if we use images<br />
R.Left := R.Left + 20 ; // paste here image width + 4 instead of 20<br />
Canvas.Brush.Style := bsSolid;<br />
Canvas.Brush.Color := clWhite; // set item's color if need<br />
// my Item.Text = '<html><b>Some text 1</b> <p>'+#13#10+'Some very very very very very very long text 2</html>'<br />
i := Pos(#10, Item.Text);<br />
s := '';<br />
if i > 0 then<br />
s := Copy(Item.Text, i + 1, length(Item.Text) - i - 8); // 8 to ignore '</html>'<br />
DrawTextW(Canvas.Handle, PWideChar(s), length(s), R, DT_NOPREFIX and DT_Left);<br />
end;<br />
</pre><br />
<br />
== ElDB(X)Tree ==<br />
=== How could I display images in an Item if I've stored image's indexes in a database field? ===<br />
:1. Set TElDBXTree.ShowImages = True <br><br />
:2. Assign list of images (TImageList, TElImageList etc) to TElDBXTree.Images (and TElDBXTree.Images2 if you need it) properties <br><br />
:3. Open TElDBXTree.StylesDefs property in Object Inspector and choice "Table field" radiobutton in "Item images" radiogroup. It enforce setting Item.ImagesFromBase property to True for items. <br><br />
:4. Set data fields, where values for 1st (and 2st) image indexes was stored (look at Normal and State combos). <br><br />
<br />
Hereon you should see images on the left side of the item's text. <br><br />
<br />
=== How to make the sorted column drawn with an special background color ===<br />
There are several ways to reach it. <br><br />
<br />
:1) you may use OnSortEnd event to set custom style to each cell<br><br />
<br />
ex:<br><br />
<pre><br />
procedure TForm1.ElXTree1SortEnd(Sender: TObject);<br />
var<br />
i, j: integer;<br />
begin<br />
for j := 0 to ElXTree1.Items.Count - 1 do<br />
begin<br />
for i := 0 to ElXTree1.HeaderSections.Count - 1 do<br />
begin<br />
ElXTree1.Items.Item[j].Cells[i].UseOwnStyle := True;<br />
if (i = ElXTree1.SortSection) and<br />
(ElXTree1.HeaderSections.Sections[ElXTree1.SortSection].SortMode <> hsmNone)<br />
then<br />
begin<br />
ElXTree1.Items.Item[j].Cells[i].Style.CellBackGroundColor := clMoneyGreen;<br />
ElXTree1.Items.Item[j].Cells[i].Style.ParentColors := false;<br />
ElXTree1.Items.Item[j].Cells[i].Style.UseBackGroundColor := true;<br />
end<br />
else<br />
begin<br />
ElXTree1.Items.Item[j].Cells[i].Style.CellBackGroundColor := clWhite;<br />
ElXTree1.Items.Item[j].Cells[i].Style.ParentColors := false;<br />
ElXTree1.Items.Item[j].Cells[i].Style.UseBackGroundColor := true;<br />
end;<br />
end;<br />
end;<br />
end;<br />
</pre><br><br />
<br />
:2) you may use the cascading property of style to reach the same effect:<br><br />
ex:<br><br />
<pre><br />
procedure TForm1.FormCreate(Sender: TObject);<br />
var<br />
i, j: integer;<br />
begin<br />
// create test tree with 5 items. set custom colors in cells but not activate it<br />
for j := 0 to 5 do<br />
begin<br />
ElXTree1.Items.AddChild(nil,'Item'+Inttostr(j));<br />
ElXTree1.Items.Item[j].Cells[1].Text := Inttostr(j);<br />
for i := 0 to ElXTree1.HeaderSections.Count - 1 do<br />
begin<br />
ElXTree1.Items.Item[j].Cells[i].UseOwnStyle := True;<br />
ElXTree1.Items.Item[j].Cells[i].Style.CellBackGroundColor := clMoneyGreen;<br />
ElXTree1.Items.Item[j].Cells[i].Style.ParentColors := true;<br />
end;<br />
end;<br />
end;<br />
<br />
procedure TForm1.ElXTree1SortEnd(Sender: TObject);<br />
var<br />
i, j: integer;<br />
begin<br />
// in this procedure we activate using own colors for cells in sorted section<br />
for j := 0 to ElXTree1.Items.Count - 1 do<br />
begin<br />
for i := 0 to ElXTree1.HeaderSections.Count - 1 do<br />
begin<br />
if (i = ElXTree1.SortSection) and<br />
(ElXTree1.HeaderSections.Sections[ElXTree1.SortSection].SortMode <> hsmNone) <br />
then<br />
ElXTree1.Items.Item[j].Cells[i].Style.ParentColors := false<br />
else<br />
ElXTree1.Items.Item[j].Cells[i].Style.ParentColors := true;<br />
end;<br />
end;<br />
end;<br />
</pre><br><br />
<br />
:3) if the tree contains a lot of items more optimized to set colors in OnItemPreDraw event:<br><br />
ex:<br><br />
<pre><br />
procedure TForm1.ElXTree1ItemPreDraw(Sender: TObject; Item: TElXTreeItem);<br />
var<br />
i: integer;<br />
begin<br />
for i := 0 to ElXTree1.HeaderSections.Count - 1 do<br />
begin<br />
Item.Cells[i].UseOwnStyle := True;<br />
if (i = ElXTree1.SortSection) and<br />
(ElXTree1.HeaderSections.Sections[ElXTree1.SortSection].SortMode <> hsmNone)<br />
then<br />
begin<br />
Item.Cells[i].Style.CellBackGroundColor := clMoneyGreen;<br />
Item.Cells[i].Style.ParentColors := false;<br />
Item.Cells[i].Style.UseBackGroundColor := true;<br />
end<br />
else<br />
begin<br />
Item.Cells[i].Style.CellBackGroundColor := clWhite;<br />
Item.Cells[i].Style.ParentColors := false;<br />
Item.Cells[i].Style.UseBackGroundColor := true;<br />
end;<br />
end;<br />
end;<br />
</pre><br><br />
: 3a) ... or use virtual mode of tree <br><br />
[ Please look examle of virtual tree in our demo]<br></div>Wikiadminhttps://wiki.lmd.de/index.php?title=LMD_VCL_-_LMD_ElPack_FAQ&diff=1562LMD VCL - LMD ElPack FAQ2007-04-10T15:33:18Z<p>Wikiadmin: </p>
<hr />
<div>{{Head-Overview}} [[Category:FAQ]] [[Category:LMD ElPack]] <br />
<br />
<br />
== TElInspector ==<br />
=== How to use custom inplace editors? ===<br />
Inspector uses own collection of inplace editors. You can examine them in<br />
ElInspectorEditors.pas We'll define simple descendant of the button edit<br />
and will use it for editing of boolean values.<br />
<source lang="delphi"><br />
type<br />
<br />
TForm1 = class(TForm)<br />
<br />
ElInspector1: TElInspector;<br />
ElInspectorRTTIDataSource1: TElInspectorRTTIDataSource;<br />
...<br />
<br />
end;<br />
<br />
TMyElInspectorInplaceButtonEdit = class(TElInspectorInplaceButtonEdit)<br />
protected<br />
procedure BtnClick(Sender: TObject); override;<br />
end;<br />
<br />
<br />
implementation<br />
<br />
{ TMyElInspectorInplaceButtonEdit }<br />
<br />
procedure TMyElInspectorInplaceButtonEdit.BtnClick(Sender: TObject);<br />
begin<br />
if MessageDlg('Yes = True, No = False', mtConfirmation, [mbYes,mbNo], 0) = mrYes then<br />
begin<br />
TElInspectorItem(Item).InspectorData.AsString := 'True';<br />
Editor.Text := 'True';<br />
end<br />
else<br />
begin<br />
TElInspectorItem(Item).InspectorData.AsString := 'False';<br />
Editor.Text := 'False';<br />
end;<br />
end;<br />
<br />
<br />
procedure TForm1.FormCreate(Sender: TObject);<br />
var<br />
i: integer;<br />
LT: TElInspectorRegister;<br />
begin<br />
// we must to find current editor for boolean values in inspector's editors list<br />
for i := 1 to ElInspectorRTTIDataSource1.RegisterList.Count - 1 do<br />
begin<br />
LT := TElInspectorRegister(ElInspectorRTTIDataSource1.RegisterList.Items[i]);<br />
if (LT is TElInspectorTypeInfo) and (TElInspectorTypeInfo(LT).TypeInfo = TypeInfo(Boolean)) then<br />
begin <br />
// remove current boolean editor<br />
ElInspectorRTTIDataSource1.RegisterList.Remove( ElInspectorRTTIDataSource1.RegisterList.Items[i] );<br />
// register our editor<br />
ElInspectorRTTIDataSource1.RegisterList.Insert(i, TElInspectorTypeInfo.Create(TMyElInspectorInplaceButtonEdit, TElBooleanProperty, TypeInfo(Boolean)));<br />
Break;<br />
end;<br />
end;<br />
</source><br><br />
<br />
== TStyleManager ==<br />
=== How to use StyleName? ===<br />
<br />
Style Manager operates with hierarchical style sheets. These style sheets are similar to Cascading Style Sheets (CSS), used in web pages, but they are more effective and easy to use. Each style sheet contains several styles. <br><br />
<br />
Each style contains one or more property values. When the style is applied to the component, the component is checked for presence of the property with given name. If the property is present, it is set to the value, specified in the style. <br><br />
<br />
Style can be one of three types: <br><br />
<br />
:1) Default<br />
:2) Class<br />
:3) Specific<br />
<br />
There is one default style per style sheet. It is an ancestor for all other styles. Specific styles are applied when they are explicitly referred to by the component (in it's StyleName property).<br><br />
Name of Specific style should begin by point (ex. '.CustomStyle') for prevention of crossing with names of classes.<br> <br />
Class styles are applied when there is no specific style name specified for the component. In this case the style with the name equal to component's class is searched for and applied. For example, if the component TElEdit refers to style manager, but there is no style name specified, Style Manager tries to find the style named 'TElEdit'. If it finds, this style is applied. <br><br />
<br />
== HTML controls ==<br />
=== Could you tell me how to get the HTML text on an HTML Label (View, TElXTreeCell etc.) to center? ===<br />
You may use <pre>'<p align="Center"></p>'</pre> tag to set desired text alignment.<br><br />
<br />
== El(X)Tree ==<br />
=== How to draw part of item's text to pass over the several columns? ===<br />
<br />
You can use OnItemPostDraw event to redraw part of item. For example I can<br />
redraw item text over first two columns:<br />
<br />
<pre><br />
uses elstrutils;<br />
<br />
procedure TForm1.ElTree1ItemPostDraw(Sender: TObject; Canvas: TCanvas;<br />
Item: TElTreeItem; ItemRect: TRect; var DrawFocusRect: Boolean);<br />
var<br />
R: TRect;<br />
s: TElFString;<br />
i: integer;<br />
begin<br />
R := ItemRect;<br />
R.Right := ElTree1.HeaderSections[0].Width + ElTree1.HeaderSections[1].Width - 1;<br />
R.Top := R.Top + Item.Height div 2; // dirty calculation. use HTMLRender to render text if you need exact result<br />
// this is main column so we need to take into account space for lines and buttons<br />
R.Left := R.Left + Item.IndentAdjust;<br />
if (ElTree1.ShowRoot and ElTree1.ShowLines) or (ElTree1.ShowButtons and ElTree1.ShowRootButtons) then<br />
Inc(R.Left, ElTree1.ItemIndent)<br />
else<br />
Inc(R.Left, ElTree1.ItemIndent div 5);<br />
// offset rect if we use images<br />
R.Left := R.Left + 20 ; // paste here image width + 4 instead of 20<br />
Canvas.Brush.Style := bsSolid;<br />
Canvas.Brush.Color := clWhite; // set item's color if need<br />
// my Item.Text = '<html><b>Some text 1</b> <p>'+#13#10+'Some very very very very very very long text 2</html>'<br />
i := Pos(#10, Item.Text);<br />
s := '';<br />
if i > 0 then<br />
s := Copy(Item.Text, i + 1, length(Item.Text) - i - 8); // 8 to ignore '</html>'<br />
DrawTextW(Canvas.Handle, PWideChar(s), length(s), R, DT_NOPREFIX and DT_Left);<br />
end;<br />
</pre><br />
<br />
== ElDB(X)Tree ==<br />
=== How could I display images in an Item if I've stored image's indexes in a database field? ===<br />
:1. Set TElDBXTree.ShowImages = True <br><br />
:2. Assign list of images (TImageList, TElImageList etc) to TElDBXTree.Images (and TElDBXTree.Images2 if you need it) properties <br><br />
:3. Open TElDBXTree.StylesDefs property in Object Inspector and choice "Table field" radiobutton in "Item images" radiogroup. It enforce setting Item.ImagesFromBase property to True for items. <br><br />
:4. Set data fields, where values for 1st (and 2st) image indexes was stored (look at Normal and State combos). <br><br />
<br />
Hereon you should see images on the left side of the item's text. <br><br />
<br />
=== How to make the sorted column drawn with an special background color ===<br />
There are several ways to reach it. <br><br />
<br />
:1) you may use OnSortEnd event to set custom style to each cell<br><br />
<br />
ex:<br><br />
<pre><br />
procedure TForm1.ElXTree1SortEnd(Sender: TObject);<br />
var<br />
i, j: integer;<br />
begin<br />
for j := 0 to ElXTree1.Items.Count - 1 do<br />
begin<br />
for i := 0 to ElXTree1.HeaderSections.Count - 1 do<br />
begin<br />
ElXTree1.Items.Item[j].Cells[i].UseOwnStyle := True;<br />
if (i = ElXTree1.SortSection) and<br />
(ElXTree1.HeaderSections.Sections[ElXTree1.SortSection].SortMode <> hsmNone)<br />
then<br />
begin<br />
ElXTree1.Items.Item[j].Cells[i].Style.CellBackGroundColor := clMoneyGreen;<br />
ElXTree1.Items.Item[j].Cells[i].Style.ParentColors := false;<br />
ElXTree1.Items.Item[j].Cells[i].Style.UseBackGroundColor := true;<br />
end<br />
else<br />
begin<br />
ElXTree1.Items.Item[j].Cells[i].Style.CellBackGroundColor := clWhite;<br />
ElXTree1.Items.Item[j].Cells[i].Style.ParentColors := false;<br />
ElXTree1.Items.Item[j].Cells[i].Style.UseBackGroundColor := true;<br />
end;<br />
end;<br />
end;<br />
end;<br />
</pre><br><br />
<br />
:2) you may use the cascading property of style to reach the same effect:<br><br />
ex:<br><br />
<pre><br />
procedure TForm1.FormCreate(Sender: TObject);<br />
var<br />
i, j: integer;<br />
begin<br />
// create test tree with 5 items. set custom colors in cells but not activate it<br />
for j := 0 to 5 do<br />
begin<br />
ElXTree1.Items.AddChild(nil,'Item'+Inttostr(j));<br />
ElXTree1.Items.Item[j].Cells[1].Text := Inttostr(j);<br />
for i := 0 to ElXTree1.HeaderSections.Count - 1 do<br />
begin<br />
ElXTree1.Items.Item[j].Cells[i].UseOwnStyle := True;<br />
ElXTree1.Items.Item[j].Cells[i].Style.CellBackGroundColor := clMoneyGreen;<br />
ElXTree1.Items.Item[j].Cells[i].Style.ParentColors := true;<br />
end;<br />
end;<br />
end;<br />
<br />
procedure TForm1.ElXTree1SortEnd(Sender: TObject);<br />
var<br />
i, j: integer;<br />
begin<br />
// in this procedure we activate using own colors for cells in sorted section<br />
for j := 0 to ElXTree1.Items.Count - 1 do<br />
begin<br />
for i := 0 to ElXTree1.HeaderSections.Count - 1 do<br />
begin<br />
if (i = ElXTree1.SortSection) and<br />
(ElXTree1.HeaderSections.Sections[ElXTree1.SortSection].SortMode <> hsmNone) <br />
then<br />
ElXTree1.Items.Item[j].Cells[i].Style.ParentColors := false<br />
else<br />
ElXTree1.Items.Item[j].Cells[i].Style.ParentColors := true;<br />
end;<br />
end;<br />
end;<br />
</pre><br><br />
<br />
:3) if the tree contains a lot of items more optimized to set colors in OnItemPreDraw event:<br><br />
ex:<br><br />
<pre><br />
procedure TForm1.ElXTree1ItemPreDraw(Sender: TObject; Item: TElXTreeItem);<br />
var<br />
i: integer;<br />
begin<br />
for i := 0 to ElXTree1.HeaderSections.Count - 1 do<br />
begin<br />
Item.Cells[i].UseOwnStyle := True;<br />
if (i = ElXTree1.SortSection) and<br />
(ElXTree1.HeaderSections.Sections[ElXTree1.SortSection].SortMode <> hsmNone)<br />
then<br />
begin<br />
Item.Cells[i].Style.CellBackGroundColor := clMoneyGreen;<br />
Item.Cells[i].Style.ParentColors := false;<br />
Item.Cells[i].Style.UseBackGroundColor := true;<br />
end<br />
else<br />
begin<br />
Item.Cells[i].Style.CellBackGroundColor := clWhite;<br />
Item.Cells[i].Style.ParentColors := false;<br />
Item.Cells[i].Style.UseBackGroundColor := true;<br />
end;<br />
end;<br />
end;<br />
</pre><br><br />
: 3a) ... or use virtual mode of tree <br><br />
[ Please look examle of virtual tree in our demo]<br></div>Wikiadminhttps://wiki.lmd.de/index.php?title=LMD_VCL_-_LMD_ElPack_FAQ&diff=1561LMD VCL - LMD ElPack FAQ2007-04-10T15:32:43Z<p>Wikiadmin: </p>
<hr />
<div>{{Head-Overview}} [[Category:FAQ]] [[Category:LMD ElPack]] <br />
<br />
<br />
== TElInspector ==<br />
=== How to use custom inplace editors? ===<br />
Inspector uses own collection of inplace editors. You can examine them in<br />
ElInspectorEditors.pas We'll define simple descendant of the button edit<br />
and will use it for editing of boolean values.<br />
<source lang="pascal"><br />
type<br />
<br />
TForm1 = class(TForm)<br />
<br />
ElInspector1: TElInspector;<br />
ElInspectorRTTIDataSource1: TElInspectorRTTIDataSource;<br />
...<br />
<br />
end;<br />
<br />
TMyElInspectorInplaceButtonEdit = class(TElInspectorInplaceButtonEdit)<br />
protected<br />
procedure BtnClick(Sender: TObject); override;<br />
end;<br />
<br />
<br />
implementation<br />
<br />
{ TMyElInspectorInplaceButtonEdit }<br />
<br />
procedure TMyElInspectorInplaceButtonEdit.BtnClick(Sender: TObject);<br />
begin<br />
if MessageDlg('Yes = True, No = False', mtConfirmation, [mbYes,mbNo], 0) = mrYes then<br />
begin<br />
TElInspectorItem(Item).InspectorData.AsString := 'True';<br />
Editor.Text := 'True';<br />
end<br />
else<br />
begin<br />
TElInspectorItem(Item).InspectorData.AsString := 'False';<br />
Editor.Text := 'False';<br />
end;<br />
end;<br />
<br />
<br />
procedure TForm1.FormCreate(Sender: TObject);<br />
var<br />
i: integer;<br />
LT: TElInspectorRegister;<br />
begin<br />
// we must to find current editor for boolean values in inspector's editors list<br />
for i := 1 to ElInspectorRTTIDataSource1.RegisterList.Count - 1 do<br />
begin<br />
LT := TElInspectorRegister(ElInspectorRTTIDataSource1.RegisterList.Items[i]);<br />
if (LT is TElInspectorTypeInfo) and (TElInspectorTypeInfo(LT).TypeInfo = TypeInfo(Boolean)) then<br />
begin <br />
// remove current boolean editor<br />
ElInspectorRTTIDataSource1.RegisterList.Remove( ElInspectorRTTIDataSource1.RegisterList.Items[i] );<br />
// register our editor<br />
ElInspectorRTTIDataSource1.RegisterList.Insert(i, TElInspectorTypeInfo.Create(TMyElInspectorInplaceButtonEdit, TElBooleanProperty, TypeInfo(Boolean)));<br />
Break;<br />
end;<br />
end;<br />
</source><br><br />
<br />
== TStyleManager ==<br />
=== How to use StyleName? ===<br />
<br />
Style Manager operates with hierarchical style sheets. These style sheets are similar to Cascading Style Sheets (CSS), used in web pages, but they are more effective and easy to use. Each style sheet contains several styles. <br><br />
<br />
Each style contains one or more property values. When the style is applied to the component, the component is checked for presence of the property with given name. If the property is present, it is set to the value, specified in the style. <br><br />
<br />
Style can be one of three types: <br><br />
<br />
:1) Default<br />
:2) Class<br />
:3) Specific<br />
<br />
There is one default style per style sheet. It is an ancestor for all other styles. Specific styles are applied when they are explicitly referred to by the component (in it's StyleName property).<br><br />
Name of Specific style should begin by point (ex. '.CustomStyle') for prevention of crossing with names of classes.<br> <br />
Class styles are applied when there is no specific style name specified for the component. In this case the style with the name equal to component's class is searched for and applied. For example, if the component TElEdit refers to style manager, but there is no style name specified, Style Manager tries to find the style named 'TElEdit'. If it finds, this style is applied. <br><br />
<br />
== HTML controls ==<br />
=== Could you tell me how to get the HTML text on an HTML Label (View, TElXTreeCell etc.) to center? ===<br />
You may use <pre>'<p align="Center"></p>'</pre> tag to set desired text alignment.<br><br />
<br />
== El(X)Tree ==<br />
=== How to draw part of item's text to pass over the several columns? ===<br />
<br />
You can use OnItemPostDraw event to redraw part of item. For example I can<br />
redraw item text over first two columns:<br />
<br />
<pre><br />
uses elstrutils;<br />
<br />
procedure TForm1.ElTree1ItemPostDraw(Sender: TObject; Canvas: TCanvas;<br />
Item: TElTreeItem; ItemRect: TRect; var DrawFocusRect: Boolean);<br />
var<br />
R: TRect;<br />
s: TElFString;<br />
i: integer;<br />
begin<br />
R := ItemRect;<br />
R.Right := ElTree1.HeaderSections[0].Width + ElTree1.HeaderSections[1].Width - 1;<br />
R.Top := R.Top + Item.Height div 2; // dirty calculation. use HTMLRender to render text if you need exact result<br />
// this is main column so we need to take into account space for lines and buttons<br />
R.Left := R.Left + Item.IndentAdjust;<br />
if (ElTree1.ShowRoot and ElTree1.ShowLines) or (ElTree1.ShowButtons and ElTree1.ShowRootButtons) then<br />
Inc(R.Left, ElTree1.ItemIndent)<br />
else<br />
Inc(R.Left, ElTree1.ItemIndent div 5);<br />
// offset rect if we use images<br />
R.Left := R.Left + 20 ; // paste here image width + 4 instead of 20<br />
Canvas.Brush.Style := bsSolid;<br />
Canvas.Brush.Color := clWhite; // set item's color if need<br />
// my Item.Text = '<html><b>Some text 1</b> <p>'+#13#10+'Some very very very very very very long text 2</html>'<br />
i := Pos(#10, Item.Text);<br />
s := '';<br />
if i > 0 then<br />
s := Copy(Item.Text, i + 1, length(Item.Text) - i - 8); // 8 to ignore '</html>'<br />
DrawTextW(Canvas.Handle, PWideChar(s), length(s), R, DT_NOPREFIX and DT_Left);<br />
end;<br />
</pre><br />
<br />
== ElDB(X)Tree ==<br />
=== How could I display images in an Item if I've stored image's indexes in a database field? ===<br />
:1. Set TElDBXTree.ShowImages = True <br><br />
:2. Assign list of images (TImageList, TElImageList etc) to TElDBXTree.Images (and TElDBXTree.Images2 if you need it) properties <br><br />
:3. Open TElDBXTree.StylesDefs property in Object Inspector and choice "Table field" radiobutton in "Item images" radiogroup. It enforce setting Item.ImagesFromBase property to True for items. <br><br />
:4. Set data fields, where values for 1st (and 2st) image indexes was stored (look at Normal and State combos). <br><br />
<br />
Hereon you should see images on the left side of the item's text. <br><br />
<br />
=== How to make the sorted column drawn with an special background color ===<br />
There are several ways to reach it. <br><br />
<br />
:1) you may use OnSortEnd event to set custom style to each cell<br><br />
<br />
ex:<br><br />
<pre><br />
procedure TForm1.ElXTree1SortEnd(Sender: TObject);<br />
var<br />
i, j: integer;<br />
begin<br />
for j := 0 to ElXTree1.Items.Count - 1 do<br />
begin<br />
for i := 0 to ElXTree1.HeaderSections.Count - 1 do<br />
begin<br />
ElXTree1.Items.Item[j].Cells[i].UseOwnStyle := True;<br />
if (i = ElXTree1.SortSection) and<br />
(ElXTree1.HeaderSections.Sections[ElXTree1.SortSection].SortMode <> hsmNone)<br />
then<br />
begin<br />
ElXTree1.Items.Item[j].Cells[i].Style.CellBackGroundColor := clMoneyGreen;<br />
ElXTree1.Items.Item[j].Cells[i].Style.ParentColors := false;<br />
ElXTree1.Items.Item[j].Cells[i].Style.UseBackGroundColor := true;<br />
end<br />
else<br />
begin<br />
ElXTree1.Items.Item[j].Cells[i].Style.CellBackGroundColor := clWhite;<br />
ElXTree1.Items.Item[j].Cells[i].Style.ParentColors := false;<br />
ElXTree1.Items.Item[j].Cells[i].Style.UseBackGroundColor := true;<br />
end;<br />
end;<br />
end;<br />
end;<br />
</pre><br><br />
<br />
:2) you may use the cascading property of style to reach the same effect:<br><br />
ex:<br><br />
<pre><br />
procedure TForm1.FormCreate(Sender: TObject);<br />
var<br />
i, j: integer;<br />
begin<br />
// create test tree with 5 items. set custom colors in cells but not activate it<br />
for j := 0 to 5 do<br />
begin<br />
ElXTree1.Items.AddChild(nil,'Item'+Inttostr(j));<br />
ElXTree1.Items.Item[j].Cells[1].Text := Inttostr(j);<br />
for i := 0 to ElXTree1.HeaderSections.Count - 1 do<br />
begin<br />
ElXTree1.Items.Item[j].Cells[i].UseOwnStyle := True;<br />
ElXTree1.Items.Item[j].Cells[i].Style.CellBackGroundColor := clMoneyGreen;<br />
ElXTree1.Items.Item[j].Cells[i].Style.ParentColors := true;<br />
end;<br />
end;<br />
end;<br />
<br />
procedure TForm1.ElXTree1SortEnd(Sender: TObject);<br />
var<br />
i, j: integer;<br />
begin<br />
// in this procedure we activate using own colors for cells in sorted section<br />
for j := 0 to ElXTree1.Items.Count - 1 do<br />
begin<br />
for i := 0 to ElXTree1.HeaderSections.Count - 1 do<br />
begin<br />
if (i = ElXTree1.SortSection) and<br />
(ElXTree1.HeaderSections.Sections[ElXTree1.SortSection].SortMode <> hsmNone) <br />
then<br />
ElXTree1.Items.Item[j].Cells[i].Style.ParentColors := false<br />
else<br />
ElXTree1.Items.Item[j].Cells[i].Style.ParentColors := true;<br />
end;<br />
end;<br />
end;<br />
</pre><br><br />
<br />
:3) if the tree contains a lot of items more optimized to set colors in OnItemPreDraw event:<br><br />
ex:<br><br />
<pre><br />
procedure TForm1.ElXTree1ItemPreDraw(Sender: TObject; Item: TElXTreeItem);<br />
var<br />
i: integer;<br />
begin<br />
for i := 0 to ElXTree1.HeaderSections.Count - 1 do<br />
begin<br />
Item.Cells[i].UseOwnStyle := True;<br />
if (i = ElXTree1.SortSection) and<br />
(ElXTree1.HeaderSections.Sections[ElXTree1.SortSection].SortMode <> hsmNone)<br />
then<br />
begin<br />
Item.Cells[i].Style.CellBackGroundColor := clMoneyGreen;<br />
Item.Cells[i].Style.ParentColors := false;<br />
Item.Cells[i].Style.UseBackGroundColor := true;<br />
end<br />
else<br />
begin<br />
Item.Cells[i].Style.CellBackGroundColor := clWhite;<br />
Item.Cells[i].Style.ParentColors := false;<br />
Item.Cells[i].Style.UseBackGroundColor := true;<br />
end;<br />
end;<br />
end;<br />
</pre><br><br />
: 3a) ... or use virtual mode of tree <br><br />
[ Please look examle of virtual tree in our demo]<br></div>Wikiadminhttps://wiki.lmd.de/index.php?title=LMD_VCL_-_LMD_ElPack_FAQ&diff=1560LMD VCL - LMD ElPack FAQ2007-04-10T15:22:09Z<p>Wikiadmin: </p>
<hr />
<div>{{Head-Overview}} [[Category:FAQ]] [[Category:LMD ElPack]] <br />
<br />
<br />
== TElInspector ==<br />
=== How to use custom inplace editors? ===<br />
Inspector uses own collection of inplace editors. You can examine them in<br />
ElInspectorEditors.pas We'll define simple descendant of the button edit<br />
and will use it for editing of boolean values.<br />
<source lang="delphi"><br />
type<br />
<br />
TForm1 = class(TForm)<br />
<br />
ElInspector1: TElInspector;<br />
ElInspectorRTTIDataSource1: TElInspectorRTTIDataSource;<br />
...<br />
<br />
end;<br />
<br />
TMyElInspectorInplaceButtonEdit = class(TElInspectorInplaceButtonEdit)<br />
protected<br />
procedure BtnClick(Sender: TObject); override;<br />
end;<br />
<br />
<br />
implementation<br />
<br />
{ TMyElInspectorInplaceButtonEdit }<br />
<br />
procedure TMyElInspectorInplaceButtonEdit.BtnClick(Sender: TObject);<br />
begin<br />
if MessageDlg('Yes = True, No = False', mtConfirmation, [mbYes,mbNo], 0) = mrYes then<br />
begin<br />
TElInspectorItem(Item).InspectorData.AsString := 'True';<br />
Editor.Text := 'True';<br />
end<br />
else<br />
begin<br />
TElInspectorItem(Item).InspectorData.AsString := 'False';<br />
Editor.Text := 'False';<br />
end;<br />
end;<br />
<br />
<br />
procedure TForm1.FormCreate(Sender: TObject);<br />
var<br />
i: integer;<br />
LT: TElInspectorRegister;<br />
begin<br />
// we must to find current editor for boolean values in inspector's editors list<br />
for i := 1 to ElInspectorRTTIDataSource1.RegisterList.Count - 1 do<br />
begin<br />
LT := TElInspectorRegister(ElInspectorRTTIDataSource1.RegisterList.Items[i]);<br />
if (LT is TElInspectorTypeInfo) and (TElInspectorTypeInfo(LT).TypeInfo = TypeInfo(Boolean)) then<br />
begin <br />
// remove current boolean editor<br />
ElInspectorRTTIDataSource1.RegisterList.Remove( ElInspectorRTTIDataSource1.RegisterList.Items[i] );<br />
// register our editor<br />
ElInspectorRTTIDataSource1.RegisterList.Insert(i, TElInspectorTypeInfo.Create(TMyElInspectorInplaceButtonEdit, TElBooleanProperty, TypeInfo(Boolean)));<br />
Break;<br />
end;<br />
end;<br />
</source><br><br />
<br />
== TStyleManager ==<br />
=== How to use StyleName? ===<br />
<br />
Style Manager operates with hierarchical style sheets. These style sheets are similar to Cascading Style Sheets (CSS), used in web pages, but they are more effective and easy to use. Each style sheet contains several styles. <br><br />
<br />
Each style contains one or more property values. When the style is applied to the component, the component is checked for presence of the property with given name. If the property is present, it is set to the value, specified in the style. <br><br />
<br />
Style can be one of three types: <br><br />
<br />
:1) Default<br />
:2) Class<br />
:3) Specific<br />
<br />
There is one default style per style sheet. It is an ancestor for all other styles. Specific styles are applied when they are explicitly referred to by the component (in it's StyleName property).<br><br />
Name of Specific style should begin by point (ex. '.CustomStyle') for prevention of crossing with names of classes.<br> <br />
Class styles are applied when there is no specific style name specified for the component. In this case the style with the name equal to component's class is searched for and applied. For example, if the component TElEdit refers to style manager, but there is no style name specified, Style Manager tries to find the style named 'TElEdit'. If it finds, this style is applied. <br><br />
<br />
== HTML controls ==<br />
=== Could you tell me how to get the HTML text on an HTML Label (View, TElXTreeCell etc.) to center? ===<br />
You may use <pre>'<p align="Center"></p>'</pre> tag to set desired text alignment.<br><br />
<br />
== El(X)Tree ==<br />
=== How to draw part of item's text to pass over the several columns? ===<br />
<br />
You can use OnItemPostDraw event to redraw part of item. For example I can<br />
redraw item text over first two columns:<br />
<br />
<pre><br />
uses elstrutils;<br />
<br />
procedure TForm1.ElTree1ItemPostDraw(Sender: TObject; Canvas: TCanvas;<br />
Item: TElTreeItem; ItemRect: TRect; var DrawFocusRect: Boolean);<br />
var<br />
R: TRect;<br />
s: TElFString;<br />
i: integer;<br />
begin<br />
R := ItemRect;<br />
R.Right := ElTree1.HeaderSections[0].Width + ElTree1.HeaderSections[1].Width - 1;<br />
R.Top := R.Top + Item.Height div 2; // dirty calculation. use HTMLRender to render text if you need exact result<br />
// this is main column so we need to take into account space for lines and buttons<br />
R.Left := R.Left + Item.IndentAdjust;<br />
if (ElTree1.ShowRoot and ElTree1.ShowLines) or (ElTree1.ShowButtons and ElTree1.ShowRootButtons) then<br />
Inc(R.Left, ElTree1.ItemIndent)<br />
else<br />
Inc(R.Left, ElTree1.ItemIndent div 5);<br />
// offset rect if we use images<br />
R.Left := R.Left + 20 ; // paste here image width + 4 instead of 20<br />
Canvas.Brush.Style := bsSolid;<br />
Canvas.Brush.Color := clWhite; // set item's color if need<br />
// my Item.Text = '<html><b>Some text 1</b> <p>'+#13#10+'Some very very very very very very long text 2</html>'<br />
i := Pos(#10, Item.Text);<br />
s := '';<br />
if i > 0 then<br />
s := Copy(Item.Text, i + 1, length(Item.Text) - i - 8); // 8 to ignore '</html>'<br />
DrawTextW(Canvas.Handle, PWideChar(s), length(s), R, DT_NOPREFIX and DT_Left);<br />
end;<br />
</pre><br />
<br />
== ElDB(X)Tree ==<br />
=== How could I display images in an Item if I've stored image's indexes in a database field? ===<br />
:1. Set TElDBXTree.ShowImages = True <br><br />
:2. Assign list of images (TImageList, TElImageList etc) to TElDBXTree.Images (and TElDBXTree.Images2 if you need it) properties <br><br />
:3. Open TElDBXTree.StylesDefs property in Object Inspector and choice "Table field" radiobutton in "Item images" radiogroup. It enforce setting Item.ImagesFromBase property to True for items. <br><br />
:4. Set data fields, where values for 1st (and 2st) image indexes was stored (look at Normal and State combos). <br><br />
<br />
Hereon you should see images on the left side of the item's text. <br><br />
<br />
=== How to make the sorted column drawn with an special background color ===<br />
There are several ways to reach it. <br><br />
<br />
:1) you may use OnSortEnd event to set custom style to each cell<br><br />
<br />
ex:<br><br />
<pre><br />
procedure TForm1.ElXTree1SortEnd(Sender: TObject);<br />
var<br />
i, j: integer;<br />
begin<br />
for j := 0 to ElXTree1.Items.Count - 1 do<br />
begin<br />
for i := 0 to ElXTree1.HeaderSections.Count - 1 do<br />
begin<br />
ElXTree1.Items.Item[j].Cells[i].UseOwnStyle := True;<br />
if (i = ElXTree1.SortSection) and<br />
(ElXTree1.HeaderSections.Sections[ElXTree1.SortSection].SortMode <> hsmNone)<br />
then<br />
begin<br />
ElXTree1.Items.Item[j].Cells[i].Style.CellBackGroundColor := clMoneyGreen;<br />
ElXTree1.Items.Item[j].Cells[i].Style.ParentColors := false;<br />
ElXTree1.Items.Item[j].Cells[i].Style.UseBackGroundColor := true;<br />
end<br />
else<br />
begin<br />
ElXTree1.Items.Item[j].Cells[i].Style.CellBackGroundColor := clWhite;<br />
ElXTree1.Items.Item[j].Cells[i].Style.ParentColors := false;<br />
ElXTree1.Items.Item[j].Cells[i].Style.UseBackGroundColor := true;<br />
end;<br />
end;<br />
end;<br />
end;<br />
</pre><br><br />
<br />
:2) you may use the cascading property of style to reach the same effect:<br><br />
ex:<br><br />
<pre><br />
procedure TForm1.FormCreate(Sender: TObject);<br />
var<br />
i, j: integer;<br />
begin<br />
// create test tree with 5 items. set custom colors in cells but not activate it<br />
for j := 0 to 5 do<br />
begin<br />
ElXTree1.Items.AddChild(nil,'Item'+Inttostr(j));<br />
ElXTree1.Items.Item[j].Cells[1].Text := Inttostr(j);<br />
for i := 0 to ElXTree1.HeaderSections.Count - 1 do<br />
begin<br />
ElXTree1.Items.Item[j].Cells[i].UseOwnStyle := True;<br />
ElXTree1.Items.Item[j].Cells[i].Style.CellBackGroundColor := clMoneyGreen;<br />
ElXTree1.Items.Item[j].Cells[i].Style.ParentColors := true;<br />
end;<br />
end;<br />
end;<br />
<br />
procedure TForm1.ElXTree1SortEnd(Sender: TObject);<br />
var<br />
i, j: integer;<br />
begin<br />
// in this procedure we activate using own colors for cells in sorted section<br />
for j := 0 to ElXTree1.Items.Count - 1 do<br />
begin<br />
for i := 0 to ElXTree1.HeaderSections.Count - 1 do<br />
begin<br />
if (i = ElXTree1.SortSection) and<br />
(ElXTree1.HeaderSections.Sections[ElXTree1.SortSection].SortMode <> hsmNone) <br />
then<br />
ElXTree1.Items.Item[j].Cells[i].Style.ParentColors := false<br />
else<br />
ElXTree1.Items.Item[j].Cells[i].Style.ParentColors := true;<br />
end;<br />
end;<br />
end;<br />
</pre><br><br />
<br />
:3) if the tree contains a lot of items more optimized to set colors in OnItemPreDraw event:<br><br />
ex:<br><br />
<pre><br />
procedure TForm1.ElXTree1ItemPreDraw(Sender: TObject; Item: TElXTreeItem);<br />
var<br />
i: integer;<br />
begin<br />
for i := 0 to ElXTree1.HeaderSections.Count - 1 do<br />
begin<br />
Item.Cells[i].UseOwnStyle := True;<br />
if (i = ElXTree1.SortSection) and<br />
(ElXTree1.HeaderSections.Sections[ElXTree1.SortSection].SortMode <> hsmNone)<br />
then<br />
begin<br />
Item.Cells[i].Style.CellBackGroundColor := clMoneyGreen;<br />
Item.Cells[i].Style.ParentColors := false;<br />
Item.Cells[i].Style.UseBackGroundColor := true;<br />
end<br />
else<br />
begin<br />
Item.Cells[i].Style.CellBackGroundColor := clWhite;<br />
Item.Cells[i].Style.ParentColors := false;<br />
Item.Cells[i].Style.UseBackGroundColor := true;<br />
end;<br />
end;<br />
end;<br />
</pre><br><br />
: 3a) ... or use virtual mode of tree <br><br />
[ Please look examle of virtual tree in our demo]<br></div>Wikiadminhttps://wiki.lmd.de/index.php?title=LMD_VCL_-_LMD_ElPack_FAQ&diff=1559LMD VCL - LMD ElPack FAQ2007-04-10T15:01:38Z<p>Wikiadmin: </p>
<hr />
<div>{{Head-Overview}} [[Category:FAQ]] [[Category:LMD ElPack]] <br />
<br />
<br />
== TElInspector ==<br />
=== How to use custom inplace editors? ===<br />
Inspector uses own collection of inplace editors. You can examine them in<br />
ElInspectorEditors.pas We'll define simple descendant of the button edit<br />
and will use it for editing of boolean values.<br />
<pre><br />
type<br />
<br />
TForm1 = class(TForm)<br />
<br />
ElInspector1: TElInspector;<br />
ElInspectorRTTIDataSource1: TElInspectorRTTIDataSource;<br />
...<br />
<br />
end;<br />
<br />
TMyElInspectorInplaceButtonEdit = class(TElInspectorInplaceButtonEdit)<br />
protected<br />
procedure BtnClick(Sender: TObject); override;<br />
end;<br />
<br />
<br />
implementation<br />
<br />
{ TMyElInspectorInplaceButtonEdit }<br />
<br />
procedure TMyElInspectorInplaceButtonEdit.BtnClick(Sender: TObject);<br />
begin<br />
if MessageDlg('Yes = True, No = False', mtConfirmation, [mbYes,mbNo], 0) = mrYes then<br />
begin<br />
TElInspectorItem(Item).InspectorData.AsString := 'True';<br />
Editor.Text := 'True';<br />
end<br />
else<br />
begin<br />
TElInspectorItem(Item).InspectorData.AsString := 'False';<br />
Editor.Text := 'False';<br />
end;<br />
end;<br />
<br />
<br />
procedure TForm1.FormCreate(Sender: TObject);<br />
var<br />
i: integer;<br />
LT: TElInspectorRegister;<br />
begin<br />
// we must to find current editor for boolean values in inspector's editors list<br />
for i := 1 to ElInspectorRTTIDataSource1.RegisterList.Count - 1 do<br />
begin<br />
LT := TElInspectorRegister(ElInspectorRTTIDataSource1.RegisterList.Items[i]);<br />
if (LT is TElInspectorTypeInfo) and (TElInspectorTypeInfo(LT).TypeInfo = TypeInfo(Boolean)) then<br />
begin <br />
// remove current boolean editor<br />
ElInspectorRTTIDataSource1.RegisterList.Remove( ElInspectorRTTIDataSource1.RegisterList.Items[i] );<br />
// register our editor<br />
ElInspectorRTTIDataSource1.RegisterList.Insert(i, TElInspectorTypeInfo.Create(TMyElInspectorInplaceButtonEdit, TElBooleanProperty, TypeInfo(Boolean)));<br />
Break;<br />
end;<br />
end;<br />
</pre><br><br />
<br />
== TStyleManager ==<br />
=== How to use StyleName? ===<br />
<br />
Style Manager operates with hierarchical style sheets. These style sheets are similar to Cascading Style Sheets (CSS), used in web pages, but they are more effective and easy to use. Each style sheet contains several styles. <br><br />
<br />
Each style contains one or more property values. When the style is applied to the component, the component is checked for presence of the property with given name. If the property is present, it is set to the value, specified in the style. <br><br />
<br />
Style can be one of three types: <br><br />
<br />
:1) Default<br />
:2) Class<br />
:3) Specific<br />
<br />
There is one default style per style sheet. It is an ancestor for all other styles. Specific styles are applied when they are explicitly referred to by the component (in it's StyleName property).<br><br />
Name of Specific style should begin by point (ex. '.CustomStyle') for prevention of crossing with names of classes.<br> <br />
Class styles are applied when there is no specific style name specified for the component. In this case the style with the name equal to component's class is searched for and applied. For example, if the component TElEdit refers to style manager, but there is no style name specified, Style Manager tries to find the style named 'TElEdit'. If it finds, this style is applied. <br><br />
<br />
== HTML controls ==<br />
=== Could you tell me how to get the HTML text on an HTML Label (View, TElXTreeCell etc.) to center? ===<br />
You may use <pre>'<p align="Center"></p>'</pre> tag to set desired text alignment.<br><br />
<br />
== El(X)Tree ==<br />
=== How to draw part of item's text to pass over the several columns? ===<br />
<br />
You can use OnItemPostDraw event to redraw part of item. For example I can<br />
redraw item text over first two columns:<br />
<br />
<pre><br />
uses elstrutils;<br />
<br />
procedure TForm1.ElTree1ItemPostDraw(Sender: TObject; Canvas: TCanvas;<br />
Item: TElTreeItem; ItemRect: TRect; var DrawFocusRect: Boolean);<br />
var<br />
R: TRect;<br />
s: TElFString;<br />
i: integer;<br />
begin<br />
R := ItemRect;<br />
R.Right := ElTree1.HeaderSections[0].Width + ElTree1.HeaderSections[1].Width - 1;<br />
R.Top := R.Top + Item.Height div 2; // dirty calculation. use HTMLRender to render text if you need exact result<br />
// this is main column so we need to take into account space for lines and buttons<br />
R.Left := R.Left + Item.IndentAdjust;<br />
if (ElTree1.ShowRoot and ElTree1.ShowLines) or (ElTree1.ShowButtons and ElTree1.ShowRootButtons) then<br />
Inc(R.Left, ElTree1.ItemIndent)<br />
else<br />
Inc(R.Left, ElTree1.ItemIndent div 5);<br />
// offset rect if we use images<br />
R.Left := R.Left + 20 ; // paste here image width + 4 instead of 20<br />
Canvas.Brush.Style := bsSolid;<br />
Canvas.Brush.Color := clWhite; // set item's color if need<br />
// my Item.Text = '<html><b>Some text 1</b> <p>'+#13#10+'Some very very very very very very long text 2</html>'<br />
i := Pos(#10, Item.Text);<br />
s := '';<br />
if i > 0 then<br />
s := Copy(Item.Text, i + 1, length(Item.Text) - i - 8); // 8 to ignore '</html>'<br />
DrawTextW(Canvas.Handle, PWideChar(s), length(s), R, DT_NOPREFIX and DT_Left);<br />
end;<br />
</pre><br />
<br />
== ElDB(X)Tree ==<br />
=== How could I display images in an Item if I've stored image's indexes in a database field? ===<br />
:1. Set TElDBXTree.ShowImages = True <br><br />
:2. Assign list of images (TImageList, TElImageList etc) to TElDBXTree.Images (and TElDBXTree.Images2 if you need it) properties <br><br />
:3. Open TElDBXTree.StylesDefs property in Object Inspector and choice "Table field" radiobutton in "Item images" radiogroup. It enforce setting Item.ImagesFromBase property to True for items. <br><br />
:4. Set data fields, where values for 1st (and 2st) image indexes was stored (look at Normal and State combos). <br><br />
<br />
Hereon you should see images on the left side of the item's text. <br><br />
<br />
=== How to make the sorted column drawn with an special background color ===<br />
There are several ways to reach it. <br><br />
<br />
:1) you may use OnSortEnd event to set custom style to each cell<br><br />
<br />
ex:<br><br />
<pre><br />
procedure TForm1.ElXTree1SortEnd(Sender: TObject);<br />
var<br />
i, j: integer;<br />
begin<br />
for j := 0 to ElXTree1.Items.Count - 1 do<br />
begin<br />
for i := 0 to ElXTree1.HeaderSections.Count - 1 do<br />
begin<br />
ElXTree1.Items.Item[j].Cells[i].UseOwnStyle := True;<br />
if (i = ElXTree1.SortSection) and<br />
(ElXTree1.HeaderSections.Sections[ElXTree1.SortSection].SortMode <> hsmNone)<br />
then<br />
begin<br />
ElXTree1.Items.Item[j].Cells[i].Style.CellBackGroundColor := clMoneyGreen;<br />
ElXTree1.Items.Item[j].Cells[i].Style.ParentColors := false;<br />
ElXTree1.Items.Item[j].Cells[i].Style.UseBackGroundColor := true;<br />
end<br />
else<br />
begin<br />
ElXTree1.Items.Item[j].Cells[i].Style.CellBackGroundColor := clWhite;<br />
ElXTree1.Items.Item[j].Cells[i].Style.ParentColors := false;<br />
ElXTree1.Items.Item[j].Cells[i].Style.UseBackGroundColor := true;<br />
end;<br />
end;<br />
end;<br />
end;<br />
</pre><br><br />
<br />
:2) you may use the cascading property of style to reach the same effect:<br><br />
ex:<br><br />
<pre><br />
procedure TForm1.FormCreate(Sender: TObject);<br />
var<br />
i, j: integer;<br />
begin<br />
// create test tree with 5 items. set custom colors in cells but not activate it<br />
for j := 0 to 5 do<br />
begin<br />
ElXTree1.Items.AddChild(nil,'Item'+Inttostr(j));<br />
ElXTree1.Items.Item[j].Cells[1].Text := Inttostr(j);<br />
for i := 0 to ElXTree1.HeaderSections.Count - 1 do<br />
begin<br />
ElXTree1.Items.Item[j].Cells[i].UseOwnStyle := True;<br />
ElXTree1.Items.Item[j].Cells[i].Style.CellBackGroundColor := clMoneyGreen;<br />
ElXTree1.Items.Item[j].Cells[i].Style.ParentColors := true;<br />
end;<br />
end;<br />
end;<br />
<br />
procedure TForm1.ElXTree1SortEnd(Sender: TObject);<br />
var<br />
i, j: integer;<br />
begin<br />
// in this procedure we activate using own colors for cells in sorted section<br />
for j := 0 to ElXTree1.Items.Count - 1 do<br />
begin<br />
for i := 0 to ElXTree1.HeaderSections.Count - 1 do<br />
begin<br />
if (i = ElXTree1.SortSection) and<br />
(ElXTree1.HeaderSections.Sections[ElXTree1.SortSection].SortMode <> hsmNone) <br />
then<br />
ElXTree1.Items.Item[j].Cells[i].Style.ParentColors := false<br />
else<br />
ElXTree1.Items.Item[j].Cells[i].Style.ParentColors := true;<br />
end;<br />
end;<br />
end;<br />
</pre><br><br />
<br />
:3) if the tree contains a lot of items more optimized to set colors in OnItemPreDraw event:<br><br />
ex:<br><br />
<pre><br />
procedure TForm1.ElXTree1ItemPreDraw(Sender: TObject; Item: TElXTreeItem);<br />
var<br />
i: integer;<br />
begin<br />
for i := 0 to ElXTree1.HeaderSections.Count - 1 do<br />
begin<br />
Item.Cells[i].UseOwnStyle := True;<br />
if (i = ElXTree1.SortSection) and<br />
(ElXTree1.HeaderSections.Sections[ElXTree1.SortSection].SortMode <> hsmNone)<br />
then<br />
begin<br />
Item.Cells[i].Style.CellBackGroundColor := clMoneyGreen;<br />
Item.Cells[i].Style.ParentColors := false;<br />
Item.Cells[i].Style.UseBackGroundColor := true;<br />
end<br />
else<br />
begin<br />
Item.Cells[i].Style.CellBackGroundColor := clWhite;<br />
Item.Cells[i].Style.ParentColors := false;<br />
Item.Cells[i].Style.UseBackGroundColor := true;<br />
end;<br />
end;<br />
end;<br />
</pre><br><br />
: 3a) ... or use virtual mode of tree <br><br />
[ Please look examle of virtual tree in our demo]<br></div>Wikiadminhttps://wiki.lmd.de/index.php?title=LMD_VCL_-_LMD_ElPack_FAQ&diff=1558LMD VCL - LMD ElPack FAQ2007-04-10T15:00:27Z<p>Wikiadmin: </p>
<hr />
<div>{{Head-Overview}} [[Category:FAQ]] [[Category:LMD ElPack]] <br />
<br />
<br />
== TElInspector ==<br />
=== How to use custom inplace editors? ===<br />
Inspector uses own collection of inplace editors. You can examine them in<br />
ElInspectorEditors.pas We'll define simple descendant of the button edit<br />
and will use it for editing of boolean values.<br />
<source lang="delphi"><br />
type<br />
<br />
TForm1 = class(TForm)<br />
<br />
ElInspector1: TElInspector;<br />
ElInspectorRTTIDataSource1: TElInspectorRTTIDataSource;<br />
...<br />
<br />
end;<br />
<br />
TMyElInspectorInplaceButtonEdit = class(TElInspectorInplaceButtonEdit)<br />
protected<br />
procedure BtnClick(Sender: TObject); override;<br />
end;<br />
<br />
<br />
implementation<br />
<br />
{ TMyElInspectorInplaceButtonEdit }<br />
<br />
procedure TMyElInspectorInplaceButtonEdit.BtnClick(Sender: TObject);<br />
begin<br />
if MessageDlg('Yes = True, No = False', mtConfirmation, [mbYes,mbNo], 0) = mrYes then<br />
begin<br />
TElInspectorItem(Item).InspectorData.AsString := 'True';<br />
Editor.Text := 'True';<br />
end<br />
else<br />
begin<br />
TElInspectorItem(Item).InspectorData.AsString := 'False';<br />
Editor.Text := 'False';<br />
end;<br />
end;<br />
<br />
<br />
procedure TForm1.FormCreate(Sender: TObject);<br />
var<br />
i: integer;<br />
LT: TElInspectorRegister;<br />
begin<br />
// we must to find current editor for boolean values in inspector's editors list<br />
for i := 1 to ElInspectorRTTIDataSource1.RegisterList.Count - 1 do<br />
begin<br />
LT := TElInspectorRegister(ElInspectorRTTIDataSource1.RegisterList.Items[i]);<br />
if (LT is TElInspectorTypeInfo) and (TElInspectorTypeInfo(LT).TypeInfo = TypeInfo(Boolean)) then<br />
begin <br />
// remove current boolean editor<br />
ElInspectorRTTIDataSource1.RegisterList.Remove( ElInspectorRTTIDataSource1.RegisterList.Items[i] );<br />
// register our editor<br />
ElInspectorRTTIDataSource1.RegisterList.Insert(i, TElInspectorTypeInfo.Create(TMyElInspectorInplaceButtonEdit, TElBooleanProperty, TypeInfo(Boolean)));<br />
Break;<br />
end;<br />
end;<br />
</source><br><br />
<br />
== TStyleManager ==<br />
=== How to use StyleName? ===<br />
<br />
Style Manager operates with hierarchical style sheets. These style sheets are similar to Cascading Style Sheets (CSS), used in web pages, but they are more effective and easy to use. Each style sheet contains several styles. <br><br />
<br />
Each style contains one or more property values. When the style is applied to the component, the component is checked for presence of the property with given name. If the property is present, it is set to the value, specified in the style. <br><br />
<br />
Style can be one of three types: <br><br />
<br />
:1) Default<br />
:2) Class<br />
:3) Specific<br />
<br />
There is one default style per style sheet. It is an ancestor for all other styles. Specific styles are applied when they are explicitly referred to by the component (in it's StyleName property).<br><br />
Name of Specific style should begin by point (ex. '.CustomStyle') for prevention of crossing with names of classes.<br> <br />
Class styles are applied when there is no specific style name specified for the component. In this case the style with the name equal to component's class is searched for and applied. For example, if the component TElEdit refers to style manager, but there is no style name specified, Style Manager tries to find the style named 'TElEdit'. If it finds, this style is applied. <br><br />
<br />
== HTML controls ==<br />
=== Could you tell me how to get the HTML text on an HTML Label (View, TElXTreeCell etc.) to center? ===<br />
You may use <pre>'<p align="Center"></p>'</pre> tag to set desired text alignment.<br><br />
<br />
== El(X)Tree ==<br />
=== How to draw part of item's text to pass over the several columns? ===<br />
<br />
You can use OnItemPostDraw event to redraw part of item. For example I can<br />
redraw item text over first two columns:<br />
<br />
<pre><br />
uses elstrutils;<br />
<br />
procedure TForm1.ElTree1ItemPostDraw(Sender: TObject; Canvas: TCanvas;<br />
Item: TElTreeItem; ItemRect: TRect; var DrawFocusRect: Boolean);<br />
var<br />
R: TRect;<br />
s: TElFString;<br />
i: integer;<br />
begin<br />
R := ItemRect;<br />
R.Right := ElTree1.HeaderSections[0].Width + ElTree1.HeaderSections[1].Width - 1;<br />
R.Top := R.Top + Item.Height div 2; // dirty calculation. use HTMLRender to render text if you need exact result<br />
// this is main column so we need to take into account space for lines and buttons<br />
R.Left := R.Left + Item.IndentAdjust;<br />
if (ElTree1.ShowRoot and ElTree1.ShowLines) or (ElTree1.ShowButtons and ElTree1.ShowRootButtons) then<br />
Inc(R.Left, ElTree1.ItemIndent)<br />
else<br />
Inc(R.Left, ElTree1.ItemIndent div 5);<br />
// offset rect if we use images<br />
R.Left := R.Left + 20 ; // paste here image width + 4 instead of 20<br />
Canvas.Brush.Style := bsSolid;<br />
Canvas.Brush.Color := clWhite; // set item's color if need<br />
// my Item.Text = '<html><b>Some text 1</b> <p>'+#13#10+'Some very very very very very very long text 2</html>'<br />
i := Pos(#10, Item.Text);<br />
s := '';<br />
if i > 0 then<br />
s := Copy(Item.Text, i + 1, length(Item.Text) - i - 8); // 8 to ignore '</html>'<br />
DrawTextW(Canvas.Handle, PWideChar(s), length(s), R, DT_NOPREFIX and DT_Left);<br />
end;<br />
</pre><br />
<br />
== ElDB(X)Tree ==<br />
=== How could I display images in an Item if I've stored image's indexes in a database field? ===<br />
:1. Set TElDBXTree.ShowImages = True <br><br />
:2. Assign list of images (TImageList, TElImageList etc) to TElDBXTree.Images (and TElDBXTree.Images2 if you need it) properties <br><br />
:3. Open TElDBXTree.StylesDefs property in Object Inspector and choice "Table field" radiobutton in "Item images" radiogroup. It enforce setting Item.ImagesFromBase property to True for items. <br><br />
:4. Set data fields, where values for 1st (and 2st) image indexes was stored (look at Normal and State combos). <br><br />
<br />
Hereon you should see images on the left side of the item's text. <br><br />
<br />
=== How to make the sorted column drawn with an special background color ===<br />
There are several ways to reach it. <br><br />
<br />
:1) you may use OnSortEnd event to set custom style to each cell<br><br />
<br />
ex:<br><br />
<pre><br />
procedure TForm1.ElXTree1SortEnd(Sender: TObject);<br />
var<br />
i, j: integer;<br />
begin<br />
for j := 0 to ElXTree1.Items.Count - 1 do<br />
begin<br />
for i := 0 to ElXTree1.HeaderSections.Count - 1 do<br />
begin<br />
ElXTree1.Items.Item[j].Cells[i].UseOwnStyle := True;<br />
if (i = ElXTree1.SortSection) and<br />
(ElXTree1.HeaderSections.Sections[ElXTree1.SortSection].SortMode <> hsmNone)<br />
then<br />
begin<br />
ElXTree1.Items.Item[j].Cells[i].Style.CellBackGroundColor := clMoneyGreen;<br />
ElXTree1.Items.Item[j].Cells[i].Style.ParentColors := false;<br />
ElXTree1.Items.Item[j].Cells[i].Style.UseBackGroundColor := true;<br />
end<br />
else<br />
begin<br />
ElXTree1.Items.Item[j].Cells[i].Style.CellBackGroundColor := clWhite;<br />
ElXTree1.Items.Item[j].Cells[i].Style.ParentColors := false;<br />
ElXTree1.Items.Item[j].Cells[i].Style.UseBackGroundColor := true;<br />
end;<br />
end;<br />
end;<br />
end;<br />
</pre><br><br />
<br />
:2) you may use the cascading property of style to reach the same effect:<br><br />
ex:<br><br />
<pre><br />
procedure TForm1.FormCreate(Sender: TObject);<br />
var<br />
i, j: integer;<br />
begin<br />
// create test tree with 5 items. set custom colors in cells but not activate it<br />
for j := 0 to 5 do<br />
begin<br />
ElXTree1.Items.AddChild(nil,'Item'+Inttostr(j));<br />
ElXTree1.Items.Item[j].Cells[1].Text := Inttostr(j);<br />
for i := 0 to ElXTree1.HeaderSections.Count - 1 do<br />
begin<br />
ElXTree1.Items.Item[j].Cells[i].UseOwnStyle := True;<br />
ElXTree1.Items.Item[j].Cells[i].Style.CellBackGroundColor := clMoneyGreen;<br />
ElXTree1.Items.Item[j].Cells[i].Style.ParentColors := true;<br />
end;<br />
end;<br />
end;<br />
<br />
procedure TForm1.ElXTree1SortEnd(Sender: TObject);<br />
var<br />
i, j: integer;<br />
begin<br />
// in this procedure we activate using own colors for cells in sorted section<br />
for j := 0 to ElXTree1.Items.Count - 1 do<br />
begin<br />
for i := 0 to ElXTree1.HeaderSections.Count - 1 do<br />
begin<br />
if (i = ElXTree1.SortSection) and<br />
(ElXTree1.HeaderSections.Sections[ElXTree1.SortSection].SortMode <> hsmNone) <br />
then<br />
ElXTree1.Items.Item[j].Cells[i].Style.ParentColors := false<br />
else<br />
ElXTree1.Items.Item[j].Cells[i].Style.ParentColors := true;<br />
end;<br />
end;<br />
end;<br />
</pre><br><br />
<br />
:3) if the tree contains a lot of items more optimized to set colors in OnItemPreDraw event:<br><br />
ex:<br><br />
<pre><br />
procedure TForm1.ElXTree1ItemPreDraw(Sender: TObject; Item: TElXTreeItem);<br />
var<br />
i: integer;<br />
begin<br />
for i := 0 to ElXTree1.HeaderSections.Count - 1 do<br />
begin<br />
Item.Cells[i].UseOwnStyle := True;<br />
if (i = ElXTree1.SortSection) and<br />
(ElXTree1.HeaderSections.Sections[ElXTree1.SortSection].SortMode <> hsmNone)<br />
then<br />
begin<br />
Item.Cells[i].Style.CellBackGroundColor := clMoneyGreen;<br />
Item.Cells[i].Style.ParentColors := false;<br />
Item.Cells[i].Style.UseBackGroundColor := true;<br />
end<br />
else<br />
begin<br />
Item.Cells[i].Style.CellBackGroundColor := clWhite;<br />
Item.Cells[i].Style.ParentColors := false;<br />
Item.Cells[i].Style.UseBackGroundColor := true;<br />
end;<br />
end;<br />
end;<br />
</pre><br><br />
: 3a) ... or use virtual mode of tree <br><br />
[ Please look examle of virtual tree in our demo]<br></div>Wikiadminhttps://wiki.lmd.de/index.php?title=LMD_VCL_-_LMD_ElPack_FAQ&diff=1557LMD VCL - LMD ElPack FAQ2007-04-10T14:43:39Z<p>Wikiadmin: /* How to draw part of item's text to pass over the several columns? */</p>
<hr />
<div>{{Head-Overview}} [[Category:FAQ]] [[Category:LMD ElPack]] <br />
<br />
<br />
== TElInspector ==<br />
=== How to use custom inplace editors? ===<br />
Inspector uses own collection of inplace editors. You can examine them in<br />
ElInspectorEditors.pas We'll define simple descendant of the button edit<br />
and will use it for editing of boolean values.<br />
<pre><br />
type<br />
<br />
TForm1 = class(TForm)<br />
<br />
ElInspector1: TElInspector;<br />
ElInspectorRTTIDataSource1: TElInspectorRTTIDataSource;<br />
...<br />
<br />
end;<br />
<br />
TMyElInspectorInplaceButtonEdit = class(TElInspectorInplaceButtonEdit)<br />
protected<br />
procedure BtnClick(Sender: TObject); override;<br />
end;<br />
<br />
<br />
implementation<br />
<br />
{ TMyElInspectorInplaceButtonEdit }<br />
<br />
procedure TMyElInspectorInplaceButtonEdit.BtnClick(Sender: TObject);<br />
begin<br />
if MessageDlg('Yes = True, No = False', mtConfirmation, [mbYes,mbNo], 0) = mrYes then<br />
begin<br />
TElInspectorItem(Item).InspectorData.AsString := 'True';<br />
Editor.Text := 'True';<br />
end<br />
else<br />
begin<br />
TElInspectorItem(Item).InspectorData.AsString := 'False';<br />
Editor.Text := 'False';<br />
end;<br />
end;<br />
<br />
<br />
procedure TForm1.FormCreate(Sender: TObject);<br />
var<br />
i: integer;<br />
LT: TElInspectorRegister;<br />
begin<br />
// we must to find current editor for boolean values in inspector's editors list<br />
for i := 1 to ElInspectorRTTIDataSource1.RegisterList.Count - 1 do<br />
begin<br />
LT := TElInspectorRegister(ElInspectorRTTIDataSource1.RegisterList.Items[i]);<br />
if (LT is TElInspectorTypeInfo) and (TElInspectorTypeInfo(LT).TypeInfo = TypeInfo(Boolean)) then<br />
begin <br />
// remove current boolean editor<br />
ElInspectorRTTIDataSource1.RegisterList.Remove( ElInspectorRTTIDataSource1.RegisterList.Items[i] );<br />
// register our editor<br />
ElInspectorRTTIDataSource1.RegisterList.Insert(i, TElInspectorTypeInfo.Create(TMyElInspectorInplaceButtonEdit, TElBooleanProperty, TypeInfo(Boolean)));<br />
Break;<br />
end;<br />
end;<br />
</pre><br><br />
<br />
== TStyleManager ==<br />
=== How to use StyleName? ===<br />
<br />
Style Manager operates with hierarchical style sheets. These style sheets are similar to Cascading Style Sheets (CSS), used in web pages, but they are more effective and easy to use. Each style sheet contains several styles. <br><br />
<br />
Each style contains one or more property values. When the style is applied to the component, the component is checked for presence of the property with given name. If the property is present, it is set to the value, specified in the style. <br><br />
<br />
Style can be one of three types: <br><br />
<br />
:1) Default<br />
:2) Class<br />
:3) Specific<br />
<br />
There is one default style per style sheet. It is an ancestor for all other styles. Specific styles are applied when they are explicitly referred to by the component (in it's StyleName property).<br><br />
Name of Specific style should begin by point (ex. '.CustomStyle') for prevention of crossing with names of classes.<br> <br />
Class styles are applied when there is no specific style name specified for the component. In this case the style with the name equal to component's class is searched for and applied. For example, if the component TElEdit refers to style manager, but there is no style name specified, Style Manager tries to find the style named 'TElEdit'. If it finds, this style is applied. <br><br />
<br />
== HTML controls ==<br />
=== Could you tell me how to get the HTML text on an HTML Label (View, TElXTreeCell etc.) to center? ===<br />
You may use <pre>'<p align="Center"></p>'</pre> tag to set desired text alignment.<br><br />
<br />
== El(X)Tree ==<br />
=== How to draw part of item's text to pass over the several columns? ===<br />
<br />
You can use OnItemPostDraw event to redraw part of item. For example I can<br />
redraw item text over first two columns:<br />
<br />
<pre><br />
uses elstrutils;<br />
<br />
procedure TForm1.ElTree1ItemPostDraw(Sender: TObject; Canvas: TCanvas;<br />
Item: TElTreeItem; ItemRect: TRect; var DrawFocusRect: Boolean);<br />
var<br />
R: TRect;<br />
s: TElFString;<br />
i: integer;<br />
begin<br />
R := ItemRect;<br />
R.Right := ElTree1.HeaderSections[0].Width + ElTree1.HeaderSections[1].Width - 1;<br />
R.Top := R.Top + Item.Height div 2; // dirty calculation. use HTMLRender to render text if you need exact result<br />
// this is main column so we need to take into account space for lines and buttons<br />
R.Left := R.Left + Item.IndentAdjust;<br />
if (ElTree1.ShowRoot and ElTree1.ShowLines) or (ElTree1.ShowButtons and ElTree1.ShowRootButtons) then<br />
Inc(R.Left, ElTree1.ItemIndent)<br />
else<br />
Inc(R.Left, ElTree1.ItemIndent div 5);<br />
// offset rect if we use images<br />
R.Left := R.Left + 20 ; // paste here image width + 4 instead of 20<br />
Canvas.Brush.Style := bsSolid;<br />
Canvas.Brush.Color := clWhite; // set item's color if need<br />
// my Item.Text = '<html><b>Some text 1</b> <p>'+#13#10+'Some very very very very very very long text 2</html>'<br />
i := Pos(#10, Item.Text);<br />
s := '';<br />
if i > 0 then<br />
s := Copy(Item.Text, i + 1, length(Item.Text) - i - 8); // 8 to ignore '</html>'<br />
DrawTextW(Canvas.Handle, PWideChar(s), length(s), R, DT_NOPREFIX and DT_Left);<br />
end;<br />
</pre><br />
<br />
== ElDB(X)Tree ==<br />
=== How could I display images in an Item if I've stored image's indexes in a database field? ===<br />
:1. Set TElDBXTree.ShowImages = True <br><br />
:2. Assign list of images (TImageList, TElImageList etc) to TElDBXTree.Images (and TElDBXTree.Images2 if you need it) properties <br><br />
:3. Open TElDBXTree.StylesDefs property in Object Inspector and choice "Table field" radiobutton in "Item images" radiogroup. It enforce setting Item.ImagesFromBase property to True for items. <br><br />
:4. Set data fields, where values for 1st (and 2st) image indexes was stored (look at Normal and State combos). <br><br />
<br />
Hereon you should see images on the left side of the item's text. <br><br />
<br />
=== How to make the sorted column drawn with an special background color ===<br />
There are several ways to reach it. <br><br />
<br />
:1) you may use OnSortEnd event to set custom style to each cell<br><br />
<br />
ex:<br><br />
<pre><br />
procedure TForm1.ElXTree1SortEnd(Sender: TObject);<br />
var<br />
i, j: integer;<br />
begin<br />
for j := 0 to ElXTree1.Items.Count - 1 do<br />
begin<br />
for i := 0 to ElXTree1.HeaderSections.Count - 1 do<br />
begin<br />
ElXTree1.Items.Item[j].Cells[i].UseOwnStyle := True;<br />
if (i = ElXTree1.SortSection) and<br />
(ElXTree1.HeaderSections.Sections[ElXTree1.SortSection].SortMode <> hsmNone)<br />
then<br />
begin<br />
ElXTree1.Items.Item[j].Cells[i].Style.CellBackGroundColor := clMoneyGreen;<br />
ElXTree1.Items.Item[j].Cells[i].Style.ParentColors := false;<br />
ElXTree1.Items.Item[j].Cells[i].Style.UseBackGroundColor := true;<br />
end<br />
else<br />
begin<br />
ElXTree1.Items.Item[j].Cells[i].Style.CellBackGroundColor := clWhite;<br />
ElXTree1.Items.Item[j].Cells[i].Style.ParentColors := false;<br />
ElXTree1.Items.Item[j].Cells[i].Style.UseBackGroundColor := true;<br />
end;<br />
end;<br />
end;<br />
end;<br />
</pre><br><br />
<br />
:2) you may use the cascading property of style to reach the same effect:<br><br />
ex:<br><br />
<pre><br />
procedure TForm1.FormCreate(Sender: TObject);<br />
var<br />
i, j: integer;<br />
begin<br />
// create test tree with 5 items. set custom colors in cells but not activate it<br />
for j := 0 to 5 do<br />
begin<br />
ElXTree1.Items.AddChild(nil,'Item'+Inttostr(j));<br />
ElXTree1.Items.Item[j].Cells[1].Text := Inttostr(j);<br />
for i := 0 to ElXTree1.HeaderSections.Count - 1 do<br />
begin<br />
ElXTree1.Items.Item[j].Cells[i].UseOwnStyle := True;<br />
ElXTree1.Items.Item[j].Cells[i].Style.CellBackGroundColor := clMoneyGreen;<br />
ElXTree1.Items.Item[j].Cells[i].Style.ParentColors := true;<br />
end;<br />
end;<br />
end;<br />
<br />
procedure TForm1.ElXTree1SortEnd(Sender: TObject);<br />
var<br />
i, j: integer;<br />
begin<br />
// in this procedure we activate using own colors for cells in sorted section<br />
for j := 0 to ElXTree1.Items.Count - 1 do<br />
begin<br />
for i := 0 to ElXTree1.HeaderSections.Count - 1 do<br />
begin<br />
if (i = ElXTree1.SortSection) and<br />
(ElXTree1.HeaderSections.Sections[ElXTree1.SortSection].SortMode <> hsmNone) <br />
then<br />
ElXTree1.Items.Item[j].Cells[i].Style.ParentColors := false<br />
else<br />
ElXTree1.Items.Item[j].Cells[i].Style.ParentColors := true;<br />
end;<br />
end;<br />
end;<br />
</pre><br><br />
<br />
:3) if the tree contains a lot of items more optimized to set colors in OnItemPreDraw event:<br><br />
ex:<br><br />
<pre><br />
procedure TForm1.ElXTree1ItemPreDraw(Sender: TObject; Item: TElXTreeItem);<br />
var<br />
i: integer;<br />
begin<br />
for i := 0 to ElXTree1.HeaderSections.Count - 1 do<br />
begin<br />
Item.Cells[i].UseOwnStyle := True;<br />
if (i = ElXTree1.SortSection) and<br />
(ElXTree1.HeaderSections.Sections[ElXTree1.SortSection].SortMode <> hsmNone)<br />
then<br />
begin<br />
Item.Cells[i].Style.CellBackGroundColor := clMoneyGreen;<br />
Item.Cells[i].Style.ParentColors := false;<br />
Item.Cells[i].Style.UseBackGroundColor := true;<br />
end<br />
else<br />
begin<br />
Item.Cells[i].Style.CellBackGroundColor := clWhite;<br />
Item.Cells[i].Style.ParentColors := false;<br />
Item.Cells[i].Style.UseBackGroundColor := true;<br />
end;<br />
end;<br />
end;<br />
</pre><br><br />
: 3a) ... or use virtual mode of tree <br><br />
[ Please look examle of virtual tree in our demo]<br></div>Wikiadminhttps://wiki.lmd.de/index.php?title=LMD_VCL_-_LMD_ElPack_FAQ&diff=1556LMD VCL - LMD ElPack FAQ2007-04-10T14:36:32Z<p>Wikiadmin: /* How to draw part of item's text to pass over the several columns? */</p>
<hr />
<div>{{Head-Overview}} [[Category:FAQ]] [[Category:LMD ElPack]] <br />
<br />
<br />
== TElInspector ==<br />
=== How to use custom inplace editors? ===<br />
Inspector uses own collection of inplace editors. You can examine them in<br />
ElInspectorEditors.pas We'll define simple descendant of the button edit<br />
and will use it for editing of boolean values.<br />
<pre><br />
type<br />
<br />
TForm1 = class(TForm)<br />
<br />
ElInspector1: TElInspector;<br />
ElInspectorRTTIDataSource1: TElInspectorRTTIDataSource;<br />
...<br />
<br />
end;<br />
<br />
TMyElInspectorInplaceButtonEdit = class(TElInspectorInplaceButtonEdit)<br />
protected<br />
procedure BtnClick(Sender: TObject); override;<br />
end;<br />
<br />
<br />
implementation<br />
<br />
{ TMyElInspectorInplaceButtonEdit }<br />
<br />
procedure TMyElInspectorInplaceButtonEdit.BtnClick(Sender: TObject);<br />
begin<br />
if MessageDlg('Yes = True, No = False', mtConfirmation, [mbYes,mbNo], 0) = mrYes then<br />
begin<br />
TElInspectorItem(Item).InspectorData.AsString := 'True';<br />
Editor.Text := 'True';<br />
end<br />
else<br />
begin<br />
TElInspectorItem(Item).InspectorData.AsString := 'False';<br />
Editor.Text := 'False';<br />
end;<br />
end;<br />
<br />
<br />
procedure TForm1.FormCreate(Sender: TObject);<br />
var<br />
i: integer;<br />
LT: TElInspectorRegister;<br />
begin<br />
// we must to find current editor for boolean values in inspector's editors list<br />
for i := 1 to ElInspectorRTTIDataSource1.RegisterList.Count - 1 do<br />
begin<br />
LT := TElInspectorRegister(ElInspectorRTTIDataSource1.RegisterList.Items[i]);<br />
if (LT is TElInspectorTypeInfo) and (TElInspectorTypeInfo(LT).TypeInfo = TypeInfo(Boolean)) then<br />
begin <br />
// remove current boolean editor<br />
ElInspectorRTTIDataSource1.RegisterList.Remove( ElInspectorRTTIDataSource1.RegisterList.Items[i] );<br />
// register our editor<br />
ElInspectorRTTIDataSource1.RegisterList.Insert(i, TElInspectorTypeInfo.Create(TMyElInspectorInplaceButtonEdit, TElBooleanProperty, TypeInfo(Boolean)));<br />
Break;<br />
end;<br />
end;<br />
</pre><br><br />
<br />
== TStyleManager ==<br />
=== How to use StyleName? ===<br />
<br />
Style Manager operates with hierarchical style sheets. These style sheets are similar to Cascading Style Sheets (CSS), used in web pages, but they are more effective and easy to use. Each style sheet contains several styles. <br><br />
<br />
Each style contains one or more property values. When the style is applied to the component, the component is checked for presence of the property with given name. If the property is present, it is set to the value, specified in the style. <br><br />
<br />
Style can be one of three types: <br><br />
<br />
:1) Default<br />
:2) Class<br />
:3) Specific<br />
<br />
There is one default style per style sheet. It is an ancestor for all other styles. Specific styles are applied when they are explicitly referred to by the component (in it's StyleName property).<br><br />
Name of Specific style should begin by point (ex. '.CustomStyle') for prevention of crossing with names of classes.<br> <br />
Class styles are applied when there is no specific style name specified for the component. In this case the style with the name equal to component's class is searched for and applied. For example, if the component TElEdit refers to style manager, but there is no style name specified, Style Manager tries to find the style named 'TElEdit'. If it finds, this style is applied. <br><br />
<br />
== HTML controls ==<br />
=== Could you tell me how to get the HTML text on an HTML Label (View, TElXTreeCell etc.) to center? ===<br />
You may use <pre>'<p align="Center"></p>'</pre> tag to set desired text alignment.<br><br />
<br />
== El(X)Tree ==<br />
=== How to draw part of item's text to pass over the several columns? ===<br />
<br />
You can use OnItemPostDraw event to redraw part of item. For example I can<br />
redraw item text over first two columns:<br />
<br />
<source lang="delphi"><br />
uses elstrutils;<br />
<br />
procedure TForm1.ElTree1ItemPostDraw(Sender: TObject; Canvas: TCanvas;<br />
Item: TElTreeItem; ItemRect: TRect; var DrawFocusRect: Boolean);<br />
var<br />
R: TRect;<br />
s: TElFString;<br />
i: integer;<br />
begin<br />
R := ItemRect;<br />
R.Right := ElTree1.HeaderSections[0].Width + ElTree1.HeaderSections[1].Width - 1;<br />
R.Top := R.Top + Item.Height div 2; // dirty calculation. use HTMLRender to render text if you need exact result<br />
// this is main column so we need to take into account space for lines and buttons<br />
R.Left := R.Left + Item.IndentAdjust;<br />
if (ElTree1.ShowRoot and ElTree1.ShowLines) or (ElTree1.ShowButtons and ElTree1.ShowRootButtons) then<br />
Inc(R.Left, ElTree1.ItemIndent)<br />
else<br />
Inc(R.Left, ElTree1.ItemIndent div 5);<br />
// offset rect if we use images<br />
R.Left := R.Left + 20 ; // paste here image width + 4 instead of 20<br />
Canvas.Brush.Style := bsSolid;<br />
Canvas.Brush.Color := clWhite; // set item's color if need<br />
// my Item.Text = '<html><b>Some text 1</b> <p>'+#13#10+'Some very very very very very very long text 2</html>'<br />
i := Pos(#10, Item.Text);<br />
s := '';<br />
if i > 0 then<br />
s := Copy(Item.Text, i + 1, length(Item.Text) - i - 8); // 8 to ignore '</html>'<br />
DrawTextW(Canvas.Handle, PWideChar(s), length(s), R, DT_NOPREFIX and DT_Left);<br />
end;<br />
</source><br />
<br />
== ElDB(X)Tree ==<br />
=== How could I display images in an Item if I've stored image's indexes in a database field? ===<br />
:1. Set TElDBXTree.ShowImages = True <br><br />
:2. Assign list of images (TImageList, TElImageList etc) to TElDBXTree.Images (and TElDBXTree.Images2 if you need it) properties <br><br />
:3. Open TElDBXTree.StylesDefs property in Object Inspector and choice "Table field" radiobutton in "Item images" radiogroup. It enforce setting Item.ImagesFromBase property to True for items. <br><br />
:4. Set data fields, where values for 1st (and 2st) image indexes was stored (look at Normal and State combos). <br><br />
<br />
Hereon you should see images on the left side of the item's text. <br><br />
<br />
=== How to make the sorted column drawn with an special background color ===<br />
There are several ways to reach it. <br><br />
<br />
:1) you may use OnSortEnd event to set custom style to each cell<br><br />
<br />
ex:<br><br />
<pre><br />
procedure TForm1.ElXTree1SortEnd(Sender: TObject);<br />
var<br />
i, j: integer;<br />
begin<br />
for j := 0 to ElXTree1.Items.Count - 1 do<br />
begin<br />
for i := 0 to ElXTree1.HeaderSections.Count - 1 do<br />
begin<br />
ElXTree1.Items.Item[j].Cells[i].UseOwnStyle := True;<br />
if (i = ElXTree1.SortSection) and<br />
(ElXTree1.HeaderSections.Sections[ElXTree1.SortSection].SortMode <> hsmNone)<br />
then<br />
begin<br />
ElXTree1.Items.Item[j].Cells[i].Style.CellBackGroundColor := clMoneyGreen;<br />
ElXTree1.Items.Item[j].Cells[i].Style.ParentColors := false;<br />
ElXTree1.Items.Item[j].Cells[i].Style.UseBackGroundColor := true;<br />
end<br />
else<br />
begin<br />
ElXTree1.Items.Item[j].Cells[i].Style.CellBackGroundColor := clWhite;<br />
ElXTree1.Items.Item[j].Cells[i].Style.ParentColors := false;<br />
ElXTree1.Items.Item[j].Cells[i].Style.UseBackGroundColor := true;<br />
end;<br />
end;<br />
end;<br />
end;<br />
</pre><br><br />
<br />
:2) you may use the cascading property of style to reach the same effect:<br><br />
ex:<br><br />
<pre><br />
procedure TForm1.FormCreate(Sender: TObject);<br />
var<br />
i, j: integer;<br />
begin<br />
// create test tree with 5 items. set custom colors in cells but not activate it<br />
for j := 0 to 5 do<br />
begin<br />
ElXTree1.Items.AddChild(nil,'Item'+Inttostr(j));<br />
ElXTree1.Items.Item[j].Cells[1].Text := Inttostr(j);<br />
for i := 0 to ElXTree1.HeaderSections.Count - 1 do<br />
begin<br />
ElXTree1.Items.Item[j].Cells[i].UseOwnStyle := True;<br />
ElXTree1.Items.Item[j].Cells[i].Style.CellBackGroundColor := clMoneyGreen;<br />
ElXTree1.Items.Item[j].Cells[i].Style.ParentColors := true;<br />
end;<br />
end;<br />
end;<br />
<br />
procedure TForm1.ElXTree1SortEnd(Sender: TObject);<br />
var<br />
i, j: integer;<br />
begin<br />
// in this procedure we activate using own colors for cells in sorted section<br />
for j := 0 to ElXTree1.Items.Count - 1 do<br />
begin<br />
for i := 0 to ElXTree1.HeaderSections.Count - 1 do<br />
begin<br />
if (i = ElXTree1.SortSection) and<br />
(ElXTree1.HeaderSections.Sections[ElXTree1.SortSection].SortMode <> hsmNone) <br />
then<br />
ElXTree1.Items.Item[j].Cells[i].Style.ParentColors := false<br />
else<br />
ElXTree1.Items.Item[j].Cells[i].Style.ParentColors := true;<br />
end;<br />
end;<br />
end;<br />
</pre><br><br />
<br />
:3) if the tree contains a lot of items more optimized to set colors in OnItemPreDraw event:<br><br />
ex:<br><br />
<pre><br />
procedure TForm1.ElXTree1ItemPreDraw(Sender: TObject; Item: TElXTreeItem);<br />
var<br />
i: integer;<br />
begin<br />
for i := 0 to ElXTree1.HeaderSections.Count - 1 do<br />
begin<br />
Item.Cells[i].UseOwnStyle := True;<br />
if (i = ElXTree1.SortSection) and<br />
(ElXTree1.HeaderSections.Sections[ElXTree1.SortSection].SortMode <> hsmNone)<br />
then<br />
begin<br />
Item.Cells[i].Style.CellBackGroundColor := clMoneyGreen;<br />
Item.Cells[i].Style.ParentColors := false;<br />
Item.Cells[i].Style.UseBackGroundColor := true;<br />
end<br />
else<br />
begin<br />
Item.Cells[i].Style.CellBackGroundColor := clWhite;<br />
Item.Cells[i].Style.ParentColors := false;<br />
Item.Cells[i].Style.UseBackGroundColor := true;<br />
end;<br />
end;<br />
end;<br />
</pre><br><br />
: 3a) ... or use virtual mode of tree <br><br />
[ Please look examle of virtual tree in our demo]<br></div>Wikiadminhttps://wiki.lmd.de/index.php?title=MediaWiki:Sidebar&diff=1500MediaWiki:Sidebar2006-11-28T15:57:37Z<p>Wikiadmin: </p>
<hr />
<div>* navigation<br />
** mainpage|mainpage<br />
** portal-url|portal<br />
** http://bts.lmd.de |BTS<br />
** recentchanges-url|recentchanges<br />
** helppage|help</div>Wikiadminhttps://wiki.lmd.de/index.php?title=MediaWiki:Sidebar&diff=1499MediaWiki:Sidebar2006-11-28T15:55:37Z<p>Wikiadmin: </p>
<hr />
<div>* navigation<br />
** mainpage|mainpage<br />
** portal-url|portal<br />
** recentchanges-url|recentchanges<br />
** helppage|help</div>Wikiadmin