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

* Update vtbasic demo to use utf8

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@660 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
blikblum
2009-01-12 00:57:10 +00:00
parent 6f975e1206
commit 26a1d72de5
12 changed files with 105 additions and 104 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
components/virtualtreeview-unstable/demos/vtbasic/VTDBExample.pas
View File

@ -55,7 +55,7 @@ interface
procedure AddButtonClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure VTGetText(Sender: TBaseVirtualTree; Node: PVirtualNode; Column: TColumnIndex; TextType: TVSTTextType;
var Text: WideString);
var Text: UTF8String);
procedure VTFreeNode(Sender: TBaseVirtualTree; Node: PVirtualNode);
procedure VTInitNode(Sender: TBaseVirtualTree; ParentNode, Node: PVirtualNode;
var InitialStates: TVirtualNodeInitStates);
@ -72,7 +72,7 @@ interface
procedure VTCompareNodes(Sender: TBaseVirtualTree; Node1,
Node2: PVirtualNode; Column: TColumnIndex; var Result: Integer);
procedure VTGetNodeDataSize(Sender: TBaseVirtualTree; var NodeDataSize: Integer);
procedure VTNewText(Sender: TBaseVirtualTree; Node: PVirtualNode; Column: TColumnIndex; NewText: WideString);
procedure VTNewText(Sender: TBaseVirtualTree; Node: PVirtualNode; Column: TColumnIndex; NewText: UTF8String);
procedure VTInitChildren(Sender: TBaseVirtualTree; Node: PVirtualNode; var ChildCount: Cardinal);
procedure btnHasChildrenClick(Sender: TObject);
procedure btnToggleVisibilityClick(Sender: TObject);
@ -80,7 +80,7 @@ interface
procedure VTFocusChanging(Sender: TBaseVirtualTree; OldNode, NewNode: PVirtualNode;
OldColumn, NewColumn: TColumnIndex; var Allowed: Boolean);
procedure chkDynHtClick(Sender: TObject);
procedure VTIncrementalSearch(Sender: TBaseVirtualTree; Node: PVirtualNode; const SearchText: WideString;
procedure VTIncrementalSearch(Sender: TBaseVirtualTree; Node: PVirtualNode; const SearchText: UTF8String;
var Result: Integer);
private
@ -214,7 +214,7 @@ implementation
Finalize( Data^ );
end;
procedure TfrmVTDBExample.VTGetText(Sender: TBaseVirtualTree; Node: PVirtualNode; Column: TColumnIndex; TextType: TVSTTextType; var Text: WideString);
procedure TfrmVTDBExample.VTGetText(Sender: TBaseVirtualTree; Node: PVirtualNode; Column: TColumnIndex; TextType: TVSTTextType; var Text: UTF8String);
var
Data : PBasicNodeRec;
bnd : TBasicNodeAddData;
@ -369,7 +369,7 @@ implementation
end;
procedure TfrmVTDBExample.VTNewText(Sender: TBaseVirtualTree; Node: PVirtualNode;
Column: TColumnIndex; NewText: WideString);
Column: TColumnIndex; NewText: UTF8String);
var
Data : PBasicNodeRec;
begin
@ -483,7 +483,7 @@ implementation
end;
procedure TfrmVTDBExample.VTIncrementalSearch(Sender: TBaseVirtualTree;
Node: PVirtualNode; const SearchText: WideString; var Result: Integer);
Node: PVirtualNode; const SearchText: UTF8String; var Result: Integer);
function Min(const A, B: Integer): Integer; {save us linking in math.pas}
begin
@ -495,12 +495,12 @@ implementation
var
sCompare1, sCompare2 : string;
DisplayText : WideString;
DisplayText : UTF8String;
begin
VT.IncrementalSearchDirection := sdForward; // note can be backward
// Note: This code requires a proper Unicode/WideString comparation routine which I did not want to link here for
// Note: This code requires a proper Unicode/UTF8String comparation routine which I did not want to link here for
// size and clarity reasons. For now strings are (implicitely) converted to ANSI to make the comparation work.
// Search is not case sensitive.
VTGetText( Sender, Node, 0 {Column}, ttNormal, DisplayText );