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

* Replace UTF8String by String in all demos

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1107 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
blikblum
2009-12-31 14:06:29 +00:00
parent 1843817e9d
commit cfd18f9fb2
23 changed files with 86 additions and 89 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
components/virtualtreeview-new/trunk/demos/mininal/Main.pas
View File

@ -28,7 +28,7 @@ type
procedure ClearButtonClick(Sender: TObject);
procedure AddButtonClick(Sender: TObject);
procedure VSTGetText(Sender: TBaseVirtualTree; Node: PVirtualNode; Column: TColumnIndex; TextType: TVSTTextType;
var Text: UTF8String);
var Text: String);
procedure VSTFreeNode(Sender: TBaseVirtualTree; Node: PVirtualNode);
procedure VSTInitNode(Sender: TBaseVirtualTree; ParentNode, Node: PVirtualNode;
var InitialStates: TVirtualNodeInitStates);
@ -50,7 +50,7 @@ type
// Extend it to whatever your application needs.
PMyRec = ^TMyRec;
TMyRec = record
Caption: UTF8String;
Caption: String;
end;
//----------------------------------------------------------------------------------------------------------------------
@ -126,14 +126,13 @@ end;
//----------------------------------------------------------------------------------------------------------------------
procedure TMainForm.VSTGetText(Sender: TBaseVirtualTree; Node: PVirtualNode; Column: TColumnIndex; TextType: TVSTTextType;
var Text: UTF8String);
var Text: String);
var
Data: PMyRec;
begin
// A handler for the OnGetText event is always needed as it provides the tree with the string data to display.
// Note that we are always using UTF8String.
Data := Sender.GetNodeData(Node);
if Assigned(Data) then
Text := Data.Caption;