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

* Rename virtualtreeview-unstable to virtualtreeview-new

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@674 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
blikblum
2009-01-25 13:45:09 +00:00
parent 78930629dc
commit 9294036813
184 changed files with 0 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

178
components/virtualtreeview-new/demos/unicode/fmain.lfm Normal file
View File

@ -0,0 +1,178 @@
object MainForm: TMainForm
Left = 379
Height = 504
Top = 166
Width = 613
Caption = 'Unicode Demo'
ClientHeight = 504
ClientWidth = 613
OnCreate = FormCreate
LCLVersion = '0.9.27'
object MainNotebook: TNotebook
Height = 504
Width = 613
Align = alClient
PageIndex = 0
TabOrder = 0
object WelcomePage: TPage
Caption = 'Welcome Translations'
ClientWidth = 605
ClientHeight = 478
object WelcomeTree: TVirtualStringTree
Left = 3
Height = 444
Top = 31
Width = 599
Align = alClient
BorderSpacing.Around = 3
BorderStyle = bsSingle
DefaultText = 'Node'
Header.Columns = <
item
Text = 'Language'
Width = 200
end
item
Position = 1
Text = 'Translation'
Width = 200
end>
Header.Options = [hoColumnResize, hoDrag, hoVisible]
TabOrder = 0
OnFreeNode = WelcomeTreeFreeNode
OnGetText = WelcomeTreeGetText
end
object WelcomeTopPanel: TPanel
Height = 28
Width = 605
Align = alTop
BevelOuter = bvNone
ClientHeight = 28
ClientWidth = 605
TabOrder = 1
object ChooseWelcomeFontButton: TButton
Left = 4
Height = 25
Top = 2
Width = 120
BorderSpacing.Left = 3
BorderSpacing.Around = 1
Caption = 'Choose Font'
OnClick = ChooseWelcomeFontButtonClick
TabOrder = 0
end
end
end
object LCLTextPage: TPage
Caption = 'LCL Text'
ClientWidth = 605
ClientHeight = 478
object LCLTextTree: TVirtualStringTree
Left = 3
Height = 440
Top = 3
Width = 272
BorderSpacing.Around = 3
BorderStyle = bsSingle
DefaultText = 'Node'
Header.Columns = <>
Header.MainColumn = -1
Header.Options = [hoColumnResize, hoDrag]
TabOrder = 0
TreeOptions.MiscOptions = [toAcceptOLEDrop, toEditable, toFullRepaintOnResize, toInitOnSave, toToggleOnDblClick, toWheelPanning]
OnFreeNode = LCLTextTreeFreeNode
OnGetText = LCLTextTreeGetText
OnNewText = LCLTextTreeNewText
end
object AddEditTextButton: TButton
Left = 476
Height = 25
Top = 2
Width = 120
Caption = 'Add Text'
OnClick = AddEditTextButtonClick
TabOrder = 1
end
object TextEdit: TEdit
Left = 284
Height = 23
Top = 2
Width = 184
TabOrder = 2
end
object TextComboBox: TComboBox
Left = 284
Height = 21
Top = 58
Width = 184
ItemHeight = 13
Items.Strings = (
'Não'
'Coração'
'Sim'
)
TabOrder = 3
end
object AddComboTextButton: TButton
Left = 476
Height = 25
Top = 58
Width = 120
Caption = 'Add Text'
OnClick = AddComboTextButtonClick
TabOrder = 4
end
object TextListBox: TListBox
Left = 284
Height = 112
Top = 98
Width = 184
Items.Strings = (
'Não'
'Coração'
'Sim'
)
ItemHeight = 13
TabOrder = 5
end
object AddListTextButton: TButton
Left = 476
Height = 25
Top = 98
Width = 120
Caption = 'Add Text'
OnClick = AddListTextButtonClick
TabOrder = 6
end
object TextMemo: TMemo
Left = 284
Height = 138
Top = 234
Width = 184
TabOrder = 7
end
object AddMemoTextButton: TButton
Left = 476
Height = 25
Top = 234
Width = 120
Caption = 'Add Text'
OnClick = AddMemoTextButtonClick
TabOrder = 8
end
object ClearLCLTextTreeButton: TButton
Left = 3
Height = 25
Top = 449
Width = 97
Caption = 'Clear'
OnClick = ClearLCLTextTreeButtonClick
TabOrder = 9
end
end
end
object FontDialog1: TFontDialog
left = 136
top = 24
end
end