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

10
components/virtualtreeview-new/trunk/demos/advanced/VisibilityDemo.pas
View File

@ -34,7 +34,7 @@ type
procedure FormCreate(Sender: TObject);
procedure RadioGroup1Click(Sender: TObject);
procedure VST2GetText(Sender: TBaseVirtualTree; Node: PVirtualNode; Column: TColumnIndex; TextType: TVSTTextType;
var CellText: UTF8String);
var CellText: String);
procedure VST3Scroll(Sender: TBaseVirtualTree; DeltaX, DeltaY: Integer);
procedure VST2InitChildren(Sender: TBaseVirtualTree; Node: PVirtualNode; var ChildCount: Cardinal);
procedure VST2Scroll(Sender: TBaseVirtualTree; DeltaX, DeltaY: Integer);
@ -44,7 +44,7 @@ type
var Accept: Boolean);
procedure Splitter2Paint(Sender: TObject);
procedure VST1GetText(Sender: TBaseVirtualTree; Node: PVirtualNode; Column: TColumnIndex; TextType: TVSTTextType;
var CellText: UTF8String);
var CellText: String);
procedure FormShow(Sender: TObject);
procedure FormHide(Sender: TObject);
private
@ -65,7 +65,7 @@ uses States;
type
PLinkData = ^TLinkData;
TLinkData = record
Caption: UTF8String;
Caption: String;
OtherNode: PVirtualNode;
end;
@ -167,7 +167,7 @@ end;
//----------------------------------------------------------------------------------------------------------------------
procedure TVisibilityForm.VST2GetText(Sender: TBaseVirtualTree; Node: PVirtualNode; Column: TColumnIndex;
TextType: TVSTTextType; var CellText: UTF8String);
TextType: TVSTTextType; var CellText: String);
var
Data: PLinkData;
@ -314,7 +314,7 @@ end;
//----------------------------------------------------------------------------------------------------------------------
procedure TVisibilityForm.VST1GetText(Sender: TBaseVirtualTree; Node: PVirtualNode; Column: TColumnIndex;
TextType: TVSTTextType; var CellText: UTF8String);
TextType: TVSTTextType; var CellText: String);
begin
CellText := Format('Node Level %d, Index %d', [Sender.GetNodeLevel(Node), Node.Index]);