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

* Use UTF8 as the unicode encoding

Browse Source 
* Update the unicode demo

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@645 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
blikblum
2008-12-23 17:54:03 +00:00
parent 6b4a9600fe
commit 136f56b7e5
4 changed files with 156 additions and 269 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
components/virtualtreeview-unstable/demos/unicode/fmain.lfm
View File

@ -26,20 +26,21 @@ object MainForm: TMainForm
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
Columns = <
item
Width = 200
WideText = 'Language'
end
item
Position = 1
Width = 200
WideText = 'Translation'
end>
end
object WelcomeTopPanel: TPanel
Height = 28
@ -73,6 +74,8 @@ object MainForm: TMainForm
Width = 272
BorderSpacing.Around = 3
BorderStyle = bsSingle
DefaultText = 'Node'
Header.Columns = <>
Header.MainColumn = -1
Header.Options = [hoColumnResize, hoDrag]
TabOrder = 0
@ -80,7 +83,6 @@ object MainForm: TMainForm
OnFreeNode = LCLTextTreeFreeNode
OnGetText = LCLTextTreeGetText
OnNewText = LCLTextTreeNewText
Columns = <>
end
object AddEditTextButton: TButton
Left = 476