* Started to remove dependency of Windows in advanced demo

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@170 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
blikblum
2007-05-26 13:09:35 +00:00
parent c81ad25465
commit 197173a5e8
14 changed files with 434 additions and 359 deletions

View File

@ -26,16 +26,19 @@
<LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/> <LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
</local> </local>
</RunParams> </RunParams>
<RequiredPackages Count="3"> <RequiredPackages Count="4">
<Item1> <Item1>
<PackageName Value="virtualtreeview_package"/> <PackageName Value="JPEGForLazarus"/>
</Item1> </Item1>
<Item2> <Item2>
<PackageName Value="Printer4Lazarus"/> <PackageName Value="virtualtreeview_package"/>
</Item2> </Item2>
<Item3> <Item3>
<PackageName Value="LCL"/> <PackageName Value="Printer4Lazarus"/>
</Item3> </Item3>
<Item4>
<PackageName Value="LCL"/>
</Item4>
</RequiredPackages> </RequiredPackages>
<Units Count="15"> <Units Count="15">
<Unit0> <Unit0>

View File

@ -19,7 +19,7 @@ uses
//WindowsXPStyleDemo in 'WindowsXPStyleDemo.pas' {WindowsXPForm}, //WindowsXPStyleDemo in 'WindowsXPStyleDemo.pas' {WindowsXPForm},
//MultilineDemo in 'MultilineDemo.pas' {NodeForm}, //MultilineDemo in 'MultilineDemo.pas' {NodeForm},
//HeaderCustomDrawDemo in 'HeaderCustomDrawDemo.pas' {HeaderOwnerDrawForm}, //HeaderCustomDrawDemo in 'HeaderCustomDrawDemo.pas' {HeaderOwnerDrawForm},
States in 'States.pas' {StateForm}, Printer4Lazarus; States in 'States.pas' {StateForm}, Printer4Lazarus, JPEGForLazarus;
begin begin

View File

@ -122,5 +122,40 @@ object DrawTreeForm: TDrawTreeForm
object SystemImages: TImageList object SystemImages: TImageList
left = 450 left = 450
top = 404 top = 404
Bitmap = {
6C69010000001000000010000000040400002F2A2058504D202A2F0A73746174
69632063686172202A677261706869635B5D203D207B0A223136203136203434
2031222C0A222E2063204E6F6E65222C0A222C20632023434339393333222C0A
222D20632023434239383332222C0A222A20632023433939363330222C0A2261
20632023433739343245222C0A226220632023464646464646222C0A22632063
2023433238463239222C0A226420632023464646463939222C0A226520632023
424438413234222C0A226620632023424138373231222C0A2267206320234237
38343145222C0A226820632023423538323143222C0A22692063202342333830
3141222C0A226A20632023423037443137222C0A226B20632023464646373931
222C0A226C20632023464646343845222C0A226D20632023414537423135222C
0A226E20632023464645423835222C0A226F20632023464645363830222C0A22
7020632023433539323243222C0A227120632023433038443237222C0A227220
632023424338393233222C0A227320632023423838353146222C0A2274206320
23423438313142222C0A227520632023464645303741222C0A22762063202341
3337303041222C0A227720632023464644343645222C0A227820632023463843
353546222C0A227920632023413036443037222C0A227A206320233033303330
33222C0A224120632023464643433636222C0A22422063202345464243353622
2C0A224320632023394536423035222C0A224420632023453642333444222C0A
224520632023394336393033222C0A224620632023424638433236222C0A2247
20632023444341393433222C0A224820632023394136373031222C0A22492063
2023443341303341222C0A224A20632023393936363030222C0A224B20632023
414237383132222C0A224C20632023413837353046222C0A224D206320234135
37323043222C0A224E20632023303230323032222C0A222E2E2E2E2E2E2E2E2E
2E2E2E2E2E2E2E222C0A222E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E222C0A222E
2E2C2D2A612E2E2E2E2E2E2E2E2E2E222C0A222E2C62626262632E2E2E2E2E2E
2E2E2E222C0A222C62646464646265666768696A2E2E2E222C0A222D6B6C6C6C
6C6C62626262626D2E2E2E222C0A222A6E6F7070707070707172737469692E22
2C0A226175706262626262626262626F62762E222C0A2270772C646464646464
6464647864797A222C0A2263412D646B6B6B6B6B6B6B6B4264437A222C0A2271
4170646E6E6E6E6E6E6E6E4464457A222C0A2265414664757575757575757547
64487A222C0A2266417364777777777777777749644A7A222C0A222E68696A6D
4B4C4D76794345484A4E2E222C0A222E2E2E7A7A7A7A7A7A7A7A7A7A7A2E2E22
2C0A222E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E227D0A
}
end end
end end

View File

