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

* more adjustments to advanced demo layout

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1106 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
blikblum
2009-12-31 13:48:54 +00:00
parent 76c4ff077e
commit 1843817e9d
9 changed files with 94 additions and 94 deletions
Download Patch File Download Diff File Expand all files Collapse all files

102
components/virtualtreeview-new/trunk/demos/advanced/AlignDemo.lfm
View File

@ -2,11 +2,11 @@ object AlignForm: TAlignForm
Left = 370 Left = 370
Height = 486 Height = 486
Top = 299 Top = 299
Width = 783 Width = 773
ActiveControl = AlignTree ActiveControl = AlignTree
Caption = 'AlignForm' Caption = 'AlignForm'
ClientHeight = 486 ClientHeight = 486
ClientWidth = 783 ClientWidth = 773
Constraints.MinWidth = 590 Constraints.MinWidth = 590
Font.Height = -13 Font.Height = -13
Font.Name = 'Arial' Font.Name = 'Arial'
@ -26,9 +26,9 @@ object AlignForm: TAlignForm
end end
object Label1: TLabel object Label1: TLabel
Left = 8 Left = 8
Height = 144 Height = 113
Top = 110 Top = 110
Width = 202 Width = 203
Caption = 'Note that hints are aligned properly and draw selection takes the alignment into account too. Sort arrows are shown but the tree is not sorted. All I want to demonstrate is how well the layout in the header works.' Caption = 'Note that hints are aligned properly and draw selection takes the alignment into account too. Sort arrows are shown but the tree is not sorted. All I want to demonstrate is how well the layout in the header works.'
ParentColor = False ParentColor = False
ShowAccelChar = False ShowAccelChar = False
@ -36,45 +36,45 @@ object AlignForm: TAlignForm
end end
object Label2: TLabel object Label2: TLabel
Left = 220 Left = 220
Height = 18 Height = 17
Top = 353 Top = 354
Width = 116 Width = 116
Anchors = [akLeft, akBottom] Anchors = [akLeft, akBottom]
Caption = 'English text column' Caption = 'English text column'
ParentColor = False ParentColor = False
end end
object Label3: TLabel object Label3: TLabel
Left = 393 Left = 387
Height = 18 Height = 17
Top = 353 Top = 354
Width = 108 Width = 108
Anchors = [akBottom] Anchors = [akBottom]
Caption = 'Greek text column' Caption = 'Greek text column'
ParentColor = False ParentColor = False
end end
object Label4: TLabel object Label4: TLabel
Left = 566 Left = 558
Height = 18 Height = 17
Top = 352 Top = 353
Width = 157 Width = 155
Anchors = [akRight, akBottom] Anchors = [akRight, akBottom]
Caption = 'Hebrew/arabic text column' Caption = 'Hebrew/arabic text column'
ParentColor = False ParentColor = False
end end
object Label5: TLabel object Label5: TLabel
Left = 8 Left = 8
Height = 18 Height = 17
Top = 288 Top = 289
Width = 122 Width = 121
Anchors = [akLeft, akBottom] Anchors = [akLeft, akBottom]
Caption = 'Header button layout' Caption = 'Header button layout'
ParentColor = False ParentColor = False
end end
object AlignTree: TVirtualStringTree object AlignTree: TVirtualStringTree
Left = 215 Left = 216
Height = 336 Height = 336
Top = 2 Top = 2
Width = 565 Width = 553
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
CheckImageKind = ckDarkTick CheckImageKind = ckDarkTick
ClipboardFormats.Strings = ( ClipboardFormats.Strings = (
@ -105,7 +105,7 @@ object AlignForm: TAlignForm
Position = 0 Position = 0
Spacing = 10 Spacing = 10
Text = 'English text column' Text = 'English text column'
Width = 190 Width = 199
end end
item item
Hint = 'Text is initially left aligned and has a left-to-right directionality.' Hint = 'Text is initially left aligned and has a left-to-right directionality.'
@ -114,7 +114,7 @@ object AlignForm: TAlignForm
Position = 1 Position = 1
Spacing = 10 Spacing = 10
Text = 'Greek text column' Text = 'Greek text column'
Width = 160 Width = 150
end end
item item
BiDiMode = bdRightToLeft BiDiMode = bdRightToLeft
@ -124,7 +124,7 @@ object AlignForm: TAlignForm
Position = 2 Position = 2
Spacing = 10 Spacing = 10
Text = 'Hebrew/arabic text column' Text = 'Hebrew/arabic text column'
Width = 214 Width = 200
end> end>
Header.DefaultHeight = 17 Header.DefaultHeight = 17
Header.Font.Height = -12 Header.Font.Height = -12
@ -160,11 +160,11 @@ object AlignForm: TAlignForm
end end
object AlignCombo0: TComboBox object AlignCombo0: TComboBox
Left = 220 Left = 220
Height = 31 Height = 24
Top = 369 Top = 376
Width = 130 Width = 130
Anchors = [akLeft, akBottom] Anchors = [akLeft, akBottom]
ItemHeight = 0 ItemHeight = 16
Items.Strings = ( Items.Strings = (
'Left' 'Left'
'Right' 'Right'
@ -176,12 +176,12 @@ object AlignForm: TAlignForm
end end
object AlignCombo1: TComboBox object AlignCombo1: TComboBox
Tag = 1 Tag = 1
Left = 393 Left = 387
Height = 31 Height = 24
Top = 369 Top = 376
Width = 130 Width = 130
Anchors = [akBottom] Anchors = [akBottom]
ItemHeight = 0 ItemHeight = 16
Items.Strings = ( Items.Strings = (
'Left' 'Left'
'Right' 'Right'
@ -193,12 +193,12 @@ object AlignForm: TAlignForm
end end
object AlignCombo2: TComboBox object AlignCombo2: TComboBox
Tag = 2 Tag = 2
Left = 566 Left = 556
Height = 31 Height = 24
Top = 368 Top = 375
Width = 130 Width = 130
Anchors = [akRight, akBottom] Anchors = [akRight, akBottom]
ItemHeight = 0 ItemHeight = 16
Items.Strings = ( Items.Strings = (
'Left' 'Left'
'Right' 'Right'
@ -224,7 +224,7 @@ object AlignForm: TAlignForm
ChildSizing.ShrinkVertical = crsScaleChilds ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1 ChildSizing.ControlsPerLine = 1
ClientHeight = 42 ClientHeight = 43
ClientWidth = 126 ClientWidth = 126
Items.Strings = ( Items.Strings = (
'left-to-right' 'left-to-right'
@ -235,7 +235,7 @@ object AlignForm: TAlignForm
end end
object BidiGroup1: TRadioGroup object BidiGroup1: TRadioGroup
Tag = 1 Tag = 1
Left = 393 Left = 387
Height = 61 Height = 61
Top = 407 Top = 407
Width = 130 Width = 130
@ -250,7 +250,7 @@ object AlignForm: TAlignForm
ChildSizing.ShrinkVertical = crsScaleChilds ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1 ChildSizing.ControlsPerLine = 1
ClientHeight = 42 ClientHeight = 43
ClientWidth = 126 ClientWidth = 126
Items.Strings = ( Items.Strings = (
'left-to-right' 'left-to-right'
@ -261,7 +261,7 @@ object AlignForm: TAlignForm
end end
object BidiGroup2: TRadioGroup object BidiGroup2: TRadioGroup
Tag = 2 Tag = 2
Left = 566 Left = 556
Height = 61 Height = 61
Top = 408 Top = 408
Width = 130 Width = 130
@ -276,7 +276,7 @@ object AlignForm: TAlignForm
ChildSizing.ShrinkVertical = crsScaleChilds ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1 ChildSizing.ControlsPerLine = 1
ClientHeight = 42 ClientHeight = 43
ClientWidth = 126 ClientWidth = 126
Items.Strings = ( Items.Strings = (
'left-to-right' 'left-to-right'
@ -292,14 +292,14 @@ object AlignForm: TAlignForm
Width = 157 Width = 157
Anchors = [akLeft, akBottom] Anchors = [akLeft, akBottom]
Caption = ' Header options: ' Caption = ' Header options: '
ClientHeight = 110 ClientHeight = 111
ClientWidth = 153 ClientWidth = 153
TabOrder = 7 TabOrder = 7
object ShowGlyphsOptionBox: TCheckBox object ShowGlyphsOptionBox: TCheckBox
Left = 12 Left = 12
Height = 22 Height = 20
Top = 4 Top = 4
Width = 99 Width = 94
Caption = 'Show glyphs' Caption = 'Show glyphs'
OnClick = OptionBoxClick OnClick = OptionBoxClick
TabOrder = 0 TabOrder = 0
@ -307,9 +307,9 @@ object AlignForm: TAlignForm
object HotTrackOptionBox: TCheckBox object HotTrackOptionBox: TCheckBox
Tag = 1 Tag = 1
Left = 12 Left = 12
Height = 22 Height = 20
Top = 25 Top = 25
Width = 78 Width = 73
Caption = 'Hot track' Caption = 'Hot track'
OnClick = OptionBoxClick OnClick = OptionBoxClick
TabOrder = 1 TabOrder = 1
@ -317,9 +317,9 @@ object AlignForm: TAlignForm
object ShowTextOptionBox: TCheckBox object ShowTextOptionBox: TCheckBox
Tag = 2 Tag = 2
Left = 12 Left = 12
Height = 22 Height = 20
Top = 46 Top = 46
Width = 83 Width = 78
Caption = 'Show text' Caption = 'Show text'
OnClick = OptionBoxClick OnClick = OptionBoxClick
TabOrder = 2 TabOrder = 2
@ -327,9 +327,9 @@ object AlignForm: TAlignForm
object VisibleOptionBox: TCheckBox object VisibleOptionBox: TCheckBox
Tag = 3 Tag = 3
Left = 12 Left = 12
Height = 22 Height = 20
Top = 67 Top = 67
Width = 63 Width = 59
Caption = 'Visible' Caption = 'Visible'
OnClick = OptionBoxClick OnClick = OptionBoxClick
TabOrder = 3 TabOrder = 3
@ -337,9 +337,9 @@ object AlignForm: TAlignForm
object EnabledOptionBox: TCheckBox object EnabledOptionBox: TCheckBox
Tag = 4 Tag = 4
Left = 12 Left = 12
Height = 22 Height = 20
Top = 88 Top = 88
Width = 71 Width = 67
Caption = 'Enabled' Caption = 'Enabled'
OnClick = OptionBoxClick OnClick = OptionBoxClick
TabOrder = 4 TabOrder = 4
@ -347,11 +347,11 @@ object AlignForm: TAlignForm
end end
object LayoutCombo: TComboBox object LayoutCombo: TComboBox
Left = 8 Left = 8
Height = 31 Height = 24
Top = 304 Top = 311
Width = 157 Width = 157
Anchors = [akLeft, akBottom] Anchors = [akLeft, akBottom]
ItemHeight = 0 ItemHeight = 16
Items.Strings = ( Items.Strings = (
'Glyph left' 'Glyph left'
'Glyph right' 'Glyph right'

18
components/virtualtreeview-new/trunk/demos/advanced/DrawTreeDemo.lfm
View File

@ -24,9 +24,9 @@ object DrawTreeForm: TDrawTreeForm
end end
object Label1: TLabel object Label1: TLabel
Left = 4 Left = 4
Height = 18 Height = 19
Top = 424 Top = 423
Width = 274 Width = 248
Anchors = [akLeft, akBottom] Anchors = [akLeft, akBottom]
Caption = 'Adjust vertical image alignment of nodes:' Caption = 'Adjust vertical image alignment of nodes:'
ParentColor = False ParentColor = False
@ -36,10 +36,10 @@ object DrawTreeForm: TDrawTreeForm
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideBottom.Control = TrackBar1 AnchorSideBottom.Control = TrackBar1
AnchorSideBottom.Side = asrCenter AnchorSideBottom.Side = asrCenter
Left = 450 Left = 424
Height = 18 Height = 19
Top = 424 Top = 422
Width = 30 Width = 23
Anchors = [akLeft, akBottom] Anchors = [akLeft, akBottom]
BorderSpacing.Left = 8 BorderSpacing.Left = 8
Caption = '50%' Caption = '50%'
@ -115,9 +115,9 @@ object DrawTreeForm: TDrawTreeForm
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideBottom.Control = Label1 AnchorSideBottom.Control = Label1
AnchorSideBottom.Side = asrCenter AnchorSideBottom.Side = asrCenter
Left = 285 Left = 259
Height = 38 Height = 38
Top = 414 Top = 413
Width = 157 Width = 157
Max = 100 Max = 100
OnChange = TrackBar1Change OnChange = TrackBar1Change

3
components/virtualtreeview-new/trunk/demos/advanced/DrawTreeDemo.pas
View File

@ -68,7 +68,7 @@ var
implementation implementation
uses uses
FileCtrl, MaskEdit, States; States;
//---------------------------------------------------------------------------------------------------------------------- //----------------------------------------------------------------------------------------------------------------------
@ -112,6 +112,7 @@ var
SFI: TSHFileInfo; SFI: TSHFileInfo;
} }
begin begin
Result := -1;
//todo //todo
{ {
if SHGetFileInfo(PChar(Name), 0, SFI, SizeOf(TSHFileInfo), Flags) = 0 then if SHGetFileInfo(PChar(Name), 0, SFI, SizeOf(TSHFileInfo), Flags) = 0 then

34
components/virtualtreeview-new/trunk/demos/advanced/GeneralAbilitiesDemo.lfm
View File

@ -16,10 +16,10 @@ object GeneralForm: TGeneralForm
object Label18: TLabel object Label18: TLabel
AnchorSideTop.Control = RadioGroup2 AnchorSideTop.Control = RadioGroup2
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 488 Left = 502
Height = 14 Height = 14
Top = 383 Top = 361
Width = 119 Width = 105
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
BorderSpacing.Top = 20 BorderSpacing.Top = 20
Caption = 'Switch check images:' Caption = 'Switch check images:'
@ -28,10 +28,10 @@ object GeneralForm: TGeneralForm
object Label19: TLabel object Label19: TLabel
AnchorSideTop.Control = CheckMarkCombo AnchorSideTop.Control = CheckMarkCombo
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 488 Left = 504
Height = 14 Height = 14
Top = 450 Top = 418
Width = 114 Width = 98
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
BorderSpacing.Top = 20 BorderSpacing.Top = 20
Caption = 'Switch main column:' Caption = 'Switch main column:'
@ -39,7 +39,7 @@ object GeneralForm: TGeneralForm
end end
object Label8: TLabel object Label8: TLabel
Left = 488 Left = 488
Height = 62 Height = 40
Top = 40 Top = 40
Width = 232 Width = 232
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
@ -137,12 +137,12 @@ object GeneralForm: TGeneralForm
AnchorSideTop.Control = Label18 AnchorSideTop.Control = Label18
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 488 Left = 488
Height = 31 Height = 21
Top = 399 Top = 377
Width = 216 Width = 216
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
BorderSpacing.Top = 2 BorderSpacing.Top = 2
ItemHeight = 0 ItemHeight = 13
Items.Strings = ( Items.Strings = (
'Light check marks' 'Light check marks'
'Dark check marks' 'Dark check marks'
@ -164,7 +164,7 @@ object GeneralForm: TGeneralForm
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 488 Left = 488
Height = 16 Height = 16
Top = 466 Top = 434
Width = 37 Width = 37
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
BorderSpacing.Top = 2 BorderSpacing.Top = 2
@ -209,7 +209,7 @@ object GeneralForm: TGeneralForm
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 488 Left = 488
Height = 77 Height = 77
Top = 199 Top = 177
Width = 216 Width = 216
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
AutoFill = True AutoFill = True
@ -223,7 +223,7 @@ object GeneralForm: TGeneralForm
ChildSizing.ShrinkVertical = crsScaleChilds ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1 ChildSizing.ControlsPerLine = 1
ClientHeight = 62 ClientHeight = 59
ClientWidth = 212 ClientWidth = 212
ItemIndex = 0 ItemIndex = 0
Items.Strings = ( Items.Strings = (
@ -238,7 +238,7 @@ object GeneralForm: TGeneralForm
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 488 Left = 488
Height = 77 Height = 77
Top = 286 Top = 264
Width = 216 Width = 216
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
AutoFill = True AutoFill = True
@ -252,7 +252,7 @@ object GeneralForm: TGeneralForm
ChildSizing.ShrinkVertical = crsScaleChilds ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1 ChildSizing.ControlsPerLine = 1
ClientHeight = 62 ClientHeight = 59
ClientWidth = 212 ClientWidth = 212
ItemIndex = 1 ItemIndex = 1
Items.Strings = ( Items.Strings = (
@ -268,7 +268,7 @@ object GeneralForm: TGeneralForm
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 488 Left = 488
Height = 77 Height = 77
Top = 112 Top = 90
Width = 216 Width = 216
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
AutoFill = True AutoFill = True
@ -283,7 +283,7 @@ object GeneralForm: TGeneralForm
ChildSizing.ShrinkVertical = crsScaleChilds ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1 ChildSizing.ControlsPerLine = 1
ClientHeight = 62 ClientHeight = 59
ClientWidth = 212 ClientWidth = 212
Items.Strings = ( Items.Strings = (
'Theme aware' 'Theme aware'

2
components/virtualtreeview-new/trunk/demos/advanced/GeneralAbilitiesDemo.pas
View File

@ -86,7 +86,7 @@ var
implementation implementation
uses uses
Main, States; States;
//---------------------------------------------------------------------------------------------------------------------- //----------------------------------------------------------------------------------------------------------------------

14
components/virtualtreeview-new/trunk/demos/advanced/VisibilityDemo.lfm
View File

@ -26,7 +26,7 @@ object VisibilityForm: TVisibilityForm
end end
object Label1: TLabel object Label1: TLabel
Left = 504 Left = 504
Height = 102 Height = 81
Top = 212 Top = 212
Width = 296 Width = 296
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
@ -38,8 +38,8 @@ object VisibilityForm: TVisibilityForm
AnchorSideTop.Control = Label1 AnchorSideTop.Control = Label1
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 504 Left = 504
Height = 102 Height = 81
Top = 322 Top = 301
Width = 296 Width = 296
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
BorderSpacing.Top = 8 BorderSpacing.Top = 8
@ -62,8 +62,8 @@ object VisibilityForm: TVisibilityForm
AnchorSideTop.Control = Label2 AnchorSideTop.Control = Label2
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 504 Left = 504
Height = 39 Height = 33
Top = 432 Top = 390
Width = 296 Width = 296
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
BorderSpacing.Top = 8 BorderSpacing.Top = 8
@ -87,7 +87,7 @@ object VisibilityForm: TVisibilityForm
ChildSizing.ShrinkVertical = crsScaleChilds ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1 ChildSizing.ControlsPerLine = 1
ClientHeight = 90 ClientHeight = 91
ClientWidth = 365 ClientWidth = 365
ItemIndex = 0 ItemIndex = 0
Items.Strings = ( Items.Strings = (
@ -4137,7 +4137,7 @@ object VisibilityForm: TVisibilityForm
item item
Position = 0 Position = 0
Text = 'Main column' Text = 'Main column'
Width = 202 Width = 200
end> end>
Header.DefaultHeight = 17 Header.DefaultHeight = 17
Header.Font.Color = clNavy Header.Font.Color = clNavy

2
components/virtualtreeview-new/trunk/demos/advanced/VisibilityDemo.pas
View File

@ -136,7 +136,7 @@ end;
procedure TVisibilityForm.HideNodes(Sender: TBaseVirtualTree; Node: PVirtualNode; Data: Pointer; var Abort: Boolean); procedure TVisibilityForm.HideNodes(Sender: TBaseVirtualTree; Node: PVirtualNode; Data: Pointer; var Abort: Boolean);
begin begin
case Integer(Data) of case PtrUInt(Data) of
0: // show all nodes 0: // show all nodes
Sender.IsVisible[Node] := True; Sender.IsVisible[Node] := True;
1: // hide every second 1: // hide every second

10
components/virtualtreeview-new/trunk/demos/advanced/WindowsXPStyleDemo.lfm
View File

@ -13,10 +13,10 @@ object WindowsXPForm: TWindowsXPForm
OnCreate = FormCreate OnCreate = FormCreate
LCLVersion = '0.9.29' LCLVersion = '0.9.29'
object Label1: TLabel object Label1: TLabel
Left = 565 Left = 564
Height = 123 Height = 81
Top = 40 Top = 40
Width = 272 Width = 273
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
Caption = 'This demo shows a tree with properties which make it look as in the new Windows XP style. Under Windows XP native theme APIs are used to paint the tree. On other system legacy code is used which simulates the look.' Caption = 'This demo shows a tree with properties which make it look as in the new Windows XP style. Under Windows XP native theme APIs are used to paint the tree. On other system legacy code is used which simulates the look.'
ParentColor = False ParentColor = False
@ -24,7 +24,7 @@ object WindowsXPForm: TWindowsXPForm
end end
object Label2: TLabel object Label2: TLabel
Left = 565 Left = 565
Height = 123 Height = 81
Top = 168 Top = 168
Width = 272 Width = 272
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
@ -35,7 +35,7 @@ object WindowsXPForm: TWindowsXPForm
object Label4: TLabel object Label4: TLabel
Cursor = crHandPoint Cursor = crHandPoint
Left = 565 Left = 565
Height = 144 Height = 97
Top = 290 Top = 290
Width = 272 Width = 272
Anchors = [akTop, akRight] Anchors = [akTop, akRight]

3
components/virtualtreeview-new/trunk/demos/advanced/WindowsXPStyleDemo.pas
View File

@ -61,8 +61,7 @@ var
implementation implementation
uses uses
Main, States; States;
type type
PEntry = ^TEntry; PEntry = ^TEntry;