pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

* Fixed compilation of Advanced demo in gtk

Browse Source 
* Fixed compilation with fpc 214 under gtk
* Disabled screen store in hint activation under gtk
* Removed VirtualTrees.DrawTextW

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@177 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
blikblum
2007-06-03 15:13:22 +00:00
parent 341b29c6dc
commit 35e60b6fc2
32 changed files with 8939 additions and 9050 deletions
Download Patch File Download Diff File Expand all files Collapse all files

191
components/virtualtreeview-unstable/VirtualTrees.pas
View File

@ -3295,8 +3295,6 @@ function RegisterVTClipboardFormat(Description: string; TreeClass: TVirtualTreeC
// utility routines // utility routines
procedure AlphaBlend(Source, Destination: HDC; R: TRect; Target: TPoint; Mode: TBlendMode; ConstantAlpha, Bias: Integer); procedure AlphaBlend(Source, Destination: HDC; R: TRect; Target: TPoint; Mode: TBlendMode; ConstantAlpha, Bias: Integer);
procedure DrawTextW(DC: HDC; lpString: PWideChar; nCount: Integer; var lpRect: TRect; uFormat: Cardinal;
AdjustRight: Boolean);
{$ifdef EnablePrint} {$ifdef EnablePrint}
procedure PrtStretchDrawDIB(Canvas: TCanvas; DestRect: TRect; ABitmap: TBitmap); procedure PrtStretchDrawDIB(Canvas: TCanvas; DestRect: TRect; ABitmap: TBitmap);
{$endif} {$endif}
@ -3977,146 +3975,6 @@ end;
//---------------------------------------------------------------------------------------------------------------------- //----------------------------------------------------------------------------------------------------------------------
procedure DrawTextW(DC: HDC; lpString: PWideChar; nCount: Integer; var lpRect: TRect; uFormat: Cardinal;
AdjustRight: Boolean);
// This procedure implements a subset of Window's DrawText API for Unicode which is not available for
// Windows 9x. For a description of the parameters see DrawText in the online help.
// Supported flags are currently:
// - DT_LEFT
// - DT_TOP
// - DT_CALCRECT
// - DT_NOCLIP
// - DT_RTLREADING
// - DT_SINGLELINE
// - DT_VCENTER
// Differences to the DrawTextW Windows API:
// - The additional parameter AdjustRight determines whether to adjust the right border of the given rectangle to
// accomodate the largest line in the text. It has only a meaning if also DT_CALCRECT is specified.
var
Head, Tail: PWideChar;
Size: TSize;
MaxWidth: Integer;
TextOutFlags: Integer;
TextAlign,
OldTextAlign: Cardinal;
TM: TTextMetric;
TextHeight: Integer;
LineRect: TRect;
TextPosY,
TextPosX: Integer;
CalculateRect: Boolean;
begin
// Prepare some work variables.
MaxWidth := 0;
Head := lpString;
GetTextMetrics(DC, TM);
TextHeight := TM.tmHeight;
if uFormat and DT_SINGLELINE <> 0 then
LineRect := lpRect
else
LineRect := Rect(lpRect.Left, lpRect.Top, lpRect.Right, lpRect.Top + TextHeight);
CalculateRect := uFormat and DT_CALCRECT <> 0;
// Prepare text output.
TextOutFlags := 0;
if uFormat and DT_NOCLIP = 0 then
TextOutFlags := TextOutFlags or ETO_CLIPPED;
if uFormat and DT_RTLREADING <> 0 then
TextOutFlags := TextOutFlags or ETO_RTLREADING;
// Determine horizontal and vertical text alignment.
OldTextAlign := GetTextAlign(DC);
TextAlign := TA_LEFT or TA_TOP;
TextPosX := lpRect.Left;
if uFormat and DT_RIGHT <> 0 then
begin
TextAlign := TextAlign or TA_RIGHT and not TA_LEFT;
TextPosX := lpRect.Right;
end
else
if uFormat and DT_CENTER <> 0 then
begin
TextAlign := TextAlign or TA_CENTER and not TA_LEFT;
TextPosX := (lpRect.Left + lpRect.Right) div 2;
end;
TextPosY := lpRect.Top;
if uFormat and DT_VCENTER <> 0 then
begin
// Note: vertical alignment does only work with single line text ouput!
TextPosY := (lpRect.Top + lpRect.Bottom - TextHeight) div 2;
end;
SetTextAlign(DC, TextAlign);
if uFormat and DT_SINGLELINE <> 0 then
begin
if CalculateRect then
begin
GetTextExtentPoint32W(DC, Head, nCount, Size);
if Size.cx > MaxWidth then
MaxWidth := Size.cx;
end
else
ExtTextOutW(DC, TextPosX, TextPosY, TextOutFlags, @LineRect, Head, nCount, nil);
OffsetRect(LineRect, 0, TextHeight);
end
else
begin
while (nCount > 0) and (Head^ <> WideNull) do
begin
Tail := Head;
// Look for the end of the current line. A line is finished either by the string end or a line break.
while (nCount > 0) and not (Tail^ in [WideNull, WideCR, WideLF]) and (Tail^ <> WideLineSeparator) do
begin
Inc(Tail);
Dec(nCount);
end;
if CalculateRect then
begin
GetTextExtentPoint32W(DC, Head, Tail - Head, Size);
if Size.cx > MaxWidth then
MaxWidth := Size.cx;
end
else
ExtTextOutW(DC, TextPosX, LineRect.Top, TextOutFlags, @LineRect, Head, Tail - Head, nil);
OffsetRect(LineRect, 0, TextHeight);
// Get out of the loop if the rectangle is filled up.
if (nCount = 0) or (not CalculateRect and (LineRect.Top >= lpRect.Bottom)) then
Break;
if (nCount > 0) and (Tail^ = WideCR) or (Tail^ = WideLineSeparator) then
begin
Inc(Tail);
Dec(nCount);
end;
if (nCount > 0) and (Tail^ = WideLF) then
begin
Inc(Tail);
Dec(nCount);
end;
Head := Tail;
end;
end;
SetTextAlign(DC, OldTextAlign);
if CalculateRect then
begin
if AdjustRight then
lpRect.Right := lpRect.Left + MaxWidth;
lpRect.Bottom := LineRect.Top;
end;
end;
//----------------------------------------------------------------------------------------------------------------------
function ShortenString(DC: HDC; const S: WideString; Width: Integer; EllipsisWidth: Integer = 0): WideString; function ShortenString(DC: HDC; const S: WideString; Width: Integer; EllipsisWidth: Integer = 0): WideString;
// Adjusts the given string S so that it fits into the given width. EllipsisWidth gives the width of // Adjusts the given string S so that it fits into the given width. EllipsisWidth gives the width of
@ -6661,10 +6519,8 @@ begin
R.Top := Y; R.Top := Y;
if Assigned(Node) and (LineBreakStyle = hlbForceMultiLine) then if Assigned(Node) and (LineBreakStyle = hlbForceMultiLine) then
DrawFormat := DrawFormat or DT_WORDBREAK; DrawFormat := DrawFormat or DT_WORDBREAK;
if IsWinNT then
DelphiCompat.DrawTextW(Handle, PWideChar(HintText), Length(HintText), R, DrawFormat) DrawTextW(Handle, PWideChar(HintText), Length(HintText), R, DrawFormat)
else
DrawTextW(Handle, PWideChar(HintText), Length(HintText), R, DrawFormat, False);
end; end;
end; end;
end; end;
@ -6831,6 +6687,8 @@ begin
FHintData.Tree.Update; FHintData.Tree.Update;
{$ifdef Windows}
//todo: implement this under gtk
// capture screen // capture screen
DC := GetDC(0); DC := GetDC(0);
try try
@ -6839,6 +6697,7 @@ begin
finally finally
ReleaseDC(0, DC); ReleaseDC(0, DC);
end; end;
{$endif}
SetWindowPos(Handle, HWND_TOPMOST, Rect.Left, Rect.Top, Width, Height, SWP_SHOWWINDOW or SWP_NOACTIVATE); SetWindowPos(Handle, HWND_TOPMOST, Rect.Left, Rect.Top, Width, Height, SWP_SHOWWINDOW or SWP_NOACTIVATE);
with FHintData.Tree do with FHintData.Tree do
@ -6958,10 +6817,7 @@ begin
// We don't have Unicode word wrap on the latter so the tooltip gets as wide as the largest line // We don't have Unicode word wrap on the latter so the tooltip gets as wide as the largest line
// in the caption (limited by carriage return), which results in unoptimal overlay of the tooltip. // in the caption (limited by carriage return), which results in unoptimal overlay of the tooltip.
// On Windows NT the tooltip exactly overlays the node text. // On Windows NT the tooltip exactly overlays the node text.
if IsWinNT then DrawTextW(Canvas.Handle, PWideChar(HintText), Length(HintText), R, DT_CALCRECT or DT_WORDBREAK);
DelphiCompat.DrawTextW(Canvas.Handle, PWideChar(HintText), Length(HintText), R, DT_CALCRECT or DT_WORDBREAK)
else
DrawTextW(Canvas.Handle, PWideChar(HintText), Length(HintText), R, DT_CALCRECT, True);
if BidiMode = bdLeftToRight then if BidiMode = bdLeftToRight then
Result.Right := R.Right + Tree.FTextMargin Result.Right := R.Right + Tree.FTextMargin
else else
@ -7000,10 +6856,7 @@ begin
// Start with the base size of the hint in client coordinates. // Start with the base size of the hint in client coordinates.
Result := Rect(0, 0, MaxWidth, FTextHeight); Result := Rect(0, 0, MaxWidth, FTextHeight);
// Calculate the true size of the text rectangle. // Calculate the true size of the text rectangle.
if IsWinNT then DrawTextW(Canvas.Handle, PWideChar(HintText), Length(HintText), Result, DT_CALCRECT);
DelphiCompat.DrawTextW(Canvas.Handle, PWideChar(HintText), Length(HintText), Result, DT_CALCRECT)
else
DrawTextW(Canvas.Handle, PWideChar(HintText), Length(HintText), Result, DT_CALCRECT, True);
// The height of the text plus 2 pixels vertical margin plus the border determine the hint window height. // The height of the text plus 2 pixels vertical margin plus the border determine the hint window height.
Inc(Result.Bottom, 6); Inc(Result.Bottom, 6);
// The text is centered horizontally with usual text margin for left and right borders (plus border). // The text is centered horizontally with usual text margin for left and right borders (plus border).
@ -8822,16 +8675,10 @@ begin
begin begin
OffsetRect(Bounds, 1, 1); OffsetRect(Bounds, 1, 1);
SetTextColor(DC, ColorToRGB(clBtnHighlight)); SetTextColor(DC, ColorToRGB(clBtnHighlight));
if IsWinNT then DrawTextW(DC, PWideChar(Caption), Length(Caption), Bounds, DrawFormat);
DelphiCompat.DrawTextW(DC, PWideChar(Caption), Length(Caption), Bounds, DrawFormat)
else
DrawTextW(DC, PWideChar(Caption), Length(Caption), Bounds, DrawFormat, False);
OffsetRect(Bounds, -1, -1); OffsetRect(Bounds, -1, -1);
SetTextColor(DC, ColorToRGB(clBtnShadow)); SetTextColor(DC, ColorToRGB(clBtnShadow));
if IsWinNT then DrawTextW(DC, PWideChar(Caption), Length(Caption), Bounds, DrawFormat);
DelphiCompat.DrawTextW(DC, PWideChar(Caption), Length(Caption), Bounds, DrawFormat)
else
DrawTextW(DC, PWideChar(Caption), Length(Caption), Bounds, DrawFormat, False);
end end
else else
begin begin
@ -8839,10 +8686,7 @@ begin
SetTextColor(DC, ColorToRGB(FHeader.Treeview.FColors.HeaderHotColor)) SetTextColor(DC, ColorToRGB(FHeader.Treeview.FColors.HeaderHotColor))
else else
SetTextColor(DC, ColorToRGB(FHeader.FFont.Color)); SetTextColor(DC, ColorToRGB(FHeader.FFont.Color));
if IsWinNT then DrawTextW(DC, PWideChar(Caption), Length(Caption), Bounds, DrawFormat);
DelphiCompat.DrawTextW(DC, PWideChar(Caption), Length(Caption), Bounds, DrawFormat)
else
DrawTextW(DC, PWideChar(Caption), Length(Caption), Bounds, DrawFormat, False);
end; end;
end; end;
@ -30215,10 +30059,7 @@ begin
SetBkMode(Canvas.Handle, TRANSPARENT) SetBkMode(Canvas.Handle, TRANSPARENT)
else else
SetBkMode(Canvas.Handle, OPAQUE); SetBkMode(Canvas.Handle, OPAQUE);
if IsWinNT then DrawTextW(Canvas.Handle, PWideChar(Text), Length(Text), R, DrawFormat)
DelphiCompat.DrawTextW(Canvas.Handle, PWideChar(Text), Length(Text), R, DrawFormat)
else
DrawTextW(Canvas.Handle, PWideChar(Text), Length(Text), R, DrawFormat, False);
end; end;
Logger.ExitMethod([lcPaintDetails],'PaintStaticText'); Logger.ExitMethod([lcPaintDetails],'PaintStaticText');
end; end;
@ -30575,10 +30416,7 @@ procedure TCustomVirtualStringTree.DoTextDrawing(var PaintInfo: TVTPaintInfo; Te
DrawFormat: Cardinal); DrawFormat: Cardinal);
begin begin
if IsWinNT then DrawTextW(PaintInfo.Canvas.Handle, PWideChar(Text), Length(Text), CellRect, DrawFormat);
DelphiCompat.DrawTextW(PaintInfo.Canvas.Handle, PWideChar(Text), Length(Text), CellRect, DrawFormat)
else
DrawTextW(PaintInfo.Canvas.Handle, PWideChar(Text), Length(Text), CellRect, DrawFormat, False);
end; end;
//---------------------------------------------------------------------------------------------------------------------- //----------------------------------------------------------------------------------------------------------------------
@ -30821,10 +30659,7 @@ begin
DrawFormat := DrawFormat or DT_RIGHT or DT_RTLREADING DrawFormat := DrawFormat or DT_RIGHT or DT_RTLREADING
else else
DrawFormat := DrawFormat or DT_LEFT; DrawFormat := DrawFormat or DT_LEFT;
if IsWinNT then DrawTextW(Canvas.Handle, PWideChar(S), Length(S), PaintInfo.CellRect, DrawFormat);
DelphiCompat.DrawTextW(Canvas.Handle, PWideChar(S), Length(S), PaintInfo.CellRect, DrawFormat)
else
DrawTextW(Canvas.Handle, PWideChar(S), Length(S), PaintInfo.CellRect, DrawFormat, False);
Result := PaintInfo.CellRect.Bottom - PaintInfo.CellRect.Top; Result := PaintInfo.CellRect.Bottom - PaintInfo.CellRect.Top;
end; end;

3
components/virtualtreeview-unstable/demos/advanced/Advanced.lpi
View File

@ -1,7 +1,7 @@
<?xml version="1.0"?> <?xml version="1.0"?>
<CONFIG> <CONFIG>
<ProjectOptions> <ProjectOptions>
<PathDelim Value="\"/> <PathDelim Value="/"/>
<Version Value="5"/> <Version Value="5"/>
<General> <General>
<Flags> <Flags>
@ -155,7 +155,6 @@
</ProjectOptions> </ProjectOptions>
<CompilerOptions> <CompilerOptions>
<Version Value="5"/> <Version Value="5"/>
<PathDelim Value="\"/>
<CodeGeneration> <CodeGeneration>
<Generate Value="Faster"/> <Generate Value="Faster"/>
</CodeGeneration> </CodeGeneration>

20
components/virtualtreeview-unstable/demos/advanced/DrawTreeDemo.lfm
View File

@ -1,7 +1,7 @@
object DrawTreeForm: TDrawTreeForm object DrawTreeForm: TDrawTreeForm
Left = 544 Left = 333
Height = 477 Height = 477
Top = 320 Top = 339
Width = 710 Width = 710
HorzScrollBar.Page = 709 HorzScrollBar.Page = 709
VertScrollBar.Page = 476 VertScrollBar.Page = 476
@ -24,9 +24,9 @@ object DrawTreeForm: TDrawTreeForm
end end
object Label1: TLabel object Label1: TLabel
Left = 4 Left = 4
Height = 14 Height = 17
Top = 385 Top = 382
Width = 199 Width = 298
Anchors = [akLeft, akBottom] Anchors = [akLeft, akBottom]
Caption = 'Adjust vertical image alignment of nodes:' Caption = 'Adjust vertical image alignment of nodes:'
Color = clNone Color = clNone
@ -34,9 +34,9 @@ object DrawTreeForm: TDrawTreeForm
end end
object Label3: TLabel object Label3: TLabel
Left = 424 Left = 424
Height = 14 Height = 17
Top = 385 Top = 382
Width = 24 Width = 33
Anchors = [akLeft, akBottom] Anchors = [akLeft, akBottom]
Caption = '50%' Caption = '50%'
Color = clNone Color = clNone
@ -108,8 +108,8 @@ object DrawTreeForm: TDrawTreeForm
end end
object TrackBar1: TTrackBar object TrackBar1: TTrackBar
Left = 264 Left = 264
Height = 21 Height = 33
Top = 379 Top = 367
Width = 157 Width = 157
Max = 100 Max = 100
OnChange = TrackBar1Change OnChange = TrackBar1Change

121
components/virtualtreeview-unstable/demos/advanced/DrawTreeDemo.lrs
View File

@ -1,8 +1,8 @@
{ This is an automatically generated lazarus resource file } { 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'M'#1#6'Height'#3#221#1#3
+'Top'#3'@'#1#5'Width'#3#198#2#18'HorzScrollBar.Page'#3#197#2#18'VertScrollBa' +'Top'#3'S'#1#5'Width'#3#198#2#18'HorzScrollBar.Page'#3#197#2#18'VertScrollBa'
+'r.Page'#3#220#1#13'ActiveControl'#7#4'VDT1'#7'Caption'#6#12'DrawTreeForm'#12 +'r.Page'#3#220#1#13'ActiveControl'#7#4'VDT1'#7'Caption'#6#12'DrawTreeForm'#12
+'ClientHeight'#3#221#1#11'ClientWidth'#3#198#2#11'Font.Height'#2#243#9'Font.' +'ClientHeight'#3#221#1#11'ClientWidth'#3#198#2#11'Font.Height'#2#243#9'Font.'
+'Name'#6#12'Trebuchet MS'#8'OnCreate'#7#10'FormCreate'#0#6'TLabel'#6'Label7' +'Name'#6#12'Trebuchet MS'#8'OnCreate'#7#10'FormCreate'#0#6'TLabel'#6'Label7'
@ -11,63 +11,62 @@ LazarusResources.Add('TDrawTreeForm','FORMDATA',[
+'umbnails. By default this tree uses the image loader library GraphicEx to ' +'umbnails. By default this tree uses the image loader library GraphicEx to '
+'support many common image formats like png, gif etc. (see www.delphi-gems.c' +'support many common image formats like png, gif etc. (see www.delphi-gems.c'
+'om for more infos and download).'#5'Color'#7#6'clNone'#11'ParentColor'#8#8 +'om for more infos and download).'#5'Color'#7#6'clNone'#11'ParentColor'#8#8
+'WordWrap'#9#0#0#6'TLabel'#6'Label1'#4'Left'#2#4#6'Height'#2#14#3'Top'#3#129 +'WordWrap'#9#0#0#6'TLabel'#6'Label1'#4'Left'#2#4#6'Height'#2#17#3'Top'#3'~'#1
+#1#5'Width'#3#199#0#7'Anchors'#11#6'akLeft'#8'akBottom'#0#7'Caption'#6')Adju' +#5'Width'#3'*'#1#7'Anchors'#11#6'akLeft'#8'akBottom'#0#7'Caption'#6')Adjust '
+'st vertical image alignment of nodes:'#5'Color'#7#6'clNone'#11'ParentColor' +'vertical image alignment of nodes:'#5'Color'#7#6'clNone'#11'ParentColor'#8#0
+#8#0#0#6'TLabel'#6'Label3'#4'Left'#3#168#1#6'Height'#2#14#3'Top'#3#129#1#5'W' +#0#6'TLabel'#6'Label3'#4'Left'#3#168#1#6'Height'#2#17#3'Top'#3'~'#1#5'Width'
+'idth'#2#24#7'Anchors'#11#6'akLeft'#8'akBottom'#0#7'Caption'#6#3'50%'#5'Colo' +#2'!'#7'Anchors'#11#6'akLeft'#8'akBottom'#0#7'Caption'#6#3'50%'#5'Color'#7#6
+'r'#7#6'clNone'#11'ParentColor'#8#0#0#16'TVirtualDrawTree'#4'VDT1'#4'Left'#2 +'clNone'#11'ParentColor'#8#0#0#16'TVirtualDrawTree'#4'VDT1'#4'Left'#2#10#6'H'
+#10#6'Height'#3#22#1#3'Top'#2'T'#5'Width'#3#172#2#7'Anchors'#11#5'akTop'#6'a' +'eight'#3#22#1#3'Top'#2'T'#5'Width'#3#172#2#7'Anchors'#11#5'akTop'#6'akLeft'
+'kLeft'#7'akRight'#8'akBottom'#0#15'AutoExpandDelay'#3#200#0#15'AutoScrollDe' +#7'akRight'#8'akBottom'#0#15'AutoExpandDelay'#3#200#0#15'AutoScrollDelay'#3
+'lay'#3#200#0#24'ClipboardFormats.Strings'#1#6#17'Virtual Tree Data'#0#18'Co' +#200#0#24'ClipboardFormats.Strings'#1#6#17'Virtual Tree Data'#0#18'Colors.Bo'
+'lors.BorderColor'#7#12'clWindowText'#15'Colors.HotColor'#7#7'clBlack'#20'Co' +'rderColor'#7#12'clWindowText'#15'Colors.HotColor'#7#7'clBlack'#20'Colors.Tr'
+'lors.TreeLineColor'#7#9'clBtnFace'#17'DefaultNodeHeight'#2' '#20'Header.Aut' +'eeLineColor'#7#9'clBtnFace'#17'DefaultNodeHeight'#2' '#20'Header.AutoSizeIn'
+'oSizeIndex'#2#255#17'Header.Background'#7#14'clBtnHighlight'#13'Header.Heig' +'dex'#2#255#17'Header.Background'#7#14'clBtnHighlight'#13'Header.Height'#2#22
+'ht'#2#22#14'Header.Options'#11#14'hoColumnResize'#16'hoDblClickResize'#6'ho' +#14'Header.Options'#11#14'hoColumnResize'#16'hoDblClickResize'#6'hoDrag'#14
+'Drag'#14'hoRestrictDrag'#16'hoShowSortGlyphs'#9'hoVisible'#0#17'Header.Pare' +'hoRestrictDrag'#16'hoShowSortGlyphs'#9'hoVisible'#0#17'Header.ParentFont'#9
+'ntFont'#9#12'Header.Style'#7#8'hsPlates'#13'HintAnimation'#7#7'hatNone'#8'H' +#12'Header.Style'#7#8'hsPlates'#13'HintAnimation'#7#7'hatNone'#8'HintMode'#7
+'intMode'#7#6'hmHint'#6'Images'#7#12'SystemImages'#17'IncrementalSearch'#7#5 +#6'hmHint'#6'Images'#7#12'SystemImages'#17'IncrementalSearch'#7#5'isAll'#6'I'
+'isAll'#6'Indent'#2#20#8'LineMode'#7#7'lmBands'#14'ParentShowHint'#8#13'Root' +'ndent'#2#20#8'LineMode'#7#7'lmBands'#14'ParentShowHint'#8#13'RootNodeCount'
+'NodeCount'#2#10'"ScrollBarOptions.VerticalIncrement'#2' '#8'ShowHint'#9#8'T' +#2#10'"ScrollBarOptions.VerticalIncrement'#2' '#8'ShowHint'#9#8'TabOrder'#2#0
+'abOrder'#2#0#28'TreeOptions.AnimationOptions'#11#16'toAnimatedToggle'#0#23 +#28'TreeOptions.AnimationOptions'#11#16'toAnimatedToggle'#0#23'TreeOptions.A'
+'TreeOptions.AutoOptions'#11#16'toAutoDropExpand'#12'toAutoScroll'#20'toAuto' +'utoOptions'#11#16'toAutoDropExpand'#12'toAutoScroll'#20'toAutoScrollOnExpan'
+'ScrollOnExpand'#22'toAutoTristateTracking'#22'toAutoDeleteMovedNodes'#0#24 +'d'#22'toAutoTristateTracking'#22'toAutoDeleteMovedNodes'#0#24'TreeOptions.P'
+'TreeOptions.PaintOptions'#11#16'toShowBackground'#13'toShowButtons'#14'toSh' +'aintOptions'#11#16'toShowBackground'#13'toShowButtons'#14'toShowDropmark'#19
+'owDropmark'#19'toShowHorzGridLines'#10'toShowRoot'#15'toShowTreeLines'#19't' +'toShowHorzGridLines'#10'toShowRoot'#15'toShowTreeLines'#19'toShowVertGridLi'
+'oShowVertGridLines'#12'toThemeAware'#0#28'TreeOptions.SelectionOptions'#11 +'nes'#12'toThemeAware'#0#28'TreeOptions.SelectionOptions'#11#15'toFullRowSel'
+#15'toFullRowSelect'#0#14'OnCompareNodes'#7#16'VDT1CompareNodes'#10'OnDrawHi' +'ect'#0#14'OnCompareNodes'#7#16'VDT1CompareNodes'#10'OnDrawHint'#7#12'VDT1Dr'
+'nt'#7#12'VDT1DrawHint'#10'OnDrawNode'#7#12'VDT1DrawNode'#10'OnFreeNode'#7#12 +'awHint'#10'OnDrawNode'#7#12'VDT1DrawNode'#10'OnFreeNode'#7#12'VDT1FreeNode'
+'VDT1FreeNode'#13'OnGetHintSize'#7#15'VDT1GetHintSize'#15'OnGetImageIndex'#7 +#13'OnGetHintSize'#7#15'VDT1GetHintSize'#15'OnGetImageIndex'#7#17'VDT1GetIma'
+#17'VDT1GetImageIndex'#14'OnGetNodeWidth'#7#16'VDT1GetNodeWidth'#13'OnHeader' +'geIndex'#14'OnGetNodeWidth'#7#16'VDT1GetNodeWidth'#13'OnHeaderClick'#7#15'V'
+'Click'#7#15'VDT1HeaderClick'#14'OnInitChildren'#7#16'VDT1InitChildren'#10'O' +'DT1HeaderClick'#14'OnInitChildren'#7#16'VDT1InitChildren'#10'OnInitNode'#7
+'nInitNode'#7#12'VDT1InitNode'#13'OnStateChange'#7#15'VDT1StateChange'#7'Col' +#12'VDT1InitNode'#13'OnStateChange'#7#15'VDT1StateChange'#7'Columns'#14#1#7
+'umns'#14#1#7'Options'#11#12'coAllowClick'#9'coEnabled'#13'coParentColor'#11 +'Options'#11#12'coAllowClick'#9'coEnabled'#13'coParentColor'#11'coResizable'
+'coResizable'#14'coShowDropMark'#9'coVisible'#0#5'Width'#3#217#0#8'WideText' +#14'coShowDropMark'#9'coVisible'#0#5'Width'#3#217#0#8'WideText'#18#15#0#0#0
+#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 +'I'#0'm'#0'a'#0'g'#0'e'#0' '#0'f'#0'i'#0'l'#0'e'#0' '#0'n'#0'a'#0'm'#0'e'#0#0
+'m'#0'e'#0#0#1#8'Position'#2#1#5'Width'#3#200#0#8'WideText'#18#9#0#0#0'T'#0 +#1#8'Position'#2#1#5'Width'#3#200#0#8'WideText'#18#9#0#0#0'T'#0'h'#0'u'#0'm'
+'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 +#0'b'#0'n'#0'a'#0'i'#0'l'#0#0#1#8'Position'#2#2#5'Width'#3#160#0#8'WideText'
+#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 +#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'TTr'
+#0#0#0#9'TTrackBar'#9'TrackBar1'#4'Left'#3#8#1#6'Height'#2#21#3'Top'#3'{'#1#5 +'ackBar'#9'TrackBar1'#4'Left'#3#8#1#6'Height'#2'!'#3'Top'#3'o'#1#5'Width'#3
+'Width'#3#157#0#3'Max'#2'd'#8'OnChange'#7#15'TrackBar1Change'#8'Position'#2 +#157#0#3'Max'#2'd'#8'OnChange'#7#15'TrackBar1Change'#8'Position'#2'2'#8'Scal'
+'2'#8'ScalePos'#7#5'trTop'#9'TickStyle'#7#6'tsNone'#7'Anchors'#11#6'akLeft'#8 +'ePos'#7#5'trTop'#9'TickStyle'#7#6'tsNone'#7'Anchors'#11#6'akLeft'#8'akBotto'
+'akBottom'#0#8'TabOrder'#2#1#0#0#10'TImageList'#12'SystemImages'#4'left'#3 +'m'#0#8'TabOrder'#2#1#0#0#10'TImageList'#12'SystemImages'#4'left'#3#194#1#3
+#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 +'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'/*'
+#0#0'/* XPM */'#10'static char *graphic[] = {'#10'"16 16 44 1",'#10'". c Non' +' XPM */'#10'static char *graphic[] = {'#10'"16 16 44 1",'#10'". c None",'#10
+'e",'#10'", c #CC9933",'#10'"- c #CB9832",'#10'"* c #C99630",'#10'"a c #C794' +'", c #CC9933",'#10'"- c #CB9832",'#10'"* c #C99630",'#10'"a c #C7942E",'#10
+'2E",'#10'"b c #FFFFFF",'#10'"c c #C28F29",'#10'"d c #FFFF99",'#10'"e c #BD8' +'"b c #FFFFFF",'#10'"c c #C28F29",'#10'"d c #FFFF99",'#10'"e c #BD8A24",'#10
+'A24",'#10'"f c #BA8721",'#10'"g c #B7841E",'#10'"h c #B5821C",'#10'"i c #B3' +'"f c #BA8721",'#10'"g c #B7841E",'#10'"h c #B5821C",'#10'"i c #B3801A",'#10
+'801A",'#10'"j c #B07D17",'#10'"k c #FFF791",'#10'"l c #FFF48E",'#10'"m c #A' +'"j c #B07D17",'#10'"k c #FFF791",'#10'"l c #FFF48E",'#10'"m c #AE7B15",'#10
+'E7B15",'#10'"n c #FFEB85",'#10'"o c #FFE680",'#10'"p c #C5922C",'#10'"q c #' +'"n c #FFEB85",'#10'"o c #FFE680",'#10'"p c #C5922C",'#10'"q c #C08D27",'#10
+'C08D27",'#10'"r c #BC8923",'#10'"s c #B8851F",'#10'"t c #B4811B",'#10'"u c ' +'"r c #BC8923",'#10'"s c #B8851F",'#10'"t c #B4811B",'#10'"u c #FFE07A",'#10
+'#FFE07A",'#10'"v c #A3700A",'#10'"w c #FFD46E",'#10'"x c #F8C55F",'#10'"y c' +'"v c #A3700A",'#10'"w c #FFD46E",'#10'"x c #F8C55F",'#10'"y c #A06D07",'#10
+' #A06D07",'#10'"z c #030303",'#10'"A c #FFCC66",'#10'"B c #EFBC56",'#10'"C ' +'"z c #030303",'#10'"A c #FFCC66",'#10'"B c #EFBC56",'#10'"C c #9E6B05",'#10
+'c #9E6B05",'#10'"D c #E6B34D",'#10'"E c #9C6903",'#10'"F c #BF8C26",'#10'"G' +'"D c #E6B34D",'#10'"E c #9C6903",'#10'"F c #BF8C26",'#10'"G c #DCA943",'#10
+' c #DCA943",'#10'"H c #9A6701",'#10'"I c #D3A03A",'#10'"J c #996600",'#10'"' +'"H c #9A6701",'#10'"I c #D3A03A",'#10'"J c #996600",'#10'"K c #AB7812",'#10
+'K c #AB7812",'#10'"L c #A8750F",'#10'"M c #A5720C",'#10'"N c #020202",'#10 +'"L c #A8750F",'#10'"M c #A5720C",'#10'"N c #020202",'#10'"................"'
+'"................",'#10'"................",'#10'"..,-*a..........",'#10'".,' +','#10'"................",'#10'"..,-*a..........",'#10'".,bbbbc.........",'
,'bbbbc.........",'#10'",bddddbefghij...",'#10'"-klllllbbbbbm...",'#10'"*nopp' ,#10'",bddddbefghij...",'#10'"-klllllbbbbbm...",'#10'"*noppppppqrstii.",'#10
+'ppppqrstii.",'#10'"aupbbbbbbbbbobv.",'#10'"pw,dddddddddxdyz",'#10'"cA-dkkkk' +'"aupbbbbbbbbbobv.",'#10'"pw,dddddddddxdyz",'#10'"cA-dkkkkkkkkBdCz",'#10'"qA'
+'kkkkBdCz",'#10'"qApdnnnnnnnnDdEz",'#10'"eAFduuuuuuuuGdHz",'#10'"fAsdwwwwwww' +'pdnnnnnnnnDdEz",'#10'"eAFduuuuuuuuGdHz",'#10'"fAsdwwwwwwwwIdJz",'#10'".hijm'
+'wIdJz",'#10'".hijmKLMvyCEHJN.",'#10'"...zzzzzzzzzzz..",'#10'"..............' +'KLMvyCEHJN.",'#10'"...zzzzzzzzzzz..",'#10'"................"}'#10#0#0#0
+'.."}'#10#0#0#0
]); ]);

