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

4
components/virtualtreeview-new/trunk/demos/vtbasic/VTNoData.pas
View File

@ -40,7 +40,7 @@ interface
procedure VTGetNodeDataSize(Sender: TBaseVirtualTree; var NodeDataSize: Integer);
procedure VTGetText(Sender: TBaseVirtualTree; Node: PVirtualNode;
Column: TColumnIndex; TextType: TVSTTextType; var CellText: UTF8String);
Column: TColumnIndex; TextType: TVSTTextType; var CellText: String);
procedure VTGetImageIndex(Sender: TBaseVirtualTree;
Node: PVirtualNode; Kind: TVTImageKind; Column: TColumnIndex; var Ghosted: Boolean; var ImageIndex: Integer);
procedure VTInitNode(Sender: TBaseVirtualTree; ParentNode, Node: PVirtualNode; var InitialStates: TVirtualNodeInitStates);
@ -128,7 +128,7 @@ implementation
end;
procedure TfrmVTNoData.VTGetText(Sender: TBaseVirtualTree; Node: PVirtualNode;
Column: TColumnIndex; TextType: TVSTTextType; var CellText: UTF8String);
Column: TColumnIndex; TextType: TVSTTextType; var CellText: String);
const
aAnimOpts : array[0..Ord(High(TVTAnimationOption ))] of string[25] =
( 'Animated Toggle',