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

* Update dataarray demo to use utf8

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@668 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
blikblum
2009-01-21 00:56:54 +00:00
parent 0c03cacf37
commit d612a6cfac
3 changed files with 24 additions and 22 deletions
Download Patch File Download Diff File Expand all files Collapse all files

36
components/virtualtreeview-unstable/demos/dataarray/Main.lfm
View File

@ -94,9 +94,27 @@ object Form1: TForm1
Left = 3 Left = 3
Height = 321 Height = 321
Top = 8 Top = 8
Width = 581 Width = 605
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
AutoScrollDelay = 1 AutoScrollDelay = 1
BorderStyle = bsSingle
DefaultText = 'Node'
Header.Columns = <
item
Text = 'Text'
Width = 150
end
item
Options = [coDraggable, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible]
Position = 1
Text = 'Pointers'
Width = 300
end
item
Position = 2
Text = 'Random'
Width = 100
end>
Header.Font.Height = -11 Header.Font.Height = -11
Header.Font.Name = 'MS Sans Serif' Header.Font.Name = 'MS Sans Serif'
Header.Options = [hoColumnResize, hoDblClickResize, hoDrag, hoShowSortGlyphs, hoVisible] Header.Options = [hoColumnResize, hoDblClickResize, hoDrag, hoShowSortGlyphs, hoVisible]
@ -113,21 +131,5 @@ object Form1: TForm1
OnGetText = MyTreeGetText OnGetText = MyTreeGetText
OnPaintText = MyTreePaintText OnPaintText = MyTreePaintText
OnHeaderClick = MyTreeHeaderClick OnHeaderClick = MyTreeHeaderClick
Columns = <
item
Width = 150
WideText = 'Text'
end
item
Options = [coDraggable, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible]
Position = 1
Width = 300
WideText = 'Pointers'
end
item
Position = 2
Width = 100
WideText = 'Random'
end>
end end
end end

6
components/virtualtreeview-unstable/demos/dataarray/Main.pas
View File

@ -79,7 +79,7 @@ type
NodePointer: PVirtualNode; NodePointer: PVirtualNode;
Active: Boolean; Active: Boolean;
MyText: WideString; MyText: UTF8String;
RNDNumber: integer; RNDNumber: integer;
end; end;
@ -111,7 +111,7 @@ type
CellPaintMode: TVTCellPaintMode; CellRect: TRect; var ContentRect: TRect); CellPaintMode: TVTCellPaintMode; CellRect: TRect; var ContentRect: TRect);
procedure MyTreeGetText(Sender: TBaseVirtualTree; procedure MyTreeGetText(Sender: TBaseVirtualTree;
Node: PVirtualNode; Column: TColumnIndex; TextType: TVSTTextType; Node: PVirtualNode; Column: TColumnIndex; TextType: TVSTTextType;
var CellText: WideString); var CellText: UTF8String);
procedure Button1Click(Sender: TObject); procedure Button1Click(Sender: TObject);
procedure MyTreeCompareNodes(Sender: TBaseVirtualTree; Node1, procedure MyTreeCompareNodes(Sender: TBaseVirtualTree; Node1,
Node2: PVirtualNode; Column: TColumnIndex; var Result: Integer); Node2: PVirtualNode; Column: TColumnIndex; var Result: Integer);
@ -146,7 +146,7 @@ uses
procedure TForm1.MyTreeGetText(Sender: TBaseVirtualTree; procedure TForm1.MyTreeGetText(Sender: TBaseVirtualTree;
Node: PVirtualNode; Column: TColumnIndex; TextType: TVSTTextType; Node: PVirtualNode; Column: TColumnIndex; TextType: TVSTTextType;
var CellText: WideString); var CellText: UTF8String);
var var
Data: ^rTreeData; Data: ^rTreeData;

4
components/virtualtreeview-unstable/demos/dataarray/dataarray.lpi
View File

@ -2,10 +2,11 @@
<CONFIG> <CONFIG>
<ProjectOptions> <ProjectOptions>
<PathDelim Value="\"/> <PathDelim Value="\"/>
<Version Value="6"/> <Version Value="7"/>
<General> <General>
<Flags> <Flags>
<AlwaysBuild Value="False"/> <AlwaysBuild Value="False"/>
<LRSInOutputDirectory Value="False"/>
</Flags> </Flags>
<SessionStorage Value="InProjectDir"/> <SessionStorage Value="InProjectDir"/>
<MainUnit Value="0"/> <MainUnit Value="0"/>
@ -46,7 +47,6 @@
<HasResources Value="True"/> <HasResources Value="True"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<ResourceFilename Value="Main.lrs"/>
<UnitName Value="Main"/> <UnitName Value="Main"/>
</Unit1> </Unit1>
</Units> </Units>