You've already forked lazarus-ccr
* more adjustments to advanced demo layout
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1106 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
blikblum
@ -2,11 +2,11 @@ object AlignForm: TAlignForm
|
||||
Left = 370
|
||||
Height = 486
|
||||
Top = 299
|
||||
Width = 783
|
||||
Width = 773
|
||||
ActiveControl = AlignTree
|
||||
Caption = 'AlignForm'
|
||||
ClientHeight = 486
|
||||
ClientWidth = 783
|
||||
ClientWidth = 773
|
||||
Constraints.MinWidth = 590
|
||||
Font.Height = -13
|
||||
Font.Name = 'Arial'
|
||||
@ -26,9 +26,9 @@ object AlignForm: TAlignForm
|
||||
end
|
||||
object Label1: TLabel
|
||||
Left = 8
|
||||
Height = 144
|
||||
Height = 113
|
||||
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.'
|
||||
ParentColor = False
|
||||
ShowAccelChar = False
|
||||
@ -36,45 +36,45 @@ object AlignForm: TAlignForm
|
||||
end
|
||||
object Label2: TLabel
|
||||
Left = 220
|
||||
Height = 18
|
||||
Top = 353
|
||||
Height = 17
|
||||
Top = 354
|
||||
Width = 116
|
||||
Anchors = [akLeft, akBottom]
|
||||
Caption = 'English text column'
|
||||
ParentColor = False
|
||||
end
|
||||
object Label3: TLabel
|
||||
Left = 393
|
||||
Height = 18
|
||||
Top = 353
|
||||
Left = 387
|
||||
Height = 17
|
||||
Top = 354
|
||||
Width = 108
|
||||
Anchors = [akBottom]
|
||||
Caption = 'Greek text column'
|
||||
ParentColor = False
|
||||
end
|
||||
object Label4: TLabel
|
||||
Left = 566
|
||||
Height = 18
|
||||
Top = 352
|
||||
Width = 157
|
||||
Left = 558
|
||||
Height = 17
|
||||
Top = 353
|
||||
Width = 155
|
||||
Anchors = [akRight, akBottom]
|
||||
Caption = 'Hebrew/arabic text column'
|
||||
ParentColor = False
|
||||
end
|
||||
object Label5: TLabel
|
||||
Left = 8
|
||||
Height = 18
|
||||
Top = 288
|
||||
Width = 122
|
||||
Height = 17
|
||||
Top = 289
|
||||
Width = 121
|
||||
Anchors = [akLeft, akBottom]
|
||||
Caption = 'Header button layout'
|
||||
ParentColor = False
|
||||
end
|
||||
object AlignTree: TVirtualStringTree
|
||||
Left = 215
|
||||
Left = 216
|
||||
Height = 336
|
||||
Top = 2
|
||||
Width = 565
|
||||
Width = 553
|
||||
Anchors = [akTop, akLeft, akRight, akBottom]
|
||||
CheckImageKind = ckDarkTick
|
||||
ClipboardFormats.Strings = (
|
||||
@ -105,7 +105,7 @@ object AlignForm: TAlignForm
|
||||
Position = 0
|
||||
Spacing = 10
|
||||
Text = 'English text column'
|
||||
Width = 190
|
||||
Width = 199
|
||||
end
|
||||
item
|
||||
Hint = 'Text is initially left aligned and has a left-to-right directionality.'
|
||||
@ -114,7 +114,7 @@ object AlignForm: TAlignForm
|
||||
Position = 1
|
||||
Spacing = 10
|
||||
Text = 'Greek text column'
|
||||
Width = 160
|
||||
Width = 150
|
||||
end
|
||||
item
|
||||
BiDiMode = bdRightToLeft
|
||||
@ -124,7 +124,7 @@ object AlignForm: TAlignForm
|
||||
Position = 2
|
||||
Spacing = 10
|
||||
Text = 'Hebrew/arabic text column'
|
||||
Width = 214
|
||||
Width = 200
|
||||
end>
|
||||
Header.DefaultHeight = 17
|
||||
Header.Font.Height = -12
|
||||
@ -160,11 +160,11 @@ object AlignForm: TAlignForm
|
||||
end
|
||||
object AlignCombo0: TComboBox
|
||||
Left = 220
|
||||
Height = 31
|
||||
Top = 369
|
||||
Height = 24
|
||||
Top = 376
|
||||
Width = 130
|
||||
Anchors = [akLeft, akBottom]
|
||||
ItemHeight = 0
|
||||
ItemHeight = 16
|
||||
Items.Strings = (
|
||||
'Left'
|
||||
'Right'
|
||||
@ -176,12 +176,12 @@ object AlignForm: TAlignForm
|
||||
end
|
||||
object AlignCombo1: TComboBox
|
||||
Tag = 1
|
||||
Left = 393
|
||||
Height = 31
|
||||
Top = 369
|
||||
Left = 387
|
||||
Height = 24
|
||||
Top = 376
|
||||
Width = 130
|
||||
Anchors = [akBottom]
|
||||
ItemHeight = 0
|
||||
ItemHeight = 16
|
||||
Items.Strings = (
|
||||
'Left'
|
||||
'Right'
|
||||
@ -193,12 +193,12 @@ object AlignForm: TAlignForm
|
||||
end
|
||||
object AlignCombo2: TComboBox
|
||||
Tag = 2
|
||||
Left = 566
|
||||
Height = 31
|
||||
Top = 368
|
||||
Left = 556
|
||||
Height = 24
|
||||
Top = 375
|
||||
Width = 130
|
||||
Anchors = [akRight, akBottom]
|
||||
ItemHeight = 0
|
||||
ItemHeight = 16
|
||||
Items.Strings = (
|
||||
'Left'
|
||||
'Right'
|
||||
@ -224,7 +224,7 @@ object AlignForm: TAlignForm
|
||||
ChildSizing.ShrinkVertical = crsScaleChilds
|
||||
ChildSizing.Layout = cclLeftToRightThenTopToBottom
|
||||
ChildSizing.ControlsPerLine = 1
|
||||
ClientHeight = 42
|
||||
ClientHeight = 43
|
||||
ClientWidth = 126
|
||||
Items.Strings = (
|
||||
'left-to-right'
|
||||
@ -235,7 +235,7 @@ object AlignForm: TAlignForm
|
||||
end
|
||||
object BidiGroup1: TRadioGroup
|
||||
Tag = 1
|
||||
Left = 393
|
||||
Left = 387
|
||||
Height = 61
|
||||
Top = 407
|
||||
Width = 130
|
||||
@ -250,7 +250,7 @@ object AlignForm: TAlignForm
|
||||
ChildSizing.ShrinkVertical = crsScaleChilds
|
||||
ChildSizing.Layout = cclLeftToRightThenTopToBottom
|
||||
ChildSizing.ControlsPerLine = 1
|
||||
ClientHeight = 42
|
||||
ClientHeight = 43
|
||||
ClientWidth = 126
|
||||
Items.Strings = (
|
||||
'left-to-right'
|
||||
@ -261,7 +261,7 @@ object AlignForm: TAlignForm
|
||||
end
|
||||
object BidiGroup2: TRadioGroup
|
||||
Tag = 2
|
||||
Left = 566
|
||||
Left = 556
|
||||
Height = 61
|
||||
Top = 408
|
||||
Width = 130
|
||||
@ -276,7 +276,7 @@ object AlignForm: TAlignForm
|
||||
ChildSizing.ShrinkVertical = crsScaleChilds
|
||||
ChildSizing.Layout = cclLeftToRightThenTopToBottom
|
||||
ChildSizing.ControlsPerLine = 1
|
||||
ClientHeight = 42
|
||||
ClientHeight = 43
|
||||
ClientWidth = 126
|
||||
Items.Strings = (
|
||||
'left-to-right'
|
||||
@ -292,14 +292,14 @@ object AlignForm: TAlignForm
|
||||
Width = 157
|
||||
Anchors = [akLeft, akBottom]
|
||||
Caption = ' Header options: '
|
||||
ClientHeight = 110
|
||||
ClientHeight = 111
|
||||
ClientWidth = 153
|
||||
TabOrder = 7
|
||||
object ShowGlyphsOptionBox: TCheckBox
|
||||
Left = 12
|
||||
Height = 22
|
||||
Height = 20
|
||||
Top = 4
|
||||
Width = 99
|
||||
Width = 94
|
||||
Caption = 'Show glyphs'
|
||||
OnClick = OptionBoxClick
|
||||
TabOrder = 0
|
||||
@ -307,9 +307,9 @@ object AlignForm: TAlignForm
|
||||
object HotTrackOptionBox: TCheckBox
|
||||
Tag = 1
|
||||
Left = 12
|
||||
Height = 22
|
||||
Height = 20
|
||||
Top = 25
|
||||
Width = 78
|
||||
Width = 73
|
||||
Caption = 'Hot track'
|
||||
OnClick = OptionBoxClick
|
||||
TabOrder = 1
|
||||
@ -317,9 +317,9 @@ object AlignForm: TAlignForm
|
||||
object ShowTextOptionBox: TCheckBox
|
||||
Tag = 2
|
||||
Left = 12
|
||||
Height = 22
|
||||
Height = 20
|
||||
Top = 46
|
||||
Width = 83
|
||||
Width = 78
|
||||
Caption = 'Show text'
|
||||
OnClick = OptionBoxClick
|
||||
TabOrder = 2
|
||||
@ -327,9 +327,9 @@ object AlignForm: TAlignForm
|
||||
object VisibleOptionBox: TCheckBox
|
||||
Tag = 3
|
||||
Left = 12
|
||||
Height = 22
|
||||
Height = 20
|
||||
Top = 67
|
||||
Width = 63
|
||||
Width = 59
|
||||
Caption = 'Visible'
|
||||
OnClick = OptionBoxClick
|
||||
TabOrder = 3
|
||||
@ -337,9 +337,9 @@ object AlignForm: TAlignForm
|
||||
object EnabledOptionBox: TCheckBox
|
||||
Tag = 4
|
||||
Left = 12
|
||||
Height = 22
|
||||
Height = 20
|
||||
Top = 88
|
||||
Width = 71
|
||||
Width = 67
|
||||
Caption = 'Enabled'
|
||||
OnClick = OptionBoxClick
|
||||
TabOrder = 4
|
||||
@ -347,11 +347,11 @@ object AlignForm: TAlignForm
|
||||
end
|
||||
object LayoutCombo: TComboBox
|
||||
Left = 8
|
||||
Height = 31
|
||||
Top = 304
|
||||
Height = 24
|
||||
Top = 311
|
||||
Width = 157
|
||||
Anchors = [akLeft, akBottom]
|
||||
ItemHeight = 0
|
||||
ItemHeight = 16
|
||||
Items.Strings = (
|
||||
'Glyph left'
|
||||
'Glyph right'
|
||||
|
||||
@ -24,9 +24,9 @@ object DrawTreeForm: TDrawTreeForm
|
||||
end
|
||||
object Label1: TLabel
|
||||
Left = 4
|
||||
Height = 18
|
||||
Top = 424
|
||||
Width = 274
|
||||
Height = 19
|
||||
Top = 423
|
||||
Width = 248
|
||||
Anchors = [akLeft, akBottom]
|
||||
Caption = 'Adjust vertical image alignment of nodes:'
|
||||
ParentColor = False
|
||||
@ -36,10 +36,10 @@ object DrawTreeForm: TDrawTreeForm
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
AnchorSideBottom.Control = TrackBar1
|
||||
AnchorSideBottom.Side = asrCenter
|
||||
Left = 450
|
||||
Height = 18
|
||||
Top = 424
|
||||
Width = 30
|
||||
Left = 424
|
||||
Height = 19
|
||||
Top = 422
|
||||
Width = 23
|
||||
Anchors = [akLeft, akBottom]
|
||||
BorderSpacing.Left = 8
|
||||
Caption = '50%'
|
||||
@ -115,9 +115,9 @@ object DrawTreeForm: TDrawTreeForm
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
AnchorSideBottom.Control = Label1
|
||||
AnchorSideBottom.Side = asrCenter
|
||||
Left = 285
|
||||
Left = 259
|
||||
Height = 38
|
||||
Top = 414
|
||||
Top = 413
|
||||
Width = 157
|
||||
Max = 100
|
||||
OnChange = TrackBar1Change
|
||||
|
||||
@ -68,7 +68,7 @@ var
|
||||
implementation
|
||||
|
||||
uses
|
||||
FileCtrl, MaskEdit, States;
|
||||
States;
|
||||
|
||||
//----------------------------------------------------------------------------------------------------------------------
|
||||
|
||||
@ -112,6 +112,7 @@ var
|
||||
SFI: TSHFileInfo;
|
||||
}
|
||||
begin
|
||||
Result := -1;
|
||||
//todo
|
||||
{
|
||||
if SHGetFileInfo(PChar(Name), 0, SFI, SizeOf(TSHFileInfo), Flags) = 0 then
|
||||
|
||||
@ -16,10 +16,10 @@ object GeneralForm: TGeneralForm
|
||||
object Label18: TLabel
|
||||
AnchorSideTop.Control = RadioGroup2
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 488
|
||||
Left = 502
|
||||
Height = 14
|
||||
Top = 383
|
||||
Width = 119
|
||||
Top = 361
|
||||
Width = 105
|
||||
Anchors = [akTop, akRight]
|
||||
BorderSpacing.Top = 20
|
||||
Caption = 'Switch check images:'
|
||||
@ -28,10 +28,10 @@ object GeneralForm: TGeneralForm
|
||||
object Label19: TLabel
|
||||
AnchorSideTop.Control = CheckMarkCombo
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 488
|
||||
Left = 504
|
||||
Height = 14
|
||||
Top = 450
|
||||
Width = 114
|
||||
Top = 418
|
||||
Width = 98
|
||||
Anchors = [akTop, akRight]
|
||||
BorderSpacing.Top = 20
|
||||
Caption = 'Switch main column:'
|
||||
@ -39,7 +39,7 @@ object GeneralForm: TGeneralForm
|
||||
end
|
||||
object Label8: TLabel
|
||||
Left = 488
|
||||
Height = 62
|
||||
Height = 40
|
||||
Top = 40
|
||||
Width = 232
|
||||
Anchors = [akTop, akRight]
|
||||
@ -137,12 +137,12 @@ object GeneralForm: TGeneralForm
|
||||
AnchorSideTop.Control = Label18
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 488
|
||||
Height = 31
|
||||
Top = 399
|
||||
Height = 21
|
||||
Top = 377
|
||||
Width = 216
|
||||
Anchors = [akTop, akRight]
|
||||
BorderSpacing.Top = 2
|
||||
ItemHeight = 0
|
||||
ItemHeight = 13
|
||||
Items.Strings = (
|
||||
'Light check marks'
|
||||
'Dark check marks'
|
||||
@ -164,7 +164,7 @@ object GeneralForm: TGeneralForm
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 488
|
||||
Height = 16
|
||||
Top = 466
|
||||
Top = 434
|
||||
Width = 37
|
||||
Anchors = [akTop, akRight]
|
||||
BorderSpacing.Top = 2
|
||||
@ -209,7 +209,7 @@ object GeneralForm: TGeneralForm
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 488
|
||||
Height = 77
|
||||
Top = 199
|
||||
Top = 177
|
||||
Width = 216
|
||||
Anchors = [akTop, akRight]
|
||||
AutoFill = True
|
||||
@ -223,7 +223,7 @@ object GeneralForm: TGeneralForm
|
||||
ChildSizing.ShrinkVertical = crsScaleChilds
|
||||
ChildSizing.Layout = cclLeftToRightThenTopToBottom
|
||||
ChildSizing.ControlsPerLine = 1
|
||||
ClientHeight = 62
|
||||
ClientHeight = 59
|
||||
ClientWidth = 212
|
||||
ItemIndex = 0
|
||||
Items.Strings = (
|
||||
@ -238,7 +238,7 @@ object GeneralForm: TGeneralForm
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 488
|
||||
Height = 77
|
||||
Top = 286
|
||||
Top = 264
|
||||
Width = 216
|
||||
Anchors = [akTop, akRight]
|
||||
AutoFill = True
|
||||
@ -252,7 +252,7 @@ object GeneralForm: TGeneralForm
|
||||
ChildSizing.ShrinkVertical = crsScaleChilds
|
||||
ChildSizing.Layout = cclLeftToRightThenTopToBottom
|
||||
ChildSizing.ControlsPerLine = 1
|
||||
ClientHeight = 62
|
||||
ClientHeight = 59
|
||||
ClientWidth = 212
|
||||
ItemIndex = 1
|
||||
Items.Strings = (
|
||||
@ -268,7 +268,7 @@ object GeneralForm: TGeneralForm
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 488
|
||||
Height = 77
|
||||
Top = 112
|
||||
Top = 90
|
||||
Width = 216
|
||||
Anchors = [akTop, akRight]
|
||||
AutoFill = True
|
||||
@ -283,7 +283,7 @@ object GeneralForm: TGeneralForm
|
||||
ChildSizing.ShrinkVertical = crsScaleChilds
|
||||
ChildSizing.Layout = cclLeftToRightThenTopToBottom
|
||||
ChildSizing.ControlsPerLine = 1
|
||||
ClientHeight = 62
|
||||
ClientHeight = 59
|
||||
ClientWidth = 212
|
||||
Items.Strings = (
|
||||
'Theme aware'
|
||||
|
||||
@ -86,7 +86,7 @@ var
|
||||
implementation
|
||||
|
||||
uses
|
||||
Main, States;
|
||||
States;
|
||||
|
||||
|
||||
//----------------------------------------------------------------------------------------------------------------------
|
||||
|
||||
@ -26,7 +26,7 @@ object VisibilityForm: TVisibilityForm
|
||||
end
|
||||
object Label1: TLabel
|
||||
Left = 504
|
||||
Height = 102
|
||||
Height = 81
|
||||
Top = 212
|
||||
Width = 296
|
||||
Anchors = [akTop, akRight]
|
||||
@ -38,8 +38,8 @@ object VisibilityForm: TVisibilityForm
|
||||
AnchorSideTop.Control = Label1
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 504
|
||||
Height = 102
|
||||
Top = 322
|
||||
Height = 81
|
||||
Top = 301
|
||||
Width = 296
|
||||
Anchors = [akTop, akRight]
|
||||
BorderSpacing.Top = 8
|
||||
@ -62,8 +62,8 @@ object VisibilityForm: TVisibilityForm
|
||||
AnchorSideTop.Control = Label2
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 504
|
||||
Height = 39
|
||||
Top = 432
|
||||
Height = 33
|
||||
Top = 390
|
||||
Width = 296
|
||||
Anchors = [akTop, akRight]
|
||||
BorderSpacing.Top = 8
|
||||
@ -87,7 +87,7 @@ object VisibilityForm: TVisibilityForm
|
||||
ChildSizing.ShrinkVertical = crsScaleChilds
|
||||
ChildSizing.Layout = cclLeftToRightThenTopToBottom
|
||||
ChildSizing.ControlsPerLine = 1
|
||||
ClientHeight = 90
|
||||
ClientHeight = 91
|
||||
ClientWidth = 365
|
||||
ItemIndex = 0
|
||||
Items.Strings = (
|
||||
@ -4137,7 +4137,7 @@ object VisibilityForm: TVisibilityForm
|
||||
item
|
||||
Position = 0
|
||||
Text = 'Main column'
|
||||
Width = 202
|
||||
Width = 200
|
||||
end>
|
||||
Header.DefaultHeight = 17
|
||||
Header.Font.Color = clNavy
|
||||
|
||||
@ -136,7 +136,7 @@ end;
|
||||
procedure TVisibilityForm.HideNodes(Sender: TBaseVirtualTree; Node: PVirtualNode; Data: Pointer; var Abort: Boolean);
|
||||
|
||||
begin
|
||||
case Integer(Data) of
|
||||
case PtrUInt(Data) of
|
||||
0: // show all nodes
|
||||
Sender.IsVisible[Node] := True;
|
||||
1: // hide every second
|
||||
|
||||
@ -13,10 +13,10 @@ object WindowsXPForm: TWindowsXPForm
|
||||
OnCreate = FormCreate
|
||||
LCLVersion = '0.9.29'
|
||||
object Label1: TLabel
|
||||
Left = 565
|
||||
Height = 123
|
||||
Left = 564
|
||||
Height = 81
|
||||
Top = 40
|
||||
Width = 272
|
||||
Width = 273
|
||||
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.'
|
||||
ParentColor = False
|
||||
@ -24,7 +24,7 @@ object WindowsXPForm: TWindowsXPForm
|
||||
end
|
||||
object Label2: TLabel
|
||||
Left = 565
|
||||
Height = 123
|
||||
Height = 81
|
||||
Top = 168
|
||||
Width = 272
|
||||
Anchors = [akTop, akRight]
|
||||
@ -35,7 +35,7 @@ object WindowsXPForm: TWindowsXPForm
|
||||
object Label4: TLabel
|
||||
Cursor = crHandPoint
|
||||
Left = 565
|
||||
Height = 144
|
||||
Height = 97
|
||||
Top = 290
|
||||
Width = 272
|
||||
Anchors = [akTop, akRight]
|
||||
|
||||
@ -61,8 +61,7 @@ var
|
||||
implementation
|
||||
|
||||
uses
|
||||
Main, States;
|
||||
|
||||
States;
|
||||
|
||||
type
|
||||
PEntry = ^TEntry;
|
||||
|
||||
Reference in New Issue
Block a user