@ -1,3 +1,5 @@
{ This is an automatically generated lazarus resource file }
LazarusResources.Add('TDrawTreeForm','FORMDATA',[ LazarusResources.Add('TDrawTreeForm','FORMDATA',[
'TPF0'#13'TDrawTreeForm'#12'DrawTreeForm'#4'Left'#3' '#2#6'Height'#3#221#1#3 'TPF0'#13'TDrawTreeForm'#12'DrawTreeForm'#4'Left'#3' '#2#6'Height'#3#221#1#3
+'Top'#3'@'#1#5'Width'#3#198#2#18'HorzScrollBar.Page'#3#197#2#18'VertScrollBa' +'Top'#3'@'#1#5'Width'#3#198#2#18'HorzScrollBar.Page'#3#197#2#18'VertScrollBa'
@ -41,11 +43,31 @@ LazarusResources.Add('TDrawTreeForm','FORMDATA',[
+'nInitNode'#7#12'VDT1InitNode'#13'OnStateChange'#7#15'VDT1StateChange'#7'Col' +'nInitNode'#7#12'VDT1InitNode'#13'OnStateChange'#7#15'VDT1StateChange'#7'Col'
+'umns'#14#1#7'Options'#11#12'coAllowClick'#9'coEnabled'#13'coParentColor'#11 +'umns'#14#1#7'Options'#11#12'coAllowClick'#9'coEnabled'#13'coParentColor'#11
+'coResizable'#14'coShowDropMark'#9'coVisible'#0#5'Width'#3#217#0#8'WideText' +'coResizable'#14'coShowDropMark'#9'coVisible'#0#5'Width'#3#217#0#8'WideText'
+#6#15'Image file name'#0#1#8'Position'#2#1#5'Width'#3#200#0#8'WideText'#6#9 +#18#15#0#0#0'I'#0'm'#0'a'#0'g'#0'e'#0' '#0'f'#0'i'#0'l'#0'e'#0' '#0'n'#0'a'#0
+'Thumbnail'#0#1#8'Position'#2#2#5'Width'#3#160#0#8'WideText'#6#10'Properties' +'m'#0'e'#0#0#1#8'Position'#2#1#5'Width'#3#200#0#8'WideText'#18#9#0#0#0'T'#0
+#0#0#0#0#9'TTrackBar'#9'TrackBar1'#4'Left'#3#8#1#6'Height'#2#21#3'Top'#3'{'#1 +'h'#0'u'#0'm'#0'b'#0'n'#0'a'#0'i'#0'l'#0#0#1#8'Position'#2#2#5'Width'#3#160#0
+#5'Width'#3#157#0#3'Max'#2'd'#8'OnChange'#7#15'TrackBar1Change'#8'Position'#2 +#8'WideText'#18#10#0#0#0'P'#0'r'#0'o'#0'p'#0'e'#0'r'#0't'#0'i'#0'e'#0's'#0#0
+#0#0#0#9'TTrackBar'#9'TrackBar1'#4'Left'#3#8#1#6'Height'#2#21#3'Top'#3'{'#1#5
+'Width'#3#157#0#3'Max'#2'd'#8'OnChange'#7#15'TrackBar1Change'#8'Position'#2
+'2'#8'ScalePos'#7#5'trTop'#9'TickStyle'#7#6'tsNone'#7'Anchors'#11#6'akLeft'#8 +'2'#8'ScalePos'#7#5'trTop'#9'TickStyle'#7#6'tsNone'#7'Anchors'#11#6'akLeft'#8
+'akBottom'#0#8'TabOrder'#2#1#0#0#10'TImageList'#12'SystemImages'#4'left'#3 +'akBottom'#0#8'TabOrder'#2#1#0#0#10'TImageList'#12'SystemImages'#4'left'#3
+#194#1#3'top'#3#148#1#0#0#0 +#194#1#3'top'#3#148#1#6'Bitmap'#10#22#4#0#0'li'#1#0#0#0#16#0#0#0#16#0#0#0#4#4
+#0#0'/* XPM */'#10'static char *graphic[] = {'#10'"16 16 44 1",'#10'". c Non'
+'e",'#10'", c #CC9933",'#10'"- c #CB9832",'#10'"* c #C99630",'#10'"a c #C794'
+'2E",'#10'"b c #FFFFFF",'#10'"c c #C28F29",'#10'"d c #FFFF99",'#10'"e c #BD8'
+'A24",'#10'"f c #BA8721",'#10'"g c #B7841E",'#10'"h c #B5821C",'#10'"i c #B3'
+'801A",'#10'"j c #B07D17",'#10'"k c #FFF791",'#10'"l c #FFF48E",'#10'"m c #A'
+'E7B15",'#10'"n c #FFEB85",'#10'"o c #FFE680",'#10'"p c #C5922C",'#10'"q c #'
+'C08D27",'#10'"r c #BC8923",'#10'"s c #B8851F",'#10'"t c #B4811B",'#10'"u c '
+'#FFE07A",'#10'"v c #A3700A",'#10'"w c #FFD46E",'#10'"x c #F8C55F",'#10'"y c'
+' #A06D07",'#10'"z c #030303",'#10'"A c #FFCC66",'#10'"B c #EFBC56",'#10'"C '
+'c #9E6B05",'#10'"D c #E6B34D",'#10'"E c #9C6903",'#10'"F c #BF8C26",'#10'"G'
+' c #DCA943",'#10'"H c #9A6701",'#10'"I c #D3A03A",'#10'"J c #996600",'#10'"'
+'K c #AB7812",'#10'"L c #A8750F",'#10'"M c #A5720C",'#10'"N c #020202",'#10
+'"................",'#10'"................",'#10'"..,-*a..........",'#10'".,'
,'bbbbc.........",'#10'",bddddbefghij...",'#10'"-klllllbbbbbm...",'#10'"*nopp'
+'ppppqrstii.",'#10'"aupbbbbbbbbbobv.",'#10'"pw,dddddddddxdyz",'#10'"cA-dkkkk'
+'kkkkBdCz",'#10'"qApdnnnnnnnnDdEz",'#10'"eAFduuuuuuuuGdHz",'#10'"fAsdwwwwwww'
+'wIdJz",'#10'".hijmKLMvyCEHJN.",'#10'"...zzzzzzzzzzz..",'#10'"..............'
+'.."}'#10#0#0#0
]); ]);

View File

@ -28,8 +28,10 @@ unit DrawTreeDemo;
interface interface
uses uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, {$ifdef Windows}
VirtualTrees, StdCtrls, {$ifdef GraphicEx} GraphicEx, {$else} {JPEG,} {$endif} Windows,
{$endif} Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
VirtualTrees, StdCtrls, JPEGLib,
ImgList, ComCtrls, shlobjext, LResources; ImgList, ComCtrls, shlobjext, LResources;
type type
@ -77,9 +79,7 @@ var
implementation implementation
uses uses
FileCtrl, ShellAPI, MaskEdit, ShlObj, ActiveX, States; FileCtrl, MaskEdit, States;
{.$R *.DFM}
//---------------------------------------------------------------------------------------------------------------------- //----------------------------------------------------------------------------------------------------------------------
@ -97,27 +97,6 @@ type
Properties: WideString; // some image properties, preformatted Properties: WideString; // some image properties, preformatted
end; end;
//----------------- utility functions ----------------------------------------------------------------------------------
function IncludeTrailingBackslash(const S: string): string;
begin
if not IsPathDelimiter(S, Length(S)) then
Result := S + '\'
else
Result := S;
end;
//----------------------------------------------------------------------------------------------------------------------
function ExcludeTrailingBackslash(const S: string): string;
begin
Result := S;
if IsPathDelimiter(Result, Length(Result)) then
SetLength(Result, Length(Result) - 1);
end;
//---------------------------------------------------------------------------------------------------------------------- //----------------------------------------------------------------------------------------------------------------------
function HasChildren(const Folder: string): Boolean; function HasChildren(const Folder: string): Boolean;
@ -128,7 +107,7 @@ var
SR: TSearchRec; SR: TSearchRec;
begin begin
Result := FindFirst(IncludeTrailingBackslash(Folder) + '*.*', faReadOnly or faHidden or faSysFile or faArchive, SR) = 0; Result := FindFirst(IncludeTrailingPathDelimiter(Folder) + '*.*', faAnyFile, SR) = 0;
if Result then if Result then
FindClose(SR); FindClose(SR);
end; end;
@ -143,10 +122,13 @@ var
SFI: TSHFileInfo; SFI: TSHFileInfo;
begin begin
//todo
{
if SHGetFileInfo(PChar(Name), 0, SFI, SizeOf(TSHFileInfo), Flags) = 0 then if SHGetFileInfo(PChar(Name), 0, SFI, SizeOf(TSHFileInfo), Flags) = 0 then
Result := -1 Result := -1
else else
Result := SFI.iIcon; Result := SFI.iIcon;
}
end; end;
//---------------------------------------------------------------------------------------------------------------------- //----------------------------------------------------------------------------------------------------------------------
@ -154,39 +136,56 @@ end;
procedure GetOpenAndClosedIcons(Name: string; var Open, Closed: Integer); procedure GetOpenAndClosedIcons(Name: string; var Open, Closed: Integer);
begin begin
//todo
Closed := 0;
Open := 0;
{
Closed := GetIconIndex(Name, SHGFI_SYSICONINDEX or SHGFI_SMALLICON); Closed := GetIconIndex(Name, SHGFI_SYSICONINDEX or SHGFI_SMALLICON);
Open := GetIconIndex(Name, SHGFI_SYSICONINDEX or SHGFI_SMALLICON or SHGFI_OPENICON); Open := GetIconIndex(Name, SHGFI_SYSICONINDEX or SHGFI_SMALLICON or SHGFI_OPENICON);
}
end; end;
//----------------- TDrawTreeForm -------------------------------------------------------------------------------------- //----------------- TDrawTreeForm --------------------------------------------------------------------------------------
procedure TDrawTreeForm.FormCreate(Sender: TObject); procedure GetLogicalDrivesInfo(var DriveStrings: String; var DriveCount: Integer);
var var
SFI: TSHFileInfo;
I, I,
Count: Integer; BufferSize,
DriveMap, DriveMap,
Mask: Cardinal; Mask: Cardinal;
begin begin
VDT1.NodeDataSize := SizeOf(TShellObjectData); {$ifdef Windows}
DriveCount := 0;
// Fill root level of image tree. Determine which drives are mapped.
Count := 0;
DriveMap := GetLogicalDrives; DriveMap := GetLogicalDrives;
Mask := 1; Mask := 1;
for I := 0 to 25 do for I := 0 to 25 do
begin begin
if (DriveMap and Mask) <> 0 then if (DriveMap and Mask) <> 0 then
Inc(Count); Inc(DriveCount);
Mask := Mask shl 1; Mask := Mask shl 1;
end; end;
BufferSize := GetLogicalDriveStrings(0, nil);
SetLength(DriveStrings, BufferSize);
GetLogicalDriveStrings(BufferSize, PChar(DriveStrings));
{$else}
DriveCount := 1;
DriveStrings := '/';
{$endif}
end;
procedure TDrawTreeForm.FormCreate(Sender: TObject);
var
//SFI: TSHFileInfo;
I,
Count: Integer;
begin
VDT1.NodeDataSize := SizeOf(TShellObjectData);
GetLogicalDrivesInfo(FDriveStrings,Count);
VDT1.RootNodeCount := Count; VDT1.RootNodeCount := Count;
// Determine drive strings which are used in the initialization process.
Count := GetLogicalDriveStrings(0, nil);
SetLength(FDriveStrings, Count);
GetLogicalDriveStrings(Count, PChar(FDriveStrings));
//todo //todo
{ {
@ -224,8 +223,8 @@ begin
Add('.ico'); Add('.ico');
Add('.jpg'); Add('.jpg');
Add('.jpeg'); Add('.jpeg');
Add('.wmf'); //Add('.wmf');
Add('.emf'); //Add('.emf');
end; end;
{$endif} {$endif}
FExtensionList.Sort; FExtensionList.Sort;
@ -270,13 +269,15 @@ function TDrawTreeForm.ReadAttributes(const Name: WideString): Cardinal;
const const
SFGAO_CONTENTSMASK = $F0000000; // This value is wrongly defined in ShlObj. SFGAO_CONTENTSMASK = $F0000000; // This value is wrongly defined in ShlObj.
var //var
//Desktop: IShellFolder; //Desktop: IShellFolder;
{
Eaten: Cardinal; Eaten: Cardinal;
PIDL: PItemIDList; PIDL: PItemIDList;
Malloc: IMalloc; Malloc: IMalloc;
}
begin begin
Result := 0;
//todo //todo
{ {
// Get the root folder of the shell name space. // Get the root folder of the shell name space.
@ -346,7 +347,7 @@ begin
else else
begin begin
Picture := TPicture.Create; Picture := TPicture.Create;
Data.Display := ExtractFileName(ExcludeTrailingBackslash(Data.FullPath)); Data.Display := ExtractFileName(ExcludeTrailingPathDelimiter(Data.FullPath));
if (Data.Attributes and SFGAO_FOLDER) = 0 then if (Data.Attributes and SFGAO_FOLDER) = 0 then
try try
try try
@ -399,9 +400,10 @@ begin
end; end;
//todo //todo
Data.Attributes := ReadAttributes(Data.FullPath); //Data.Attributes := ReadAttributes(Data.FullPath);
if ((Data.Attributes and SFGAO_HASSUBFOLDER) <> 0) or //if ((Data.Attributes and SFGAO_HASSUBFOLDER) <> 0) or
(((Data.Attributes and SFGAO_FOLDER) <> 0) and HasChildren(Data.FullPath)) then // (((Data.Attributes and SFGAO_FOLDER) <> 0) and HasChildren(Data.FullPath)) then
if HasChildren(Data.FullPath) then
Include(InitialStates, ivsHasChildren); Include(InitialStates, ivsHasChildren);
end; end;
@ -537,22 +539,25 @@ var
begin begin
Data := Sender.GetNodeData(Node); Data := Sender.GetNodeData(Node);
if FindFirst(IncludeTrailingBackslash(Data.FullPath) + '*.*', faAnyFile, SR) = 0 then if FindFirst(IncludeTrailingPathDelimiter(Data.FullPath) + '*.*', faAnyFile, SR) = 0 then
begin begin
Screen.Cursor := crHourGlass; Screen.Cursor := crHourGlass;
try try
repeat repeat
if (SR.Name <> '.') and (SR.Name <> '..') then if (SR.Name <> '.') and (SR.Name <> '..') then
begin begin
NewName := IncludeTrailingBackslash(Data.FullPath) + SR.Name; NewName := IncludeTrailingPathDelimiter(Data.FullPath) + SR.Name;
if (SR.Attr and faDirectory <> 0) or CanDisplay(NewName) then if (SR.Attr and faDirectory <> 0) or CanDisplay(NewName) then
begin begin
ChildNode := Sender.AddChild(Node); ChildNode := Sender.AddChild(Node);
ChildData := Sender.GetNodeData(ChildNode); ChildData := Sender.GetNodeData(ChildNode);
ChildData.FullPath := NewName; ChildData.FullPath := NewName;
ChildData.Attributes := ReadAttributes(NewName); ChildData.Attributes := 0; //ReadAttributes(NewName);
if (ChildData.Attributes and SFGAO_FOLDER) = 0 then //if (ChildData.Attributes and SFGAO_FOLDER) = 0 then
ChildData.Properties := Format('%n KB, ', [SR.Size / 1024]); if (SR.Attr and faDirectory = 0) then
ChildData.Properties := Format('%n KB, ', [SR.Size / 1024])
else
ChildData.Attributes := SFGAO_FOLDER;
GetOpenAndClosedIcons(ChildData.FullPath, ChildData.OpenIndex, ChildData.CloseIndex); GetOpenAndClosedIcons(ChildData.FullPath, ChildData.OpenIndex, ChildData.CloseIndex);
Sender.ValidateNode(Node, False); Sender.ValidateNode(Node, False);

View File

@ -8,7 +8,7 @@ unit Editors;
interface interface
uses uses
Windows, LCLIntf, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, LCLIntf, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, VirtualTrees, ExtDlgs, ImgList, Buttons, ExtCtrls, ComCtrls, StdCtrls, VirtualTrees, ExtDlgs, ImgList, Buttons, ExtCtrls, ComCtrls,
MaskEdit, LCLType; MaskEdit, LCLType;
@ -285,8 +285,10 @@ begin
S := TComboBox(FEdit).Text S := TComboBox(FEdit).Text
else else
begin begin
GetWindowText(FEdit.Handle, Buffer, 1024); if FEdit is TCustomEdit then
S := Buffer; S := TCustomEdit(FEdit).Text
else
raise Exception.Create('Unknow edit control');
end; end;
if S <> Data.Value then if S <> Data.Value then
@ -468,15 +470,17 @@ begin
end; end;
end end
else else
if FEdit is TCustomEdit then
begin begin
GetWindowText(FEdit.Handle, Buffer, 1024); S := TCustomEdit(FEdit).Text;
S := Buffer;
if S <> Data.Value[FColumn - 1] then if S <> Data.Value[FColumn - 1] then
begin begin
Data.Value[FColumn - 1] := S; Data.Value[FColumn - 1] := S;
Data.Changed := True; Data.Changed := True;
end; end;
end; end
else
raise Exception.Create('Unknow Edit Control');
if Data.Changed then if Data.Changed then
FTree.InvalidateNode(FNode); FTree.InvalidateNode(FNode);

View File

@ -7,6 +7,8 @@ object GridForm: TGridForm
VertScrollBar.Page = 431 VertScrollBar.Page = 431
ActiveControl = VST5 ActiveControl = VST5
Caption = 'GridForm' Caption = 'GridForm'
ClientHeight = 432
ClientWidth = 736
Font.Height = -13 Font.Height = -13
Font.Name = 'MS Sans Serif' Font.Name = 'MS Sans Serif'
OnCreate = FormCreate OnCreate = FormCreate

View File

@ -1,186 +1,191 @@
{ This is an automatically generated lazarus resource file }
LazarusResources.Add('TGridForm','FORMDATA',[ LazarusResources.Add('TGridForm','FORMDATA',[
'TPF0'#9'TGridForm'#8'GridForm'#4'Left'#3#155#1#6'Height'#3#176#1#3'Top'#3'R' 'TPF0'#9'TGridForm'#8'GridForm'#4'Left'#3#155#1#6'Height'#3#176#1#3'Top'#3'R'
+#1#5'Width'#3#224#2#18'HorzScrollBar.Page'#3#223#2#18'VertScrollBar.Page'#3 +#1#5'Width'#3#224#2#18'HorzScrollBar.Page'#3#223#2#18'VertScrollBar.Page'#3
+#175#1#13'ActiveControl'#7#4'VST5'#7'Caption'#6#8'GridForm'#11'Font.Height'#2 +#175#1#13'ActiveControl'#7#4'VST5'#7'Caption'#6#8'GridForm'#12'ClientHeight'
+#243#9'Font.Name'#6#13'MS Sans Serif'#8'OnCreate'#7#10'FormCreate'#0#6'TLabe' +#3#176#1#11'ClientWidth'#3#224#2#11'Font.Height'#2#243#9'Font.Name'#6#13'MS '
+'l'#7'Label15'#4'Left'#3#12#2#6'Height'#3#153#0#3'Top'#2#8#5'Width'#3#195#0#7 +'Sans Serif'#8'OnCreate'#7#10'FormCreate'#0#6'TLabel'#7'Label15'#4'Left'#3#12
+'Anchors'#11#5'akTop'#7'akRight'#0#8'AutoSize'#8#7'Caption'#6#255'This sampl' +#2#6'Height'#3#153#0#3'Top'#2#8#5'Width'#3#195#0#7'Anchors'#11#5'akTop'#7'ak'
+'e demonstrates the grid extensions introduced in Virtual Treeview. The main' +'Right'#0#8'AutoSize'#8#7'Caption'#6#255'This sample demonstrates the grid e'
+' difference to normal mode is the way cell content is handled (editing, se' +'xtensions introduced in Virtual Treeview. The main difference to normal mod'
+'lection etc.). In Grid mode always the entire cell is used. Another point i' +'e is the way cell content is handled (editing, selection etc.). In Grid mo'
+'s the key handling .'#5'Color'#7#6'clNone'#11'ParentColor'#8#8'WordWrap'#9#0 +'de always the entire cell is used. Another point is the key handling .'#5'C'
+#0#6'TLabel'#6'Label1'#4'Left'#3#14#2#6'Height'#2'm'#3'Top'#3#168#0#5'Width' +'olor'#7#6'clNone'#11'ParentColor'#8#8'WordWrap'#9#0#0#6'TLabel'#6'Label1'#4
+#3#195#0#7'Anchors'#11#5'akTop'#7'akRight'#0#8'AutoSize'#8#7'Caption'#6'WThe' +'Left'#3#14#2#6'Height'#2'm'#3'Top'#3#168#0#5'Width'#3#195#0#7'Anchors'#11#5
+' main column in this sample is reduced to an indicator and is set as a fixe' +'akTop'#7'akRight'#0#8'AutoSize'#8#7'Caption'#6'WThe main column in this sam'
+'d column.'#5'Color'#7#6'clNone'#11'ParentColor'#8#8'WordWrap'#9#0#0#18'TVir' +'ple is reduced to an indicator and is set as a fixed column.'#5'Color'#7#6
+'tualStringTree'#4'VST5'#4'Left'#2#8#6'Height'#3#128#1#3'Top'#2#6#5'Width'#3 +'clNone'#11'ParentColor'#8#8'WordWrap'#9#0#0#18'TVirtualStringTree'#4'VST5'#4
+#243#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0#24'Clipboar' +'Left'#2#8#6'Height'#3#128#1#3'Top'#2#6#5'Width'#3#243#1#7'Anchors'#11#5'akT'
+'dFormats.Strings'#1#6#3'CSV'#6#11'HTML Format'#6#10'Plain text'#6#16'Rich T' +'op'#6'akLeft'#7'akRight'#8'akBottom'#0#24'ClipboardFormats.Strings'#1#6#3'C'
+'ext Format'#6' Rich Text Format Without Objects'#6#12'Unicode text'#6#17'Vi' +'SV'#6#11'HTML Format'#6#10'Plain text'#6#16'Rich Text Format'#6' Rich Text '
+'rtual Tree Data'#0#18'Colors.BorderColor'#7#12'clWindowText'#15'Colors.HotC' +'Format Without Objects'#6#12'Unicode text'#6#17'Virtual Tree Data'#0#18'Col'
+'olor'#7#7'clBlack'#17'DefaultNodeHeight'#2#19#8'DragMode'#7#11'dmAutomatic' +'ors.BorderColor'#7#12'clWindowText'#15'Colors.HotColor'#7#7'clBlack'#17'Def'
+#9'EditDelay'#3','#1#11'Font.Height'#2#245#9'Font.Name'#6#20'Microsoft Sans ' +'aultNodeHeight'#2#19#8'DragMode'#7#11'dmAutomatic'#9'EditDelay'#3','#1#11'F'
+'Serif'#20'Header.AutoSizeIndex'#2#2#17'Header.Background'#7#11'clBtnShadow' +'ont.Height'#2#245#9'Font.Name'#6#20'Microsoft Sans Serif'#20'Header.AutoSiz'
+#18'Header.Font.Height'#2#244#16'Header.Font.Name'#6#20'Microsoft Sans Serif' +'eIndex'#2#2#17'Header.Background'#7#11'clBtnShadow'#18'Header.Font.Height'#2
+#14'Header.Options'#11#14'hoColumnResize'#16'hoDblClickResize'#6'hoDrag'#12 +#244#16'Header.Font.Name'#6#20'Microsoft Sans Serif'#14'Header.Options'#11#14
+'hoShowImages'#9'hoVisible'#0#12'Header.Style'#7#13'hsFlatButtons'#13'HintAn' +'hoColumnResize'#16'hoDblClickResize'#6'hoDrag'#12'hoShowImages'#9'hoVisible'
+'imation'#7#7'hatFade'#8'HintMode'#7#9'hmTooltip'#14'ParentShowHint'#8#13'Ro' +#0#12'Header.Style'#7#13'hsFlatButtons'#13'HintAnimation'#7#7'hatFade'#8'Hin'
+'otNodeCount'#2'd'#30'ScrollBarOptions.AlwaysVisible'#9#8'ShowHint'#9#8'TabO' +'tMode'#7#9'hmTooltip'#14'ParentShowHint'#8#13'RootNodeCount'#2'd'#30'Scroll'
+'rder'#2#0#23'TreeOptions.AutoOptions'#11#16'toAutoDropExpand'#12'toAutoScro' +'BarOptions.AlwaysVisible'#9#8'ShowHint'#9#8'TabOrder'#2#0#23'TreeOptions.Au'
+'ll'#22'toAutoTristateTracking'#0#23'TreeOptions.MiscOptions'#11#15'toAccept' +'toOptions'#11#16'toAutoDropExpand'#12'toAutoScroll'#22'toAutoTristateTracki'
+'OLEDrop'#10'toEditable'#16'toGridExtensions'#12'toInitOnSave'#18'toToggleOn' +'ng'#0#23'TreeOptions.MiscOptions'#11#15'toAcceptOLEDrop'#10'toEditable'#16
+'DblClick'#14'toWheelPanning'#0#24'TreeOptions.PaintOptions'#11#10'toHotTrac' +'toGridExtensions'#12'toInitOnSave'#18'toToggleOnDblClick'#14'toWheelPanning'
+'k'#13'toShowButtons'#14'toShowDropmark'#19'toShowHorzGridLines'#19'toShowVe' +#0#24'TreeOptions.PaintOptions'#11#10'toHotTrack'#13'toShowButtons'#14'toSho'
+'rtGridLines'#18'toUseBlendedImages'#0#28'TreeOptions.SelectionOptions'#11#22 +'wDropmark'#19'toShowHorzGridLines'#19'toShowVertGridLines'#18'toUseBlendedI'
+'toDisableDrawSelection'#15'toExtendedFocus'#19'toMiddleClickSelect'#13'toMu' +'mages'#0#28'TreeOptions.SelectionOptions'#11#22'toDisableDrawSelection'#15
+'ltiSelect'#18'toRightClickSelect'#22'toCenterScrollIntoView'#0#8'WantTabs'#9 +'toExtendedFocus'#19'toMiddleClickSelect'#13'toMultiSelect'#18'toRightClickS'
+#16'OnAfterCellPaint'#7#18'VST5AfterCellPaint'#17'OnBeforeCellPaint'#7#19'VS' +'elect'#22'toCenterScrollIntoView'#0#8'WantTabs'#9#16'OnAfterCellPaint'#7#18
+'T5BeforeCellPaint'#17'OnBeforeItemErase'#7#19'VST5BeforeItemErase'#14'OnCre' +'VST5AfterCellPaint'#17'OnBeforeCellPaint'#7#19'VST5BeforeCellPaint'#17'OnBe'
+'ateEditor'#7#16'VST5CreateEditor'#15'OnFocusChanging'#7#17'VST5FocusChangin' +'foreItemErase'#7#19'VST5BeforeItemErase'#14'OnCreateEditor'#7#16'VST5Create'
+'g'#9'OnGetText'#7#11'VST5GetText'#11'OnPaintText'#7#13'VST5PaintText'#10'On' +'Editor'#15'OnFocusChanging'#7#17'VST5FocusChanging'#9'OnGetText'#7#11'VST5G'
+'InitNode'#7#12'VST5InitNode'#13'OnStateChange'#7#15'VST5StateChange'#7'Colu' +'etText'#11'OnPaintText'#7#13'VST5PaintText'#10'OnInitNode'#7#12'VST5InitNod'
+'mns'#14#1#7'Options'#11#16'coParentBidiMode'#9'coVisible'#7'coFixed'#0#5'Wi' +'e'#13'OnStateChange'#7#15'VST5StateChange'#7'Columns'#14#1#7'Options'#11#16
+'dth'#2#20#0#1#6'Margin'#2#0#8'Position'#2#1#5'Width'#2'd'#8'WideText'#6#11 +'coParentBidiMode'#9'coVisible'#7'coFixed'#0#5'Width'#2#20#0#1#6'Margin'#2#0
+'Customer ID'#0#1#6'Margin'#2#0#8'Position'#2#2#5'Width'#2'x'#8'WideText'#6 +#8'Position'#2#1#5'Width'#2'd'#8'WideText'#18#11#0#0#0'C'#0'u'#0's'#0't'#0'o'
+#10'First Name'#0#1#6'Margin'#2#0#8'Position'#2#3#5'Width'#2'x'#8'WideText'#6 +#0'm'#0'e'#0'r'#0' '#0'I'#0'D'#0#0#1#6'Margin'#2#0#8'Position'#2#2#5'Width'#2
+#9'Last Name'#0#1#6'Margin'#2#0#8'Position'#2#4#5'Width'#2'd'#8'WideText'#6 +'x'#8'WideText'#18#10#0#0#0'F'#0'i'#0'r'#0's'#0't'#0' '#0'N'#0'a'#0'm'#0'e'#0
+#10'Order date'#0#0#0#0#9'TCheckBox'#16'GridLineCheckBox'#4'Left'#3'J'#2#6'H' +#0#1#6'Margin'#2#0#8'Position'#2#3#5'Width'#2'x'#8'WideText'#18#9#0#0#0'L'#0
+'eight'#2#13#3'Top'#3'u'#1#5'Width'#2'a'#7'Anchors'#11#7'akRight'#8'akBottom' +'a'#0's'#0't'#0' '#0'N'#0'a'#0'm'#0'e'#0#0#1#6'Margin'#2#0#8'Position'#2#4#5
+#0#7'Caption'#6#17'Toggle grid lines'#7'Checked'#9#7'OnClick'#7#21'GridLineC' +'Width'#2'd'#8'WideText'#18#10#0#0#0'O'#0'r'#0'd'#0'e'#0'r'#0' '#0'd'#0'a'#0
+'heckBoxClick'#5'State'#7#9'cbChecked'#8'TabOrder'#2#1#0#0#10'TImageList'#10 +'t'#0'e'#0#0#0#0#0#9'TCheckBox'#16'GridLineCheckBox'#4'Left'#3'J'#2#6'Height'
+'TreeImages'#4'left'#2#22#3'top'#2'$'#6'Bitmap'#10#211#31#0#0'li'#18#0#0#0#16 +#2#13#3'Top'#3'u'#1#5'Width'#2'a'#7'Anchors'#11#7'akRight'#8'akBottom'#0#7'C'
+#0#0#0#16#0#0#0#156#1#0#0'/* XPM */'#10'static char *graphic[] = {'#10'"16 1' +'aption'#6#17'Toggle grid lines'#7'Checked'#9#7'OnClick'#7#21'GridLineCheckB'
+'6 3 1",'#10'". c None",'#10'", c #000000",'#10'"- c #FFFFFF",'#10'"........' +'oxClick'#5'State'#7#9'cbChecked'#8'TabOrder'#2#1#0#0#10'TImageList'#10'Tree'
+'........",'#10'"................",'#10'"...,,,,,,,,.....",'#10'"...,------,' +'Images'#4'left'#2#22#3'top'#2'$'#6'Bitmap'#10#211#31#0#0'li'#18#0#0#0#16#0#0
+',....",'#10'"...,------,-,...",'#10'"...,------,,,,..",'#10'"...,---------,' +#0#16#0#0#0#156#1#0#0'/* XPM */'#10'static char *graphic[] = {'#10'"16 16 3 '
+'..",'#10'"...,---------,..",'#10'"...,---------,..",'#10'"...,---------,.."' +'1",'#10'". c None",'#10'", c #000000",'#10'"- c #FFFFFF",'#10'"............'
+','#10'"...,---------,..",'#10'"...,---------,..",'#10'"...,---------,..",' +'....",'#10'"................",'#10'"...,,,,,,,,.....",'#10'"...,------,,...'
+#10'"...,---------,..",'#10'"...,,,,,,,,,,,..",'#10'"................"}'#10 +'.",'#10'"...,------,-,...",'#10'"...,------,,,,..",'#10'"...,---------,..",'
+#171#1#0#0'/* XPM */'#10'static char *graphic[] = {'#10'"16 16 4 1",'#10'". ' +#10'"...,---------,..",'#10'"...,---------,..",'#10'"...,---------,..",'#10
+'c None",'#10'", c #000000",'#10'"- c #FFFFFF",'#10'"* c #000080",'#10'"....' +'"...,---------,..",'#10'"...,---------,..",'#10'"...,---------,..",'#10'"..'
+'............",'#10'"................",'#10'".,,,,,,.........",'#10'".,----,' +'.,---------,..",'#10'"...,,,,,,,,,,,..",'#10'"................"}'#10#171#1#0
+',........",'#10'".,----,-,.......",'#10'".,-,,-,******...",'#10'".,-----*--' +#0'/* XPM */'#10'static char *graphic[] = {'#10'"16 16 4 1",'#10'". c None",'
+'--**..",'#10'".,-,,,,*----*-*.",'#10'".,-----*-,,-****",'#10'".,-,,,,*-----' +#10'", c #000000",'#10'"- c #FFFFFF",'#10'"* c #000080",'#10'"..............'
+'--*",'#10'".,-----*-,,,,,-*",'#10'".,,,,,,*-------*",'#10'".......*-,,,,,-*' +'..",'#10'"................",'#10'".,,,,,,.........",'#10'".,----,,........"'
+'",'#10'".......*-------*",'#10'".......*********",'#10'"................"}' +','#10'".,----,-,.......",'#10'".,-,,-,******...",'#10'".,-----*----**..",'
,#10#216#1#0#0'/* XPM */'#10'static char *graphic[] = {'#10'"16 16 7 1",'#10 ,#10'".,-,,,,*----*-*.",'#10'".,-----*-,,-****",'#10'".,-,,,,*-------*",'#10
+'". c None",'#10'", c #000000",'#10'"- c #FFFF00",'#10'"* c #808080",'#10'"a' +'".,-----*-,,,,,-*",'#10'".,,,,,,*-------*",'#10'".......*-,,,,,-*",'#10'"..'
+' c #808000",'#10'"b c #000080",'#10'"c c #FFFFFF",'#10'"................",' +'.....*-------*",'#10'".......*********",'#10'"................"}'#10#216#1#0
+#10'"......,,,,......",'#10'"..,,,,,--,,,,,..",'#10'".,*a*,-,,-,a*a,.",'#10 +#0'/* XPM */'#10'static char *graphic[] = {'#10'"16 16 7 1",'#10'". c None",'
+'".,a*,......,a*,.",'#10'".,*a,,,,,,,,*a,.",'#10'".,a*a*a*a*a*a*,.",'#10'".,' +#10'", c #000000",'#10'"- c #FFFF00",'#10'"* c #808080",'#10'"a c #808000",'
+'*a*a*bbbbbbb,.",'#10'".,a*a*abcccccbb.",'#10'".,*a*a*bcccccbcb",'#10'".,a*a' +#10'"b c #000080",'#10'"c c #FFFFFF",'#10'"................",'#10'"......,,,'
+'*abcbbbcbbb",'#10'".,*a*a*bcccccccb",'#10'".,a*a*abcbbbbbcb",'#10'"..,,,,,b' +',......",'#10'"..,,,,,--,,,,,..",'#10'".,*a*,-,,-,a*a,.",'#10'".,a*,......,'
+'cccccccb",'#10'".......bbbbbbbbb",'#10'"................"}'#10#186#1#0#0'/*' +'a*,.",'#10'".,*a,,,,,,,,*a,.",'#10'".,a*a*a*a*a*a*,.",'#10'".,*a*a*bbbbbbb,'
+' XPM */'#10'static char *graphic[] = {'#10'"16 16 5 1",'#10'". c #FFFF00",' +'.",'#10'".,a*a*abcccccbb.",'#10'".,*a*a*bcccccbcb",'#10'".,a*a*abcbbbcbbb",'
+#10'", c None",'#10'"- c #808080",'#10'"* c #000000",'#10'"a c #FFFFFF",'#10 +#10'".,*a*a*bcccccccb",'#10'".,a*a*abcbbbbbcb",'#10'"..,,,,,bcccccccb",'#10
+'".,,-.,,-***,,,,,",'#10'"-.,-a,-.aa**,,,,",'#10'",-.-.-.aaa*a*,,,",'#10'",.' +'".......bbbbbbbbb",'#10'"................"}'#10#186#1#0#0'/* XPM */'#10'sta'
+'-.a----a*aa*,,",'#10'"---a..aaaa*****,",'#10'",,a-aa-**aaaaa*,",'#10'"-,,-.' +'tic char *graphic[] = {'#10'"16 16 5 1",'#10'". c #FFFF00",'#10'", c None",'
+'aaaaaaaaa*,",'#10'",,,-a*******aa*,",'#10'",,,*aaaaaaaaaa*,",'#10'",,,*a***' +#10'"- c #808080",'#10'"* c #000000",'#10'"a c #FFFFFF",'#10'".,,-.,,-***,,,'
+'****aa*,",'#10'",,,*aaaaaaaaaa*,",'#10'",,,*a*******aa*,",'#10'",,,*aaaaaaa' +',,",'#10'"-.,-a,-.aa**,,,,",'#10'",-.-.-.aaa*a*,,,",'#10'",.-.a----a*aa*,,"'
+'aaa*,",'#10'",,,*aaaaaaaaaa*,",'#10'",,,************,",'#10'",,,,,,,,,,,,,,' +','#10'"---a..aaaa*****,",'#10'",,a-aa-**aaaaa*,",'#10'"-,,-.aaaaaaaaa*,",'
+',,"}'#10#156#1#0#0'/* XPM */'#10'static char *graphic[] = {'#10'"16 16 3 1"' +#10'",,,-a*******aa*,",'#10'",,,*aaaaaaaaaa*,",'#10'",,,*a*******aa*,",'#10
+','#10'". c None",'#10'", c #800000",'#10'"- c #FFFFFF",'#10'"..............' +'",,,*aaaaaaaaaa*,",'#10'",,,*a*******aa*,",'#10'",,,*aaaaaaaaaa*,",'#10'",,'
+'..",'#10'"................",'#10'".,,-........,,-.",'#10'".,,,,-.....,,-.."' +',*aaaaaaaaaa*,",'#10'",,,************,",'#10'",,,,,,,,,,,,,,,,"}'#10#156#1#0
+','#10'"..,,,,-...,,-...",'#10'"....,,,-.,-.....",'#10'".....,,,,,-.....",' +#0'/* XPM */'#10'static char *graphic[] = {'#10'"16 16 3 1",'#10'". c None",'
+#10'"......,,,-......",'#10'".....,,,,,-.....",'#10'"....,,,-.,,-....",'#10 +#10'", c #800000",'#10'"- c #FFFFFF",'#10'"................",'#10'".........'
+'"...,,,-...,,-...",'#10'"..,,,-.....,-...",'#10'"..,,,-......,-..",'#10'"..' +'.......",'#10'".,,-........,,-.",'#10'".,,,,-.....,,-..",'#10'"..,,,,-...,,'
+'.,-...........",'#10'".............,-.",'#10'"................"}'#10#201#1#0 +'-...",'#10'"....,,,-.,-.....",'#10'".....,,,,,-.....",'#10'"......,,,-.....'
+#0'/* XPM */'#10'static char *graphic[] = {'#10'"16 16 6 1",'#10'". c None",' +'.",'#10'".....,,,,,-.....",'#10'"....,,,-.,,-....",'#10'"...,,,-...,,-...",'
+#10'", c #000080",'#10'"- c #FFFFFF",'#10'"* c #000000",'#10'"a c #808080",' +#10'"..,,,-.....,-...",'#10'"..,,,-......,-..",'#10'"...,-...........",'#10
+#10'"b c #FFFF00",'#10'"................",'#10'",,,,,,,,,,,,,,..",'#10'",-,,' +'".............,-.",'#10'"................"}'#10#201#1#0#0'/* XPM */'#10'sta'
+',,,,,,,,,,..",'#10'",,,,,,,,,,,,,*..",'#10'"*...*--------*..",'#10'"*...*--' +'tic char *graphic[] = {'#10'"16 16 6 1",'#10'". c None",'#10'", c #000080",'
+'------*..",'#10'"*...*--aaa---*..",'#10'"*...*-a.b.a--*..",'#10'"*...*a.b.b' +#10'"- c #FFFFFF",'#10'"* c #000000",'#10'"a c #808080",'#10'"b c #FFFF00",'
+'aaaaa.",'#10'"*...*a--------a*",'#10'"*...*a-b.b.b.ba*",'#10'"*...*a-.b.b.b' +#10'"................",'#10'",,,,,,,,,,,,,,..",'#10'",-,,,,,,,,,,,,..",'#10
+'.a*",'#10'"*****a-b.b.b.ba*",'#10'".....aaaaaaaaaa*",'#10'"......**********' +'",,,,,,,,,,,,,*..",'#10'"*...*--------*..",'#10'"*...*--------*..",'#10'"*.'
+'",'#10'"................"}'#10#201#1#0#0'/* XPM */'#10'static char *graphic' +'..*--aaa---*..",'#10'"*...*-a.b.a--*..",'#10'"*...*a.b.baaaaa.",'#10'"*...*'
+'[] = {'#10'"16 16 6 1",'#10'". c None",'#10'", c #000080",'#10'"- c #000000' +'a--------a*",'#10'"*...*a-b.b.b.ba*",'#10'"*...*a-.b.b.b.a*",'#10'"*****a-b'
+'",'#10'"* c #FFFFFF",'#10'"a c #808080",'#10'"b c #00FFFF",'#10'"..........' +'.b.b.ba*",'#10'".....aaaaaaaaaa*",'#10'"......**********",'#10'"...........'
+'......",'#10'"................",'#10'",,,,,,,,,.......",'#10'",,,,,,,,,....' +'....."}'#10#201#1#0#0'/* XPM */'#10'static char *graphic[] = {'#10'"16 16 6'
+'...",'#10'"-*******-.-.....",'#10'"-*aaaaa*-.--....",'#10'"-*******-.-b-...' +' 1",'#10'". c None",'#10'", c #000080",'#10'"- c #000000",'#10'"* c #FFFFFF'
+'",'#10'"-*aa-------bb-..",'#10'"-***-bbbbbbbbb-.",'#10'"-----bbbbbbbbbb-",' +'",'#10'"a c #808080",'#10'"b c #00FFFF",'#10'"................",'#10'".....'
+#10'"....-bbbbbbbbb-.",'#10'"....-------bb-..",'#10'"..........-b-...",'#10 +'...........",'#10'",,,,,,,,,.......",'#10'",,,,,,,,,.......",'#10'"-*******'
+'"..........--....",'#10'"..........-.....",'#10'"................"}'#10#171 +'-.-.....",'#10'"-*aaaaa*-.--....",'#10'"-*******-.-b-...",'#10'"-*aa-------'
+#1#0#0'/* XPM */'#10'static char *graphic[] = {'#10'"16 16 4 1",'#10'". c No' +'bb-..",'#10'"-***-bbbbbbbbb-.",'#10'"-----bbbbbbbbbb-",'#10'"....-bbbbbbbbb'
+'ne",'#10'", c #000000",'#10'"- c #000080",'#10'"* c #FFFFFF",'#10'"........' +'-.",'#10'"....-------bb-..",'#10'"..........-b-...",'#10'"..........--...."'
+'........",'#10'".......,,,,,,.--",'#10'"......,......,--",'#10'".....,.,...' +','#10'"..........-.....",'#10'"................"}'#10#171#1#0#0'/* XPM */'
+'...--",'#10'",,,,,.,.,.....--",'#10'",**,.,.,.,...,--",'#10'",*,.,*,.,.,,,.' +#10'static char *graphic[] = {'#10'"16 16 4 1",'#10'". c None",'#10'", c #00'
+'--",'#10'",**,***,.,*,...-",'#10'",*******,**,....",'#10'",**********,...."' +'0000",'#10'"- c #000080",'#10'"* c #FFFFFF",'#10'"................",'#10'".'
+','#10'",*,,*,,,,,*,....",'#10'",**********,....",'#10'",*,,*,,,,,*,....",' +'......,,,,,,.--",'#10'"......,......,--",'#10'".....,.,......--",'#10'",,,,'
+#10'",**********,....",'#10'",,,,,,,,,,,,....",'#10'"................"}'#10 +',.,.,.....--",'#10'",**,.,.,.,...,--",'#10'",*,.,*,.,.,,,.--",'#10'",**,***'
+#246#1#0#0'/* XPM */'#10'static char *graphic[] = {'#10'"16 16 9 1",'#10'". ' +',.,*,...-",'#10'",*******,**,....",'#10'",**********,....",'#10'",*,,*,,,,,'
+'c None",'#10'", c #808080",'#10'"- c #0000FF",'#10'"* c #FFFFFF",'#10'"a c ' +'*,....",'#10'",**********,....",'#10'",*,,*,,,,,*,....",'#10'",**********,.'
+'#008000",'#10'"b c #000000",'#10'"c c #FFFF00",'#10'"d c #008080",'#10'"e c' +'...",'#10'",,,,,,,,,,,,....",'#10'"................"}'#10#246#1#0#0'/* XPM '
+' #000080",'#10'".....,,,,,......",'#10'"...,,--*.abb....",'#10'"..,--.*.aaa' +'*/'#10'static char *graphic[] = {'#10'"16 16 9 1",'#10'". c None",'#10'", c'
+'ab...",'#10'".,-*.*,,,,,,,b..",'#10'".,--*.,***c*,,..",'#10'"b--.aa,*c***,*' +' #808080",'#10'"- c #0000FF",'#10'"* c #FFFFFF",'#10'"a c #008000",'#10'"b '
+',.",'#10'"b--aaa,***c*bbbb",'#10'"b--aaa,*cddd,*,b",'#10'"b---aa,*d*,ae*,b"' +'c #000000",'#10'"c c #FFFF00",'#10'"d c #008080",'#10'"e c #000080",'#10'".'
+','#10'"b-----,*d,a-e*,b",'#10'".b----,*d---e*,b",'#10'".b----,*ceee,*,b",' +'....,,,,,......",'#10'"...,,--*.abb....",'#10'"..,--.*.aaaab...",'#10'".,-*'
+#10'"..b---,***c***,b",'#10'"...bb-,*c***c*,b",'#10'".....b,,,,,,,,,b",'#10 +'.*,,,,,,,b..",'#10'".,--*.,***c*,,..",'#10'"b--.aa,*c***,*,.",'#10'"b--aaa,'
+'"......bbbbbbbbbb"}'#10#156#1#0#0'/* XPM */'#10'static char *graphic[] = {' +'***c*bbbb",'#10'"b--aaa,*cddd,*,b",'#10'"b---aa,*d*,ae*,b",'#10'"b-----,*d,'
+#10'"16 16 3 1",'#10'". c None",'#10'", c #FFFFFF",'#10'"- c #008000",'#10'"' +'a-e*,b",'#10'".b----,*d---e*,b",'#10'".b----,*ceee,*,b",'#10'"..b---,***c**'
+'................",'#10'".,,,,,,,,,,,,,,.",'#10'".,,,,,,,-,,,,,,.",'#10'".,,' +'*,b",'#10'"...bb-,*c***c*,b",'#10'".....b,,,,,,,,,b",'#10'"......bbbbbbbbbb'
+',,,,,--,,,,,.",'#10'".,,,,------,,,,.",'#10'".,,,-,,,--,,,,,.",'#10'".,,,-,' +'"}'#10#156#1#0#0'/* XPM */'#10'static char *graphic[] = {'#10'"16 16 3 1",'
+',,-,,,,,,.",'#10'".,,,-,,,,,,,,,,.",'#10'".,,,,,,,,,,-,,,.",'#10'".,,,,,,-,' +#10'". c None",'#10'", c #FFFFFF",'#10'"- c #008000",'#10'"................"'
+',,-,,,.",'#10'".,,,,,--,,,-,,,.",'#10'".,,,,------,,,,.",'#10'".,,,,,--,,,,' +','#10'".,,,,,,,,,,,,,,.",'#10'".,,,,,,,-,,,,,,.",'#10'".,,,,,,,--,,,,,.",'
+',,,.",'#10'".,,,,,,-,,,,,,,.",'#10'".,,,,,,,,,,,,,,.",'#10'"...............' +#10'".,,,,------,,,,.",'#10'".,,,-,,,--,,,,,.",'#10'".,,,-,,,-,,,,,,.",'#10
+'."}'#10#186#1#0#0'/* XPM */'#10'static char *graphic[] = {'#10'"16 16 5 1",' +'".,,,-,,,,,,,,,,.",'#10'".,,,,,,,,,,-,,,.",'#10'".,,,,,,-,,,-,,,.",'#10'".,'
+#10'". c None",'#10'", c #808080",'#10'"- c #000000",'#10'"* c #FFFFFF",'#10 +',,,,--,,,-,,,.",'#10'".,,,,------,,,,.",'#10'".,,,,,--,,,,,,,.",'#10'".,,,,'
+'"a c #000080",'#10'"................",'#10'".....,,,,,,-....",'#10'".....,*' +',,-,,,,,,,.",'#10'".,,,,,,,,,,,,,,.",'#10'"................"}'#10#186#1#0#0
+'****-....",'#10'".....,*,,,,,,-..",'#10'"a....,*,*****-..",'#10'"aa...,*,*,' +'/* XPM */'#10'static char *graphic[] = {'#10'"16 16 5 1",'#10'". c None",'
+',,,,,-",'#10'"aaa..,*,*,*****-",'#10'"aaaa.,*,*,*aaa*-",'#10'"aaa..,*,*,***' +#10'", c #808080",'#10'"- c #000000",'#10'"* c #FFFFFF",'#10'"a c #000080",'
,'**-",'#10'"aa...--,*,*aaa*-",'#10'"a......,*,*****-",'#10'".......--,*aaa*-' ,#10'"................",'#10'".....,,,,,,-....",'#10'".....,*****-....",'#10
+'",'#10'".........,*****-",'#10'".........-------",'#10'"................",' +'".....,*,,,,,,-..",'#10'"a....,*,*****-..",'#10'"aa...,*,*,,,,,,-",'#10'"aa'
+#10'"................"}'#10#201#1#0#0'/* XPM */'#10'static char *graphic[] =' +'a..,*,*,*****-",'#10'"aaaa.,*,*,*aaa*-",'#10'"aaa..,*,*,*****-",'#10'"aa...'
+' {'#10'"16 16 6 1",'#10'". c None",'#10'", c #808080",'#10'"- c #FFFF00",' +'--,*,*aaa*-",'#10'"a......,*,*****-",'#10'".......--,*aaa*-",'#10'"........'
+#10'"* c #C0C0C0",'#10'"a c #FFFFFF",'#10'"b c #000000",'#10'"..............' +'.,*****-",'#10'".........-------",'#10'"................",'#10'"...........'
+'..",'#10'"...,,,,,........",'#10'"..,-*-*-,.......",'#10'".,-*-*-*-,,,,,,."' +'....."}'#10#201#1#0#0'/* XPM */'#10'static char *graphic[] = {'#10'"16 16 6'
+','#10'".,aaaaaaaaaaaa,b",'#10'".,a-*-*-*-*-*-,b",'#10'".,a*-*-*-*-*-*,b",' +' 1",'#10'". c None",'#10'", c #808080",'#10'"- c #FFFF00",'#10'"* c #C0C0C0'
+#10'".,a-*-*-*-*-*-,b",'#10'".,a*-*-*-*-*-*,b",'#10'".,a-*-*-*-*-*-,b",'#10 +'",'#10'"a c #FFFFFF",'#10'"b c #000000",'#10'"................",'#10'"...,,'
+'".,a*-*-*-*-*-*,b",'#10'".,a-*-*-*-*-*-,b",'#10'".,,,,,,,,,,,,,,b",'#10'"..' +',,,........",'#10'"..,-*-*-,.......",'#10'".,-*-*-*-,,,,,,.",'#10'".,aaaaaa'
+'bbbbbbbbbbbbbb",'#10'"................",'#10'"aaaaaaaaaaaaaaaa"}'#10#201#1#0 +'aaaaaa,b",'#10'".,a-*-*-*-*-*-,b",'#10'".,a*-*-*-*-*-*,b",'#10'".,a-*-*-*-*'
+#0'/* XPM */'#10'static char *graphic[] = {'#10'"16 16 6 1",'#10'". c None",' +'-*-,b",'#10'".,a*-*-*-*-*-*,b",'#10'".,a-*-*-*-*-*-,b",'#10'".,a*-*-*-*-*-*'
+#10'", c #808080",'#10'"- c #FFFFFF",'#10'"* c #FFFF00",'#10'"a c #C0C0C0",' +',b",'#10'".,a-*-*-*-*-*-,b",'#10'".,,,,,,,,,,,,,,b",'#10'"..bbbbbbbbbbbbbb"'
+#10'"b c #000000",'#10'"................",'#10'"...,,,,,........",'#10'"..,-' +','#10'"................",'#10'"aaaaaaaaaaaaaaaa"}'#10#201#1#0#0'/* XPM */'
+'----,.......",'#10'".,-*a*a*-,,,,,,.",'#10'".,-a*a*a------,b",'#10'".,-*a*a' +#10'static char *graphic[] = {'#10'"16 16 6 1",'#10'". c None",'#10'", c #80'
+'*a*a*a*,b",'#10'",,,,,,,,,,,,,*,b",'#10'",----------,,a,b",'#10'",-*a*a*a*a' +'8080",'#10'"- c #FFFFFF",'#10'"* c #FFFF00",'#10'"a c #C0C0C0",'#10'"b c #0'
+'**b,,b",'#10'".,-*a*a*a*a*ab,b",'#10'".,-a*a*a*a*a*b,b",'#10'"..,-a*a*a*a**' +'00000",'#10'"................",'#10'"...,,,,,........",'#10'"..,-----,.....'
+',bb",'#10'"..,,,,,,,,,,,,,b",'#10'"...bbbbbbbbbbbbb",'#10'"................' +'..",'#10'".,-*a*a*-,,,,,,.",'#10'".,-a*a*a------,b",'#10'".,-*a*a*a*a*a*,b"'
+'",'#10'"----------------"}'#10#186#1#0#0'/* XPM */'#10'static char *graphic' +','#10'",,,,,,,,,,,,,*,b",'#10'",----------,,a,b",'#10'",-*a*a*a*a**b,,b",'
+'[] = {'#10'"16 16 5 1",'#10'". c None",'#10'", c #808080",'#10'"- c #FFFFFF' +#10'".,-*a*a*a*a*ab,b",'#10'".,-a*a*a*a*a*b,b",'#10'"..,-a*a*a*a**,bb",'#10
+'",'#10'"* c #000000",'#10'"a c #C0C0C0",'#10'"................",'#10'".,,,,' +'"..,,,,,,,,,,,,,b",'#10'"...bbbbbbbbbbbbb",'#10'"................",'#10'"--'
+',,,,.......",'#10'".,------,*......",'#10'".,------,-*.....",'#10'".,------' +'--------------"}'#10#186#1#0#0'/* XPM */'#10'static char *graphic[] = {'#10
+',***....",'#10'".,------aaa*....",'#10'".,-------aa*....",'#10'".,--------a' +'"16 16 5 1",'#10'". c None",'#10'", c #808080",'#10'"- c #FFFFFF",'#10'"* c'
+'*....",'#10'".,--------a*....",'#10'".,--------a*....",'#10'".,--------a*..' +' #000000",'#10'"a c #C0C0C0",'#10'"................",'#10'".,,,,,,,,.......'
+'..",'#10'".,--------a*....",'#10'".,aaaaaaaaa*....",'#10'".***********...."' +'",'#10'".,------,*......",'#10'".,------,-*.....",'#10'".,------,***....",'
+','#10'"................",'#10'"----------------"}'#10#246#1#0#0'/* XPM */' +#10'".,------aaa*....",'#10'".,-------aa*....",'#10'".,--------a*....",'#10
+#10'static char *graphic[] = {'#10'"16 16 9 1",'#10'". c None",'#10'", c #80' +'".,--------a*....",'#10'".,--------a*....",'#10'".,--------a*....",'#10'".,'
+'8080",'#10'"- c #FFFFFF",'#10'"* c #000000",'#10'"a c #0000FF",'#10'"b c #0' +'--------a*....",'#10'".,aaaaaaaaa*....",'#10'".***********....",'#10'".....'
+'00080",'#10'"c c #008080",'#10'"d c #C0C0C0",'#10'"e c #FFFF00",'#10'".....' +'...........",'#10'"----------------"}'#10#246#1#0#0'/* XPM */'#10'static ch'
+'...........",'#10'".,,,,,,,,.......",'#10'".,------,*....ab",'#10'".,------' +'ar *graphic[] = {'#10'"16 16 9 1",'#10'". c None",'#10'", c #808080",'#10'"'
+',-*..acb",'#10'".,------,***acb.",'#10'".,------dddacb..",'#10'".,-------da' +'- c #FFFFFF",'#10'"* c #000000",'#10'"a c #0000FF",'#10'"b c #000080",'#10
+'cb...",'#10'".,-------acb....",'#10'".,------acb*....",'#10'".,-----,ebd*..' +'"c c #008080",'#10'"d c #C0C0C0",'#10'"e c #FFFF00",'#10'"................"'
+'..",'#10'".,-----d,-d*....",'#10'".,----*,--d*....",'#10'".,ddddddddd*...."' +','#10'".,,,,,,,,.......",'#10'".,------,*....ab",'#10'".,------,-*..acb",'
+','#10'".***********....",'#10'"................",'#10'"----------------"}' +#10'".,------,***acb.",'#10'".,------dddacb..",'#10'".,-------dacb...",'#10
+#10#186#1#0#0'/* XPM */'#10'static char *graphic[] = {'#10'"16 16 5 1",'#10 +'".,-------acb....",'#10'".,------acb*....",'#10'".,-----,ebd*....",'#10'".,'
+'". c #808080",'#10'", c None",'#10'"- c #FFFFFF",'#10'"* c #000000",'#10'"a' +'-----d,-d*....",'#10'".,----*,--d*....",'#10'".,ddddddddd*....",'#10'".****'
+' c #C0C0C0",'#10'"........,,,,,,,,",'#10'".-........,,,,,,",'#10'".-.-.....' +'*******....",'#10'"................",'#10'"----------------"}'#10#186#1#0#0
+'...,,,,",'#10'".-.-.------.*,,,",'#10'".-.-.------.-*,,",'#10'".-.-.------.' +'/* XPM */'#10'static char *graphic[] = {'#10'"16 16 5 1",'#10'". c #808080"'
+'***,",'#10'".-.-.------aaa*,",'#10'".-.-.-------aa*,",'#10'".-.-.--------a*' +','#10'", c None",'#10'"- c #FFFFFF",'#10'"* c #000000",'#10'"a c #C0C0C0",'
+',",'#10'".-.-.--------a*,",'#10'".-.-.--------a*,",'#10'".a.-.--------a*,",' +#10'"........,,,,,,,,",'#10'".-........,,,,,,",'#10'".-.-........,,,,",'#10
+#10'"**.a.--------a*,",'#10'",,**.aaaaaaaaa*,",'#10'",,,,***********,",'#10 +'".-.-.------.*,,,",'#10'".-.-.------.-*,,",'#10'".-.-.------.***,",'#10'".-'
+'"----------------"}'#10#246#1#0#0'/* XPM */'#10'static char *graphic[] = {' +'.-.------aaa*,",'#10'".-.-.-------aa*,",'#10'".-.-.--------a*,",'#10'".-.-.'
+#10'"16 16 9 1",'#10'". c #808080",'#10'", c None",'#10'"- c #FFFFFF",'#10'"' +'--------a*,",'#10'".-.-.--------a*,",'#10'".a.-.--------a*,",'#10'"**.a.---'
+'* c #0000FF",'#10'"a c #000080",'#10'"b c #000000",'#10'"c c #008080",'#10 +'-----a*,",'#10'",,**.aaaaaaaaa*,",'#10'",,,,***********,",'#10'"-----------'
+'"d c #C0C0C0",'#10'"e c #FFFF00",'#10'"........,,,,,,,,",'#10'".-........,,' +'-----"}'#10#246#1#0#0'/* XPM */'#10'static char *graphic[] = {'#10'"16 16 9'
+',,,,",'#10'".-.-........,,*a",'#10'".-.-.------.b*ca",'#10'".-.-.------.*ca' +' 1",'#10'". c #808080",'#10'", c None",'#10'"- c #FFFFFF",'#10'"* c #0000FF'
+',",'#10'".-.-.------*cab,",'#10'".-.-.-----*cadb,",'#10'".-.-.----*caddb,",' +'",'#10'"a c #000080",'#10'"b c #000000",'#10'"c c #008080",'#10'"d c #C0C0C'
+#10'".-.-.---*ca--db,",'#10'".-.-.--.ea---db,",'#10'".-.-.--d.----db,",'#10 +'0",'#10'"e c #FFFF00",'#10'"........,,,,,,,,",'#10'".-........,,,,,,",'#10
+'".d.-.-b.-----db,",'#10'"bb.d.--------db,",'#10'",,bb.dddddddddb,",'#10'",,' +'".-.-........,,*a",'#10'".-.-.------.b*ca",'#10'".-.-.------.*ca,",'#10'".-'
+',,bbbbbbbbbbb,",'#10'"----------------"}'#10#141#1#0#0'/* XPM */'#10'static' +'.-.------*cab,",'#10'".-.-.-----*cadb,",'#10'".-.-.----*caddb,",'#10'".-.-.'
+' char *graphic[] = {'#10'"16 16 2 1",'#10'". c None",'#10'", c #000000",'#10 +'---*ca--db,",'#10'".-.-.--.ea---db,",'#10'".-.-.--d.----db,",'#10'".d.-.-b.'
+'"................",'#10'"................",'#10'"..,.............",'#10'"..' +'-----db,",'#10'"bb.d.--------db,",'#10'",,bb.dddddddddb,",'#10'",,,,bbbbbbb'
+',,............",'#10'"..,,,...........",'#10'"..,,,,..........",'#10'"..,,,' +'bbbb,",'#10'"----------------"}'#10#141#1#0#0'/* XPM */'#10'static char *gr'
+',,.........",'#10'"..,,,,,,........",'#10'"..,,,,,,,.......",'#10'"..,,,,,,' +'aphic[] = {'#10'"16 16 2 1",'#10'". c None",'#10'", c #000000",'#10'"......'
+'........",'#10'"..,,,,,.........",'#10'"..,,,,..........",'#10'"..,,,......' +'..........",'#10'"................",'#10'"..,.............",'#10'"..,,.....'
+'.....",'#10'"..,,............",'#10'"..,.............",'#10'"..............' +'.......",'#10'"..,,,...........",'#10'"..,,,,..........",'#10'"..,,,,,.....'
+'.."}'#10#0#0#0 +'....",'#10'"..,,,,,,........",'#10'"..,,,,,,,.......",'#10'"..,,,,,,.......'
+'.",'#10'"..,,,,,.........",'#10'"..,,,,..........",'#10'"..,,,...........",'
+#10'"..,,............",'#10'"..,.............",'#10'"................"}'#10#0
+#0#0
]); ]);

View File

@ -13,8 +13,8 @@ unit GridDemo;
interface interface
uses uses
Windows, LCLIntf, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, delphicompat, LCLIntf, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, VirtualTrees, ImgList, LResources; StdCtrls, VirtualTrees, ImgList, LResources, LCLType;
type type
TGridForm = class(TForm) TGridForm = class(TForm)

View File

@ -10,8 +10,8 @@ unit HeaderCustomDrawDemo;
interface interface
uses uses
LCLIntf, Types, Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, LCLIntf, Types, Messages, SysUtils, Classes, Graphics, Controls, Forms,
Dialogs, ImgList, VirtualTrees, StdCtrls, ExtCtrls, LResources; Dialogs, ImgList, VirtualTrees, StdCtrls, ExtCtrls, LResources, LCLType;
type type
THeaderOwnerDrawForm = class(TForm) THeaderOwnerDrawForm = class(TForm)

View File

@ -1,5 +1,3 @@
{ This is an automatically generated lazarus resource file }
LazarusResources.Add('TNodeForm','FORMDATA',[ LazarusResources.Add('TNodeForm','FORMDATA',[
'TPF0'#9'TNodeForm'#8'NodeForm'#4'Left'#3'='#2#6'Height'#3#30#2#3'Top'#3'L'#1 'TPF0'#9'TNodeForm'#8'NodeForm'#4'Left'#3'='#2#6'Height'#3#30#2#3'Top'#3'L'#1
+#5'Width'#3#5#3#18'HorzScrollBar.Page'#3#4#3#18'VertScrollBar.Page'#3#29#2#13 +#5'Width'#3#5#3#18'HorzScrollBar.Page'#3#4#3#18'VertScrollBar.Page'#3#29#2#13

View File

@ -124,15 +124,16 @@ object WindowsXPForm: TWindowsXPForm
end> end>
end end
object CoolBar1: TPanel object CoolBar1: TPanel
Height = 34 Height = 64
Width = 829 Width = 829
Align = alTop Align = alTop
AutoSize = True AutoSize = True
ClientHeight = 34 ClientHeight = 64
ClientWidth = 829 ClientWidth = 829
TabOrder = 1 TabOrder = 1
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 1 Left = 1
Height = 62
Top = 1 Top = 1
Width = 827 Width = 827
AutoSize = True AutoSize = True
@ -151,48 +152,47 @@ object WindowsXPForm: TWindowsXPForm
Style = tbsDropDown Style = tbsDropDown
end end
object ToolButton2: TToolButton object ToolButton2: TToolButton
Left = 45 Left = 44
Top = 2 Top = 2
AutoSize = True AutoSize = True
ImageIndex = 10 ImageIndex = 10
Style = tbsDropDown Style = tbsDropDown
end end
object ToolButton3: TToolButton object ToolButton3: TToolButton
Left = 89 Left = 257
Top = 2 Top = 2
AutoSize = True AutoSize = True
ImageIndex = 18 ImageIndex = 18
end end
object ToolButton4: TToolButton object ToolButton4: TToolButton
Left = 123 Left = 470
Top = 2 Top = 2
AutoSize = True AutoSize = True
ImageIndex = 14 ImageIndex = 14
end end
object ToolButton5: TToolButton object ToolButton5: TToolButton
Left = 157 Top = 32
Top = 2
AutoSize = True AutoSize = True
ImageIndex = 21 ImageIndex = 21
end end
object ToolButton6: TToolButton object ToolButton6: TToolButton
Left = 191 Left = 213
Top = 2 Top = 32
AutoSize = True AutoSize = True
ImageIndex = 8 ImageIndex = 8
Style = tbsDropDown Style = tbsDropDown
end end
object ToolButton8: TToolButton object ToolButton8: TToolButton
Left = 235 Left = 426
Top = 2 Top = 32
Width = 8 Width = 8
Caption = 'ToolButton8' Caption = 'ToolButton8'
ImageIndex = 9 ImageIndex = 9
Style = tbsSeparator Style = tbsSeparator
end end
object ToolButton9: TToolButton object ToolButton9: TToolButton
Left = 243 Left = 434
Top = 2 Top = 32
AutoSize = True AutoSize = True
Caption = 'Click here to print the treeview.' Caption = 'Click here to print the treeview.'
ImageIndex = 24 ImageIndex = 24

View File

@ -57,85 +57,85 @@ LazarusResources.Add('TWindowsXPForm','FORMDATA',[
+#3#200#0#8'WideText'#18#4#0#0#0'N'#0'a'#0'm'#0'e'#0#0#1#9'Alignment'#7#14'ta' +#3#200#0#8'WideText'#18#4#0#0#0'N'#0'a'#0'm'#0'e'#0#0#1#9'Alignment'#7#14'ta'
+'RightJustify'#8'Position'#2#1#5'Width'#2'd'#8'WideText'#18#4#0#0#0'S'#0'i'#0 +'RightJustify'#8'Position'#2#1#5'Width'#2'd'#8'WideText'#18#4#0#0#0'S'#0'i'#0
+'z'#0'e'#0#0#1#8'Position'#2#2#5'Width'#2'd'#8'WideText'#18#4#0#0#0'T'#0'y'#0 +'z'#0'e'#0#0#1#8'Position'#2#2#5'Width'#2'd'#8'WideText'#18#4#0#0#0'T'#0'y'#0
+'p'#0'e'#0#0#0#0#0#6'TPanel'#8'CoolBar1'#6'Height'#2'"'#5'Width'#3'='#3#5'Al' +'p'#0'e'#0#0#0#0#0#6'TPanel'#8'CoolBar1'#6'Height'#2'@'#5'Width'#3'='#3#5'Al'
+'ign'#7#5'alTop'#8'AutoSize'#9#12'ClientHeight'#2'"'#11'ClientWidth'#3'='#3#8 +'ign'#7#5'alTop'#8'AutoSize'#9#12'ClientHeight'#2'@'#11'ClientWidth'#3'='#3#8
+'TabOrder'#2#1#0#8'TToolBar'#8'ToolBar1'#4'Left'#2#1#3'Top'#2#1#5'Width'#3';' +'TabOrder'#2#1#0#8'TToolBar'#8'ToolBar1'#4'Left'#2#1#6'Height'#2'>'#3'Top'#2
+#3#8'AutoSize'#9#12'ButtonHeight'#2#30#11'ButtonWidth'#3#213#0#7'Caption'#6#8 +#1#5'Width'#3';'#3#8'AutoSize'#9#12'ButtonHeight'#2#30#11'ButtonWidth'#3#213
+'ToolBar1'#6'Images'#7#11'SmallImages'#4'List'#9#12'ShowCaptions'#9#8'TabOrd' +#0#7'Caption'#6#8'ToolBar1'#6'Images'#7#11'SmallImages'#4'List'#9#12'ShowCap'
+'er'#2#0#11'Transparent'#9#0#11'TToolButton'#11'ToolButton1'#3'Top'#2#2#8'Au' +'tions'#9#8'TabOrder'#2#0#11'Transparent'#9#0#11'TToolButton'#11'ToolButton1'
+'toSize'#9#10'ImageIndex'#2#9#5'Style'#7#11'tbsDropDown'#0#0#11'TToolButton' +#3'Top'#2#2#8'AutoSize'#9#10'ImageIndex'#2#9#5'Style'#7#11'tbsDropDown'#0#0
+#11'ToolButton2'#4'Left'#2'-'#3'Top'#2#2#8'AutoSize'#9#10'ImageIndex'#2#10#5 +#11'TToolButton'#11'ToolButton2'#4'Left'#2','#3'Top'#2#2#8'AutoSize'#9#10'Im'
,'Style'#7#11'tbsDropDown'#0#0#11'TToolButton'#11'ToolButton3'#4'Left'#2'Y'#3 ,'ageIndex'#2#10#5'Style'#7#11'tbsDropDown'#0#0#11'TToolButton'#11'ToolButton'
+'Top'#2#2#8'AutoSize'#9#10'ImageIndex'#2#18#0#0#11'TToolButton'#11'ToolButto' +'3'#4'Left'#3#1#1#3'Top'#2#2#8'AutoSize'#9#10'ImageIndex'#2#18#0#0#11'TToolB'
+'n4'#4'Left'#2'{'#3'Top'#2#2#8'AutoSize'#9#10'ImageIndex'#2#14#0#0#11'TToolB' +'utton'#11'ToolButton4'#4'Left'#3#214#1#3'Top'#2#2#8'AutoSize'#9#10'ImageInd'
+'utton'#11'ToolButton5'#4'Left'#3#157#0#3'Top'#2#2#8'AutoSize'#9#10'ImageInd' +'ex'#2#14#0#0#11'TToolButton'#11'ToolButton5'#3'Top'#2' '#8'AutoSize'#9#10'I'
+'ex'#2#21#0#0#11'TToolButton'#11'ToolButton6'#4'Left'#3#191#0#3'Top'#2#2#8'A' +'mageIndex'#2#21#0#0#11'TToolButton'#11'ToolButton6'#4'Left'#3#213#0#3'Top'#2
+'utoSize'#9#10'ImageIndex'#2#8#5'Style'#7#11'tbsDropDown'#0#0#11'TToolButton' +' '#8'AutoSize'#9#10'ImageIndex'#2#8#5'Style'#7#11'tbsDropDown'#0#0#11'TTool'
+#11'ToolButton8'#4'Left'#3#235#0#3'Top'#2#2#5'Width'#2#8#7'Caption'#6#11'Too' +'Button'#11'ToolButton8'#4'Left'#3#170#1#3'Top'#2' '#5'Width'#2#8#7'Caption'
+'lButton8'#10'ImageIndex'#2#9#5'Style'#7#12'tbsSeparator'#0#0#11'TToolButton' +#6#11'ToolButton8'#10'ImageIndex'#2#9#5'Style'#7#12'tbsSeparator'#0#0#11'TTo'
+#11'ToolButton9'#4'Left'#3#243#0#3'Top'#2#2#8'AutoSize'#9#7'Caption'#6'!Clic' +'olButton'#11'ToolButton9'#4'Left'#3#178#1#3'Top'#2' '#8'AutoSize'#9#7'Capti'
+'k here to print the treeview.'#10'ImageIndex'#2#24#7'OnClick'#7#16'ToolButt' +'on'#6'!Click here to print the treeview.'#10'ImageIndex'#2#24#7'OnClick'#7
+'on9Click'#0#0#0#0#10'TImageList'#11'LargeImages'#7'BkColor'#7#12'clForegrou' +#16'ToolButton9Click'#0#0#0#0#10'TImageList'#11'LargeImages'#7'BkColor'#7#12
+'nd'#6'Height'#2' '#5'Width'#2' '#4'left'#3'p'#1#3'top'#3'0'#1#6'Bitmap'#10 +'clForeground'#6'Height'#2' '#5'Width'#2' '#4'left'#3'p'#1#3'top'#3'0'#1#6'B'
+'n'#247#0#0'li'#18#0#0#0' '#0#0#0' '#0#0#0#176#13#0#0'/* XPM */'#10'static c' +'itmap'#10'n'#247#0#0'li'#18#0#0#0' '#0#0#0' '#0#0#0#176#13#0#0'/* XPM */'#10
+'har *graphic[] = {'#10'"32 32 80 2",'#10'".. c None",'#10'"., c #E8EBF7",' +'static char *graphic[] = {'#10'"32 32 80 2",'#10'".. c None",'#10'"., c #E8'
+#10'".- c #DEDEDE",'#10'".* c #BFC0D2",'#10'".a c #B0B0CD",'#10'".b c #B1B1D' +'EBF7",'#10'".- c #DEDEDE",'#10'".* c #BFC0D2",'#10'".a c #B0B0CD",'#10'".b '
+'4",'#10'".c c #8789B3",'#10'".d c #D3D3DB",'#10'".e c #EBEBEB",'#10'".f c #' +'c #B1B1D4",'#10'".c c #8789B3",'#10'".d c #D3D3DB",'#10'".e c #EBEBEB",'#10
+'C8C9CB",'#10'".g c #B9BBCA",'#10'".h c #C8C9D7",'#10'".i c #BABADA",'#10'".' +'".f c #C8C9CB",'#10'".g c #B9BBCA",'#10'".h c #C8C9D7",'#10'".i c #BABADA",'
+'j c #A6A6CB",'#10'".k c #817B9F",'#10'".l c #FBFBFB",'#10'".m c #BFBFBF",' +#10'".j c #A6A6CB",'#10'".k c #817B9F",'#10'".l c #FBFBFB",'#10'".m c #BFBFB'
+#10'".n c #DEDEE9",'#10'".o c #9B9BC7",'#10'".p c #9C9BB1",'#10'".q c #8B93C' +'F",'#10'".n c #DEDEE9",'#10'".o c #9B9BC7",'#10'".p c #9C9BB1",'#10'".q c #'
+'B",'#10'".r c #8EACD3",'#10'".s c #AEAEAE",'#10'".t c #EFEFEF",'#10'".u c #' +'8B93CB",'#10'".r c #8EACD3",'#10'".s c #AEAEAE",'#10'".t c #EFEFEF",'#10'".'
+'A6A5BA",'#10'".v c #8B8CA0",'#10'".w c #A7BBCA",'#10'".x c #A6C4E7",'#10'".' +'u c #A6A5BA",'#10'".v c #8B8CA0",'#10'".w c #A7BBCA",'#10'".x c #A6C4E7",'
+'y c #BDD7EB",'#10'".z c #B1ECFF",'#10'".A c #93E4FF",'#10'".B c #E5EBEE",' +#10'".y c #BDD7EB",'#10'".z c #B1ECFF",'#10'".A c #93E4FF",'#10'".B c #E5EBE'
+#10'".C c #B2B0BD",'#10'".D c #ECE7EC",'#10'".E c #939494",'#10'".F c #92A4B' +'E",'#10'".C c #B2B0BD",'#10'".D c #ECE7EC",'#10'".E c #939494",'#10'".F c #'
+'8",'#10'".G c #A5B2BF",'#10'".H c #CAF5FE",'#10'".I c #86BDF2",'#10'".J c #' +'92A4B8",'#10'".G c #A5B2BF",'#10'".H c #CAF5FE",'#10'".I c #86BDF2",'#10'".'
+'D1DBEF",'#10'".K c #CBD5E1",'#10'".L c #EFEFF4",'#10'".M c #B3B4B3",'#10'".' +'J c #D1DBEF",'#10'".K c #CBD5E1",'#10'".L c #EFEFF4",'#10'".M c #B3B4B3",'
+'N c #8BD0FD",'#10'".O c #ACAAF3",'#10'".P c #6369CC",'#10'".Q c #87868A",' +#10'".N c #8BD0FD",'#10'".O c #ACAAF3",'#10'".P c #6369CC",'#10'".Q c #87868'
+#10'".R c #7576B8",'#10'".S c #BBC9E7",'#10'".T c #FBF7FC",'#10'".U c #A6A7D' +'A",'#10'".R c #7576B8",'#10'".S c #BBC9E7",'#10'".T c #FBF7FC",'#10'".U c #'
+'6",'#10'".V c #8E91E2",'#10'".W c #605678",'#10'".X c #6ACEFF",'#10'".Y c #' +'A6A7D6",'#10'".V c #8E91E2",'#10'".W c #605678",'#10'".X c #6ACEFF",'#10'".'
+'594E71",'#10'".Z c #F3F3F4",'#10'".0 c #7091D3",'#10'".1 c #706D94",'#10'".' +'Y c #594E71",'#10'".Z c #F3F3F4",'#10'".0 c #7091D3",'#10'".1 c #706D94",'
+'2 c #71A4DB",'#10'".3 c #4BBCFE",'#10'".4 c #6FB5F1",'#10'".5 c #32B0FE",' +#10'".2 c #71A4DB",'#10'".3 c #4BBCFE",'#10'".4 c #6FB5F1",'#10'".5 c #32B0F'
+#10'".6 c #45B1D6",'#10'".7 c #5191E6",'#10'".8 c #FBFBFF",'#10'".9 c #1AA5F' +'E",'#10'".6 c #45B1D6",'#10'".7 c #5191E6",'#10'".8 c #FBFBFF",'#10'".9 c #'
+'D",'#10'".@ c #9FCEFB",'#10'".# c #5B5DB2",'#10'".; c #B4D0F5",'#10'".: c #' +'1AA5FD",'#10'".@ c #9FCEFB",'#10'".# c #5B5DB2",'#10'".; c #B4D0F5",'#10'".'
+'85DC6F",'#10'".= c #A6A7A7",'#10'".+ c #685E89",'#10'".% c #E3E3E3",'#10'".' +': c #85DC6F",'#10'".= c #A6A7A7",'#10'".+ c #685E89",'#10'".% c #E3E3E3",'
+'$ c #F7F8F6",'#10'".( c #E7EBE6",'#10'".) c #D6D6D3",'#10'".[ c #FFFBFF",' +#10'".$ c #F7F8F6",'#10'".( c #E7EBE6",'#10'".) c #D6D6D3",'#10'".[ c #FFFBF'
+#10'".] c #E7E7E6",'#10'",. c #FBF6F4",'#10'",, c #D0D0D0",'#10'"...........' +'F",'#10'".] c #E7E7E6",'#10'",. c #FBF6F4",'#10'",, c #D0D0D0",'#10'"......'
+'.....................................................",'#10'"..............' +'..........................................................",'#10'".........'
+'...........,.-.*.a.b.c.d..........................",'#10'".............e.-.' +'................,.-.*.a.b.c.d..........................",'#10'"............'
+'f.*.g.a.*.h.i.b.j.c.k.d........................",'#10'".l.-.f.m.m.m.h.d.n.h' +'.e.-.f.*.g.a.*.h.i.b.j.c.k.d........................",'#10'".l.-.f.m.m.m.h.'
+'.a.o.p.c.c.q.r.q.c.o.i.h.n..................",'#10'".s.-.t.n.h.g.u.v.v.v.p.' +'d.n.h.a.o.p.c.c.q.r.q.c.o.i.h.n..................",'#10'".s.-.t.n.h.g.u.v.v'
+'w.x.y.z.z.A.r.q.i.i.i.b.j.b.a.i.d.B......",'#10'".C.D.E.E.v.F.G.x.y.H.H.H.H' +'.v.p.w.x.y.z.z.A.r.q.i.i.i.b.j.b.a.i.d.B......",'#10'".C.D.E.E.v.F.G.x.y.H.'
+'.H.z.z.A.I.q.J.d.K.K.K.K.K.K.h.i.j.j.L",'#10'".M.,.F.I.A.A.z.z.z.H.H.H.H.z.' +'H.H.H.H.z.z.A.I.q.J.d.K.K.K.K.K.K.h.i.j.j.L",'#10'".M.,.F.I.A.A.z.z.z.H.H.H'
+'z.z.A.N.k.D.,.,.D.,.D.,.,.J.O.q.P.Q",'#10'".f.,.F.N.A.A.A.z.z.z.H.z.z.z.z.A' +'.H.z.z.z.A.N.k.D.,.,.D.,.D.,.,.J.O.q.P.Q",'#10'".f.,.F.N.A.A.A.z.z.z.H.z.z.'
+'.A.A.R.S.h.n.,.T.n.U.V.R.P.P.R.W",'#10'".-.d.G.X.A.A.A.A.z.z.z.z.z.z.A.A.A.' +'z.z.A.A.A.R.S.h.n.,.T.n.U.V.R.P.P.R.W",'#10'".-.d.G.X.A.A.A.A.z.z.z.z.z.z.A'
+'N.R.b.i.i.i.q.R.P.P.P.R.R.P.Y",'#10'".Z.g.g.X.X.A.A.A.A.A.A.z.A.A.A.A.N.X.0' +'.A.A.N.R.b.i.i.i.q.R.P.P.P.R.R.P.Y",'#10'".Z.g.g.X.X.A.A.A.A.A.A.z.A.A.A.A.'
+'.b.i.i.b.V.R.R.R.1.R.k.R.Y",'#10'"...g.*.I.X.N.N.A.A.A.A.A.A.A.A.N.X.N.0.U.' +'N.X.0.b.i.i.b.V.R.R.R.1.R.k.R.Y",'#10'"...g.*.I.X.N.N.A.A.A.A.A.A.A.A.N.X.N'
+'i.i.i.o.R.R.c.o.o.c.R.Y",'#10'"...*.K.2.X.X.X.N.N.A.A.A.N.A.X.N.X.X.2.q.*.i' +'.0.U.i.i.i.o.R.R.c.o.o.c.R.Y",'#10'"...*.K.2.X.X.X.N.N.A.A.A.N.A.X.N.X.X.2.'
+'.b.o.R.c.o.q.c.R.R.Y",'#10'"...d.h.2.X.X.X.X.X.N.X.N.X.X.X.X.X.X.2.q.i.i.i.' +'q.*.i.b.o.R.c.o.q.c.R.R.Y",'#10'"...d.h.2.X.X.X.X.X.N.X.N.X.X.X.X.X.X.2.q.i'
+'U.R.c.1.R.c.c.R.Y",'#10'"...B.i.F.3.X.X.X.X.X.X.X.X.X.X.X.X.3.4.R.i.i.i.j.R' +'.i.i.U.R.c.1.R.c.c.R.Y",'#10'"...B.i.F.3.X.X.X.X.X.X.X.X.X.X.X.X.3.4.R.i.i.'
+'.c.c.R.1.k.R.Y",'#10'".....a.o.3.3.X.X.X.X.X.X.X.X.X.3.3.3.3.R.S.i.b.U.k.R.' +'i.j.R.c.c.R.1.k.R.Y",'#10'".....a.o.3.3.X.X.X.X.X.X.X.X.X.3.3.3.3.R.S.i.b.U'
+'R.c.o.R.c.Y",'#10'".....b.j.3.3.3.3.3.3.3.X.3.3.3.3.3.3.5.P.i.i.i.j.R.c.o.o' +'.k.R.R.c.o.R.c.Y",'#10'".....b.j.3.3.3.3.3.3.3.X.3.3.3.3.3.3.5.P.i.i.i.j.R.'
+'.o.c.c.Y",'#10'".....*.b.6.5.3.3.3.3.3.3.3.3.3.3.3.3.0.P.i.i.i.j.k.q.o.o.c.' +'c.o.o.o.c.c.Y",'#10'".....*.b.6.5.3.3.3.3.3.3.3.3.3.3.3.3.0.P.i.i.i.j.k.q.o'
+'R.c.Y",'#10'".....n.b.7.5.5.5.3.3.3.3.3.5.3.4.V.R.V.b.i.i.i.U.c.c.c.R.c.c.1' +'.o.c.R.c.Y",'#10'".....n.b.7.5.5.5.3.3.3.3.3.5.3.4.V.R.V.b.i.i.i.U.c.c.c.R.'
+'.Y",'#10'".....8.j.0.5.5.5.5.5.5.5.4.I.o.R.q.q.j.b.i.i.i.a.c.k.c.c.1.1.R.Y"' +'c.c.1.Y",'#10'".....8.j.0.5.5.5.5.5.5.5.4.I.o.R.q.q.j.b.i.i.i.a.c.k.c.c.1.1'
+','#10'".......U.0.9.9.9.9.3.@.U.q.P.#.P.h.*.b.o.o.U.b.b.p.c.1.1.k.p.v.Y",' +'.R.Y",'#10'".......U.0.9.9.9.9.3.@.U.q.P.#.P.h.*.b.o.o.U.b.b.p.c.1.1.k.p.v.'
+#10'".......b.q.9.9.N.;.U.R.P.P.P.#.P.d.h.S.*.b.j.o.o.1.1.k.p.p.:.v.Y",'#10 +'Y",'#10'".......b.q.9.9.N.;.U.R.P.P.P.#.P.d.h.S.*.b.j.o.o.1.1.k.p.p.:.v.Y",'
+'".......b.q.x.S.o.R.q.q.R.R.P.P.P.i.h.h.*.i.i.b.U.k.p.p.p.u.s.c.Y",'#10'"..' +#10'".......b.q.x.S.o.R.q.q.R.R.P.P.P.i.h.h.*.i.i.b.U.k.p.p.p.u.s.c.Y",'#10
+'.,.*.d.q.R.U.h.n.j.U.q.R.R.R.R.U.q.j.i.i.i.i.b.=.u.=.u.E.1.W.+",'#10'".l.b.' +'"...,.*.d.q.R.U.h.n.j.U.q.R.R.R.R.U.q.j.i.i.i.i.b.=.u.=.u.E.1.W.+",'#10'".l'
+'t.Z.n.L.t.e.%.*.j.b.R.R.R.R.a.j.c.1.q.b.i.b.=.=.p.k.W.1.p.d",'#10'".i.%.L.$' +'.b.t.Z.n.L.t.e.%.*.j.b.R.R.R.R.a.j.c.1.q.b.i.b.=.=.p.k.W.1.p.d",'#10'".i.%.'
+'.l.T.t.e.%.d.o.*.c.c.R.c.j.U.o.k.E.k.c.j.=.k.+.+.E.h.Z..",'#10'".a.%.e.Z.$.' +'L.$.l.T.t.e.%.d.o.*.c.c.R.c.j.U.o.k.E.k.c.j.=.k.+.+.E.h.Z..",'#10'".a.%.e.Z'
+'Z.t.(.-.).q.K.p.c.c.c.o.j.o.1.C.n.g.v.1.+.v.h.e.[....",'#10'".o.-.].e.t.e.e' +'.$.Z.t.(.-.).q.K.p.c.c.c.o.j.o.1.C.n.g.v.1.+.v.h.e.[....",'#10'".o.-.].e.t.'
+'.%.-.).j.h.a.v.v.c.o.j.q.1.u,.,..D.h.f.D.[........",'#10'".d.j.-.].%.].%.-.' +'e.e.%.-.).j.h.a.v.v.c.o.j.q.1.u,.,..D.h.f.D.[........",'#10'".d.j.-.].%.].%'
+'-.d.g.a.m.E.k.k.j.U.k.+.C.$.....l.T............",'#10'".8.u.u.-.-.-.-.d.d.d' +'.-.-.d.g.a.m.E.k.k.j.U.k.+.C.$.....l.T............",'#10'".8.u.u.-.-.-.-.d.'
+'.h.o.k.c.o.b.j.k.+.k.).[....................",'#10'"...Z.u.k.a,,.d.d.d.h.h.' +'d.d.h.o.k.c.o.b.j.k.+.k.).[....................",'#10'"...Z.u.k.a,,.d.d.d.h'
+'*.i.i.j.c.+.W.k.h.8......................",'#10'".....Z.h.v.1.k.c.p.p.q.p.k' +'.h.*.i.i.j.c.+.W.k.h.8......................",'#10'".....Z.h.v.1.k.c.p.p.q.'
,'.1.+.+.1.p.d.T........................",'#10'".........t.d.u.k.+.Y.Y.Y.Y.1.' ,'p.k.1.+.+.1.p.d.T........................",'#10'".........t.d.u.k.+.Y.Y.Y.Y'
+'v.u.d.Z............................"}'#10'Q'#16#0#0'/* XPM */'#10'static ch' +'.1.v.u.d.Z............................"}'#10'Q'#16#0#0'/* XPM */'#10'static'
+'ar *graphic[] = {'#10'"32 32 122 2",'#10'".. c None",'#10'"., c #F4FCFF",' +' char *graphic[] = {'#10'"32 32 122 2",'#10'".. c None",'#10'"., c #F4FCFF"'
+#10'".- c #CAF5FE",'#10'".* c #B0EBDA",'#10'".a c #87D7D9",'#10'".b c #4BBCF' +','#10'".- c #CAF5FE",'#10'".* c #B0EBDA",'#10'".a c #87D7D9",'#10'".b c #4B'
+'E",'#10'".c c #BADAFD",'#10'".d c #F7F8F6",'#10'".e c #FFFFFB",'#10'".f c #' +'BCFE",'#10'".c c #BADAFD",'#10'".d c #F7F8F6",'#10'".e c #FFFFFB",'#10'".f '
+'E5E7ED",'#10'".g c #C8C9D7",'#10'".h c #BFC0D2",'#10'".i c #EFEFF4",'#10'".' +'c #E5E7ED",'#10'".g c #C8C9D7",'#10'".h c #BFC0D2",'#10'".i c #EFEFF4",'#10
+'j c #97E296",'#10'".k c #85DC6F",'#10'".l c #67C863",'#10'".m c #64CD33",' +'".j c #97E296",'#10'".k c #85DC6F",'#10'".l c #67C863",'#10'".m c #64CD33",'
+#10'".n c #3AB621",'#10'".o c #0D9857",'#10'".p c #32B0FE",'#10'".q c #A9D3E' +#10'".n c #3AB621",'#10'".o c #0D9857",'#10'".p c #32B0FE",'#10'".q c #A9D3E'
+'C",'#10'".r c #EFEFEF",'#10'".s c #D3D3DB",'#10'".t c #B9BBCA",'#10'".u c #' +'C",'#10'".r c #EFEFEF",'#10'".s c #D3D3DB",'#10'".t c #B9BBCA",'#10'".u c #'
+'B0B0CD",'#10'".v c #BABADA",'#10'".w c #8789B3",'#10'".x c #A6A5BA",'#10'".' +'B0B0CD",'#10'".v c #BABADA",'#10'".w c #8789B3",'#10'".x c #A6A5BA",'#10'".'

View File

@ -19,7 +19,7 @@ uses
{$ifdef VER140} {$ifdef VER140}
Variants, Variants,
{$endif} {$endif}
LCLIntf, Windows, SysUtils, Classes, Graphics, Controls, Forms, LCLIntf, SysUtils, Classes, Graphics, Controls, Forms,
Dialogs, VirtualTrees, ComCtrls, ToolWin, Menus, StdCtrls, Dialogs, VirtualTrees, ComCtrls, ToolWin, Menus, StdCtrls,
LResources, Printers, PrintersDlgs, ExtCtrls; LResources, Printers, PrintersDlgs, ExtCtrls;
@ -266,7 +266,8 @@ end;
procedure TWindowsXPForm.Label4Click(Sender: TObject); procedure TWindowsXPForm.Label4Click(Sender: TObject);
begin begin
ShellExecute(0, 'open', 'http://groups.yahoo.com/group/VirtualExplorerTree', nil, nil, SW_SHOW); //todo
//ShellExecute(0, 'open', 'http://groups.yahoo.com/group/VirtualExplorerTree', nil, nil, SW_SHOW);
end; end;
//---------------------------------------------------------------------------------------------------------------------- //----------------------------------------------------------------------------------------------------------------------