19
components/virtualtreeview-unstable/demos/advanced/DrawTreeDemo.pas
View File

@ -30,9 +30,9 @@ interface
uses uses
{$ifdef Windows} {$ifdef Windows}
Windows, Windows,
{$endif} Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, {$endif}
VirtualTrees, StdCtrls, JPEGLib, LCLIntf, delphicompat, LCLType, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ImgList, ComCtrls, shlobjext, LResources; VirtualTrees, StdCtrls, ComCtrls, shlobjext, LResources;
type type
TDrawTreeForm = class(TForm) TDrawTreeForm = class(TForm)
@ -107,7 +107,8 @@ var
SR: TSearchRec; SR: TSearchRec;
begin begin
Result := FindFirst(IncludeTrailingPathDelimiter(Folder) + '*.*', faAnyFile, SR) = 0; Result := FindFirst(IncludeTrailingPathDelimiter(Folder) + {$ifdef Windows}'*.*'{$else}'*'{$endif},
faAnyFile, SR) = 0;
if Result then if Result then
FindClose(SR); FindClose(SR);
end; end;
@ -117,10 +118,10 @@ end;
function GetIconIndex(Name: string; Flags: Cardinal): Integer; function GetIconIndex(Name: string; Flags: Cardinal): Integer;
// Returns the index of the system icon for the given file object. // Returns the index of the system icon for the given file object.
{
var var
SFI: TSHFileInfo; SFI: TSHFileInfo;
}
begin begin
//todo //todo
{ {
@ -168,7 +169,6 @@ begin
BufferSize := GetLogicalDriveStrings(0, nil); BufferSize := GetLogicalDriveStrings(0, nil);
SetLength(DriveStrings, BufferSize); SetLength(DriveStrings, BufferSize);
GetLogicalDriveStrings(BufferSize, PChar(DriveStrings)); GetLogicalDriveStrings(BufferSize, PChar(DriveStrings));
{$else} {$else}
DriveCount := 1; DriveCount := 1;
DriveStrings := '/'; DriveStrings := '/';
@ -471,7 +471,7 @@ begin
if (NodeWidth - 2 * Margin) > (Right - Left) then if (NodeWidth - 2 * Margin) > (Right - Left) then
S := ShortenString(Canvas.Handle, S, Right - Left); S := ShortenString(Canvas.Handle, S, Right - Left);
end; end;
DrawTextW(Canvas.Handle, PWideChar(S), Length(S), R, DT_TOP or DT_LEFT or DT_VCENTER or DT_SINGLELINE, False); DrawTextW(Canvas.Handle, PWideChar(S), Length(S), R, DT_TOP or DT_LEFT or DT_VCENTER or DT_SINGLELINE);
end; end;
end; end;
1: 1:
@ -539,7 +539,8 @@ var
begin begin
Data := Sender.GetNodeData(Node); Data := Sender.GetNodeData(Node);
if FindFirst(IncludeTrailingPathDelimiter(Data.FullPath) + '*.*', faAnyFile, SR) = 0 then if FindFirst(IncludeTrailingPathDelimiter(Data.FullPath) + {$ifdef Windows}'*.*'{$else}'*'{$endif},
faAnyFile, SR) = 0 then
begin begin
Screen.Cursor := crHourGlass; Screen.Cursor := crHourGlass;
try try

4
components/virtualtreeview-unstable/demos/advanced/Editors.pas
View File

@ -8,8 +8,8 @@ unit Editors;
interface interface
uses uses
LCLIntf, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, LCLIntf, delphicompat, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, VirtualTrees, ExtDlgs, ImgList, Buttons, ExtCtrls, ComCtrls, StdCtrls, VirtualTrees, ExtDlgs, Buttons, ExtCtrls, ComCtrls,
MaskEdit, LCLType; MaskEdit, LCLType;
type type

25
components/virtualtreeview-unstable/demos/advanced/GeneralAbilitiesDemo.lfm
View File

@ -15,20 +15,20 @@ object GeneralForm: TGeneralForm
OnCreate = FormCreate OnCreate = FormCreate
ShowHint = True ShowHint = True
object Label18: TLabel object Label18: TLabel
Left = 505 Left = 450
Height = 14 Height = 17
Top = 384 Top = 381
Width = 102 Width = 157
Anchors = [akRight, akBottom] Anchors = [akRight, akBottom]
Caption = 'Switch check images:' Caption = 'Switch check images:'
Color = clNone Color = clNone
ParentColor = False ParentColor = False
end end
object Label19: TLabel object Label19: TLabel
Left = 507 Left = 454
Height = 14 Height = 17
Top = 432 Top = 429
Width = 97 Width = 150
Anchors = [akRight, akBottom] Anchors = [akRight, akBottom]
Caption = 'Switch main column:' Caption = 'Switch main column:'
Color = clNone Color = clNone
@ -91,7 +91,7 @@ object GeneralForm: TGeneralForm
TabOrder = 0 TabOrder = 0
TreeOptions.AnimationOptions = [toAnimatedToggle] TreeOptions.AnimationOptions = [toAnimatedToggle]
TreeOptions.AutoOptions = [toAutoDropExpand, toAutoScroll, toAutoSpanColumns, toAutoTristateTracking, toAutoHideButtons, toDisableAutoscrollOnFocus, toAutoChangeScale] TreeOptions.AutoOptions = [toAutoDropExpand, toAutoScroll, toAutoSpanColumns, toAutoTristateTracking, toAutoHideButtons, toDisableAutoscrollOnFocus, toAutoChangeScale]
TreeOptions.MiscOptions = [toAcceptOLEDrop, toCheckSupport, toEditable, toInitOnSave, toToggleOnDblClick, toWheelPanning] TreeOptions.MiscOptions = [toCheckSupport, toEditable, toInitOnSave, toToggleOnDblClick, toWheelPanning]
TreeOptions.PaintOptions = [toHideSelection, toHotTrack, toShowButtons, toShowDropmark, toShowRoot, toShowTreeLines, toShowVertGridLines, toThemeAware, toUseBlendedImages, toFullVertGridLines, toUseBlendedSelection] TreeOptions.PaintOptions = [toHideSelection, toHotTrack, toShowButtons, toShowDropmark, toShowRoot, toShowTreeLines, toShowVertGridLines, toThemeAware, toUseBlendedImages, toFullVertGridLines, toUseBlendedSelection]
TreeOptions.SelectionOptions = [toExtendedFocus, toMiddleClickSelect, toMultiSelect, toRightClickSelect] TreeOptions.SelectionOptions = [toExtendedFocus, toMiddleClickSelect, toMultiSelect, toRightClickSelect]
TreeOptions.StringOptions = [toSaveCaptions, toShowStaticText, toAutoAcceptEditChange] TreeOptions.StringOptions = [toSaveCaptions, toShowStaticText, toAutoAcceptEditChange]
@ -142,7 +142,6 @@ object GeneralForm: TGeneralForm
Width = 200 Width = 200
Anchors = [akRight, akBottom] Anchors = [akRight, akBottom]
AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending] AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending]
ItemHeight = 13
Items.Strings = ( Items.Strings = (
'Light check marks' 'Light check marks'
'Dark check marks' 'Dark check marks'
@ -217,6 +216,8 @@ object GeneralForm: TGeneralForm
ChildSizing.ShrinkVertical = crsScaleChilds ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1 ChildSizing.ControlsPerLine = 1
ClientHeight = 56
ClientWidth = 201
ItemIndex = 0 ItemIndex = 0
Items.Strings = ( Items.Strings = (
'Usual +/- buttons and lines' 'Usual +/- buttons and lines'
@ -241,6 +242,8 @@ object GeneralForm: TGeneralForm
ChildSizing.ShrinkVertical = crsScaleChilds ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1 ChildSizing.ControlsPerLine = 1
ClientHeight = 56
ClientWidth = 201
ItemIndex = 1 ItemIndex = 1
Items.Strings = ( Items.Strings = (
'Dotted rectangle' 'Dotted rectangle'
@ -265,6 +268,8 @@ object GeneralForm: TGeneralForm
ChildSizing.ShrinkVertical = crsScaleChilds ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1 ChildSizing.ControlsPerLine = 1
ClientHeight = 56
ClientWidth = 201
Items.Strings = ( Items.Strings = (
'Theme aware' 'Theme aware'
'Not theme aware' 'Not theme aware'

1128
components/virtualtreeview-unstable/demos/advanced/GeneralAbilitiesDemo.lrs
View File

File diff suppressed because it is too large Load Diff

15
components/virtualtreeview-unstable/demos/advanced/GeneralAbilitiesDemo.pas
View File

@ -19,7 +19,6 @@ unit GeneralAbilitiesDemo;
interface interface
{.$include Compilers.inc}
{$ifdef COMPILER_7_UP} {$ifdef COMPILER_7_UP}
// For some things to work we need code, which is classified as being unsafe for .NET. // For some things to work we need code, which is classified as being unsafe for .NET.
@ -29,9 +28,9 @@ interface
{$endif COMPILER_7_UP} {$endif COMPILER_7_UP}
uses uses
LCLIntf, LCLType,Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, LCLIntf, LCLType, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Buttons, VTHeaderPopup, VirtualTrees, ComCtrls, ExtCtrls, ImgList, Menus, StdCtrls, Buttons, VTHeaderPopup, VirtualTrees, ComCtrls, ExtCtrls, Menus,
StdActns, ActnList, LResources; ActnList, LResources, ImgList;
type type
TGeneralForm = class(TForm) TGeneralForm = class(TForm)
@ -96,7 +95,9 @@ var
implementation implementation
uses uses
ShellAPI, Main, States; {$ifdef Windows}
ShellAPI,
{$endif} Main, States;
//---------------------------------------------------------------------------------------------------------------------- //----------------------------------------------------------------------------------------------------------------------
@ -123,7 +124,11 @@ var
begin begin
// Determine if we are running on Windows XP. // Determine if we are running on Windows XP.
{$ifdef Windows}
ThemeRadioGroup.Enabled := (Win32MajorVersion >= 5) and (Win32MinorVersion >= 1); ThemeRadioGroup.Enabled := (Win32MajorVersion >= 5) and (Win32MinorVersion >= 1);
{$else}
ThemeRadioGroup.Enabled := False;
{$endif}
if ThemeRadioGroup.Enabled then if ThemeRadioGroup.Enabled then
ThemeRadioGroup.ItemIndex := 0; ThemeRadioGroup.ItemIndex := 0;

15
components/virtualtreeview-unstable/demos/advanced/GridDemo.lfm
View File

@ -1,7 +1,7 @@
object GridForm: TGridForm object GridForm: TGridForm
Left = 411 Left = 341
Height = 432 Height = 432
Top = 338 Top = 353
Width = 736 Width = 736
HorzScrollBar.Page = 735 HorzScrollBar.Page = 735
VertScrollBar.Page = 431 VertScrollBar.Page = 431
@ -37,6 +37,7 @@ object GridForm: TGridForm
WordWrap = True WordWrap = True
end end
object VST5: TVirtualStringTree object VST5: TVirtualStringTree
Cursor = 63
Left = 8 Left = 8
Height = 384 Height = 384
Top = 6 Top = 6
@ -72,7 +73,7 @@ object GridForm: TGridForm
ShowHint = True ShowHint = True
TabOrder = 0 TabOrder = 0
TreeOptions.AutoOptions = [toAutoDropExpand, toAutoScroll, toAutoTristateTracking] TreeOptions.AutoOptions = [toAutoDropExpand, toAutoScroll, toAutoTristateTracking]
TreeOptions.MiscOptions = [toAcceptOLEDrop, toEditable, toGridExtensions, toInitOnSave, toToggleOnDblClick, toWheelPanning] TreeOptions.MiscOptions = [toEditable, toGridExtensions, toInitOnSave, toToggleOnDblClick, toWheelPanning]
TreeOptions.PaintOptions = [toHotTrack, toShowButtons, toShowDropmark, toShowHorzGridLines, toShowVertGridLines, toUseBlendedImages] TreeOptions.PaintOptions = [toHotTrack, toShowButtons, toShowDropmark, toShowHorzGridLines, toShowVertGridLines, toUseBlendedImages]
TreeOptions.SelectionOptions = [toDisableDrawSelection, toExtendedFocus, toMiddleClickSelect, toMultiSelect, toRightClickSelect, toCenterScrollIntoView] TreeOptions.SelectionOptions = [toDisableDrawSelection, toExtendedFocus, toMiddleClickSelect, toMultiSelect, toRightClickSelect, toCenterScrollIntoView]
WantTabs = True WantTabs = True
@ -116,10 +117,10 @@ object GridForm: TGridForm
end> end>
end end
object GridLineCheckBox: TCheckBox object GridLineCheckBox: TCheckBox
Left = 586 Left = 542
Height = 13 Height = 24
Top = 373 Top = 362
Width = 97 Width = 141
Anchors = [akRight, akBottom] Anchors = [akRight, akBottom]
Caption = 'Toggle grid lines' Caption = 'Toggle grid lines'
Checked = True Checked = True

110
components/virtualtreeview-unstable/demos/advanced/GridDemo.lrs
View File

@ -1,63 +1,63 @@
{ This is an automatically generated lazarus resource file } { 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'U'#1#6'Height'#3#176#1#3'Top'#3'a'#1
+#1#5'Width'#3#224#2#18'HorzScrollBar.Page'#3#223#2#18'VertScrollBar.Page'#3 +#5'Width'#3#224#2#18'HorzScrollBar.Page'#3#223#2#18'VertScrollBar.Page'#3#175
+#175#1#13'ActiveControl'#7#4'VST5'#7'Caption'#6#8'GridForm'#12'ClientHeight' +#1#13'ActiveControl'#7#4'VST5'#7'Caption'#6#8'GridForm'#12'ClientHeight'#3
+#3#176#1#11'ClientWidth'#3#224#2#11'Font.Height'#2#243#9'Font.Name'#6#13'MS ' +#176#1#11'ClientWidth'#3#224#2#11'Font.Height'#2#243#9'Font.Name'#6#13'MS Sa'
+'Sans Serif'#8'OnCreate'#7#10'FormCreate'#0#6'TLabel'#7'Label15'#4'Left'#3#12 +'ns Serif'#8'OnCreate'#7#10'FormCreate'#0#6'TLabel'#7'Label15'#4'Left'#3#12#2
+#2#6'Height'#3#153#0#3'Top'#2#8#5'Width'#3#195#0#7'Anchors'#11#5'akTop'#7'ak' +#6'Height'#3#153#0#3'Top'#2#8#5'Width'#3#195#0#7'Anchors'#11#5'akTop'#7'akRi'
+'Right'#0#8'AutoSize'#8#7'Caption'#6#255'This sample demonstrates the grid e' +'ght'#0#8'AutoSize'#8#7'Caption'#6#255'This sample demonstrates the grid ext'
+'xtensions introduced in Virtual Treeview. The main difference to normal mod' +'ensions introduced in Virtual Treeview. The main difference to normal mode '
+'e is the way cell content is handled (editing, selection etc.). In Grid mo' +'is the way cell content is handled (editing, selection etc.). In Grid mode'
+'de always the entire cell is used. Another point is the key handling .'#5'C' +' always the entire cell is used. Another point is the key handling .'#5'Col'
+'olor'#7#6'clNone'#11'ParentColor'#8#8'WordWrap'#9#0#0#6'TLabel'#6'Label1'#4 +'or'#7#6'clNone'#11'ParentColor'#8#8'WordWrap'#9#0#0#6'TLabel'#6'Label1'#4'L'
+'Left'#3#14#2#6'Height'#2'm'#3'Top'#3#168#0#5'Width'#3#195#0#7'Anchors'#11#5 +'eft'#3#14#2#6'Height'#2'm'#3'Top'#3#168#0#5'Width'#3#195#0#7'Anchors'#11#5
+'akTop'#7'akRight'#0#8'AutoSize'#8#7'Caption'#6'WThe main column in this sam' +'akTop'#7'akRight'#0#8'AutoSize'#8#7'Caption'#6'WThe main column in this sam'
+'ple is reduced to an indicator and is set as a fixed column.'#5'Color'#7#6 +'ple is reduced to an indicator and is set as a fixed column.'#5'Color'#7#6
+'clNone'#11'ParentColor'#8#8'WordWrap'#9#0#0#18'TVirtualStringTree'#4'VST5'#4 +'clNone'#11'ParentColor'#8#8'WordWrap'#9#0#0#18'TVirtualStringTree'#4'VST5'#6
+'Left'#2#8#6'Height'#3#128#1#3'Top'#2#6#5'Width'#3#243#1#7'Anchors'#11#5'akT' +'Cursor'#2'?'#4'Left'#2#8#6'Height'#3#128#1#3'Top'#2#6#5'Width'#3#243#1#7'An'
+'op'#6'akLeft'#7'akRight'#8'akBottom'#0#24'ClipboardFormats.Strings'#1#6#3'C' +'chors'#11#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0#24'ClipboardFormats.S'
+'SV'#6#11'HTML Format'#6#10'Plain text'#6#16'Rich Text Format'#6' Rich Text ' +'trings'#1#6#3'CSV'#6#11'HTML Format'#6#10'Plain text'#6#16'Rich Text Format'
+'Format Without Objects'#6#12'Unicode text'#6#17'Virtual Tree Data'#0#18'Col' +#6' Rich Text Format Without Objects'#6#12'Unicode text'#6#17'Virtual Tree D'
+'ors.BorderColor'#7#12'clWindowText'#15'Colors.HotColor'#7#7'clBlack'#17'Def' +'ata'#0#18'Colors.BorderColor'#7#12'clWindowText'#15'Colors.HotColor'#7#7'cl'
+'aultNodeHeight'#2#19#8'DragMode'#7#11'dmAutomatic'#9'EditDelay'#3','#1#11'F' +'Black'#17'DefaultNodeHeight'#2#19#8'DragMode'#7#11'dmAutomatic'#9'EditDelay'
+'ont.Height'#2#245#9'Font.Name'#6#20'Microsoft Sans Serif'#20'Header.AutoSiz' +#3','#1#11'Font.Height'#2#245#9'Font.Name'#6#20'Microsoft Sans Serif'#20'Hea'
+'eIndex'#2#2#17'Header.Background'#7#11'clBtnShadow'#18'Header.Font.Height'#2 +'der.AutoSizeIndex'#2#2#17'Header.Background'#7#11'clBtnShadow'#18'Header.Fo'
+#244#16'Header.Font.Name'#6#20'Microsoft Sans Serif'#14'Header.Options'#11#14 +'nt.Height'#2#244#16'Header.Font.Name'#6#20'Microsoft Sans Serif'#14'Header.'
+'hoColumnResize'#16'hoDblClickResize'#6'hoDrag'#12'hoShowImages'#9'hoVisible' +'Options'#11#14'hoColumnResize'#16'hoDblClickResize'#6'hoDrag'#12'hoShowImag'
+#0#12'Header.Style'#7#13'hsFlatButtons'#13'HintAnimation'#7#7'hatFade'#8'Hin' +'es'#9'hoVisible'#0#12'Header.Style'#7#13'hsFlatButtons'#13'HintAnimation'#7
+'tMode'#7#9'hmTooltip'#14'ParentShowHint'#8#13'RootNodeCount'#2'd'#30'Scroll' +#7'hatFade'#8'HintMode'#7#9'hmTooltip'#14'ParentShowHint'#8#13'RootNodeCount'
+'BarOptions.AlwaysVisible'#9#8'ShowHint'#9#8'TabOrder'#2#0#23'TreeOptions.Au' +#2'd'#30'ScrollBarOptions.AlwaysVisible'#9#8'ShowHint'#9#8'TabOrder'#2#0#23
+'toOptions'#11#16'toAutoDropExpand'#12'toAutoScroll'#22'toAutoTristateTracki' +'TreeOptions.AutoOptions'#11#16'toAutoDropExpand'#12'toAutoScroll'#22'toAuto'
+'ng'#0#23'TreeOptions.MiscOptions'#11#15'toAcceptOLEDrop'#10'toEditable'#16 +'TristateTracking'#0#23'TreeOptions.MiscOptions'#11#10'toEditable'#16'toGrid'
+'toGridExtensions'#12'toInitOnSave'#18'toToggleOnDblClick'#14'toWheelPanning' +'Extensions'#12'toInitOnSave'#18'toToggleOnDblClick'#14'toWheelPanning'#0#24
+#0#24'TreeOptions.PaintOptions'#11#10'toHotTrack'#13'toShowButtons'#14'toSho' +'TreeOptions.PaintOptions'#11#10'toHotTrack'#13'toShowButtons'#14'toShowDrop'
+'wDropmark'#19'toShowHorzGridLines'#19'toShowVertGridLines'#18'toUseBlendedI' +'mark'#19'toShowHorzGridLines'#19'toShowVertGridLines'#18'toUseBlendedImages'
+'mages'#0#28'TreeOptions.SelectionOptions'#11#22'toDisableDrawSelection'#15 +#0#28'TreeOptions.SelectionOptions'#11#22'toDisableDrawSelection'#15'toExten'
+'toExtendedFocus'#19'toMiddleClickSelect'#13'toMultiSelect'#18'toRightClickS' +'dedFocus'#19'toMiddleClickSelect'#13'toMultiSelect'#18'toRightClickSelect'
+'elect'#22'toCenterScrollIntoView'#0#8'WantTabs'#9#16'OnAfterCellPaint'#7#18 +#22'toCenterScrollIntoView'#0#8'WantTabs'#9#16'OnAfterCellPaint'#7#18'VST5Af'
+'VST5AfterCellPaint'#17'OnBeforeCellPaint'#7#19'VST5BeforeCellPaint'#17'OnBe' +'terCellPaint'#17'OnBeforeCellPaint'#7#19'VST5BeforeCellPaint'#17'OnBeforeIt'
+'foreItemErase'#7#19'VST5BeforeItemErase'#14'OnCreateEditor'#7#16'VST5Create' +'emErase'#7#19'VST5BeforeItemErase'#14'OnCreateEditor'#7#16'VST5CreateEditor'
+'Editor'#15'OnFocusChanging'#7#17'VST5FocusChanging'#9'OnGetText'#7#11'VST5G' +#15'OnFocusChanging'#7#17'VST5FocusChanging'#9'OnGetText'#7#11'VST5GetText'
+'etText'#11'OnPaintText'#7#13'VST5PaintText'#10'OnInitNode'#7#12'VST5InitNod' +#11'OnPaintText'#7#13'VST5PaintText'#10'OnInitNode'#7#12'VST5InitNode'#13'On'
+'e'#13'OnStateChange'#7#15'VST5StateChange'#7'Columns'#14#1#7'Options'#11#16 +'StateChange'#7#15'VST5StateChange'#7'Columns'#14#1#7'Options'#11#16'coParen'
+'coParentBidiMode'#9'coVisible'#7'coFixed'#0#5'Width'#2#20#0#1#6'Margin'#2#0 +'tBidiMode'#9'coVisible'#7'coFixed'#0#5'Width'#2#20#0#1#6'Margin'#2#0#8'Posi'
+#8'Position'#2#1#5'Width'#2'd'#8'WideText'#18#11#0#0#0'C'#0'u'#0's'#0't'#0'o' +'tion'#2#1#5'Width'#2'd'#8'WideText'#18#11#0#0#0'C'#0'u'#0's'#0't'#0'o'#0'm'
+#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 +#0'e'#0'r'#0' '#0'I'#0'D'#0#0#1#6'Margin'#2#0#8'Position'#2#2#5'Width'#2'x'#8
+'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 +'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#0#1
+#0#1#6'Margin'#2#0#8'Position'#2#3#5'Width'#2'x'#8'WideText'#18#9#0#0#0'L'#0 +#6'Margin'#2#0#8'Position'#2#3#5'Width'#2'x'#8'WideText'#18#9#0#0#0'L'#0'a'#0
+'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 +'s'#0't'#0' '#0'N'#0'a'#0'm'#0'e'#0#0#1#6'Margin'#2#0#8'Position'#2#4#5'Widt'
+'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 +'h'#2'd'#8'WideText'#18#10#0#0#0'O'#0'r'#0'd'#0'e'#0'r'#0' '#0'd'#0'a'#0't'#0
+'t'#0'e'#0#0#0#0#0#9'TCheckBox'#16'GridLineCheckBox'#4'Left'#3'J'#2#6'Height' +'e'#0#0#0#0#0#9'TCheckBox'#16'GridLineCheckBox'#4'Left'#3#30#2#6'Height'#2#24
+#2#13#3'Top'#3'u'#1#5'Width'#2'a'#7'Anchors'#11#7'akRight'#8'akBottom'#0#7'C' +#3'Top'#3'j'#1#5'Width'#3#141#0#7'Anchors'#11#7'akRight'#8'akBottom'#0#7'Cap'
+'aption'#6#17'Toggle grid lines'#7'Checked'#9#7'OnClick'#7#21'GridLineCheckB' +'tion'#6#17'Toggle grid lines'#7'Checked'#9#7'OnClick'#7#21'GridLineCheckBox'
+'oxClick'#5'State'#7#9'cbChecked'#8'TabOrder'#2#1#0#0#10'TImageList'#10'Tree' +'Click'#5'State'#7#9'cbChecked'#8'TabOrder'#2#1#0#0#10'TImageList'#10'TreeIm'
+'Images'#4'left'#2#22#3'top'#2'$'#6'Bitmap'#10#211#31#0#0'li'#18#0#0#0#16#0#0 +'ages'#4'left'#2#22#3'top'#2'$'#6'Bitmap'#10#211#31#0#0'li'#18#0#0#0#16#0#0#0
+#0#16#0#0#0#156#1#0#0'/* XPM */'#10'static char *graphic[] = {'#10'"16 16 3 ' +#16#0#0#0#156#1#0#0'/* XPM */'#10'static char *graphic[] = {'#10'"16 16 3 1"'
+'1",'#10'". c None",'#10'", c #000000",'#10'"- c #FFFFFF",'#10'"............' +','#10'". c None",'#10'", c #000000",'#10'"- c #FFFFFF",'#10'"..............'
+'....",'#10'"................",'#10'"...,,,,,,,,.....",'#10'"...,------,,...' +'..",'#10'"................",'#10'"...,,,,,,,,.....",'#10'"...,------,,...."'
+'.",'#10'"...,------,-,...",'#10'"...,------,,,,..",'#10'"...,---------,..",' +','#10'"...,------,-,...",'#10'"...,------,,,,..",'#10'"...,---------,..",'
+#10'"...,---------,..",'#10'"...,---------,..",'#10'"...,---------,..",'#10 +#10'"...,---------,..",'#10'"...,---------,..",'#10'"...,---------,..",'#10
+'"...,---------,..",'#10'"...,---------,..",'#10'"...,---------,..",'#10'"..' +'"...,---------,..",'#10'"...,---------,..",'#10'"...,---------,..",'#10'"..'
+'.,---------,..",'#10'"...,,,,,,,,,,,..",'#10'"................"}'#10#171#1#0 +'.,---------,..",'#10'"...,,,,,,,,,,,..",'#10'"................"}'#10#171#1#0

4
components/virtualtreeview-unstable/demos/advanced/GridDemo.pas
View File

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

2
components/virtualtreeview-unstable/demos/advanced/HeaderCustomDrawDemo.lfm
View File

@ -1,5 +1,5 @@
object HeaderOwnerDrawForm: THeaderOwnerDrawForm object HeaderOwnerDrawForm: THeaderOwnerDrawForm
Left = 572 Left = 494
Height = 440 Height = 440
Top = 407 Top = 407
Width = 776 Width = 776

14
components/virtualtreeview-unstable/demos/advanced/HeaderCustomDrawDemo.lrs
View File

@ -1,13 +1,13 @@
{ This is an automatically generated lazarus resource file } { This is an automatically generated lazarus resource file }
LazarusResources.Add('THeaderOwnerDrawForm','FORMDATA',[ LazarusResources.Add('THeaderOwnerDrawForm','FORMDATA',[
'TPF0'#20'THeaderOwnerDrawForm'#19'HeaderOwnerDrawForm'#4'Left'#3'<'#2#6'Heig' 'TPF0'#20'THeaderOwnerDrawForm'#19'HeaderOwnerDrawForm'#4'Left'#3#238#1#6'Hei'
+'ht'#3#184#1#3'Top'#3#151#1#5'Width'#3#8#3#18'HorzScrollBar.Page'#3#7#3#18'V' +'ght'#3#184#1#3'Top'#3#151#1#5'Width'#3#8#3#18'HorzScrollBar.Page'#3#7#3#18
+'ertScrollBar.Page'#3#183#1#13'ActiveControl'#7#20'HeaderCustomDrawTree'#7'C' +'VertScrollBar.Page'#3#183#1#13'ActiveControl'#7#20'HeaderCustomDrawTree'#7
+'aption'#6#19'HeaderOwnerDrawForm'#12'ClientHeight'#3#184#1#11'ClientWidth'#3 +'Caption'#6#19'HeaderOwnerDrawForm'#12'ClientHeight'#3#184#1#11'ClientWidth'
+#8#3#11'Font.Height'#2#245#9'Font.Name'#6#13'MS Sans Serif'#8'OnCreate'#7#10 +#3#8#3#11'Font.Height'#2#245#9'Font.Name'#6#13'MS Sans Serif'#8'OnCreate'#7
+'FormCreate'#9'OnDestroy'#7#11'FormDestroy'#0#6'TLabel'#6'Label8'#4'Left'#2 +#10'FormCreate'#9'OnDestroy'#7#11'FormDestroy'#0#6'TLabel'#6'Label8'#4'Left'
+#12#6'Height'#2'S'#3'Top'#3'>'#1#5'Width'#3#233#2#7'Anchors'#11#6'akLeft'#7 +#2#12#6'Height'#2'S'#3'Top'#3'>'#1#5'Width'#3#233#2#7'Anchors'#11#6'akLeft'#7
+'akRight'#8'akBottom'#0#8'AutoSize'#8#7'Caption'#12#215#1#0#0'This page demo' +'akRight'#8'akBottom'#0#8'AutoSize'#8#7'Caption'#12#215#1#0#0'This page demo'
+'nstrates the advance custom draw mode for a tree''s header. The left column' +'nstrates the advance custom draw mode for a tree''s header. The left column'
+' is drawn as usual while with the other columns more and more details are c' +' is drawn as usual while with the other columns more and more details are c'

4
components/virtualtreeview-unstable/demos/advanced/HeaderCustomDrawDemo.pas
View File

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

10
components/virtualtreeview-unstable/demos/advanced/MultilineDemo.lfm
View File

@ -1,5 +1,5 @@
object NodeForm: TNodeForm object NodeForm: TNodeForm
Left = 573 Left = 497
Height = 542 Height = 542
Top = 332 Top = 332
Width = 773 Width = 773
@ -80,7 +80,7 @@ object NodeForm: TNodeForm
Columns = < Columns = <
item item
Position = 1 Position = 1
Width = 483 Width = 481
end end
item item
end> end>
@ -88,9 +88,9 @@ object NodeForm: TNodeForm
end end
object AutoAdjustCheckBox: TCheckBox object AutoAdjustCheckBox: TCheckBox
Left = 12 Left = 12
Height = 13 Height = 24
Top = 408 Top = 397
Width = 234 Width = 355
Anchors = [akLeft, akBottom] Anchors = [akLeft, akBottom]
Caption = 'Automatically adjust node height to node text.' Caption = 'Automatically adjust node height to node text.'
OnClick = AutoAdjustCheckBoxClick OnClick = AutoAdjustCheckBoxClick

8
components/virtualtreeview-unstable/demos/advanced/MultilineDemo.lrs
View File

@ -1,7 +1,7 @@
{ This is an automatically generated lazarus resource file } { 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#241#1#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
+'ActiveControl'#7#6'MLTree'#7'Caption'#6#8'NodeForm'#12'ClientHeight'#3#30#2 +'ActiveControl'#7#6'MLTree'#7'Caption'#6#8'NodeForm'#12'ClientHeight'#3#30#2
+#11'ClientWidth'#3#5#3#11'Font.Height'#2#243#9'Font.Name'#6#13'MS Sans Serif' +#11'ClientWidth'#3#5#3#11'Font.Height'#2#243#9'Font.Name'#6#13'MS Sans Serif'
@ -38,9 +38,9 @@ LazarusResources.Add('TNodeForm','FORMDATA',[
+#13'toMultiSelect'#0#9'OnEditing'#7#13'MLTreeEditing'#9'OnGetText'#7#13'MLTr' +#13'toMultiSelect'#0#9'OnEditing'#7#13'MLTreeEditing'#9'OnGetText'#7#13'MLTr'
+'eeGetText'#11'OnPaintText'#7#15'MLTreePaintText'#10'OnInitNode'#7#14'MLTree' +'eeGetText'#11'OnPaintText'#7#15'MLTreePaintText'#10'OnInitNode'#7#14'MLTree'
+'InitNode'#13'OnMeasureItem'#7#17'MLTreeMeasureItem'#13'OnStateChange'#7#17 +'InitNode'#13'OnMeasureItem'#7#17'MLTreeMeasureItem'#13'OnStateChange'#7#17
+'MLTreeStateChange'#7'Columns'#14#1#8'Position'#2#1#5'Width'#3#227#1#0#1#0#0 +'MLTreeStateChange'#7'Columns'#14#1#8'Position'#2#1#5'Width'#3#225#1#0#1#0#0
+#0#0#0#9'TCheckBox'#18'AutoAdjustCheckBox'#4'Left'#2#12#6'Height'#2#13#3'Top' +#0#0#0#9'TCheckBox'#18'AutoAdjustCheckBox'#4'Left'#2#12#6'Height'#2#24#3'Top'
+#3#152#1#5'Width'#3#234#0#7'Anchors'#11#6'akLeft'#8'akBottom'#0#7'Caption'#6 +#3#141#1#5'Width'#3'c'#1#7'Anchors'#11#6'akLeft'#8'akBottom'#0#7'Caption'#6
+'.Automatically adjust node height to node text.'#7'OnClick'#7#23'AutoAdjust' +'.Automatically adjust node height to node text.'#7'OnClick'#7#23'AutoAdjust'
+'CheckBoxClick'#8'TabOrder'#2#1#0#0#0 +'CheckBoxClick'#8'TabOrder'#2#1#0#0#0
]); ]);

2
components/virtualtreeview-unstable/demos/advanced/MultilineDemo.pas
View File

@ -11,7 +11,7 @@ interface
uses uses
LCLIntf, SysUtils, Classes, Forms, Controls, Graphics, VirtualTrees, LCLIntf, SysUtils, Classes, Forms, Controls, Graphics, VirtualTrees,
ExtCtrls, StdCtrls, ImgList, LResources; ExtCtrls, StdCtrls, LResources;
type type
TNodeForm = class(TForm) TNodeForm = class(TForm)

6
components/virtualtreeview-unstable/demos/advanced/PropertiesDemo.lfm
View File

@ -7,6 +7,8 @@ object PropertiesForm: TPropertiesForm
VertScrollBar.Page = 418 VertScrollBar.Page = 418
ActiveControl = VST3 ActiveControl = VST3
Caption = 'PropertiesForm' Caption = 'PropertiesForm'
ClientHeight = 419
ClientWidth = 637
Font.Height = -13 Font.Height = -13
Font.Name = 'MS Sans Serif' Font.Name = 'MS Sans Serif'
OnCreate = FormCreate OnCreate = FormCreate
@ -60,7 +62,7 @@ object PropertiesForm: TPropertiesForm
TabOrder = 0 TabOrder = 0
TreeOptions.AnimationOptions = [toAnimatedToggle] TreeOptions.AnimationOptions = [toAnimatedToggle]
TreeOptions.AutoOptions = [toAutoDropExpand, toAutoTristateTracking, toAutoDeleteMovedNodes] TreeOptions.AutoOptions = [toAutoDropExpand, toAutoTristateTracking, toAutoDeleteMovedNodes]
TreeOptions.MiscOptions = [toAcceptOLEDrop, toEditable, toGridExtensions, toInitOnSave, toToggleOnDblClick, toWheelPanning] TreeOptions.MiscOptions = [toEditable, toGridExtensions, toInitOnSave, toToggleOnDblClick, toWheelPanning]
TreeOptions.SelectionOptions = [toExtendedFocus, toFullRowSelect, toCenterScrollIntoView] TreeOptions.SelectionOptions = [toExtendedFocus, toFullRowSelect, toCenterScrollIntoView]
TreeOptions.StringOptions = [toAutoAcceptEditChange] TreeOptions.StringOptions = [toAutoAcceptEditChange]
OnChange = VST3Change OnChange = VST3Change
@ -103,6 +105,8 @@ object PropertiesForm: TPropertiesForm
ChildSizing.ShrinkVertical = crsScaleChilds ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1 ChildSizing.ControlsPerLine = 1
ClientHeight = 48
ClientWidth = 198
ItemIndex = 0 ItemIndex = 0
Items.Strings = ( Items.Strings = (
'forward' 'forward'

363
components/virtualtreeview-unstable/demos/advanced/PropertiesDemo.lrs
View File

@ -2,186 +2,187 @@ LazarusResources.Add('TPropertiesForm','FORMDATA',[
'TPF0'#15'TPropertiesForm'#14'PropertiesForm'#4'Left'#3#141#1#6'Height'#3#163 'TPF0'#15'TPropertiesForm'#14'PropertiesForm'#4'Left'#3#141#1#6'Height'#3#163
+#1#3'Top'#3'&'#1#5'Width'#3'}'#2#18'HorzScrollBar.Page'#3'|'#2#18'VertScroll' +#1#3'Top'#3'&'#1#5'Width'#3'}'#2#18'HorzScrollBar.Page'#3'|'#2#18'VertScroll'
+'Bar.Page'#3#162#1#13'ActiveControl'#7#4'VST3'#7'Caption'#6#14'PropertiesFor' +'Bar.Page'#3#162#1#13'ActiveControl'#7#4'VST3'#7'Caption'#6#14'PropertiesFor'
+'m'#11'Font.Height'#2#243#9'Font.Name'#6#13'MS Sans Serif'#8'OnCreate'#7#10 +'m'#12'ClientHeight'#3#163#1#11'ClientWidth'#3'}'#2#11'Font.Height'#2#243#9
+'FormCreate'#0#6'TLabel'#6'Label9'#4'Left'#3#164#1#6'Height'#2'Q'#3'Top'#2#12 +'Font.Name'#6#13'MS Sans Serif'#8'OnCreate'#7#10'FormCreate'#0#6'TLabel'#6'L'
+#5'Width'#3#198#0#7'Anchors'#11#5'akTop'#7'akRight'#0#8'AutoSize'#8#7'Captio' +'abel9'#4'Left'#3#164#1#6'Height'#2'Q'#3'Top'#2#12#5'Width'#3#198#0#7'Anchor'
+'n'#6'vThis tree demonstrates a typical property page as it can be found in ' +'s'#11#5'akTop'#7'akRight'#0#8'AutoSize'#8#7'Caption'#6'vThis tree demonstra'
+'the property dialog for Word and other documents.'#5'Color'#7#6'clNone'#11 +'tes a typical property page as it can be found in the property dialog for W'
+'ParentColor'#8#8'WordWrap'#9#0#0#6'TLabel'#7'Label10'#4'Left'#3#164#1#6'Hei' +'ord and other documents.'#5'Color'#7#6'clNone'#11'ParentColor'#8#8'WordWrap'
+'ght'#2']'#3'Top'#2'd'#5'Width'#3#198#0#7'Anchors'#11#5'akTop'#7'akRight'#0#8 +#9#0#0#6'TLabel'#7'Label10'#4'Left'#3#164#1#6'Height'#2']'#3'Top'#2'd'#5'Wid'
+'AutoSize'#8#7'Caption'#6'What makes this demonstration special is the samp' +'th'#3#198#0#7'Anchors'#11#5'akTop'#7'akRight'#0#8'AutoSize'#8#7'Caption'#6
+'le implementation for node editors. However, neither of them is Unicode awa' +'What makes this demonstration special is the sample implementation for nod'
+'re.'#5'Color'#7#6'clNone'#11'ParentColor'#8#8'WordWrap'#9#0#0#18'TVirtualSt' +'e editors. However, neither of them is Unicode aware.'#5'Color'#7#6'clNone'
+'ringTree'#4'VST3'#4'Left'#2#10#6'Height'#3'q'#1#3'Top'#2#6#5'Width'#3#143#1 +#11'ParentColor'#8#8'WordWrap'#9#0#0#18'TVirtualStringTree'#4'VST3'#4'Left'#2
+#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0#18'Colors.BorderC' +#10#6'Height'#3'q'#1#3'Top'#2#6#5'Width'#3#143#1#7'Anchors'#11#5'akTop'#6'ak'
+'olor'#7#12'clWindowText'#15'Colors.HotColor'#7#7'clBlack'#17'DefaultNodeHei' +'Left'#7'akRight'#8'akBottom'#0#18'Colors.BorderColor'#7#12'clWindowText'#15
+'ght'#2#20#20'Header.AutoSizeIndex'#2#1#18'Header.Font.Height'#2#245#16'Head' +'Colors.HotColor'#7#7'clBlack'#17'DefaultNodeHeight'#2#20#20'Header.AutoSize'
+'er.Font.Name'#6#13'MS Sans Serif'#13'Header.Height'#2#18#14'Header.Options' +'Index'#2#1#18'Header.Font.Height'#2#245#16'Header.Font.Name'#6#13'MS Sans S'
+#11#12'hoAutoResize'#14'hoColumnResize'#9'hoVisible'#12'hoAutoSpring'#0#13'H' +'erif'#13'Header.Height'#2#18#14'Header.Options'#11#12'hoAutoResize'#14'hoCo'
+'intAnimation'#7#7'hatFade'#8'HintMode'#7#6'hmHint'#6'Images'#7#10'TreeImage' +'lumnResize'#9'hoVisible'#12'hoAutoSpring'#0#13'HintAnimation'#7#7'hatFade'#8
+'s'#17'IncrementalSearch'#7#5'isAll'#24'IncrementalSearchTimeout'#3#244#1#6 +'HintMode'#7#6'hmHint'#6'Images'#7#10'TreeImages'#17'IncrementalSearch'#7#5
+'Indent'#2#19#14'ParentShowHint'#8#13'RootNodeCount'#2#2#8'ShowHint'#9#8'Tab' +'isAll'#24'IncrementalSearchTimeout'#3#244#1#6'Indent'#2#19#14'ParentShowHin'
+'Order'#2#0#28'TreeOptions.AnimationOptions'#11#16'toAnimatedToggle'#0#23'Tr' +'t'#8#13'RootNodeCount'#2#2#8'ShowHint'#9#8'TabOrder'#2#0#28'TreeOptions.Ani'
+'eeOptions.AutoOptions'#11#16'toAutoDropExpand'#22'toAutoTristateTracking'#22 +'mationOptions'#11#16'toAnimatedToggle'#0#23'TreeOptions.AutoOptions'#11#16
+'toAutoDeleteMovedNodes'#0#23'TreeOptions.MiscOptions'#11#15'toAcceptOLEDrop' +'toAutoDropExpand'#22'toAutoTristateTracking'#22'toAutoDeleteMovedNodes'#0#23
+#10'toEditable'#16'toGridExtensions'#12'toInitOnSave'#18'toToggleOnDblClick' +'TreeOptions.MiscOptions'#11#10'toEditable'#16'toGridExtensions'#12'toInitOn'
+#14'toWheelPanning'#0#28'TreeOptions.SelectionOptions'#11#15'toExtendedFocus' +'Save'#18'toToggleOnDblClick'#14'toWheelPanning'#0#28'TreeOptions.SelectionO'
+#15'toFullRowSelect'#22'toCenterScrollIntoView'#0#25'TreeOptions.StringOptio' +'ptions'#11#15'toExtendedFocus'#15'toFullRowSelect'#22'toCenterScrollIntoVie'
+'ns'#11#22'toAutoAcceptEditChange'#0#8'OnChange'#7#10'VST3Change'#14'OnCreat' +'w'#0#25'TreeOptions.StringOptions'#11#22'toAutoAcceptEditChange'#0#8'OnChan'
+'eEditor'#7#16'VST3CreateEditor'#9'OnEditing'#7#11'VST3Editing'#9'OnGetText' +'ge'#7#10'VST3Change'#14'OnCreateEditor'#7#16'VST3CreateEditor'#9'OnEditing'
+#7#11'VST3GetText'#11'OnPaintText'#7#13'VST3PaintText'#15'OnGetImageIndex'#7 +#7#11'VST3Editing'#9'OnGetText'#7#11'VST3GetText'#11'OnPaintText'#7#13'VST3P'
+#17'VST3GetImageIndex'#9'OnGetHint'#7#11'VST3GetHint'#19'OnIncrementalSearch' +'aintText'#15'OnGetImageIndex'#7#17'VST3GetImageIndex'#9'OnGetHint'#7#11'VST'
+#7#21'VST3IncrementalSearch'#14'OnInitChildren'#7#16'VST3InitChildren'#10'On' +'3GetHint'#19'OnIncrementalSearch'#7#21'VST3IncrementalSearch'#14'OnInitChil'
+'InitNode'#7#12'VST3InitNode'#13'OnStateChange'#7#15'VST3StateChange'#7'Colu' +'dren'#7#16'VST3InitChildren'#10'OnInitNode'#7#12'VST3InitNode'#13'OnStateCh'
+'mns'#14#1#7'Options'#11#12'coAllowClick'#11'coDraggable'#9'coEnabled'#16'co' +'ange'#7#15'VST3StateChange'#7'Columns'#14#1#7'Options'#11#12'coAllowClick'
+'ParentBidiMode'#13'coParentColor'#11'coResizable'#14'coShowDropMark'#9'coVi' +#11'coDraggable'#9'coEnabled'#16'coParentBidiMode'#13'coParentColor'#11'coRe'
+'sible'#12'coAutoSpring'#0#5'Width'#3#203#0#8'WideText'#6#10'Properties'#0#1 +'sizable'#14'coShowDropMark'#9'coVisible'#12'coAutoSpring'#0#5'Width'#3#203#0
+#7'Options'#11#12'coAllowClick'#11'coDraggable'#9'coEnabled'#16'coParentBidi' +#8'WideText'#6#10'Properties'#0#1#7'Options'#11#12'coAllowClick'#11'coDragga'
+'Mode'#13'coParentColor'#11'coResizable'#14'coShowDropMark'#9'coVisible'#12 +'ble'#9'coEnabled'#16'coParentBidiMode'#13'coParentColor'#11'coResizable'#14
+'coAutoSpring'#0#8'Position'#2#1#5'Width'#3#196#0#8'WideText'#6#6'Values'#0#0 +'coShowDropMark'#9'coVisible'#12'coAutoSpring'#0#8'Position'#2#1#5'Width'#3
+#0#0#11'TRadioGroup'#11'RadioGroup1'#4'Left'#3#160#1#6'Height'#2'E'#3'Top'#3 +#196#0#8'WideText'#6#6'Values'#0#0#0#0#11'TRadioGroup'#11'RadioGroup1'#4'Lef'
+'2'#1#5'Width'#3#202#0#7'Anchors'#11#7'akRight'#8'akBottom'#0#8'AutoFill'#9#7 +'t'#3#160#1#6'Height'#2'E'#3'Top'#3'2'#1#5'Width'#3#202#0#7'Anchors'#11#7'ak'
+'Caption'#6#31' Incremental search direction: '#28'ChildSizing.LeftRightSpac' +'Right'#8'akBottom'#0#8'AutoFill'#9#7'Caption'#6#31' Incremental search dire'
+'ing'#2#6#28'ChildSizing.TopBottomSpacing'#2#6#29'ChildSizing.EnlargeHorizon' +'ction: '#28'ChildSizing.LeftRightSpacing'#2#6#28'ChildSizing.TopBottomSpaci'
+'tal'#7#24'crsHomogenousChildResize'#27'ChildSizing.EnlargeVertical'#7#24'cr' +'ng'#2#6#29'ChildSizing.EnlargeHorizontal'#7#24'crsHomogenousChildResize'#27
+'sHomogenousChildResize'#28'ChildSizing.ShrinkHorizontal'#7#14'crsScaleChild' +'ChildSizing.EnlargeVertical'#7#24'crsHomogenousChildResize'#28'ChildSizing.'
+'s'#26'ChildSizing.ShrinkVertical'#7#14'crsScaleChilds'#18'ChildSizing.Layou' +'ShrinkHorizontal'#7#14'crsScaleChilds'#26'ChildSizing.ShrinkVertical'#7#14
+'t'#7#29'cclLeftToRightThenTopToBottom'#27'ChildSizing.ControlsPerLine'#2#1#9 +'crsScaleChilds'#18'ChildSizing.Layout'#7#29'cclLeftToRightThenTopToBottom'
+'ItemIndex'#2#0#13'Items.Strings'#1#6#7'forward'#6#8'backward'#0#7'OnClick'#7 +#27'ChildSizing.ControlsPerLine'#2#1#12'ClientHeight'#2'0'#11'ClientWidth'#3
+#16'RadioGroup1Click'#8'TabOrder'#2#1#0#0#10'TImageList'#10'TreeImages'#4'le' +#198#0#9'ItemIndex'#2#0#13'Items.Strings'#1#6#7'forward'#6#8'backward'#0#7'O'
+'ft'#3#166#1#3'top'#3#224#0#6'Bitmap'#10#211#31#0#0'li'#18#0#0#0#16#0#0#0#16 +'nClick'#7#16'RadioGroup1Click'#8'TabOrder'#2#1#0#0#10'TImageList'#10'TreeIm'
+#0#0#0#156#1#0#0'/* XPM */'#10'static char *graphic[] = {'#10'"16 16 3 1",' +'ages'#4'left'#3#166#1#3'top'#3#224#0#6'Bitmap'#10#211#31#0#0'li'#18#0#0#0#16
+#10'". c None",'#10'", c #800000",'#10'"- c #FFFFFF",'#10'"................"' +#0#0#0#16#0#0#0#156#1#0#0'/* XPM */'#10'static char *graphic[] = {'#10'"16 1'
+','#10'"................",'#10'".,,-........,,-.",'#10'".,,,,-.....,,-..",' +'6 3 1",'#10'". c None",'#10'", c #800000",'#10'"- c #FFFFFF",'#10'"........'
+#10'"..,,,,-...,,-...",'#10'"....,,,-.,-.....",'#10'".....,,,,,-.....",'#10 +'........",'#10'"................",'#10'".,,-........,,-.",'#10'".,,,,-.....'
+'"......,,,-......",'#10'".....,,,,,-.....",'#10'"....,,,-.,,-....",'#10'"..' +',,-..",'#10'"..,,,,-...,,-...",'#10'"....,,,-.,-.....",'#10'".....,,,,,-...'
+'.,,,-...,,-...",'#10'"..,,,-.....,-...",'#10'"..,,,-......,-..",'#10'"...,-' +'..",'#10'"......,,,-......",'#10'".....,,,,,-.....",'#10'"....,,,-.,,-...."'
+'...........",'#10'".............,-.",'#10'"................"}'#10#156#1#0#0 +','#10'"...,,,-...,,-...",'#10'"..,,,-.....,-...",'#10'"..,,,-......,-..",'
+'/* XPM */'#10'static char *graphic[] = {'#10'"16 16 3 1",'#10'". c None",' +#10'"...,-...........",'#10'".............,-.",'#10'"................"}'#10
+#10'", c #000000",'#10'"- c #FFFFFF",'#10'"................",'#10'".........' +#156#1#0#0'/* XPM */'#10'static char *graphic[] = {'#10'"16 16 3 1",'#10'". '
+'.......",'#10'"...,,,,,,,,.....",'#10'"...,------,,....",'#10'"...,------,-' +'c None",'#10'", c #000000",'#10'"- c #FFFFFF",'#10'"................",'#10
+',...",'#10'"...,------,,,,..",'#10'"...,---------,..",'#10'"...,---------,.' +'"................",'#10'"...,,,,,,,,.....",'#10'"...,------,,....",'#10'"..'
+'.",'#10'"...,---------,..",'#10'"...,---------,..",'#10'"...,---------,..",' +'.,------,-,...",'#10'"...,------,,,,..",'#10'"...,---------,..",'#10'"...,-'
+#10'"...,---------,..",'#10'"...,---------,..",'#10'"...,---------,..",'#10 +'--------,..",'#10'"...,---------,..",'#10'"...,---------,..",'#10'"...,----'
,'"...,,,,,,,,,,,..",'#10'"................"}'#10#171#1#0#0'/* XPM */'#10'sta' ,'-----,..",'#10'"...,---------,..",'#10'"...,---------,..",'#10'"...,-------'
+'tic char *graphic[] = {'#10'"16 16 4 1",'#10'". c None",'#10'", c #000000",' +'--,..",'#10'"...,,,,,,,,,,,..",'#10'"................"}'#10#171#1#0#0'/* XP'
+#10'"- c #FFFFFF",'#10'"* c #000080",'#10'"................",'#10'".........'
+'.......",'#10'".,,,,,,.........",'#10'".,----,,........",'#10'".,----,-,...'
+'....",'#10'".,-,,-,******...",'#10'".,-----*----**..",'#10'".,-,,,,*----*-*'
+'.",'#10'".,-----*-,,-****",'#10'".,-,,,,*-------*",'#10'".,-----*-,,,,,-*",'
+#10'".,,,,,,*-------*",'#10'".......*-,,,,,-*",'#10'".......*-------*",'#10
+'".......*********",'#10'"................"}'#10#216#1#0#0'/* XPM */'#10'sta'
+'tic char *graphic[] = {'#10'"16 16 7 1",'#10'". c None",'#10'", c #000000",'
+#10'"- c #FFFF00",'#10'"* c #808080",'#10'"a c #808000",'#10'"b c #000080",'
+#10'"c c #FFFFFF",'#10'"................",'#10'"......,,,,......",'#10'"..,,'
+',,,--,,,,,..",'#10'".,*a*,-,,-,a*a,.",'#10'".,a*,......,a*,.",'#10'".,*a,,,'
+',,,,,*a,.",'#10'".,a*a*a*a*a*a*,.",'#10'".,*a*a*bbbbbbb,.",'#10'".,a*a*abcc'
+'cccbb.",'#10'".,*a*a*bcccccbcb",'#10'".,a*a*abcbbbcbbb",'#10'".,*a*a*bccccc'
+'ccb",'#10'".,a*a*abcbbbbbcb",'#10'"..,,,,,bcccccccb",'#10'".......bbbbbbbbb'
+'",'#10'"................"}'#10#186#1#0#0'/* XPM */'#10'static char *graphic'
+'[] = {'#10'"16 16 5 1",'#10'". c #FFFF00",'#10'", c None",'#10'"- c #808080'
+'",'#10'"* c #000000",'#10'"a c #FFFFFF",'#10'".,,-.,,-***,,,,,",'#10'"-.,-a'
+',-.aa**,,,,",'#10'",-.-.-.aaa*a*,,,",'#10'",.-.a----a*aa*,,",'#10'"---a..aa'
+'aa*****,",'#10'",,a-aa-**aaaaa*,",'#10'"-,,-.aaaaaaaaa*,",'#10'",,,-a******'
+'*aa*,",'#10'",,,*aaaaaaaaaa*,",'#10'",,,*a*******aa*,",'#10'",,,*aaaaaaaaaa'
+'*,",'#10'",,,*a*******aa*,",'#10'",,,*aaaaaaaaaa*,",'#10'",,,*aaaaaaaaaa*,"'
+','#10'",,,************,",'#10'",,,,,,,,,,,,,,,,"}'#10#201#1#0#0'/* XPM */'
+#10'static char *graphic[] = {'#10'"16 16 6 1",'#10'". c None",'#10'", c #00'
+'0080",'#10'"- c #FFFFFF",'#10'"* c #000000",'#10'"a c #808080",'#10'"b c #F'
+'FFF00",'#10'"................",'#10'",,,,,,,,,,,,,,..",'#10'",-,,,,,,,,,,,,'
+'..",'#10'",,,,,,,,,,,,,*..",'#10'"*...*--------*..",'#10'"*...*--------*.."'
+','#10'"*...*--aaa---*..",'#10'"*...*-a.b.a--*..",'#10'"*...*a.b.baaaaa.",'
+#10'"*...*a--------a*",'#10'"*...*a-b.b.b.ba*",'#10'"*...*a-.b.b.b.a*",'#10
+'"*****a-b.b.b.ba*",'#10'".....aaaaaaaaaa*",'#10'"......**********",'#10'"..'
+'.............."}'#10#201#1#0#0'/* XPM */'#10'static char *graphic[] = {'#10
+'"16 16 6 1",'#10'". c None",'#10'", c #000080",'#10'"- c #000000",'#10'"* c'
+' #FFFFFF",'#10'"a c #808080",'#10'"b c #00FFFF",'#10'"................",'#10
+'"................",'#10'",,,,,,,,,.......",'#10'",,,,,,,,,.......",'#10'"-*'
+'******-.-.....",'#10'"-*aaaaa*-.--....",'#10'"-*******-.-b-...",'#10'"-*aa-'
+'------bb-..",'#10'"-***-bbbbbbbbb-.",'#10'"-----bbbbbbbbbb-",'#10'"....-bbb'
+'bbbbbb-.",'#10'"....-------bb-..",'#10'"..........-b-...",'#10'"..........-'
+'-....",'#10'"..........-.....",'#10'"................"}'#10#171#1#0#0'/* XP'
+'M */'#10'static char *graphic[] = {'#10'"16 16 4 1",'#10'". c None",'#10'",' +'M */'#10'static char *graphic[] = {'#10'"16 16 4 1",'#10'". c None",'#10'",'
+' c #000000",'#10'"- c #000080",'#10'"* c #FFFFFF",'#10'"................",' +' c #000000",'#10'"- c #FFFFFF",'#10'"* c #000080",'#10'"................",'
+#10'".......,,,,,,.--",'#10'"......,......,--",'#10'".....,.,......--",'#10 +#10'"................",'#10'".,,,,,,.........",'#10'".,----,,........",'#10
+'",,,,,.,.,.....--",'#10'",**,.,.,.,...,--",'#10'",*,.,*,.,.,,,.--",'#10'",*' +'".,----,-,.......",'#10'".,-,,-,******...",'#10'".,-----*----**..",'#10'".,'
+'*,***,.,*,...-",'#10'",*******,**,....",'#10'",**********,....",'#10'",*,,*' +'-,,,,*----*-*.",'#10'".,-----*-,,-****",'#10'".,-,,,,*-------*",'#10'".,---'
+',,,,,*,....",'#10'",**********,....",'#10'",*,,*,,,,,*,....",'#10'",*******' +'--*-,,,,,-*",'#10'".,,,,,,*-------*",'#10'".......*-,,,,,-*",'#10'".......*'
+'***,....",'#10'",,,,,,,,,,,,....",'#10'"................"}'#10#246#1#0#0'/*' +'-------*",'#10'".......*********",'#10'"................"}'#10#216#1#0#0'/*'
+' XPM */'#10'static char *graphic[] = {'#10'"16 16 9 1",'#10'". c None",'#10 +' XPM */'#10'static char *graphic[] = {'#10'"16 16 7 1",'#10'". c None",'#10
+'", c #808080",'#10'"- c #0000FF",'#10'"* c #FFFFFF",'#10'"a c #008000",'#10 +'", c #000000",'#10'"- c #FFFF00",'#10'"* c #808080",'#10'"a c #808000",'#10
+'"b c #000000",'#10'"c c #FFFF00",'#10'"d c #008080",'#10'"e c #000080",'#10 +'"b c #000080",'#10'"c c #FFFFFF",'#10'"................",'#10'"......,,,,..'
+'".....,,,,,......",'#10'"...,,--*.abb....",'#10'"..,--.*.aaaab...",'#10'".,' +'....",'#10'"..,,,,,--,,,,,..",'#10'".,*a*,-,,-,a*a,.",'#10'".,a*,......,a*,'
+'-*.*,,,,,,,b..",'#10'".,--*.,***c*,,..",'#10'"b--.aa,*c***,*,.",'#10'"b--aa' +'.",'#10'".,*a,,,,,,,,*a,.",'#10'".,a*a*a*a*a*a*,.",'#10'".,*a*a*bbbbbbb,.",'
+'a,***c*bbbb",'#10'"b--aaa,*cddd,*,b",'#10'"b---aa,*d*,ae*,b",'#10'"b-----,*' +#10'".,a*a*abcccccbb.",'#10'".,*a*a*bcccccbcb",'#10'".,a*a*abcbbbcbbb",'#10
+'d,a-e*,b",'#10'".b----,*d---e*,b",'#10'".b----,*ceee,*,b",'#10'"..b---,***c' +'".,*a*a*bcccccccb",'#10'".,a*a*abcbbbbbcb",'#10'"..,,,,,bcccccccb",'#10'"..'
+'***,b",'#10'"...bb-,*c***c*,b",'#10'".....b,,,,,,,,,b",'#10'"......bbbbbbbb' +'.....bbbbbbbbb",'#10'"................"}'#10#186#1#0#0'/* XPM */'#10'static'
+'bb"}'#10#156#1#0#0'/* XPM */'#10'static char *graphic[] = {'#10'"16 16 3 1"' +' char *graphic[] = {'#10'"16 16 5 1",'#10'". c #FFFF00",'#10'", c None",'#10
+','#10'". c None",'#10'", c #FFFFFF",'#10'"- c #008000",'#10'"..............' +'"- c #808080",'#10'"* c #000000",'#10'"a c #FFFFFF",'#10'".,,-.,,-***,,,,,"'
+'..",'#10'".,,,,,,,,,,,,,,.",'#10'".,,,,,,,-,,,,,,.",'#10'".,,,,,,,--,,,,,."' +','#10'"-.,-a,-.aa**,,,,",'#10'",-.-.-.aaa*a*,,,",'#10'",.-.a----a*aa*,,",'
+','#10'".,,,,------,,,,.",'#10'".,,,-,,,--,,,,,.",'#10'".,,,-,,,-,,,,,,.",' +#10'"---a..aaaa*****,",'#10'",,a-aa-**aaaaa*,",'#10'"-,,-.aaaaaaaaa*,",'#10
+#10'".,,,-,,,,,,,,,,.",'#10'".,,,,,,,,,,-,,,.",'#10'".,,,,,,-,,,-,,,.",'#10 +'",,,-a*******aa*,",'#10'",,,*aaaaaaaaaa*,",'#10'",,,*a*******aa*,",'#10'",,'
+'".,,,,,--,,,-,,,.",'#10'".,,,,------,,,,.",'#10'".,,,,,--,,,,,,,.",'#10'".,' +',*aaaaaaaaaa*,",'#10'",,,*a*******aa*,",'#10'",,,*aaaaaaaaaa*,",'#10'",,,*a'
+',,,,,-,,,,,,,.",'#10'".,,,,,,,,,,,,,,.",'#10'"................"}'#10#186#1#0 +'aaaaaaaaa*,",'#10'",,,************,",'#10'",,,,,,,,,,,,,,,,"}'#10#201#1#0#0
+#0'/* XPM */'#10'static char *graphic[] = {'#10'"16 16 5 1",'#10'". c None",' +'/* XPM */'#10'static char *graphic[] = {'#10'"16 16 6 1",'#10'". c None",'
+#10'", c #808080",'#10'"- c #000000",'#10'"* c #FFFFFF",'#10'"a c #000080",' +#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'"a....,*,*****-..",'#10'"aa...,*,*,,,,,,-",'#10'"aa' +',,,,,,,,,,..",'#10'",,,,,,,,,,,,,*..",'#10'"*...*--------*..",'#10'"*...*--'
,'a..,*,*,*****-",'#10'"aaaa.,*,*,*aaa*-",'#10'"aaa..,*,*,*****-",'#10'"aa...' +'------*..",'#10'"*...*--aaa---*..",'#10'"*...*-a.b.a--*..",'#10'"*...*a.b.b'
+'--,*,*aaa*-",'#10'"a......,*,*****-",'#10'".......--,*aaa*-",'#10'"........' +'aaaaa.",'#10'"*...*a--------a*",'#10'"*...*a-b.b.b.ba*",'#10'"*...*a-.b.b.b'
+'.,*****-",'#10'".........-------",'#10'"................",'#10'"...........' +'.a*",'#10'"*****a-b.b.b.ba*",'#10'".....aaaaaaaaaa*",'#10'"......**********'
+'....."}'#10#201#1#0#0'/* XPM */'#10'static char *graphic[] = {'#10'"16 16 6' +'",'#10'"................"}'#10#201#1#0#0'/* XPM */'#10'static char *graphic'
+' 1",'#10'". c None",'#10'", c #808080",'#10'"- c #FFFF00",'#10'"* c #C0C0C0' +'[] = {'#10'"16 16 6 1",'#10'". c None",'#10'", c #000080",'#10'"- c #000000'
+'",'#10'"a c #FFFFFF",'#10'"b c #000000",'#10'"................",'#10'"...,,' +'",'#10'"* c #FFFFFF",'#10'"a c #808080",'#10'"b c #00FFFF",'#10'"..........'
+',,,........",'#10'"..,-*-*-,.......",'#10'".,-*-*-*-,,,,,,.",'#10'".,aaaaaa' +'......",'#10'"................",'#10'",,,,,,,,,.......",'#10'",,,,,,,,,....'
+'aaaaaa,b",'#10'".,a-*-*-*-*-*-,b",'#10'".,a*-*-*-*-*-*,b",'#10'".,a-*-*-*-*' +'...",'#10'"-*******-.-.....",'#10'"-*aaaaa*-.--....",'#10'"-*******-.-b-...'
+'-*-,b",'#10'".,a*-*-*-*-*-*,b",'#10'".,a-*-*-*-*-*-,b",'#10'".,a*-*-*-*-*-*' +'",'#10'"-*aa-------bb-..",'#10'"-***-bbbbbbbbb-.",'#10'"-----bbbbbbbbbb-",'
+',b",'#10'".,a-*-*-*-*-*-,b",'#10'".,,,,,,,,,,,,,,b",'#10'"..bbbbbbbbbbbbbb"' +#10'"....-bbbbbbbbb-.",'#10'"....-------bb-..",'#10'"..........-b-...",'#10
+','#10'"................",'#10'"................"}'#10#201#1#0#0'/* XPM */' +'"..........--....",'#10'"..........-.....",'#10'"................"}'#10#171
+#10'static char *graphic[] = {'#10'"16 16 6 1",'#10'". c None",'#10'", c #80' +#1#0#0'/* XPM */'#10'static char *graphic[] = {'#10'"16 16 4 1",'#10'". c No'
+'8080",'#10'"- c #FFFFFF",'#10'"* c #FFFF00",'#10'"a c #C0C0C0",'#10'"b c #0' +'ne",'#10'", c #000000",'#10'"- c #000080",'#10'"* c #FFFFFF",'#10'"........'
+'00000",'#10'"................",'#10'"...,,,,,........",'#10'"..,-----,.....' +'........",'#10'".......,,,,,,.--",'#10'"......,......,--",'#10'".....,.,...'
+'..",'#10'".,-*a*a*-,,,,,,.",'#10'".,-a*a*a------,b",'#10'".,-*a*a*a*a*a*,b"' +'...--",'#10'",,,,,.,.,.....--",'#10'",**,.,.,.,...,--",'#10'",*,.,*,.,.,,,.'
+','#10'",,,,,,,,,,,,,*,b",'#10'",----------,,a,b",'#10'",-*a*a*a*a**b,,b",' +'--",'#10'",**,***,.,*,...-",'#10'",*******,**,....",'#10'",**********,...."'
+#10'".,-*a*a*a*a*ab,b",'#10'".,-a*a*a*a*a*b,b",'#10'"..,-a*a*a*a**,bb",'#10 +','#10'",*,,*,,,,,*,....",'#10'",**********,....",'#10'",*,,*,,,,,*,....",'
+'"..,,,,,,,,,,,,,b",'#10'"...bbbbbbbbbbbbb",'#10'"................",'#10'"..' +#10'",**********,....",'#10'",,,,,,,,,,,,....",'#10'"................"}'#10
+'.............."}'#10#186#1#0#0'/* XPM */'#10'static char *graphic[] = {'#10 +#246#1#0#0'/* XPM */'#10'static char *graphic[] = {'#10'"16 16 9 1",'#10'". '
+'"16 16 5 1",'#10'". c None",'#10'", c #808080",'#10'"- c #FFFFFF",'#10'"* c' +'c None",'#10'", c #808080",'#10'"- c #0000FF",'#10'"* c #FFFFFF",'#10'"a c '
+' #000000",'#10'"a c #C0C0C0",'#10'"................",'#10'".,,,,,,,,.......' +'#008000",'#10'"b c #000000",'#10'"c c #FFFF00",'#10'"d c #008080",'#10'"e c'
+'",'#10'".,------,*......",'#10'".,------,-*.....",'#10'".,------,***....",' +' #000080",'#10'".....,,,,,......",'#10'"...,,--*.abb....",'#10'"..,--.*.aaa'
+#10'".,------aaa*....",'#10'".,-------aa*....",'#10'".,--------a*....",'#10 +'ab...",'#10'".,-*.*,,,,,,,b..",'#10'".,--*.,***c*,,..",'#10'"b--.aa,*c***,*'
+'".,--------a*....",'#10'".,--------a*....",'#10'".,--------a*....",'#10'".,' +',.",'#10'"b--aaa,***c*bbbb",'#10'"b--aaa,*cddd,*,b",'#10'"b---aa,*d*,ae*,b"'
+'--------a*....",'#10'".,aaaaaaaaa*....",'#10'".***********....",'#10'".....' +','#10'"b-----,*d,a-e*,b",'#10'".b----,*d---e*,b",'#10'".b----,*ceee,*,b",'
+'...........",'#10'"................"}'#10#246#1#0#0'/* XPM */'#10'static ch' +#10'"..b---,***c***,b",'#10'"...bb-,*c***c*,b",'#10'".....b,,,,,,,,,b",'#10
+'ar *graphic[] = {'#10'"16 16 9 1",'#10'". c None",'#10'", c #808080",'#10'"' +'"......bbbbbbbbbb"}'#10#156#1#0#0'/* XPM */'#10'static char *graphic[] = {'
+'- c #FFFFFF",'#10'"* c #000000",'#10'"a c #0000FF",'#10'"b c #000080",'#10 +#10'"16 16 3 1",'#10'". c None",'#10'", c #FFFFFF",'#10'"- c #008000",'#10'"'
+'"c c #008080",'#10'"d c #C0C0C0",'#10'"e c #FFFF00",'#10'"................"' +'................",'#10'".,,,,,,,,,,,,,,.",'#10'".,,,,,,,-,,,,,,.",'#10'".,,'
+','#10'".,,,,,,,,.......",'#10'".,------,*....ab",'#10'".,------,-*..acb",' +',,,,,--,,,,,.",'#10'".,,,,------,,,,.",'#10'".,,,-,,,--,,,,,.",'#10'".,,,-,'
+#10'".,------,***acb.",'#10'".,------dddacb..",'#10'".,-------dacb...",'#10 +',,-,,,,,,.",'#10'".,,,-,,,,,,,,,,.",'#10'".,,,,,,,,,,-,,,.",'#10'".,,,,,,-,'
+'".,-------acb....",'#10'".,------acb*....",'#10'".,-----,ebd*....",'#10'".,' +',,-,,,.",'#10'".,,,,,--,,,-,,,.",'#10'".,,,,------,,,,.",'#10'".,,,,,--,,,,'
+'-----d,-d*....",'#10'".,----*,--d*....",'#10'".,ddddddddd*....",'#10'".****' +',,,.",'#10'".,,,,,,-,,,,,,,.",'#10'".,,,,,,,,,,,,,,.",'#10'"...............'
+'*******....",'#10'"................",'#10'"................"}'#10#186#1#0#0 +'."}'#10#186#1#0#0'/* XPM */'#10'static char *graphic[] = {'#10'"16 16 5 1",'
+'/* XPM */'#10'static char *graphic[] = {'#10'"16 16 5 1",'#10'". c #808080"' +#10'". c None",'#10'", c #808080",'#10'"- c #000000",'#10'"* c #FFFFFF",'#10
+','#10'", c None",'#10'"- c #FFFFFF",'#10'"* c #000000",'#10'"a c #C0C0C0",' +'"a c #000080",'#10'"................",'#10'".....,,,,,,-....",'#10'".....,*'
+#10'"........,,,,,,,,",'#10'".-........,,,,,,",'#10'".-.-........,,,,",'#10 ,'****-....",'#10'".....,*,,,,,,-..",'#10'"a....,*,*****-..",'#10'"aa...,*,*,'
+'".-.-.------.*,,,",'#10'".-.-.------.-*,,",'#10'".-.-.------.***,",'#10'".-' +',,,,,-",'#10'"aaa..,*,*,*****-",'#10'"aaaa.,*,*,*aaa*-",'#10'"aaa..,*,*,***'
+'.-.------aaa*,",'#10'".-.-.-------aa*,",'#10'".-.-.--------a*,",'#10'".-.-.' +'**-",'#10'"aa...--,*,*aaa*-",'#10'"a......,*,*****-",'#10'".......--,*aaa*-'
+'--------a*,",'#10'".-.-.--------a*,",'#10'".a.-.--------a*,",'#10'"**.a.---' +'",'#10'".........,*****-",'#10'".........-------",'#10'"................",'
+'-----a*,",'#10'",,**.aaaaaaaaa*,",'#10'",,,,***********,",'#10'",,,,,,,,,,,' +#10'"................"}'#10#201#1#0#0'/* XPM */'#10'static char *graphic[] ='
+',,,,,"}'#10#246#1#0#0'/* XPM */'#10'static char *graphic[] = {'#10'"16 16 9' +' {'#10'"16 16 6 1",'#10'". c None",'#10'", c #808080",'#10'"- c #FFFF00",'
+' 1",'#10'". c #808080",'#10'", c None",'#10'"- c #FFFFFF",'#10'"* c #0000FF' +#10'"* c #C0C0C0",'#10'"a c #FFFFFF",'#10'"b c #000000",'#10'"..............'
+'",'#10'"a c #000080",'#10'"b c #000000",'#10'"c c #008080",'#10'"d c #C0C0C' +'..",'#10'"...,,,,,........",'#10'"..,-*-*-,.......",'#10'".,-*-*-*-,,,,,,."'
+'0",'#10'"e c #FFFF00",'#10'"........,,,,,,,,",'#10'".-........,,,,,,",'#10 +','#10'".,aaaaaaaaaaaa,b",'#10'".,a-*-*-*-*-*-,b",'#10'".,a*-*-*-*-*-*,b",'
+'".-.-........,,*a",'#10'".-.-.------.b*ca",'#10'".-.-.------.*ca,",'#10'".-' +#10'".,a-*-*-*-*-*-,b",'#10'".,a*-*-*-*-*-*,b",'#10'".,a-*-*-*-*-*-,b",'#10
+'.-.------*cab,",'#10'".-.-.-----*cadb,",'#10'".-.-.----*caddb,",'#10'".-.-.' +'".,a*-*-*-*-*-*,b",'#10'".,a-*-*-*-*-*-,b",'#10'".,,,,,,,,,,,,,,b",'#10'"..'
+'---*ca--db,",'#10'".-.-.--.ea---db,",'#10'".-.-.--d.----db,",'#10'".d.-.-b.' +'bbbbbbbbbbbbbb",'#10'"................",'#10'"................"}'#10#201#1#0
+'-----db,",'#10'"bb.d.--------db,",'#10'",,bb.dddddddddb,",'#10'",,,,bbbbbbb' +#0'/* XPM */'#10'static char *graphic[] = {'#10'"16 16 6 1",'#10'". c None",'
+'bbbb,",'#10'",,,,,,,,,,,,,,,,"}'#10#141#1#0#0'/* XPM */'#10'static char *gr' +#10'", c #808080",'#10'"- c #FFFFFF",'#10'"* c #FFFF00",'#10'"a c #C0C0C0",'
+'aphic[] = {'#10'"16 16 2 1",'#10'". c None",'#10'", c #000000",'#10'"......' +#10'"b c #000000",'#10'"................",'#10'"...,,,,,........",'#10'"..,-'
+'..........",'#10'"................",'#10'"..,.............",'#10'"..,,.....' +'----,.......",'#10'".,-*a*a*-,,,,,,.",'#10'".,-a*a*a------,b",'#10'".,-*a*a'
+'.......",'#10'"..,,,...........",'#10'"..,,,,..........",'#10'"..,,,,,.....' +'*a*a*a*,b",'#10'",,,,,,,,,,,,,*,b",'#10'",----------,,a,b",'#10'",-*a*a*a*a'
+'....",'#10'"..,,,,,,........",'#10'"..,,,,,,,.......",'#10'"..,,,,,,.......' +'**b,,b",'#10'".,-*a*a*a*a*ab,b",'#10'".,-a*a*a*a*a*b,b",'#10'"..,-a*a*a*a**'
+'.",'#10'"..,,,,,.........",'#10'"..,,,,..........",'#10'"..,,,...........",' +',bb",'#10'"..,,,,,,,,,,,,,b",'#10'"...bbbbbbbbbbbbb",'#10'"................'
+#10'"..,,............",'#10'"..,.............",'#10'"................"}'#10#0 +'",'#10'"................"}'#10#186#1#0#0'/* XPM */'#10'static char *graphic'
+#0#0 +'[] = {'#10'"16 16 5 1",'#10'". c None",'#10'", c #808080",'#10'"- c #FFFFFF'
+'",'#10'"* c #000000",'#10'"a c #C0C0C0",'#10'"................",'#10'".,,,,'
+',,,,.......",'#10'".,------,*......",'#10'".,------,-*.....",'#10'".,------'
+',***....",'#10'".,------aaa*....",'#10'".,-------aa*....",'#10'".,--------a'
+'*....",'#10'".,--------a*....",'#10'".,--------a*....",'#10'".,--------a*..'
+'..",'#10'".,--------a*....",'#10'".,aaaaaaaaa*....",'#10'".***********...."'
+','#10'"................",'#10'"................"}'#10#246#1#0#0'/* XPM */'
+#10'static char *graphic[] = {'#10'"16 16 9 1",'#10'". c None",'#10'", c #80'
+'8080",'#10'"- c #FFFFFF",'#10'"* c #000000",'#10'"a c #0000FF",'#10'"b c #0'
+'00080",'#10'"c c #008080",'#10'"d c #C0C0C0",'#10'"e c #FFFF00",'#10'".....'
+'...........",'#10'".,,,,,,,,.......",'#10'".,------,*....ab",'#10'".,------'
+',-*..acb",'#10'".,------,***acb.",'#10'".,------dddacb..",'#10'".,-------da'
+'cb...",'#10'".,-------acb....",'#10'".,------acb*....",'#10'".,-----,ebd*..'
+'..",'#10'".,-----d,-d*....",'#10'".,----*,--d*....",'#10'".,ddddddddd*...."'
+','#10'".***********....",'#10'"................",'#10'"................"}'
+#10#186#1#0#0'/* XPM */'#10'static char *graphic[] = {'#10'"16 16 5 1",'#10
+'". c #808080",'#10'", c None",'#10'"- c #FFFFFF",'#10'"* c #000000",'#10'"a'
+' c #C0C0C0",'#10'"........,,,,,,,,",'#10'".-........,,,,,,",'#10'".-.-.....'
+'...,,,,",'#10'".-.-.------.*,,,",'#10'".-.-.------.-*,,",'#10'".-.-.------.'
+'***,",'#10'".-.-.------aaa*,",'#10'".-.-.-------aa*,",'#10'".-.-.--------a*'
+',",'#10'".-.-.--------a*,",'#10'".-.-.--------a*,",'#10'".a.-.--------a*,",'
+#10'"**.a.--------a*,",'#10'",,**.aaaaaaaaa*,",'#10'",,,,***********,",'#10
+'",,,,,,,,,,,,,,,,"}'#10#246#1#0#0'/* XPM */'#10'static char *graphic[] = {'
+#10'"16 16 9 1",'#10'". c #808080",'#10'", c None",'#10'"- c #FFFFFF",'#10'"'
+'* c #0000FF",'#10'"a c #000080",'#10'"b c #000000",'#10'"c c #008080",'#10
+'"d c #C0C0C0",'#10'"e c #FFFF00",'#10'"........,,,,,,,,",'#10'".-........,,'
+',,,,",'#10'".-.-........,,*a",'#10'".-.-.------.b*ca",'#10'".-.-.------.*ca'
+',",'#10'".-.-.------*cab,",'#10'".-.-.-----*cadb,",'#10'".-.-.----*caddb,",'
+#10'".-.-.---*ca--db,",'#10'".-.-.--.ea---db,",'#10'".-.-.--d.----db,",'#10
+'".d.-.-b.-----db,",'#10'"bb.d.--------db,",'#10'",,bb.dddddddddb,",'#10'",,'
+',,bbbbbbbbbbb,",'#10'",,,,,,,,,,,,,,,,"}'#10#141#1#0#0'/* XPM */'#10'static'
+' char *graphic[] = {'#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'"..,,............",'#10'"..,.............",'#10'"..............'
+'.."}'#10#0#0#0
]); ]);

14
components/virtualtreeview-unstable/demos/advanced/PropertiesDemo.pas
View File

@ -11,13 +11,14 @@ unit PropertiesDemo;
interface interface
uses uses
LCLIntf, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, LCLIntf, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, VirtualTrees, ImgList, ExtCtrls, LResources; StdCtrls, VirtualTrees, ExtCtrls, LResources;
{$ifdef Windows}
const const
// Helper message to decouple node change handling from edit handling. // Helper message to decouple node change handling from edit handling.
WM_STARTEDITING = WM_USER + 778; WM_STARTEDITING = WM_USER + 778;
{$endif}
type type
TPropertiesForm = class(TForm) TPropertiesForm = class(TForm)
VST3: TVirtualStringTree; VST3: TVirtualStringTree;
@ -45,7 +46,9 @@ type
procedure RadioGroup1Click(Sender: TObject); procedure RadioGroup1Click(Sender: TObject);
procedure VST3StateChange(Sender: TBaseVirtualTree; Enter, Leave: TVirtualTreeStates); procedure VST3StateChange(Sender: TBaseVirtualTree; Enter, Leave: TVirtualTreeStates);
private private
{$ifdef Windows}
procedure WMStartEditing(var Message: TMessage); message WM_STARTEDITING; procedure WMStartEditing(var Message: TMessage); message WM_STARTEDITING;
{$endif}
end; end;
var var
@ -202,7 +205,9 @@ begin
// to start a new edit operation if the last one is still in progress. So we post us a special message and // to start a new edit operation if the last one is still in progress. So we post us a special message and
// in the message handler we then can start editing the new node. This works because the posted message // in the message handler we then can start editing the new node. This works because the posted message
// is first executed *after* this event and the message, which triggered it is finished. // is first executed *after* this event and the message, which triggered it is finished.
{$ifdef Windows}
PostMessage(Self.Handle, WM_STARTEDITING, Integer(Node), 0); PostMessage(Self.Handle, WM_STARTEDITING, Integer(Node), 0);
{$endif}
end; end;
end; end;
end; end;
@ -306,6 +311,7 @@ end;
//---------------------------------------------------------------------------------------------------------------------- //----------------------------------------------------------------------------------------------------------------------
{$ifdef Windows}
procedure TPropertiesForm.WMStartEditing(var Message: TMessage); procedure TPropertiesForm.WMStartEditing(var Message: TMessage);
// This message was posted by ourselves from the node change handler above to decouple that change event and our // This message was posted by ourselves from the node change handler above to decouple that change event and our
@ -320,7 +326,7 @@ begin
// Note: the test whether a node can really be edited is done in the OnEditing event. // Note: the test whether a node can really be edited is done in the OnEditing event.
VST3.EditNode(Node, 1); VST3.EditNode(Node, 1);
end; end;
{$endif}
//---------------------------------------------------------------------------------------------------------------------- //----------------------------------------------------------------------------------------------------------------------
initialization initialization

12
components/virtualtreeview-unstable/demos/advanced/VisibilityDemo.lfm
View File

@ -1,5 +1,5 @@
object VisibilityForm: TVisibilityForm object VisibilityForm: TVisibilityForm
Left = 573 Left = 518
Height = 529 Height = 529
Top = 362 Top = 362
Width = 752 Width = 752
@ -7,6 +7,8 @@ object VisibilityForm: TVisibilityForm
VertScrollBar.Page = 528 VertScrollBar.Page = 528
ActiveControl = VST1 ActiveControl = VST1
Caption = 'VisibilityForm' Caption = 'VisibilityForm'
ClientHeight = 529
ClientWidth = 752
Font.Height = -13 Font.Height = -13
Font.Name = 'MS Sans Serif' Font.Name = 'MS Sans Serif'
OnCreate = FormCreate OnCreate = FormCreate
@ -88,6 +90,8 @@ object VisibilityForm: TVisibilityForm
ChildSizing.ShrinkVertical = crsScaleChilds ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1 ChildSizing.ControlsPerLine = 1
ClientHeight = 88
ClientWidth = 365
ItemIndex = 0 ItemIndex = 0
Items.Strings = ( Items.Strings = (
'show all nodes' 'show all nodes'
@ -104,6 +108,8 @@ object VisibilityForm: TVisibilityForm
Top = 212 Top = 212
Width = 489 Width = 489
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
ClientHeight = 266
ClientWidth = 489
FullRepaint = False FullRepaint = False
TabOrder = 1 TabOrder = 1
object Splitter2: TSplitter object Splitter2: TSplitter
@ -4146,7 +4152,7 @@ object VisibilityForm: TVisibilityForm
ShowHint = True ShowHint = True
TabOrder = 0 TabOrder = 0
TreeOptions.AutoOptions = [toAutoDropExpand, toAutoScroll, toAutoTristateTracking] TreeOptions.AutoOptions = [toAutoDropExpand, toAutoScroll, toAutoTristateTracking]
TreeOptions.MiscOptions = [toAcceptOLEDrop, toCheckSupport, toInitOnSave, toToggleOnDblClick, toWheelPanning] TreeOptions.MiscOptions = [toCheckSupport, toInitOnSave, toToggleOnDblClick, toWheelPanning]
TreeOptions.PaintOptions = [toHideFocusRect, toShowBackground, toShowButtons, toShowDropmark, toShowRoot, toShowTreeLines, toThemeAware, toUseBlendedImages, toUseBlendedSelection] TreeOptions.PaintOptions = [toHideFocusRect, toShowBackground, toShowButtons, toShowDropmark, toShowRoot, toShowTreeLines, toThemeAware, toUseBlendedImages, toUseBlendedSelection]
TreeOptions.SelectionOptions = [toExtendedFocus] TreeOptions.SelectionOptions = [toExtendedFocus]
OnChange = VST2Change OnChange = VST2Change
@ -8193,7 +8199,7 @@ object VisibilityForm: TVisibilityForm
ShowHint = True ShowHint = True
TabOrder = 1 TabOrder = 1
TreeOptions.AutoOptions = [toAutoDropExpand, toAutoScroll, toAutoTristateTracking] TreeOptions.AutoOptions = [toAutoDropExpand, toAutoScroll, toAutoTristateTracking]
TreeOptions.MiscOptions = [toAcceptOLEDrop, toCheckSupport, toInitOnSave, toToggleOnDblClick, toWheelPanning] TreeOptions.MiscOptions = [toCheckSupport, toInitOnSave, toToggleOnDblClick, toWheelPanning]
TreeOptions.PaintOptions = [toHideFocusRect, toShowBackground, toShowButtons, toShowDropmark, toShowRoot, toShowTreeLines, toThemeAware, toUseBlendedImages, toUseBlendedSelection] TreeOptions.PaintOptions = [toHideFocusRect, toShowBackground, toShowButtons, toShowDropmark, toShowRoot, toShowTreeLines, toThemeAware, toUseBlendedImages, toUseBlendedSelection]
TreeOptions.SelectionOptions = [toExtendedFocus, toFullRowSelect] TreeOptions.SelectionOptions = [toExtendedFocus, toFullRowSelect]
OnChange = VST2Change OnChange = VST2Change

14211
components/virtualtreeview-unstable/demos/advanced/VisibilityDemo.lrs
View File

File diff suppressed because it is too large Load Diff

4
components/virtualtreeview-unstable/demos/advanced/VisibilityDemo.pas
View File

@ -12,8 +12,8 @@ unit VisibilityDemo;
interface interface
uses uses
LCLIntf, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, LCLIntf, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, VirtualTrees, ComCtrls, ExtCtrls, ImgList, LResources; StdCtrls, VirtualTrees, ComCtrls, ExtCtrls, LResources;
type type
TVisibilityForm = class(TForm) TVisibilityForm = class(TForm)

32
components/virtualtreeview-unstable/demos/advanced/WindowsXPStyleDemo.lfm
View File

@ -1,7 +1,7 @@
object WindowsXPForm: TWindowsXPForm object WindowsXPForm: TWindowsXPForm
Left = 361 Left = 339
Height = 581 Height = 581
Top = 141 Top = 275
Width = 829 Width = 829
HorzScrollBar.Page = 828 HorzScrollBar.Page = 828
VertScrollBar.Page = 580 VertScrollBar.Page = 580
@ -93,7 +93,7 @@ object WindowsXPForm: TWindowsXPForm
TabOrder = 0 TabOrder = 0
TreeOptions.AnimationOptions = [toAnimatedToggle] TreeOptions.AnimationOptions = [toAnimatedToggle]
TreeOptions.AutoOptions = [toAutoDropExpand, toAutoScroll, toAutoScrollOnExpand, toAutoTristateTracking] TreeOptions.AutoOptions = [toAutoDropExpand, toAutoScroll, toAutoScrollOnExpand, toAutoTristateTracking]
TreeOptions.MiscOptions = [toAcceptOLEDrop, toCheckSupport, toInitOnSave, toReportMode, toToggleOnDblClick, toWheelPanning] TreeOptions.MiscOptions = [toCheckSupport, toInitOnSave, toReportMode, toToggleOnDblClick, toWheelPanning]
TreeOptions.PaintOptions = [toHideFocusRect, toShowButtons, toShowDropmark, toShowRoot, toThemeAware] TreeOptions.PaintOptions = [toHideFocusRect, toShowButtons, toShowDropmark, toShowRoot, toThemeAware]
TreeOptions.SelectionOptions = [toMultiSelect] TreeOptions.SelectionOptions = [toMultiSelect]
OnCompareNodes = XPTreeCompareNodes OnCompareNodes = XPTreeCompareNodes
@ -124,16 +124,15 @@ object WindowsXPForm: TWindowsXPForm
end> end>
end end
object CoolBar1: TPanel object CoolBar1: TPanel
Height = 64 Height = 34
Width = 829 Width = 829
Align = alTop Align = alTop
AutoSize = True AutoSize = True
ClientHeight = 64 ClientHeight = 34
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
@ -152,47 +151,48 @@ object WindowsXPForm: TWindowsXPForm
Style = tbsDropDown Style = tbsDropDown
end end
object ToolButton2: TToolButton object ToolButton2: TToolButton
Left = 44 Left = 45
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 = 257 Left = 89
Top = 2 Top = 2
AutoSize = True AutoSize = True
ImageIndex = 18 ImageIndex = 18
end end
object ToolButton4: TToolButton object ToolButton4: TToolButton
Left = 470 Left = 123
Top = 2 Top = 2
AutoSize = True AutoSize = True
ImageIndex = 14 ImageIndex = 14
end end
object ToolButton5: TToolButton object ToolButton5: TToolButton
Top = 32 Left = 157
Top = 2
AutoSize = True AutoSize = True
ImageIndex = 21 ImageIndex = 21
end end
object ToolButton6: TToolButton object ToolButton6: TToolButton
Left = 213 Left = 191
Top = 32 Top = 2
AutoSize = True AutoSize = True
ImageIndex = 8 ImageIndex = 8
Style = tbsDropDown Style = tbsDropDown
end end
object ToolButton8: TToolButton object ToolButton8: TToolButton
Left = 426 Left = 235
Top = 32 Top = 2
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 = 434 Left = 243
Top = 32 Top = 2
AutoSize = True AutoSize = True
Caption = 'Click here to print the treeview.' Caption = 'Click here to print the treeview.'
ImageIndex = 24 ImageIndex = 24

1068
components/virtualtreeview-unstable/demos/advanced/WindowsXPStyleDemo.lrs
View File

File diff suppressed because it is too large Load Diff

7
components/virtualtreeview-unstable/demos/advanced/WindowsXPStyleDemo.pas
View File

@ -20,7 +20,7 @@ uses
Variants, Variants,
{$endif} {$endif}
LCLIntf, SysUtils, Classes, Graphics, Controls, Forms, LCLIntf, SysUtils, Classes, Graphics, Controls, Forms,
Dialogs, VirtualTrees, ComCtrls, ToolWin, Menus, StdCtrls, Dialogs, VirtualTrees, ComCtrls, Menus, StdCtrls,
LResources, Printers, PrintersDlgs, ExtCtrls; LResources, Printers, PrintersDlgs, ExtCtrls;
type type
@ -72,7 +72,10 @@ var
implementation implementation
uses uses
Main, ShellAPI, States; {$ifdef Windows}
ShellAPI,
{$endif}
Main, States;
type type

8
components/virtualtreeview-unstable/demos/images/Unit1.lfm
View File

@ -1,12 +1,14 @@
object Form1: TForm1 object Form1: TForm1
Left = 198 Left = 283
Height = 458 Height = 458
Top = 110 Top = 314
Width = 538 Width = 538
HorzScrollBar.Page = 537 HorzScrollBar.Page = 537
VertScrollBar.Page = 457 VertScrollBar.Page = 457
ActiveControl = VST1 ActiveControl = VST1
Caption = 'VT - Images' Caption = 'VT - Images'
ClientHeight = 458
ClientWidth = 538
Font.Height = -11 Font.Height = -11
Font.Name = 'MS Sans Serif' Font.Name = 'MS Sans Serif'
OnCreate = FormCreate OnCreate = FormCreate
@ -29,7 +31,7 @@ object Form1: TForm1
StateImages = ImageList2 StateImages = ImageList2
TabOrder = 0 TabOrder = 0
TreeOptions.AutoOptions = [toAutoDropExpand, toAutoScrollOnExpand, toAutoTristateTracking] TreeOptions.AutoOptions = [toAutoDropExpand, toAutoScrollOnExpand, toAutoTristateTracking]
TreeOptions.MiscOptions = [toAcceptOLEDrop, toCheckSupport, toEditable, toFullRepaintOnResize, toInitOnSave, toToggleOnDblClick, toWheelPanning] TreeOptions.MiscOptions = [toCheckSupport, toEditable, toFullRepaintOnResize, toInitOnSave, toToggleOnDblClick, toWheelPanning]
OnBeforeCellPaint = VST1BeforeCellPaint OnBeforeCellPaint = VST1BeforeCellPaint
OnChecking = VST1Checking OnChecking = VST1Checking
OnCompareNodes = VST1CompareNodes OnCompareNodes = VST1CompareNodes

558
components/virtualtreeview-unstable/demos/images/Unit1.lrs
View File

@ -1,61 +1,113 @@
{ This is an automatically generated lazarus resource file } { This is an automatically generated lazarus resource file }
LazarusResources.Add('TForm1','FORMDATA',[ LazarusResources.Add('TForm1','FORMDATA',[
'TPF0'#6'TForm1'#5'Form1'#4'Left'#3#198#0#6'Height'#3#202#1#3'Top'#2'n'#5'Wid' 'TPF0'#6'TForm1'#5'Form1'#4'Left'#3#27#1#6'Height'#3#202#1#3'Top'#3':'#1#5'Wi'
+'th'#3#26#2#18'HorzScrollBar.Page'#3#25#2#18'VertScrollBar.Page'#3#201#1#13 +'dth'#3#26#2#18'HorzScrollBar.Page'#3#25#2#18'VertScrollBar.Page'#3#201#1#13
+'ActiveControl'#7#4'VST1'#7'Caption'#6#11'VT - Images'#11'Font.Height'#2#245 +'ActiveControl'#7#4'VST1'#7'Caption'#6#11'VT - Images'#12'ClientHeight'#3#202
+#9'Font.Name'#6#13'MS Sans Serif'#8'OnCreate'#7#10'FormCreate'#0#18'TVirtual' +#1#11'ClientWidth'#3#26#2#11'Font.Height'#2#245#9'Font.Name'#6#13'MS Sans Se'
+'StringTree'#4'VST1'#6'Height'#3#202#1#5'Width'#3#26#2#5'Align'#7#8'alClient' +'rif'#8'OnCreate'#7#10'FormCreate'#0#18'TVirtualStringTree'#4'VST1'#6'Height'
+#14'CheckImageKind'#7#4'ckXP'#17'DefaultNodeHeight'#2#20#8'DragMode'#7#11'dm' +#3#202#1#5'Width'#3#26#2#5'Align'#7#8'alClient'#14'CheckImageKind'#7#4'ckXP'
+'Automatic'#14'DragOperations'#11#6'doCopy'#6'doMove'#6'doLink'#0#17'DrawSel' +#17'DefaultNodeHeight'#2#20#8'DragMode'#7#11'dmAutomatic'#14'DragOperations'
+'ectionMode'#7#18'smBlendedRectangle'#18'Header.Font.Height'#2#245#16'Header' +#11#6'doCopy'#6'doMove'#6'doLink'#0#17'DrawSelectionMode'#7#18'smBlendedRect'
+'.Font.Name'#6#13'MS Sans Serif'#13'Header.Height'#2#24#13'Header.Images'#7 +'angle'#18'Header.Font.Height'#2#245#16'Header.Font.Name'#6#13'MS Sans Serif'
+#10'ImageList1'#14'Header.Options'#11#14'hoColumnResize'#6'hoDrag'#12'hoShow' +#13'Header.Height'#2#24#13'Header.Images'#7#10'ImageList1'#14'Header.Options'
+'Images'#16'hoShowSortGlyphs'#9'hoVisible'#0#17'Header.SortColumn'#2#0#12'He' +#11#14'hoColumnResize'#6'hoDrag'#12'hoShowImages'#16'hoShowSortGlyphs'#9'hoV'
+'ader.Style'#7#9'hsXPStyle'#11'StateImages'#7#10'ImageList2'#8'TabOrder'#2#0 +'isible'#0#17'Header.SortColumn'#2#0#12'Header.Style'#7#9'hsXPStyle'#11'Stat'
+#23'TreeOptions.AutoOptions'#11#16'toAutoDropExpand'#20'toAutoScrollOnExpand' +'eImages'#7#10'ImageList2'#8'TabOrder'#2#0#23'TreeOptions.AutoOptions'#11#16
+#22'toAutoTristateTracking'#0#23'TreeOptions.MiscOptions'#11#15'toAcceptOLED' +'toAutoDropExpand'#20'toAutoScrollOnExpand'#22'toAutoTristateTracking'#0#23
+'rop'#14'toCheckSupport'#10'toEditable'#21'toFullRepaintOnResize'#12'toInitO' +'TreeOptions.MiscOptions'#11#14'toCheckSupport'#10'toEditable'#21'toFullRepa'
+'nSave'#18'toToggleOnDblClick'#14'toWheelPanning'#0#17'OnBeforeCellPaint'#7 +'intOnResize'#12'toInitOnSave'#18'toToggleOnDblClick'#14'toWheelPanning'#0#17
+#19'VST1BeforeCellPaint'#10'OnChecking'#7#12'VST1Checking'#14'OnCompareNodes' +'OnBeforeCellPaint'#7#19'VST1BeforeCellPaint'#10'OnChecking'#7#12'VST1Checki'
+#7#16'VST1CompareNodes'#9'OnGetText'#7#11'VST1GetText'#15'OnGetImageIndex'#7 +'ng'#14'OnCompareNodes'#7#16'VST1CompareNodes'#9'OnGetText'#7#11'VST1GetText'
+#17'VST1GetImageIndex'#13'OnHeaderClick'#7#15'VST1HeaderClick'#10'OnInitNode' +#15'OnGetImageIndex'#7#17'VST1GetImageIndex'#13'OnHeaderClick'#7#15'VST1Head'
+#7#12'VST1InitNode'#7'Columns'#14#1#10'ImageIndex'#2#0#5'Width'#3#200#0#8'Wi' +'erClick'#10'OnInitNode'#7#12'VST1InitNode'#7'Columns'#14#1#10'ImageIndex'#2
+'deText'#18#4#0#0#0'M'#0'a'#0'i'#0'n'#0#8'WideHint'#18#13#0#0#0'G'#0'l'#0'a' +#0#5'Width'#3#200#0#8'WideText'#18#4#0#0#0'M'#0'a'#0'i'#0'n'#0#8'WideHint'#18
+#0'v'#0'n'#0'a'#0' '#0'k'#0'o'#0'l'#0'o'#0'n'#0'a'#0#0#1#10'ImageIndex'#2#1#8 +#13#0#0#0'G'#0'l'#0'a'#0'v'#0'n'#0'a'#0' '#0'k'#0'o'#0'l'#0'o'#0'n'#0'a'#0#0
+'Position'#2#1#5'Width'#2'F'#8'WideText'#18#3#0#0#0'O'#0'n'#0'e'#0#0#1#10'Im' +#1#10'ImageIndex'#2#1#8'Position'#2#1#5'Width'#2'F'#8'WideText'#18#3#0#0#0'O'
+'ageIndex'#2#2#8'Position'#2#2#5'Width'#2'F'#8'WideText'#18#3#0#0#0'T'#0'w'#0 +#0'n'#0'e'#0#0#1#10'ImageIndex'#2#2#8'Position'#2#2#5'Width'#2'F'#8'WideText'
+'o'#0#0#1#8'Position'#2#3#5'Width'#3#150#0#8'WideText'#18#7#0#0#0'P'#0'e'#0 +#18#3#0#0#0'T'#0'w'#0'o'#0#0#1#8'Position'#2#3#5'Width'#3#150#0#8'WideText'
+'r'#0'c'#0'e'#0'n'#0't'#0#0#0#0#0#10'TImageList'#10'ImageList1'#6'Height'#2 +#18#7#0#0#0'P'#0'e'#0'r'#0'c'#0'e'#0'n'#0't'#0#0#0#0#0#10'TImageList'#10'Ima'
+#24#5'Width'#2#24#4'left'#3#144#0#3'top'#2#8#6'Bitmap'#10't'#15#0#0'li'#3#0#0 +'geList1'#6'Height'#2#24#5'Width'#2#24#4'left'#3#144#0#3'top'#2#8#6'Bitmap'
+#0#24#0#0#0#24#0#0#0#204#6#0#0'/* XPM */'#10'static char *graphic[] = {'#10 +#10't'#15#0#0'li'#3#0#0#0#24#0#0#0#24#0#0#0#204#6#0#0'/* XPM */'#10'static c'
+'"24 24 68 1",'#10'". c None",'#10'", c #92BDED",'#10'"- c #87A8DC",'#10'"* ' +'har *graphic[] = {'#10'"24 24 68 1",'#10'". c None",'#10'", c #92BDED",'#10
+'c #7681B4",'#10'"a c #E7EFF6",'#10'"b c #E2F0FE",'#10'"c c #DFEAF5",'#10'"d' +'"- c #87A8DC",'#10'"* c #7681B4",'#10'"a c #E7EFF6",'#10'"b c #E2F0FE",'#10
+' c #D8E4EF",'#10'"e c #D4DBEA",'#10'"f c #CCDAEC",'#10'"g c #CDD1E4",'#10'"' +'"c c #DFEAF5",'#10'"d c #D8E4EF",'#10'"e c #D4DBEA",'#10'"f c #CCDAEC",'#10
+'h c #CAD2DE",'#10'"i c #94A8D6",'#10'"j c #FEFFFF",'#10'"k c #FFFEFF",'#10 +'"g c #CDD1E4",'#10'"h c #CAD2DE",'#10'"i c #94A8D6",'#10'"j c #FEFFFF",'#10
+'"l c #FFFFFF",'#10'"m c #FEFEFE",'#10'"n c #F7FAFE",'#10'"o c #A1C8EA",'#10 +'"k c #FFFEFF",'#10'"l c #FFFFFF",'#10'"m c #FEFEFE",'#10'"n c #F7FAFE",'#10
+'"p c #8EB1E3",'#10'"q c #FFFCFF",'#10'"r c #EEF8FF",'#10'"s c #7CC4FC",'#10 +'"o c #A1C8EA",'#10'"p c #8EB1E3",'#10'"q c #FFFCFF",'#10'"r c #EEF8FF",'#10
+'"t c #829ACB",'#10'"u c #FEFEFF",'#10'"v c #FAFAFD",'#10'"w c #4CB0FC",'#10 +'"s c #7CC4FC",'#10'"t c #829ACB",'#10'"u c #FEFEFF",'#10'"v c #FAFAFD",'#10
+'"x c #0F9BFB",'#10'"y c #6493D3",'#10'"z c #FBFEFC",'#10'"A c #F8FDFF",'#10 +'"w c #4CB0FC",'#10'"x c #0F9BFB",'#10'"y c #6493D3",'#10'"z c #FBFEFC",'#10
+'"B c #E9F4FE",'#10'"C c #FEFEFC",'#10'"D c #FBFCFF",'#10'"E c #F3F9FE",'#10 +'"A c #F8FDFF",'#10'"B c #E9F4FE",'#10'"C c #FEFEFC",'#10'"D c #FBFCFF",'#10
+'"F c #C9D6FE",'#10'"G c #B5B9F3",'#10'"H c #A2A3FC",'#10'"I c #FCFBFB",'#10 +'"E c #F3F9FE",'#10'"F c #C9D6FE",'#10'"G c #B5B9F3",'#10'"H c #A2A3FC",'#10
+'"J c #D7EBFE",'#10'"K c #C2CFFE",'#10'"L c #7478A4",'#10'"M c #FBFBF8",'#10 +'"I c #FCFBFB",'#10'"J c #D7EBFE",'#10'"K c #C2CFFE",'#10'"L c #7478A4",'#10
+'"N c #EFA998",'#10'"O c #E2D6E2",'#10'"P c #CAE4FE",'#10'"Q c #FAFAFA",'#10 +'"M c #FBFBF8",'#10'"N c #EFA998",'#10'"O c #E2D6E2",'#10'"P c #CAE4FE",'#10
+'"R c #E4CDD1",'#10'"S c #FB3503",'#10'"T c #D6C4CF",'#10'"U c #FA7145",'#10 +'"Q c #FAFAFA",'#10'"R c #E4CDD1",'#10'"S c #FB3503",'#10'"T c #D6C4CF",'#10
+'"V c #F75A29",'#10'"W c #F5F6F9",'#10'"X c #666B98",'#10'"Y c #858EBA",'#10 +'"U c #FA7145",'#10'"V c #F75A29",'#10'"W c #F5F6F9",'#10'"X c #666B98",'#10
+'"Z c #F2F3FA",'#10'"0 c #F18266",'#10'"1 c #BBDDFE",'#10'"2 c #ECF3F8",'#10 +'"Y c #858EBA",'#10'"Z c #F2F3FA",'#10'"0 c #F18266",'#10'"1 c #BBDDFE",'#10
+'"3 c #EAEAEC",'#10'"4 c #E2E3F1",'#10'"5 c #D4ACA9",'#10'"6 c #B7D0FE",'#10 +'"2 c #ECF3F8",'#10'"3 c #EAEAEC",'#10'"4 c #E2E3F1",'#10'"5 c #D4ACA9",'#10
+'"7 c #ABD7FE",'#10'"8 c #5C5D8C",'#10'"9 c #D1E3F3",'#10'"@ c #CCC0CC",'#10 +'"6 c #B7D0FE",'#10'"7 c #ABD7FE",'#10'"8 c #5C5D8C",'#10'"9 c #D1E3F3",'#10
+'"# c #9ACCFE",'#10'"...,-----------*-a......",'#10'"...,bbccddeefgh*-ia....' +'"@ c #CCC0CC",'#10'"# c #9ACCFE",'#10'"...,-----------*-a......",'#10'"...,'
+'.",'#10'"...,jklmlmljmnn*op-a....",'#10'"...,qllkjlljnnr*ost-a...",'#10'"..' +'bbccddeefgh*-ia.....",'#10'"...,jklmlmljmnn*op-a....",'#10'"...,qllkjlljnnr'
+'.pujlkmkkvnrr*pwxyt...",'#10'"...pzjkmjmAnrrB******...",'#10'"...-CkkluDErr' +'*ost-a...",'#10'"...pujlkmkkvnrr*pwxyt...",'#10'"...pzjkmjmAnrrB******...",'
+'BBbFGHH*...",'#10'"...-ICjlDnErBBbbJFKGL...",'#10'"...-MllAnErBbbNOJJPKL...' +#10'"...-CkkluDErrBBbFGHH*...",'#10'"...-ICjlDnErBBbbJFKGL...",'#10'"...-Mll'
+'",'#10'"...tQlDnErBBbRSSTPPFL...",'#10'"...tvAnErBBbcUSVJPPFL...",'#10'"...' +'AnErBbbNOJJPKL...",'#10'"...tQlDnErBBbRSSTPPFL...",'#10'"...tvAnErBBbcUSVJP'
+'tWDErBBbbNSSTPPPFX...",'#10'"...YZErBBbbdSS0PPP1FX...",'#10'"...Y2r3S04J0SS' +'PFL...",'#10'"...tWDErBBbbNSSTPPPFX...",'#10'"...YZErBBbbdSS0PPP1FX...",'#10
+'FP111FX...",'#10'"...*2BNSSSNSS5P1111KX...",'#10'"...*aBbNSSSSVP111116X..."' +'"...Y2r3S04J0SSFP111FX...",'#10'"...*2BNSSSNSS5P1111KX...",'#10'"...*aBbNSS'
+','#10'"...*cbbJd0SST11111768...",'#10'"...*cbJJP9@N1111177K8...",'#10'"...L' +'SSVP111116X...",'#10'"...*cbbJd0SST11111768...",'#10'"...*cbJJP9@N1111177K8'
+'4JJJPPF1111177768...",'#10'"...LdJJPPPP1111777768...",'#10'"...L9JPPPP11117' +'...",'#10'"...L4JJJPPF1111177768...",'#10'"...LdJJPPPP1111777768...",'#10'"'
+'777#68...",'#10'"...LfFFFFFFF6KK666668...",'#10'"...LLLLLLLLLLLLLLLLL8...",' +'...L9JPPPP11117777#68...",'#10'"...LfFFFFFFF6KK666668...",'#10'"...LLLLLLLL'
+'LLLLLLLLL8...",'#10'"........................"}'#10'G'#4#0#0'/* XPM */'#10
+'static char *graphic[] = {'#10'"24 24 25 1",'#10'". c None",'#10'", c #A0B4'
+'DA",'#10'"- c #5879BD",'#10'"* c #024BAF",'#10'"a c #2956AB",'#10'"b c #083'
+'FA2",'#10'"c c #B3BDE2",'#10'"d c #F0F0F8",'#10'"e c #CCDAEC",'#10'"f c #EC'
+'F3F8",'#10'"g c #266EC5",'#10'"h c #4CB0FC",'#10'"i c #0F9BFB",'#10'"j c #0'
+'37EE2",'#10'"k c #0158BD",'#10'"l c #4166B3",'#10'"m c #6493D3",'#10'"n c #'
+'94A8D6",'#10'"o c #BECDE5",'#10'"p c #0167CC",'#10'"q c #E2E3F1",'#10'"r c '
+'#DFEAF5",'#10'"s c #F2F3FA",'#10'"t c #829ACB",'#10'"u c #D4DBEA",'#10'"...'
+'.....................",'#10'"........................",'#10'"..............'
,'..........",'#10'".....,-*ab-c.......d,e..",'#10'"...f-ghhhijkae.....a**c."'
+','#10'"...lmhhhiiiijbn...o*ppl.",'#10'"..,ghhjk*kpjjj*-..o*ppl.",'#10'"..ai'
+'hjaq.r-*jjpk-.o*ppl.",'#10'".f*hi*q....obkppk-o*ppl.",'#10'".opiil......sak'
+'ppka*ppl.",'#10'".opij-.......sakppk*ppl.",'#10'".ekija........dakpppppl.",'
+#10'"..*jj*r....ntttmbkppppl.",'#10'"..-pjk-...n*kkkkkpppppl.",'#10'"..o*ppb'
+'o..tkppppppppppl.",'#10'"...lkpkad.eb**********l.",'#10'"...obpp*-.........'
+'......",'#10'"....m*pp*-..............",'#10'"....dakpp*,.............",'#10
+'".....ubkpp*n............",'#10'"......u*ppb,............",'#10'".......ubb'
+'m.............",'#10'"........um..............",'#10'".....................'
+'..."}'#10'G'#4#0#0'/* XPM */'#10'static char *graphic[] = {'#10'"24 24 25 1'
+'",'#10'". c None",'#10'", c #ECF3F8",'#10'"- c #A0B4DA",'#10'"* c #6493D3",'
+#10'"a c #4166B3",'#10'"b c #5879BD",'#10'"c c #BECDE5",'#10'"d c #2956AB",'
+#10'"e c #024BAF",'#10'"f c #829ACB",'#10'"g c #F2F3FA",'#10'"h c #0167CC",'
+#10'"i c #037EE2",'#10'"j c #0158BD",'#10'"k c #083FA2",'#10'"l c #4CB0FC",'
+#10'"m c #7CC4FC",'#10'"n c #CCDAEC",'#10'"o c #DFEAF5",'#10'"p c #0F9BFB",'
+#10'"q c #94A8D6",'#10'"r c #E2E3F1",'#10'"s c #D4DBEA",'#10'"t c #7681B4",'
+#10'"u c #B3BDE2",'#10'"........................",'#10'"....................'
+'....",'#10'"........................",'#10'".............,-*ab-,....",'#10
+'"..cdef.....gfehhihjk-...",'#10'"..alme....ndhiiiiihhk-..",'#10'"..alle...-'
+'eiiiijjjhhhko.",'#10'"..alpe..-eiiijdqcfkhhjb.",'#10'"..appe.-jiiikf....-eh'
+'hk.",'#10'"..appe-eiihkc......dhher",'#10'"..apieeiihks.......ahhec",'#10'"'
+'..aiiiiihks........dhhen",'#10'"..aiiihhkqcccr....oehhk.",'#10'"..aiihhjeee'
+'eekn...tjhjb.",'#10'"..ahhhhhhhhhhjf..okhhe-.",'#10'"..ajjjjjjjjjjku..ajhhd'
+'..",'#10'"................fehhku..",'#10'"...............-khhja...",'#10'".'
+'.............-khhhkg...",'#10'".............-khhhkc....",'#10'"............'
+'.bjhhk-.....",'#10'"..............djk-......",'#10'"..............gk-......'
+'.",'#10'"........................"}'#10#0#0#10'TImageList'#10'ImageList2'#6
+'Height'#2#24#5'Width'#2#24#4'left'#3#144#0#3'top'#3#160#0#6'Bitmap'#10'h'
+#182#0#0'li'#27#0#0#0#24#0#0#0#24#0#0#0#177#3#0#0'/* XPM */'#10'static char '
+'*graphic[] = {'#10'"24 24 15 1",'#10'". c None",'#10'", c #FAD7CE",'#10'"- '
+'c #FA7145",'#10'"* c #F18266",'#10'"a c #FB3503",'#10'"b c #FDF6F0",'#10'"c'
+' c #F75A29",'#10'"d c #EFA998",'#10'"e c #DE3207",'#10'"f c #DCC6BE",'#10'"'
+'g c #F3F3F3",'#10'"h c #E4CDD1",'#10'"i c #E1DDC7",'#10'"j c #ECE3D0",'#10
+'"k c #EAEAEC",'#10'"........................",'#10'".......................'
+'.",'#10'".,--,...................",'#10'".*aaa,..................",'#10'".*'
+'aaaa,.................",'#10'".bcaaaa,..........da,...",'#10'"..bcaaaa,....'
+'...b-a-....",'#10'"....*aaaa,.....,ca*.....",'#10'".....*aeaa,...daa*......'
+'",'#10'"......daaea,b*aa*.......",'#10'".......deaeacae*........",'#10'"...'
+'.....feaeea*.........",'#10'".........*eeae,.........",'#10'".......b-eaeee'
+'e,........",'#10'"......,ceeedceee,.......",'#10'".....deeeed.gceee,......"'
+','#10'"....*eeeed....*eee,.....",'#10'"..gceeeed......*eee,....",'#10'".bee'
+'eeef........deee,...",'#10'".heeee,..........deee,..",'#10'".beeei.........'
+'...heee,.",'#10'"..jhk..............,eee.",'#10'"....................,cd.",'
+#10'"........................"}'#10'G'#4#0#0'/* XPM */'#10'static char *grap' +#10'"........................"}'#10'G'#4#0#0'/* XPM */'#10'static char *grap'
+'hic[] = {'#10'"24 24 25 1",'#10'". c None",'#10'", c #A0B4DA",'#10'"- c #58' +'hic[] = {'#10'"24 24 25 1",'#10'". c None",'#10'", c #A0B4DA",'#10'"- c #58'
+'79BD",'#10'"* c #024BAF",'#10'"a c #2956AB",'#10'"b c #083FA2",'#10'"c c #B' +'79BD",'#10'"* c #024BAF",'#10'"a c #2956AB",'#10'"b c #083FA2",'#10'"c c #B'
@ -65,7 +117,7 @@ LazarusResources.Add('TForm1','FORMDATA',[
+' #BECDE5",'#10'"p c #0167CC",'#10'"q c #E2E3F1",'#10'"r c #DFEAF5",'#10'"s ' +' #BECDE5",'#10'"p c #0167CC",'#10'"q c #E2E3F1",'#10'"r c #DFEAF5",'#10'"s '
+'c #F2F3FA",'#10'"t c #829ACB",'#10'"u c #D4DBEA",'#10'"....................' +'c #F2F3FA",'#10'"t c #829ACB",'#10'"u c #D4DBEA",'#10'"....................'
+'....",'#10'"........................",'#10'"........................",'#10 +'....",'#10'"........................",'#10'"........................",'#10
,'".....,-*ab-c.......d,e..",'#10'"...f-ghhhijkae.....a**c.",'#10'"...lmhhhii' +'".....,-*ab-c.......d,e..",'#10'"...f-ghhhijkae.....a**c.",'#10'"...lmhhhii'
+'iijbn...o*ppl.",'#10'"..,ghhjk*kpjjj*-..o*ppl.",'#10'"..aihjaq.r-*jjpk-.o*p' +'iijbn...o*ppl.",'#10'"..,ghhjk*kpjjj*-..o*ppl.",'#10'"..aihjaq.r-*jjpk-.o*p'
+'pl.",'#10'".f*hi*q....obkppk-o*ppl.",'#10'".opiil......sakppka*ppl.",'#10'"' +'pl.",'#10'".f*hi*q....obkppk-o*ppl.",'#10'".opiil......sakppka*ppl.",'#10'"'
+'.opij-.......sakppk*ppl.",'#10'".ekija........dakpppppl.",'#10'"..*jj*r....' +'.opij-.......sakppk*ppl.",'#10'".ekija........dakpppppl.",'#10'"..*jj*r....'
@ -77,7 +129,7 @@ LazarusResources.Add('TForm1','FORMDATA',[
+#0#0'/* XPM */'#10'static char *graphic[] = {'#10'"24 24 25 1",'#10'". c Non' +#0#0'/* XPM */'#10'static char *graphic[] = {'#10'"24 24 25 1",'#10'". c Non'
+'e",'#10'", c #ECF3F8",'#10'"- c #A0B4DA",'#10'"* c #6493D3",'#10'"a c #4166' +'e",'#10'", c #ECF3F8",'#10'"- c #A0B4DA",'#10'"* c #6493D3",'#10'"a c #4166'
+'B3",'#10'"b c #5879BD",'#10'"c c #BECDE5",'#10'"d c #2956AB",'#10'"e c #024' +'B3",'#10'"b c #5879BD",'#10'"c c #BECDE5",'#10'"d c #2956AB",'#10'"e c #024'
+'BAF",'#10'"f c #829ACB",'#10'"g c #F2F3FA",'#10'"h c #0167CC",'#10'"i c #03' ,'BAF",'#10'"f c #829ACB",'#10'"g c #F2F3FA",'#10'"h c #0167CC",'#10'"i c #03'
+'7EE2",'#10'"j c #0158BD",'#10'"k c #083FA2",'#10'"l c #4CB0FC",'#10'"m c #7' +'7EE2",'#10'"j c #0158BD",'#10'"k c #083FA2",'#10'"l c #4CB0FC",'#10'"m c #7'
+'CC4FC",'#10'"n c #CCDAEC",'#10'"o c #DFEAF5",'#10'"p c #0F9BFB",'#10'"q c #' +'CC4FC",'#10'"n c #CCDAEC",'#10'"o c #DFEAF5",'#10'"p c #0F9BFB",'#10'"q c #'
+'94A8D6",'#10'"r c #E2E3F1",'#10'"s c #D4DBEA",'#10'"t c #7681B4",'#10'"u c ' +'94A8D6",'#10'"r c #E2E3F1",'#10'"s c #D4DBEA",'#10'"t c #7681B4",'#10'"u c '
@ -91,228 +143,176 @@ LazarusResources.Add('TForm1','FORMDATA',[
+'................fehhku..",'#10'"...............-khhja...",'#10'"...........' +'................fehhku..",'#10'"...............-khhja...",'#10'"...........'
+'...-khhhkg...",'#10'".............-khhhkc....",'#10'".............bjhhk-...' +'...-khhhkg...",'#10'".............-khhhkc....",'#10'".............bjhhk-...'
+'..",'#10'"..............djk-......",'#10'"..............gk-.......",'#10'".' +'..",'#10'"..............djk-......",'#10'"..............gk-.......",'#10'".'
+'......................."}'#10#0#0#10'TImageList'#10'ImageList2'#6'Height'#2 +'......................."}'#10#204#6#0#0'/* XPM */'#10'static char *graphic['
+#24#5'Width'#2#24#4'left'#3#144#0#3'top'#3#160#0#6'Bitmap'#10'h'#182#0#0'li' +'] = {'#10'"24 24 68 1",'#10'". c None",'#10'", c #92BDED",'#10'"- c #87A8DC'
+#27#0#0#0#24#0#0#0#24#0#0#0#177#3#0#0'/* XPM */'#10'static char *graphic[] =' +'",'#10'"* c #7681B4",'#10'"a c #E7EFF6",'#10'"b c #E2F0FE",'#10'"c c #DFEAF'
+' {'#10'"24 24 15 1",'#10'". c None",'#10'", c #FAD7CE",'#10'"- c #FA7145",' +'5",'#10'"d c #D8E4EF",'#10'"e c #D4DBEA",'#10'"f c #CCDAEC",'#10'"g c #CDD1'
+#10'"* c #F18266",'#10'"a c #FB3503",'#10'"b c #FDF6F0",'#10'"c c #F75A29",' +'E4",'#10'"h c #CAD2DE",'#10'"i c #94A8D6",'#10'"j c #FEFFFF",'#10'"k c #FFF'
+#10'"d c #EFA998",'#10'"e c #DE3207",'#10'"f c #DCC6BE",'#10'"g c #F3F3F3",' +'EFF",'#10'"l c #FFFFFF",'#10'"m c #FEFEFE",'#10'"n c #F7FAFE",'#10'"o c #A1'
+#10'"h c #E4CDD1",'#10'"i c #E1DDC7",'#10'"j c #ECE3D0",'#10'"k c #EAEAEC",' +'C8EA",'#10'"p c #8EB1E3",'#10'"q c #FFFCFF",'#10'"r c #EEF8FF",'#10'"s c #7'
+#10'"........................",'#10'"........................",'#10'".,--,..' +'CC4FC",'#10'"t c #829ACB",'#10'"u c #FEFEFF",'#10'"v c #FAFAFD",'#10'"w c #'
+'.................",'#10'".*aaa,..................",'#10'".*aaaa,...........' +'4CB0FC",'#10'"x c #0F9BFB",'#10'"y c #6493D3",'#10'"z c #FBFEFC",'#10'"A c '
+'......",'#10'".bcaaaa,..........da,...",'#10'"..bcaaaa,.......b-a-....",'#10 +'#F8FDFF",'#10'"B c #E9F4FE",'#10'"C c #FEFEFC",'#10'"D c #FBFCFF",'#10'"E c'
+'"....*aaaa,.....,ca*.....",'#10'".....*aeaa,...daa*......",'#10'"......daae' +' #F3F9FE",'#10'"F c #C9D6FE",'#10'"G c #B5B9F3",'#10'"H c #A2A3FC",'#10'"I '
+'a,b*aa*.......",'#10'".......deaeacae*........",'#10'"........feaeea*......' +'c #FCFBFB",'#10'"J c #D7EBFE",'#10'"K c #C2CFFE",'#10'"L c #7478A4",'#10'"M'
+'...",'#10'".........*eeae,.........",'#10'".......b-eaeeee,........",'#10'"' +' c #FBFBF8",'#10'"N c #EFA998",'#10'"O c #E2D6E2",'#10'"P c #CAE4FE",'#10'"'
+'......,ceeedceee,.......",'#10'".....deeeed.gceee,......",'#10'"....*eeeed.' +'Q c #FAFAFA",'#10'"R c #E4CDD1",'#10'"S c #FB3503",'#10'"T c #D6C4CF",'#10
+'...*eee,.....",'#10'"..gceeeed......*eee,....",'#10'".beeeeef........deee,.' +'"U c #FA7145",'#10'"V c #F75A29",'#10'"W c #F5F6F9",'#10'"X c #666B98",'#10
+'..",'#10'".heeee,..........deee,..",'#10'".beeei............heee,.",'#10'".' +'"Y c #858EBA",'#10'"Z c #F2F3FA",'#10'"0 c #F18266",'#10'"1 c #BBDDFE",'#10
+'.jhk..............,eee.",'#10'"....................,cd.",'#10'"............' +'"2 c #ECF3F8",'#10'"3 c #EAEAEC",'#10'"4 c #E2E3F1",'#10'"5 c #D4ACA9",'#10
+'............"}'#10'G'#4#0#0'/* XPM */'#10'static char *graphic[] = {'#10'"2' +'"6 c #B7D0FE",'#10'"7 c #ABD7FE",'#10'"8 c #5C5D8C",'#10'"9 c #D1E3F3",'#10
+'4 24 25 1",'#10'". c None",'#10'", c #A0B4DA",'#10'"- c #5879BD",'#10'"* c ' +'"@ c #CCC0CC",'#10'"# c #9ACCFE",'#10'"...,-----------*-a......",'#10'"...,'
+'#024BAF",'#10'"a c #2956AB",'#10'"b c #083FA2",'#10'"c c #B3BDE2",'#10'"d c' +'bbccddeefgh*-ia.....",'#10'"...,jklmlmljmnn*op-a....",'#10'"...,qllkjlljnnr'
+' #F0F0F8",'#10'"e c #CCDAEC",'#10'"f c #ECF3F8",'#10'"g c #266EC5",'#10'"h ' +'*ost-a...",'#10'"...pujlkmkkvnrr*pwxyt...",'#10'"...pzjkmjmAnrrB******...",'
+'c #4CB0FC",'#10'"i c #0F9BFB",'#10'"j c #037EE2",'#10'"k c #0158BD",'#10'"l' +#10'"...-CkkluDErrBBbFGHH*...",'#10'"...-ICjlDnErBBbbJFKGL...",'#10'"...-Mll'
+' c #4166B3",'#10'"m c #6493D3",'#10'"n c #94A8D6",'#10'"o c #BECDE5",'#10'"' +'AnErBbbNOJJPKL...",'#10'"...tQlDnErBBbRSSTPPFL...",'#10'"...tvAnErBBbcUSVJP'
+'p c #0167CC",'#10'"q c #E2E3F1",'#10'"r c #DFEAF5",'#10'"s c #F2F3FA",'#10 +'PFL...",'#10'"...tWDErBBbbNSSTPPPFX...",'#10'"...YZErBBbbdSS0PPP1FX...",'#10
+'"t c #829ACB",'#10'"u c #D4DBEA",'#10'"........................",'#10'"....' +'"...Y2r3S04J0SSFP111FX...",'#10'"...*2BNSSSNSS5P1111KX...",'#10'"...*aBbNSS'
+'....................",'#10'"........................",'#10'".....,-*ab-c...' +'SSVP111116X...",'#10'"...*cbbJd0SST11111768...",'#10'"...*cbJJP9@N1111177K8'
+'....d,e..",'#10'"...f-ghhhijkae.....a**c.",'#10'"...lmhhhiiiijbn...o*ppl.",' +'...",'#10'"...L4JJJPPF1111177768...",'#10'"...LdJJPPPP1111777768...",'#10'"'
+#10'"..,ghhjk*kpjjj*-..o*ppl.",'#10'"..aihjaq.r-*jjpk-.o*ppl.",'#10'".f*hi*q' +'...L9JPPPP11117777#68...",'#10'"...LfFFFFFFF6KK666668...",'#10'"...LLLLLLLL'
+'....obkppk-o*ppl.",'#10'".opiil......sakppka*ppl.",'#10'".opij-.......sakpp' +'LLLLLLLLL8...",'#10'"........................"}'#10'd'#5#0#0'/* XPM */'#10
+'k*ppl.",'#10'".ekija........dakpppppl.",'#10'"..*jj*r....ntttmbkppppl.",'#10 +'static char *graphic[] = {'#10'"24 24 44 1",'#10'". c None",'#10'", c #EAEA'
+'"..-pjk-...n*kkkkkpppppl.",'#10'"..o*ppbo..tkppppppppppl.",'#10'"...lkpkad.' +'EC",'#10'"- c #C6C9DB",'#10'"* c #D3D7DE",'#10'"a c #4D5B6F",'#10'"b c #5B6'
+'eb**********l.",'#10'"...obpp*-...............",'#10'"....m*pp*-...........' +'A82",'#10'"c c #B7BCCA",'#10'"d c #F2F3FA",'#10'"e c #707D92",'#10'"f c #97'
+'...",'#10'"....dakpp*,.............",'#10'".....ubkpp*n............",'#10'"' +'A0B1",'#10'"g c #CAD2DE",'#10'"h c #E0E0E1",'#10'"i c #828CA1",'#10'"j c #A'
+'......u*ppb,............",'#10'".......ubbm.............",'#10'"........um.' +'BB8C6",'#10'"k c #A6AAB9",'#10'"l c #C2C2C3",'#10'"m c #F3F3F3",'#10'"n c #'
+'.............",'#10'"........................"}'#10'G'#4#0#0'/* XPM */'#10 +'C7C7C7",'#10'"o c #CACACC",'#10'"p c #8E96A4",'#10'"q c #C0C0C0",'#10'"r c '
+'static char *graphic[] = {'#10'"24 24 25 1",'#10'". c None",'#10'", c #ECF3' +'#B9B9B9",'#10'"s c #ABABC8",'#10'"t c #E2E3F1",'#10'"u c #C4C4C4",'#10'"v c'
+'F8",'#10'"- c #A0B4DA",'#10'"* c #6493D3",'#10'"a c #4166B3",'#10'"b c #587' +' #E7EFF6",'#10'"w c #7681B4",'#10'"x c #2956AB",'#10'"y c #4166B3",'#10'"z '
+'9BD",'#10'"c c #BECDE5",'#10'"d c #2956AB",'#10'"e c #024BAF",'#10'"f c #82' +'c #5879BD",'#10'"A c #829ACB",'#10'"B c #083FA2",'#10'"C c #858EBA",'#10'"D'
,'9ACB",'#10'"g c #F2F3FA",'#10'"h c #0167CC",'#10'"i c #037EE2",'#10'"j c #0' +' c #024BAF",'#10'"E c #0167CC",'#10'"F c #A0B4DA",'#10'"G c #BECDE5",'#10'"'
+'158BD",'#10'"k c #083FA2",'#10'"l c #4CB0FC",'#10'"m c #7CC4FC",'#10'"n c #' +'H c #0158BD",'#10'"I c #ECF3F8",'#10'"J c #B3BDE2",'#10'"K c #6493D3",'#10
+'CCDAEC",'#10'"o c #DFEAF5",'#10'"p c #0F9BFB",'#10'"q c #94A8D6",'#10'"r c ' +'"L c #D4DBEA",'#10'"M c #DFEAF5",'#10'"N c #94A8D6",'#10'".................'
+'#E2E3F1",'#10'"s c #D4DBEA",'#10'"t c #7681B4",'#10'"u c #B3BDE2",'#10'"...' +'.......",'#10'".....,-..........**.....",'#10'".....*a,.........bc.....",'
+'.....................",'#10'"........................",'#10'"..............' +#10'".....dbe........fa*.....",'#10'"......ebg......hbb......",'#10'"......f'
+'..........",'#10'".............,-*ab-,....",'#10'"..cdef.....gfehhihjk-..."' +'fb......efi......",'#10'"......hijf....jfkl......",'#10'".......eme*..,ehb.'
+','#10'"..alme....ndhiiiiihhk-..",'#10'"..alle...-eiiiijjjhhhko.",'#10'"..al' +'......",'#10'".......kkne..ifkf.......",'#10'".......,bopj*eqe*.......",'#10
+'pe..-eiiijdqcfkhhjb.",'#10'"..appe.-jiiikf....-ehhk.",'#10'"..appe-eiihkc..' +'"........pkrbekse........",'#10'"........,bcfbkb*........",'#10'".........l'
+'....dhher",'#10'"..apieeiihks.......ahhec",'#10'"..aiiiiihks........dhhen",' +'btubp.........",'#10'".........vbefb*.........",'#10'".........wxbbyz......'
+#10'"..aiiihhkqcccr....oehhk.",'#10'"..aiihhjeeeeekn...tjhjb.",'#10'"..ahhhh' +'...",'#10'"......ABBBBzwBBBBCd.....",'#10'".....zDEEEDFGDEHEHz.....",'#10'"'
+'hhhhhhjf..okhhe-.",'#10'"..ajjjjjjjjjjku..ajhhd..",'#10'"................fe' +'....GDDzzHDt.BHzzHDF....",'#10'"....zHz.IDD..DD..zEz....",'#10'"....yDJ.tDD'
+'hhku..",'#10'"...............-khhja...",'#10'"..............-khhhkg...",'#10 +'..xD..JDx....",'#10'"....yHAIzDz..wDz.zHx....",'#10'"....KDDBDBL..MBDBDHz..'
+'".............-khhhkc....",'#10'".............bjhhk-.....",'#10'"..........' ,'..",'#10'"....mBBDBF....LBDDBL....",'#10'".....dNNt......dFNd....."}'#10'6'
+'....djk-......",'#10'"..............gk-.......",'#10'".....................' +#6#0#0'/* XPM */'#10'static char *graphic[] = {'#10'"24 24 58 1",'#10'". c N'
+'..."}'#10#204#6#0#0'/* XPM */'#10'static char *graphic[] = {'#10'"24 24 68 ' +'one",'#10'", c #92BDED",'#10'"- c #87A8DC",'#10'"* c #7681B4",'#10'"a c #BE'
+'1",'#10'". c None",'#10'", c #92BDED",'#10'"- c #87A8DC",'#10'"* c #7681B4"' +'CDE5",'#10'"b c #FEFEFC",'#10'"c c #FFFCFF",'#10'"d c #FEFEFE",'#10'"e c #F'
+','#10'"a c #E7EFF6",'#10'"b c #E2F0FE",'#10'"c c #DFEAF5",'#10'"d c #D8E4EF' +'BFEFC",'#10'"f c #FAFAFA",'#10'"g c #F8F8F8",'#10'"h c #F5F6F9",'#10'"i c #'
+'",'#10'"e c #D4DBEA",'#10'"f c #CCDAEC",'#10'"g c #CDD1E4",'#10'"h c #CAD2D' +'ECF3F8",'#10'"j c #8EB1E3",'#10'"k c #B5C5D8",'#10'"l c #FEFEFF",'#10'"m c '
+'E",'#10'"i c #94A8D6",'#10'"j c #FEFFFF",'#10'"k c #FFFEFF",'#10'"l c #FFFF' +'#FFFFFF",'#10'"n c #F8FDFF",'#10'"o c #F7FAFE",'#10'"p c #EEF8FF",'#10'"q c'
+'FF",'#10'"m c #FEFEFE",'#10'"n c #F7FAFE",'#10'"o c #A1C8EA",'#10'"p c #8EB' +' #7CC4FC",'#10'"r c #B3BDE2",'#10'"s c #FEFFFF",'#10'"t c #FBFCFF",'#10'"u '
+'1E3",'#10'"q c #FFFCFF",'#10'"r c #EEF8FF",'#10'"s c #7CC4FC",'#10'"t c #82' +'c #FCFBFB",'#10'"v c #E9F4FE",'#10'"w c #E2F0FE",'#10'"x c #D7EBFE",'#10'"y'
+'9ACB",'#10'"u c #FEFEFF",'#10'"v c #FAFAFD",'#10'"w c #4CB0FC",'#10'"x c #0' +' c #94A8D6",'#10'"z c #FFFEFF",'#10'"A c #F3F9FE",'#10'"B c #9ACCFE",'#10'"'
+'F9BFB",'#10'"y c #6493D3",'#10'"z c #FBFEFC",'#10'"A c #F8FDFF",'#10'"B c #' +'C c #FBFBF8",'#10'"D c #F3F3F3",'#10'"E c #EFEFEF",'#10'"F c #829ACB",'#10
+'E9F4FE",'#10'"C c #FEFEFC",'#10'"D c #FBFCFF",'#10'"E c #F3F9FE",'#10'"F c ' +'"G c #BBDDFE",'#10'"H c #DFEAF5",'#10'"I c #FCFFFE",'#10'"J c #858EBA",'#10
+'#C9D6FE",'#10'"G c #B5B9F3",'#10'"H c #A2A3FC",'#10'"I c #FCFBFB",'#10'"J c' +'"K c #CAE4FE",'#10'"L c #B5B9F3",'#10'"M c #A2A3FC",'#10'"N c #FAFAFD",'#10
+' #D7EBFE",'#10'"K c #C2CFFE",'#10'"L c #7478A4",'#10'"M c #FBFBF8",'#10'"N ' +'"O c #E7EFF6",'#10'"P c #7478A4",'#10'"Q c #D8E4EF",'#10'"R c #ABD7FE",'#10
+'c #EFA998",'#10'"O c #E2D6E2",'#10'"P c #CAE4FE",'#10'"Q c #FAFAFA",'#10'"R' +'"S c #D4DBEA",'#10'"T c #666B98",'#10'"U c #CCDAEC",'#10'"V c #A3D1F3",'#10
+' c #E4CDD1",'#10'"S c #FB3503",'#10'"T c #D6C4CF",'#10'"U c #FA7145",'#10'"' +'"W c #C9D6FE",'#10'"X c #CDD1E4",'#10'"Y c #CAD2DE",'#10'"Z c #5C5D8C",'#10
+'V c #F75A29",'#10'"W c #F5F6F9",'#10'"X c #666B98",'#10'"Y c #858EBA",'#10 +'"0 c #C6C9DB",'#10'"1 c #C2CFFE",'#10'"..,---------*a..........",'#10'"..,b'
+'"Z c #F2F3FA",'#10'"0 c #F18266",'#10'"1 c #BBDDFE",'#10'"2 c #ECF3F8",'#10 +'cdefgghi*jk.........",'#10'"..,lmmmmlnop*q-r........",'#10'"..jlsmmmtopp***'
+'"3 c #EAEAEC",'#10'"4 c #E2E3F1",'#10'"5 c #D4ACA9",'#10'"6 c #B7D0FE",'#10 +'*........",'#10'"..jumsdnopvwxyy*........",'#10'"..-uzmnA,----------*a...",'
+'"7 c #ABD7FE",'#10'"8 c #5C5D8C",'#10'"9 c #D1E3F3",'#10'"@ c #CCC0CC",'#10 +#10'"..-uBBBB,weeChhDDEE*jk..",'#10'"..FfGGGG,wzmsbmdnAo*qFr.",'#10'"..FhAAv'
+'"# c #9ACCFE",'#10'"...,-----------*-a......",'#10'"...,bbccddeefgh*-ia....' +'vjHmbmzItApp****.",'#10'"..JiBBBBjHzzszoApvvKLM*.",'#10'"..JiGGGG-HmsmNopvv'
+'.",'#10'"...,jklmlmljmnn*op-a....",'#10'"...,qllkjlljnnr*ost-a...",'#10'"..' +'wwOGP.",'#10'"..*OOOOO-QhBBBBBBBBBOGP.",'#10'"..*OBBBB-QhGGGGGGGGGOGP.",'#10
+'.pujlkmkkvnrr*pwxyt...",'#10'"...pzjkmjmAnrrB******...",'#10'"...-CkkluDErr' +'"..*OGGGRFQOOOOOOOOOOOGP.",'#10'"..POOOOiFSOBBBBBBBBBOGT.",'#10'"..POOOOOFU'
+'BBbFGHH*...",'#10'"...-ICjlDnErBBbbJFKGL...",'#10'"...-MllAnErBbbNOJJPKL...' +'ORRRRRRRVVOGT.",'#10'"..PWWWWWJXOOOOOOOOwOOGT.",'#10'"..PPPPPPJYOBBBBBBBBBO'
+'",'#10'"...tQlDnErBBbRSSTPPFL...",'#10'"...tvAnErBBbcUSVJPPFL...",'#10'"...' +'GZ.",'#10'"........JaOKKKGGGGRROGZ.",'#10'"........*aOOOOOOOOOOOGZ.",'#10'"'
+'tWDErBBbbNSSTPPPFX...",'#10'"...YZErBBbbdSS0PPP1FX...",'#10'"...Y2r3S04J0SS' +'........*kOOOOOOOOOOOGZ.",'#10'"........*0111111111111Z.",'#10'"........PPP'
+'FP111FX...",'#10'"...*2BNSSSNSS5P1111KX...",'#10'"...*aBbNSSSSVP111116X..."' +'PPPPPPPPPPPZ.",'#10'"........................"}'#10'0'#10#0#0'/* XPM */'#10
+','#10'"...*cbbJd0SST11111768...",'#10'"...*cbJJP9@N1111177K8...",'#10'"...L' +'static char *graphic[] = {'#10'"24 24 82 2",'#10'".. c None",'#10'"., c #82'
+'4JJJPPF1111177768...",'#10'"...LdJJPPPP1111777768...",'#10'"...L9JPPPP11117' +'8CA1",'#10'".- c #C6C9DB",'#10'".* c #F1D190",'#10'".a c #DAB341",'#10'".b '
+'777#68...",'#10'"...LfFFFFFFF6KK666668...",'#10'"...LLLLLLLLLLLLLLLLL8...",' +'c #B7BCCA",'#10'".c c #A6AAB9",'#10'".d c #C3A666",'#10'".e c #E0BD4B",'#10
+#10'"........................"}'#10'd'#5#0#0'/* XPM */'#10'static char *grap' +'".f c #F5E6BE",'#10'".g c #E6CB7E",'#10'".h c #D8AC2E",'#10'".i c #FEFD99",'
+'hic[] = {'#10'"24 24 44 1",'#10'". c None",'#10'", c #EAEAEC",'#10'"- c #C6' +#10'".j c #D8C39B",'#10'".k c #8E96A4",'#10'".l c #ABB8C6",'#10'".m c #FFFFF'
+'C9DB",'#10'"* c #D3D7DE",'#10'"a c #4D5B6F",'#10'"b c #5B6A82",'#10'"c c #B' +'F",'#10'".n c #FEFEFC",'#10'".o c #FFFEFF",'#10'".p c #FEFFFF",'#10'".q c #'
+'7BCCA",'#10'"d c #F2F3FA",'#10'"e c #707D92",'#10'"f c #97A0B1",'#10'"g c #' +'D3D7DE",'#10'".r c #859187",'#10'".s c #CD9A05",'#10'".t c #F9EFDF",'#10'".'
+'CAD2DE",'#10'"h c #E0E0E1",'#10'"i c #828CA1",'#10'"j c #ABB8C6",'#10'"k c ' +'u c #FEFEF0",'#10'".v c #FEFDE4",'#10'".w c #97A0B1",'#10'".x c #88898C",'
+'#A6AAB9",'#10'"l c #C2C2C3",'#10'"m c #F3F3F3",'#10'"n c #C7C7C7",'#10'"o c' +#10'".y c #FFFDD4",'#10'".z c #FFFDC2",'#10'".A c #EEDE9E",'#10'".B c #FFE39'
+' #CACACC",'#10'"p c #8E96A4",'#10'"q c #C0C0C0",'#10'"r c #B9B9B9",'#10'"s ' +'A",'#10'".C c #FEFBAD",'#10'".D c #92BDED",'#10'".E c #87A8DC",'#10'".F c #'
+'c #ABABC8",'#10'"t c #E2E3F1",'#10'"u c #C4C4C4",'#10'"v c #E7EFF6",'#10'"w' +'7681B4",'#10'".G c #BECDE5",'#10'".H c #E9F4FE",'#10'".I c #FEFEFE",'#10'".'
+' c #7681B4",'#10'"x c #2956AB",'#10'"y c #4166B3",'#10'"z c #5879BD",'#10'"' +'J c #FCFBFB",'#10'".K c #FAFAFA",'#10'".L c #F5F6F9",'#10'".M c #ECF3F8",'
+'A c #829ACB",'#10'"B c #083FA2",'#10'"C c #858EBA",'#10'"D c #024BAF",'#10 +#10'".N c #8EB1E3",'#10'".O c #B5C5D8",'#10'".P c #E2F0FE",'#10'".Q c #F7FAF'
+'"E c #0167CC",'#10'"F c #A0B4DA",'#10'"G c #BECDE5",'#10'"H c #0158BD",'#10 +'E",'#10'".R c #EEF8FF",'#10'".S c #7CC4FC",'#10'".T c #B3BDE2",'#10'".U c #'
+'"I c #ECF3F8",'#10'"J c #B3BDE2",'#10'"K c #6493D3",'#10'"L c #D4DBEA",'#10 +'FBFCFF",'#10'".V c #FEF38D",'#10'".W c #DFEAF5",'#10'".X c #FFFCFF",'#10'".'
+'"M c #DFEAF5",'#10'"N c #94A8D6",'#10'"........................",'#10'"....' +'Y c #F3F9FE",'#10'".Z c #D1E3F3",'#10'".0 c #B5B9F3",'#10'".1 c #A2A3FC",'
+'.,-..........**.....",'#10'".....*a,.........bc.....",'#10'".....dbe.......' +#10'".2 c #FEFEFF",'#10'".3 c #D7EBFE",'#10'".4 c #CAE4FE",'#10'".5 c #B7D0F'
+'.fa*.....",'#10'"......ebg......hbb......",'#10'"......ffb......efi......",' +'E",'#10'".6 c #7478A4",'#10'".7 c #FEE984",'#10'".8 c #D8E4EF",'#10'".9 c #'
+#10'"......hijf....jfkl......",'#10'".......eme*..,ehb.......",'#10'".......' +'9ACCFE",'#10'".@ c #E7EFF6",'#10'".# c #BBDDFE",'#10'".; c #829ACB",'#10'".'
+'kkne..ifkf.......",'#10'".......,bopj*eqe*.......",'#10'"........pkrbekse..' +': c #D4DBEA",'#10'".= c #666B98",'#10'".+ c #FEDD7B",'#10'".% c #858EBA",'
+'......",'#10'"........,bcfbkb*........",'#10'".........lbtubp.........",'#10 +#10'".$ c #CCDAEC",'#10'".( c #FDD270",'#10'".) c #CAD2DE",'#10'".[ c #5C5D8'
+'".........vbefb*.........",'#10'".........wxbbyz.........",'#10'"......ABBB' +'C",'#10'".] c #D5A61D",'#10'",. c #F0D460",'#10'",, c #F9EB71",'#10'",- c #'
+'BzwBBBBCd.....",'#10'".....zDEEEDFGDEHEHz.....",'#10'"....GDDzzHDt.BHzzHDF.' +'ABD7FE",'#10'",* c #C2CFFE",'#10'"...............,.,.,.,.,.,.,.-...........'
+'...",'#10'"....zHz.IDD..DD..zEz....",'#10'"....yDJ.tDD..xD..JDx....",'#10'"' +'.......",'#10'".......*.a.a.a.,.b.b.b.b.b.c.d.a.a.e.f..........",'#10'"....'
+'....yHAIzDz..wDz.zHx....",'#10'"....KDDBDBL..MBDBDHz....",'#10'"....mBBDBF.' +'.g.h.i.j.k.l.m.m.n.o.p.q.k.r.a.g.s.t........",'#10'".....a.u.v.w.q.q.q.q.q.'
,'...LBDDBL....",'#10'".....dNNt......dFNd....."}'#10'6'#6#0#0'/* XPM */'#10 +'q.q.q.q.x.e.v.*.s........",'#10'".....a.u.y.j.,.,.,.,.,.,.,.,.,.,.*.y.*.s..'
+'static char *graphic[] = {'#10'"24 24 58 1",'#10'". c None",'#10'", c #92BD' +'......",'#10'".....a.v.y.z.A.A.A.B.A.B.A.B.A.A.y.y.*.s........",'#10'".....'
+'ED",'#10'"- c #87A8DC",'#10'"* c #7681B4",'#10'"a c #BECDE5",'#10'"b c #FEF' +'a.v.z.z.z.z.z.z.z.z.z.z.z.z.z.z.*.s........",'#10'".....a.y.C.C.C.C.D.E.E.E'
+'EFC",'#10'"c c #FFFCFF",'#10'"d c #FEFEFE",'#10'"e c #FBFEFC",'#10'"f c #FA' +'.E.E.E.E.E.E.F.G........",'#10'".....a.y.i.C.i.C.D.H.p.I.J.J.K.K.L.M.F.N.O.'
+'FAFA",'#10'"g c #F8F8F8",'#10'"h c #F5F6F9",'#10'"i c #ECF3F8",'#10'"j c #8' +'.....",'#10'".....a.y.i.i.i.i.D.P.p.o.m.p.m.n.Q.R.F.S.E.T....",'#10'".....a'
+'EB1E3",'#10'"k c #B5C5D8",'#10'"l c #FEFEFF",'#10'"m c #FFFFFF",'#10'"n c #' +'.z.i.i.i.i.N.P.o.o.p.m.U.Q.R.R.F.F.F.F....",'#10'".....a.z.V.i.V.i.N.W.m.I.'
+'F8FDFF",'#10'"o c #F7FAFE",'#10'"p c #EEF8FF",'#10'"q c #7CC4FC",'#10'"r c ' +'m.X.Y.Y.R.P.Z.0.1.F....",'#10'".....a.C.V.V.V.V.E.W.2.m.U.Q.R.H.H.P.3.4.5.6'
+'#B3BDE2",'#10'"s c #FEFFFF",'#10'"t c #FBFCFF",'#10'"u c #FCFBFB",'#10'"v c' +'....",'#10'".....a.C.V.7.V.7.E.8.L.9.9.9.9.9.9.9.9.@.#.6....",'#10'".....a.'
+' #E9F4FE",'#10'"w c #E2F0FE",'#10'"x c #D7EBFE",'#10'"y c #94A8D6",'#10'"z ' +'C.7.7.7.7.;.8.L.#.#.#.#.#.#.#.#.@.#.6....",'#10'".....a.i.7.7.7.7.;.:.@.@.@'
+'c #FFFEFF",'#10'"A c #F3F9FE",'#10'"B c #9ACCFE",'#10'"C c #FBFBF8",'#10'"D' +'.@.@.@.@.@.@.@.#.=....",'#10'".....a.i.+.+.+.+.;.:.@.9.9.9.9.9.9.9.9.@.#.=.'
+' c #F3F3F3",'#10'"E c #EFEFEF",'#10'"F c #829ACB",'#10'"G c #BBDDFE",'#10'"' +'...",'#10'".....a.V.+.+.+.+.%.$.@.3.4.4.4.#.#.#.#.@.#.=....",'#10'".....a.V'
+'H c #DFEAF5",'#10'"I c #FCFFFE",'#10'"J c #858EBA",'#10'"K c #CAE4FE",'#10 +'.(.(.(.(.%.).@.@.@.@.@.@.@.@.@.@.#.=....",'#10'".....a.V.(.(.(.(.F.).@.9.9.'
+'"L c #B5B9F3",'#10'"M c #A2A3FC",'#10'"N c #FAFAFD",'#10'"O c #E7EFF6",'#10 ,'9.9.9.9.9.9.@.#.[....",'#10'".....g.],.,,,,,,.F.G.@.#.#.#,-,-,-,-,-.@.#.=..'
+'"P c #7478A4",'#10'"Q c #D8E4EF",'#10'"R c #ABD7FE",'#10'"S c #D4DBEA",'#10 +'..",'#10'".......g.a.a.a.a.6.-.@.@.@.@.@.@.@.@.@.@.#.[....",'#10'".........'
+'"T c #666B98",'#10'"U c #CCDAEC",'#10'"V c #A3D1F3",'#10'"W c #C9D6FE",'#10 +'........6.O,*,*,*,*,*,*,*,*,*,*,*.[....",'#10'".................6.6.6.6.6.6'
+'"X c #CDD1E4",'#10'"Y c #CAD2DE",'#10'"Z c #5C5D8C",'#10'"0 c #C6C9DB",'#10 +'.6.6.6.6.6.6.6.[...."}'#10#130#5#0#0'/* XPM */'#10'static char *graphic[] ='
+'"1 c #C2CFFE",'#10'"..,---------*a..........",'#10'"..,bcdefgghi*jk........' +' {'#10'"24 24 46 1",'#10'". c None",'#10'", c #D5A61D",'#10'"- c #E6CB7E",'
+'.",'#10'"..,lmmmmlnop*q-r........",'#10'"..jlsmmmtopp****........",'#10'"..' +#10'"* c #EEDE9E",'#10'"a c #F5E6BE",'#10'"b c #F4DBAC",'#10'"c c #FAD7CE",'
+'jumsdnopvwxyy*........",'#10'"..-uzmnA,----------*a...",'#10'"..-uBBBB,weeC' +#10'"d c #F9EFDF",'#10'"e c #D8AC2E",'#10'"f c #F1D190",'#10'"g c #FFFDD4",'
+'hhDDEE*jk..",'#10'"..FfGGGG,wzmsbmdnAo*qFr.",'#10'"..FhAAvvjHmbmzItApp****.' +#10'"h c #FFFDC2",'#10'"i c #FEFBAD",'#10'"j c #FEFDE4",'#10'"k c #E1C164",'
+'",'#10'"..JiBBBBjHzzszoApvvKLM*.",'#10'"..JiGGGG-HmsmNopvvwwOGP.",'#10'"..*' +#10'"l c #FB3503",'#10'"m c #FA7145",'#10'"n c #FEFD99",'#10'"o c #FEFEF0",'
+'OOOOO-QhBBBBBBBBBOGP.",'#10'"..*OBBBB-QhGGGGGGGGGOGP.",'#10'"..*OGGGRFQOOOO' +#10'"p c #F75A29",'#10'"q c #EFA998",'#10'"r c #FDF6F0",'#10'"s c #FDD270",'
+'OOOOOOOGP.",'#10'"..POOOOiFSOBBBBBBBBBOGT.",'#10'"..POOOOOFUORRRRRRRVVOGT."' +#10'"t c #F9EB71",'#10'"u c #F0D460",'#10'"v c #E0BD4B",'#10'"w c #FEF38D",'
+','#10'"..PWWWWWJXOOOOOOOOwOOGT.",'#10'"..PPPPPPJYOBBBBBBBBBOGZ.",'#10'"....' +#10'"x c #FEFFFF",'#10'"y c #FFFEFF",'#10'"z c #FBFCFF",'#10'"A c #FFE39A",'
+'....JaOKKKGGGGRROGZ.",'#10'"........*aOOOOOOOOOOOGZ.",'#10'"........*kOOOOO' +#10'"B c #FEE984",'#10'"C c #FEDD7B",'#10'"D c #E0B437",'#10'"E c #FBFBF8",'
+'OOOOOOGZ.",'#10'"........*0111111111111Z.",'#10'"........PPPPPPPPPPPPPPZ.",' +#10'"F c #F9EFD1",'#10'"G c #FCB25D",'#10'"H c #FEC661",'#10'"I c #CD9A05",'
+#10'"........................"}'#10'0'#10#0#0'/* XPM */'#10'static char *gra' +#10'"J c #FE9C39",'#10'"K c #FFAF4B",'#10'"L c #F0C656",'#10'"M c #FEFFF9",'
+'phic[] = {'#10'"24 24 82 2",'#10'".. c None",'#10'"., c #828CA1",'#10'".- c' +#10'"N c #ED9344",'#10'"O c #E0803A",'#10'"P c #DAB341",'#10'"..............'
+' #C6C9DB",'#10'".* c #F1D190",'#10'".a c #DAB341",'#10'".b c #B7BCCA",'#10 +'..........",'#10'"........................",'#10'"...,,,,,................"'
+'".c c #A6AAB9",'#10'".d c #C3A666",'#10'".e c #E0BD4B",'#10'".f c #F5E6BE",' +','#10'"..,--*ab,........cd.....",'#10'".efgghijk,,,,,,,,lm.....",'#10'".,jn'
+#10'".g c #E6CB7E",'#10'".h c #D8AC2E",'#10'".i c #FEFD99",'#10'".j c #D8C39' +'nnnnoaajghiiplqr....",'#10'".,innnnnnnnnnnnsll......",'#10'".,innnnnnnnnntu'
+'B",'#10'".k c #8E96A4",'#10'".l c #ABB8C6",'#10'".m c #FFFFFF",'#10'".n c #' +'mlpvvvvv.",'#10'".,iwwwwwwwwuv*bllbxyzav.",'#10'".,ABBBBBCuDkEjqlpsooov..",'
+'FEFEFC",'#10'".o c #FFFEFF",'#10'".p c #FEFFFF",'#10'".q c #D3D7DE",'#10'".' +#10'".,ACCvvvvbFohhplGHjja-..",'#10'".,Asv*ogfpGhiAlliHggvo..",'#10'".IAHDon'
+'r c #859187",'#10'".s c #CD9A05",'#10'".t c #F9EFDF",'#10'".u c #FEFEF0",' +'iJllGnKlmnHhik...",'#10'".IALkgnnnmllGplGnshvd...",'#10'".IsDbiwwwnmllllCwH'
+#10'".v c #FEFDE4",'#10'".w c #97A0B1",'#10'".x c #88898C",'#10'".y c #FFFDD' +'nv....",'#10'".IfeMBwwwBwmllpwwHua....",'#10'".IsvgBBBBBtCplNBBLD.....",'#10
+'4",'#10'".z c #FFFDC2",'#10'".A c #EEDE9E",'#10'".B c #FFE39A",'#10'".C c #' +'".IL*ACCCCCCCsODDI,b.....",'#10'".IIrCCCCCLv,I,kfF.......",'#10'".IvFsLD,Ie'
+'FEFBAD",'#10'".D c #92BDED",'#10'".E c #87A8DC",'#10'".F c #7681B4",'#10'".' +'kad...........",'#10'".IkvIP-ar...............",'#10'".IIF.................'
+'G c #BECDE5",'#10'".H c #E9F4FE",'#10'".I c #FEFEFE",'#10'".J c #FCFBFB",' +'...",'#10'"........................",'#10'"........................"}'#10'('
+#10'".K c #FAFAFA",'#10'".L c #F5F6F9",'#10'".M c #ECF3F8",'#10'".N c #8EB1E' +#5#0#0'/* XPM */'#10'static char *graphic[] = {'#10'"24 24 40 1",'#10'". c N'
+'3",'#10'".O c #B5C5D8",'#10'".P c #E2F0FE",'#10'".Q c #F7FAFE",'#10'".R c #' +'one",'#10'", c #D1E3F3",'#10'"- c #266EC5",'#10'"* c #0167CC",'#10'"a c #A1'
+'EEF8FF",'#10'".S c #7CC4FC",'#10'".T c #B3BDE2",'#10'".U c #FBFCFF",'#10'".' +'C8EA",'#10'"b c #6493D3",'#10'"c c #037EE2",'#10'"d c #FFFFFF",'#10'"e c #F'
+'V c #FEF38D",'#10'".W c #DFEAF5",'#10'".X c #FFFCFF",'#10'".Y c #F3F9FE",' +'EFEFE",'#10'"f c #FFFEFF",'#10'"g c #FEFFFF",'#10'"h c #FCFFFE",'#10'"i c #'
+#10'".Z c #D1E3F3",'#10'".0 c #B5B9F3",'#10'".1 c #A2A3FC",'#10'".2 c #FEFEF' +'F7FAFE",'#10'"j c #F3F9FE",'#10'"k c #EEF8FF",'#10'"l c #E9F4FE",'#10'"m c '
+'F",'#10'".3 c #D7EBFE",'#10'".4 c #CAE4FE",'#10'".5 c #B7D0FE",'#10'".6 c #' +'#E2F0FE",'#10'"n c #FEFEFF",'#10'"o c #FAFAFD",'#10'"p c #999ACC",'#10'"q c'
+'7478A4",'#10'".7 c #FEE984",'#10'".8 c #D8E4EF",'#10'".9 c #9ACCFE",'#10'".' +' #039A02",'#10'"r c #FEFEFC",'#10'"s c #FCFBFB",'#10'"t c #D7EBFE",'#10'"u '
+'@ c #E7EFF6",'#10'".# c #BBDDFE",'#10'".; c #829ACB",'#10'".: c #D4DBEA",' +'c #B3B3B5",'#10'"v c #AFAFAF",'#10'"w c #A6AAB9",'#10'"x c #CAE4FE",'#10'"y'
+#10'".= c #666B98",'#10'".+ c #FEDD7B",'#10'".% c #858EBA",'#10'".$ c #CCDAE' +' c #F8FDFF",'#10'"z c #FA7145",'#10'"A c #F8F8F8",'#10'"B c #083FA2",'#10'"'
+'C",'#10'".( c #FDD270",'#10'".) c #CAD2DE",'#10'".[ c #5C5D8C",'#10'".] c #' +'C c #CD9A05",'#10'"D c #F18266",'#10'"E c #BBDDFE",'#10'"F c #FBFCFF",'#10
+'D5A61D",'#10'",. c #F0D460",'#10'",, c #F9EB71",'#10'",- c #ABD7FE",'#10'",' +'"G c #E7EFF6",'#10'"H c #979699",'#10'"I c #ABD7FE",'#10'"J c #B7D0FE",'#10
+'* c #C2CFFE",'#10'"...............,.,.,.,.,.,.,.-..................",'#10'"' +'"........................",'#10'"........................",'#10'"..........'
+'.......*.a.a.a.,.b.b.b.b.b.c.d.a.a.e.f..........",'#10'".....g.h.i.j.k.l.m.' +'..............",'#10'",-********************a.",'#10'"b********************'
+'m.n.o.p.q.k.r.a.g.s.t........",'#10'".....a.u.v.w.q.q.q.q.q.q.q.q.q.x.e.v.*' +'**.",'#10'"*ccccccccccccccccccccc*.",'#10'"*dddddedfdgddfhijklmmm*.",'#10'"'
+'.s........",'#10'".....a.u.y.j.,.,.,.,.,.,.,.,.,.,.*.y.*.s........",'#10'".' +'*dddendfgffgfddoiklmmm*.",'#10'"*ddgpppgddccchfiqqqmmm*.",'#10'"*dddpppdfrc'
+'....a.v.y.z.A.A.A.B.A.B.A.B.A.A.y.y.*.s........",'#10'".....a.v.z.z.z.z.z.z' +'ccsikqqqmmm*.",'#10'"*ddrpppfhdcccjilqqqttt*.",'#10'"*dddedgfdgddjkkklltttt'
+'.z.z.z.z.z.z.z.z.*.s........",'#10'".....a.y.C.C.C.C.D.E.E.E.E.E.E.E.E.E.F.' +'*.",'#10'"*ddduuuggduuvklmvvwxxx*.",'#10'"*ddgfrhdfyjklmmttxxxxx*.",'#10'"*'
+'G........",'#10'".....a.y.i.C.i.C.D.H.p.I.J.J.K.K.L.M.F.N.O......",'#10'"..' +'dfdzzzdeABBBmmtCCCxxx*.",'#10'"*dgdzDzdijBBB,ttCCCEEE*.",'#10'"*dfdzzzFiGBB'
+'...a.y.i.i.i.i.D.P.p.o.m.p.m.n.Q.R.F.S.E.T....",'#10'".....a.z.i.i.i.i.N.P.' +'BttxCCCEEE*.",'#10'"*ddgddyjkkGG,xtxxxEEEE*.",'#10'"*dgdHHHllmHHHxxxHHHIEI*'
+'o.o.p.m.U.Q.R.R.F.F.F.F....",'#10'".....a.z.V.i.V.i.N.W.m.I.m.X.Y.Y.R.P.Z.0' +'.",'#10'"*gddjlmmmtxxxxxxEIIIIJ*.",'#10'"*gdijklmmtttxxEEEIIIII*.",'#10'"**'
+'.1.F....",'#10'".....a.C.V.V.V.V.E.W.2.m.U.Q.R.H.H.P.3.4.5.6....",'#10'"...' +'*********************.",'#10'"........................",'#10'".............'
+'..a.C.V.7.V.7.E.8.L.9.9.9.9.9.9.9.9.@.#.6....",'#10'".....a.C.7.7.7.7.;.8.L' +'..........."}'#10'E'#6#0#0'/* XPM */'#10'static char *graphic[] = {'#10'"24'
+'.#.#.#.#.#.#.#.#.@.#.6....",'#10'".....a.i.7.7.7.7.;.:.@.@.@.@.@.@.@.@.@.@.' +' 24 59 1",'#10'". c None",'#10'", c #E2F3D9",'#10'"- c #7FCE7A",'#10'"* c #'
+'#.=....",'#10'".....a.i.+.+.+.+.;.:.@.9.9.9.9.9.9.9.9.@.#.=....",'#10'"....' +'39C339",'#10'"a c #19B209",'#10'"b c #A9DE91",'#10'"c c #F0F9EF",'#10'"d c '
+'.a.V.+.+.+.+.%.$.@.3.4.4.4.#.#.#.#.@.#.=....",'#10'".....a.V.(.(.(.(.%.).@.' +'#E1F1E1",'#10'"e c #71CE47",'#10'"f c #69C330",'#10'"g c #4FBB25",'#10'"h c'
+'@.@.@.@.@.@.@.@.@.#.=....",'#10'".....a.V.(.(.(.(.F.).@.9.9.9.9.9.9.9.9.@.#' +' #1BA30E",'#10'"i c #B9E5BB",'#10'"j c #BFE6AF",'#10'"k c #87E058",'#10'"l '
,'.[....",'#10'".....g.],.,,,,,,.F.G.@.#.#.#,-,-,-,-,-.@.#.=....",'#10'".....' +'c #3DA625",'#10'"m c #CCEBD8",'#10'"n c #94B451",'#10'"o c #2E9918",'#10'"p'
+'..g.a.a.a.a.6.-.@.@.@.@.@.@.@.@.@.@.#.[....",'#10'".................6.O,*,*' +' c #49AA49",'#10'"q c #FEFEF0",'#10'"r c #FFFFFF",'#10'"s c #FCFBFB",'#10'"'
+',*,*,*,*,*,*,*,*,*.[....",'#10'".................6.6.6.6.6.6.6.6.6.6.6.6.6.' +'t c #19830F",'#10'"u c #B0D0AF",'#10'"v c #FBFBF8",'#10'"w c #FFFCFF",'#10
+'[...."}'#10#130#5#0#0'/* XPM */'#10'static char *graphic[] = {'#10'"24 24 4' +'"x c #FFFEFF",'#10'"y c #FBFEFC",'#10'"z c #FEFEFC",'#10'"A c #9EC7A1",'#10
+'6 1",'#10'". c None",'#10'", c #D5A61D",'#10'"- c #E6CB7E",'#10'"* c #EEDE9'
+'E",'#10'"a c #F5E6BE",'#10'"b c #F4DBAC",'#10'"c c #FAD7CE",'#10'"d c #F9EF'
+'DF",'#10'"e c #D8AC2E",'#10'"f c #F1D190",'#10'"g c #FFFDD4",'#10'"h c #FFF'
+'DC2",'#10'"i c #FEFBAD",'#10'"j c #FEFDE4",'#10'"k c #E1C164",'#10'"l c #FB'
+'3503",'#10'"m c #FA7145",'#10'"n c #FEFD99",'#10'"o c #FEFEF0",'#10'"p c #F'
+'75A29",'#10'"q c #EFA998",'#10'"r c #FDF6F0",'#10'"s c #FDD270",'#10'"t c #'
+'F9EB71",'#10'"u c #F0D460",'#10'"v c #E0BD4B",'#10'"w c #FEF38D",'#10'"x c '
+'#FEFFFF",'#10'"y c #FFFEFF",'#10'"z c #FBFCFF",'#10'"A c #FFE39A",'#10'"B c'
+' #FEE984",'#10'"C c #FEDD7B",'#10'"D c #E0B437",'#10'"E c #FBFBF8",'#10'"F '
+'c #F9EFD1",'#10'"G c #FCB25D",'#10'"H c #FEC661",'#10'"I c #CD9A05",'#10'"J'
+' c #FE9C39",'#10'"K c #FFAF4B",'#10'"L c #F0C656",'#10'"M c #FEFFF9",'#10'"'
+'N c #ED9344",'#10'"O c #E0803A",'#10'"P c #DAB341",'#10'"..................'
+'......",'#10'"........................",'#10'"...,,,,,................",'#10
+'"..,--*ab,........cd.....",'#10'".efgghijk,,,,,,,,lm.....",'#10'".,jnnnnnoa'
+'ajghiiplqr....",'#10'".,innnnnnnnnnnnsll......",'#10'".,innnnnnnnnntumlpvvv'
+'vv.",'#10'".,iwwwwwwwwuv*bllbxyzav.",'#10'".,ABBBBBCuDkEjqlpsooov..",'#10'"'
+'.,ACCvvvvbFohhplGHjja-..",'#10'".,Asv*ogfpGhiAlliHggvo..",'#10'".IAHDoniJll'
+'GnKlmnHhik...",'#10'".IALkgnnnmllGplGnshvd...",'#10'".IsDbiwwwnmllllCwHnv..'
+'..",'#10'".IfeMBwwwBwmllpwwHua....",'#10'".IsvgBBBBBtCplNBBLD.....",'#10'".'
+'IL*ACCCCCCCsODDI,b.....",'#10'".IIrCCCCCLv,I,kfF.......",'#10'".IvFsLD,Ieka'
+'d...........",'#10'".IkvIP-ar...............",'#10'".IIF...................'
+'.",'#10'"........................",'#10'"........................"}'#10'('#5
+#0#0'/* XPM */'#10'static char *graphic[] = {'#10'"24 24 40 1",'#10'". c Non'
+'e",'#10'", c #D1E3F3",'#10'"- c #266EC5",'#10'"* c #0167CC",'#10'"a c #A1C8'
+'EA",'#10'"b c #6493D3",'#10'"c c #037EE2",'#10'"d c #FFFFFF",'#10'"e c #FEF'
+'EFE",'#10'"f c #FFFEFF",'#10'"g c #FEFFFF",'#10'"h c #FCFFFE",'#10'"i c #F7'
+'FAFE",'#10'"j c #F3F9FE",'#10'"k c #EEF8FF",'#10'"l c #E9F4FE",'#10'"m c #E'
+'2F0FE",'#10'"n c #FEFEFF",'#10'"o c #FAFAFD",'#10'"p c #999ACC",'#10'"q c #'
+'039A02",'#10'"r c #FEFEFC",'#10'"s c #FCFBFB",'#10'"t c #D7EBFE",'#10'"u c '
+'#B3B3B5",'#10'"v c #AFAFAF",'#10'"w c #A6AAB9",'#10'"x c #CAE4FE",'#10'"y c'
+' #F8FDFF",'#10'"z c #FA7145",'#10'"A c #F8F8F8",'#10'"B c #083FA2",'#10'"C '
+'c #CD9A05",'#10'"D c #F18266",'#10'"E c #BBDDFE",'#10'"F c #FBFCFF",'#10'"G'
+' c #E7EFF6",'#10'"H c #979699",'#10'"I c #ABD7FE",'#10'"J c #B7D0FE",'#10'"'
+'........................",'#10'"........................",'#10'"...........'
+'.............",'#10'",-********************a.",'#10'"b*********************'
+'*.",'#10'"*ccccccccccccccccccccc*.",'#10'"*dddddedfdgddfhijklmmm*.",'#10'"*'
+'dddendfgffgfddoiklmmm*.",'#10'"*ddgpppgddccchfiqqqmmm*.",'#10'"*dddpppdfrcc'
+'csikqqqmmm*.",'#10'"*ddrpppfhdcccjilqqqttt*.",'#10'"*dddedgfdgddjkkklltttt*'
+'.",'#10'"*ddduuuggduuvklmvvwxxx*.",'#10'"*ddgfrhdfyjklmmttxxxxx*.",'#10'"*d'
+'fdzzzdeABBBmmtCCCxxx*.",'#10'"*dgdzDzdijBBB,ttCCCEEE*.",'#10'"*dfdzzzFiGBBB'
+'ttxCCCEEE*.",'#10'"*ddgddyjkkGG,xtxxxEEEE*.",'#10'"*dgdHHHllmHHHxxxHHHIEI*.'
+'",'#10'"*gddjlmmmtxxxxxxEIIIIJ*.",'#10'"*gdijklmmtttxxEEEIIIII*.",'#10'"***'
+'********************.",'#10'"........................",'#10'"..............'
+'.........."}'#10'E'#6#0#0'/* XPM */'#10'static char *graphic[] = {'#10'"24 '
+'24 59 1",'#10'". c None",'#10'", c #E2F3D9",'#10'"- c #7FCE7A",'#10'"* c #3'
+'9C339",'#10'"a c #19B209",'#10'"b c #A9DE91",'#10'"c c #F0F9EF",'#10'"d c #'
+'E1F1E1",'#10'"e c #71CE47",'#10'"f c #69C330",'#10'"g c #4FBB25",'#10'"h c '
+'#1BA30E",'#10'"i c #B9E5BB",'#10'"j c #BFE6AF",'#10'"k c #87E058",'#10'"l c'
+' #3DA625",'#10'"m c #CCEBD8",'#10'"n c #94B451",'#10'"o c #2E9918",'#10'"p '
+'c #49AA49",'#10'"q c #FEFEF0",'#10'"r c #FFFFFF",'#10'"s c #FCFBFB",'#10'"t'
+' c #19830F",'#10'"u c #B0D0AF",'#10'"v c #FBFBF8",'#10'"w c #FFFCFF",'#10'"'
+'x c #FFFEFF",'#10'"y c #FBFEFC",'#10'"z c #FEFEFC",'#10'"A c #9EC7A1",'#10
+'"B c #039A02",'#10'"C c #FDF6F0",'#10'"D c #F3F3F3",'#10'"E c #438C2A",'#10 +'"B c #039A02",'#10'"C c #FDF6F0",'#10'"D c #F3F3F3",'#10'"E c #438C2A",'#10
+'"F c #FEFEFE",'#10'"G c #FEFFF9",'#10'"H c #32B416",'#10'"I c #0A7105",'#10 +'"F c #FEFEFE",'#10'"G c #FEFFF9",'#10'"H c #32B416",'#10'"I c #0A7105",'#10
+'"J c #F5FAF2",'#10'"K c #FEFFFF",'#10'"L c #FCFFFE",'#10'"M c #F5F6F9",'#10 +'"J c #F5FAF2",'#10'"K c #FEFFFF",'#10'"L c #FCFFFE",'#10'"M c #F5F6F9",'#10

3
components/virtualtreeview-unstable/demos/objects/mvcdemo.lpi
View File

@ -65,7 +65,10 @@
</ProjectOptions> </ProjectOptions>
<CompilerOptions> <CompilerOptions>
<Version Value="5"/> <Version Value="5"/>
<<<<<<< .mine
=======
<PathDelim Value="\"/> <PathDelim Value="\"/>
>>>>>>> .r167
<CodeGeneration> <CodeGeneration>
<Generate Value="Faster"/> <Generate Value="Faster"/>
</CodeGeneration> </CodeGeneration>

4
components/virtualtreeview-unstable/units/gtk/virtualdragmanager.pas
View File

@ -405,7 +405,7 @@ type
function GetData(const FormatEtcIn: TFormatEtc; out Medium: TStgMedium): HResult; virtual; stdcall; function GetData(const FormatEtcIn: TFormatEtc; out Medium: TStgMedium): HResult; virtual; stdcall;
function GetDataHere(const FormatEtc: TFormatEtc; out Medium: TStgMedium): HResult; virtual; stdcall; function GetDataHere(const FormatEtc: TFormatEtc; out Medium: TStgMedium): HResult; virtual; stdcall;
function QueryGetData(const FormatEtc: TFormatEtc): HResult; virtual; stdcall; function QueryGetData(const FormatEtc: TFormatEtc): HResult; virtual; stdcall;
function SetData(const FormatEtc: TFormatEtc; var Medium: TStgMedium; DoRelease: BOOL): HResult; virtual; stdcall; function SetData(const FormatEtc: TFormatEtc;{$ifdef VER2_0}var{$else}const{$endif} Medium: TStgMedium; DoRelease: BOOL): HResult; virtual; stdcall;
end; end;
// TVTDragManager is a class to manage drag and drop in a Virtual Treeview. // TVTDragManager is a class to manage drag and drop in a Virtual Treeview.
@ -1335,7 +1335,7 @@ end;
//---------------------------------------------------------------------------------------------------------------------- //----------------------------------------------------------------------------------------------------------------------
function TVTDataObject.SetData(const FormatEtc: TFormatEtc; var Medium: TStgMedium; DoRelease: BOOL): HResult; function TVTDataObject.SetData(const FormatEtc: TFormatEtc;{$ifdef VER2_0}var{$else}const{$endif} Medium: TStgMedium; DoRelease: BOOL): HResult;
// Allows dynamic adding to the IDataObject during its existance. Most noteably it is used to implement // Allows dynamic adding to the IDataObject during its existance. Most noteably it is used to implement
// IDropSourceHelper and allows to set a special format for optimized moves during a shell transfer. // IDropSourceHelper and allows to set a special format for optimized moves during a shell transfer.

4
components/virtualtreeview-unstable/units/gtk2/virtualdragmanager.pas
View File

@ -405,7 +405,7 @@ type
function GetData(const FormatEtcIn: TFormatEtc; out Medium: TStgMedium): HResult; virtual; stdcall; function GetData(const FormatEtcIn: TFormatEtc; out Medium: TStgMedium): HResult; virtual; stdcall;
function GetDataHere(const FormatEtc: TFormatEtc; out Medium: TStgMedium): HResult; virtual; stdcall; function GetDataHere(const FormatEtc: TFormatEtc; out Medium: TStgMedium): HResult; virtual; stdcall;
function QueryGetData(const FormatEtc: TFormatEtc): HResult; virtual; stdcall; function QueryGetData(const FormatEtc: TFormatEtc): HResult; virtual; stdcall;
function SetData(const FormatEtc: TFormatEtc; var Medium: TStgMedium; DoRelease: BOOL): HResult; virtual; stdcall; function SetData(const FormatEtc: TFormatEtc;{$ifdef VER2_0}var{$else}const{$endif} Medium: TStgMedium; DoRelease: BOOL): HResult; virtual; stdcall;
end; end;
// TVTDragManager is a class to manage drag and drop in a Virtual Treeview. // TVTDragManager is a class to manage drag and drop in a Virtual Treeview.
@ -1335,7 +1335,7 @@ end;
//---------------------------------------------------------------------------------------------------------------------- //----------------------------------------------------------------------------------------------------------------------
function TVTDataObject.SetData(const FormatEtc: TFormatEtc; var Medium: TStgMedium; DoRelease: BOOL): HResult; function TVTDataObject.SetData(const FormatEtc: TFormatEtc;{$ifdef VER2_0}var{$else}const{$endif} Medium: TStgMedium; DoRelease: BOOL): HResult;
// Allows dynamic adding to the IDataObject during its existance. Most noteably it is used to implement // Allows dynamic adding to the IDataObject during its existance. Most noteably it is used to implement
// IDropSourceHelper and allows to set a special format for optimized moves during a shell transfer. // IDropSourceHelper and allows to set a special format for optimized moves during a shell transfer.