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

12
components/virtualtreeview-new/trunk/demos/advanced/AlignDemo.pas
View File

@@ -41,7 +41,7 @@ type
procedure AlignTreeGetImageIndex(Sender: TBaseVirtualTree; Node: PVirtualNode; Kind: TVTImageKind; Column: TColumnIndex;
var Ghosted: Boolean; var Index: Integer);
procedure AlignTreeGetText(Sender: TBaseVirtualTree; Node: PVirtualNode; Column: TColumnIndex; TextType: TVSTTextType;
var CellText: UTF8String);
var CellText: String);
procedure AlignTreePaintText(Sender: TBaseVirtualTree; const Canvas: TCanvas; Node: PVirtualNode; Column: TColumnIndex;
TextType: TVSTTextType);
procedure AlignTreeGetNodeDataSize(Sender: TBaseVirtualTree; var NodeDataSize: Integer);
@@ -90,7 +90,7 @@ type
TAlignData = record
MainColumnText,
GreekText,
RTLText: UTF8String;
RTLText: String;
ImageIndex: Integer;
end;
@@ -99,9 +99,9 @@ type
// Additionally, some greek text for another column is stored here too just because I like how it looks (the text,
// not the storage ;-)).
var
GreekStrings: array[0..8] of UTF8String;
ArabicStrings: array[0..3] of UTF8String;
HebrewStrings: array[0..2] of UTF8String;
GreekStrings: array[0..8] of String;
ArabicStrings: array[0..3] of String;
HebrewStrings: array[0..2] of String;
//----------------------------------------------------------------------------------------------------------------------
@@ -162,7 +162,7 @@ end;
//----------------------------------------------------------------------------------------------------------------------
procedure TAlignForm.AlignTreeGetText(Sender: TBaseVirtualTree; Node: PVirtualNode; Column: TColumnIndex;
TextType: TVSTTextType; var CellText: UTF8String);
TextType: TVSTTextType; var CellText: String);
var
Data: PAlignData;

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

@@ -56,7 +56,7 @@ type
FDriveStrings: string;
function CanDisplay(const Name: String): Boolean;
function GetDriveString(Index: Integer): string;
function ReadAttributes(const Name: UTF8String): Cardinal;
function ReadAttributes(const Name: String): Cardinal;
procedure RescaleImage(Source, Target: TBitmap);
end;
@@ -78,12 +78,12 @@ type
PShellObjectData = ^TShellObjectData;
TShellObjectData = record
FullPath,
Display: UTF8String;
Display: String;
Attributes: Cardinal;
OpenIndex,
CloseIndex: Integer; // image indices into the system image list
Image: TBitmap;
Properties: UTF8String; // some image properties, preformatted
Properties: String; // some image properties, preformatted
end;
//----------------------------------------------------------------------------------------------------------------------
@@ -252,7 +252,7 @@ end;
//----------------------------------------------------------------------------------------------------------------------
function TDrawTreeForm.ReadAttributes(const Name: UTF8String): Cardinal;
function TDrawTreeForm.ReadAttributes(const Name: String): Cardinal;
// Determines the attributes of the given shell object (file, folder).
@@ -422,7 +422,7 @@ procedure TDrawTreeForm.VDT1DrawNode(Sender: TBaseVirtualTree; const PaintInfo:
var
Data: PShellObjectData;
X: Integer;
S: UTF8String;
S: String;
R: TRect;
begin

4
components/virtualtreeview-new/trunk/demos/advanced/Editors.pas
View File

@@ -31,7 +31,7 @@ type
PPropertyData = ^TPropertyData;
TPropertyData = record
ValueType: TValueType;
Value: UTF8String; // This value can actually be a date or a number too.
Value: String; // This value can actually be a date or a number too.
Changed: Boolean;
end;
@@ -276,7 +276,7 @@ function TPropertyEditLink.EndEdit: Boolean;
var
Data: PPropertyData;
Buffer: array[0..1024] of Char;
S: UTF8String;
S: String;
begin
Result := True;

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

@@ -49,9 +49,9 @@ type
procedure VST2InitNode(Sender: TBaseVirtualTree; ParentNode, Node: PVirtualNode;
var InitialStates: TVirtualNodeInitStates);
procedure VST2InitChildren(Sender: TBaseVirtualTree; Node: PVirtualNode; var ChildCount: Cardinal);
procedure VST2NewText(Sender: TBaseVirtualTree; Node: PVirtualNode; Column: TColumnIndex; Text: UTF8String);
procedure VST2NewText(Sender: TBaseVirtualTree; Node: PVirtualNode; Column: TColumnIndex; Text: String);
procedure VST2GetText(Sender: TBaseVirtualTree; Node: PVirtualNode; Column: TColumnIndex; TextType: TVSTTextType;
var CellText: UTF8String);
var CellText: String);
procedure VST2PaintText(Sender: TBaseVirtualTree; const TargetCanvas: TCanvas; Node: PVirtualNode; Column: TColumnIndex;
TextType: TVSTTextType);
procedure VST2GetNodeDataSize(Sender: TBaseVirtualTree; var NodeDataSize: Integer);
@@ -99,7 +99,7 @@ type
TNodeData2 = record
Caption,
StaticText,
ForeignText: UTF8String;
ForeignText: String;
ImageIndex,
Level: Integer;
end;
@@ -178,7 +178,7 @@ end;
//----------------------------------------------------------------------------------------------------------------------
procedure TGeneralForm.VST2GetText(Sender: TBaseVirtualTree; Node: PVirtualNode; Column: TColumnIndex;
TextType: TVSTTextType; var CellText: UTF8String);
TextType: TVSTTextType; var CellText: String);
// Returns the text as it is stored in the nodes data record.
@@ -325,7 +325,7 @@ end;
//----------------------------------------------------------------------------------------------------------------------
procedure TGeneralForm.VST2NewText(Sender: TBaseVirtualTree; Node: PVirtualNode; Column: TColumnIndex;
Text: UTF8String);
Text: String);
// The caption of a node has been changed, keep this in the node record.

4
components/virtualtreeview-new/trunk/demos/advanced/GridDemo.pas
View File

@@ -35,7 +35,7 @@ type
procedure VST5FocusChanging(Sender: TBaseVirtualTree; OldNode, NewNode: PVirtualNode; OldColumn,
NewColumn: TColumnIndex; var Allowed: Boolean);
procedure VST5GetText(Sender: TBaseVirtualTree; Node: PVirtualNode; Column: TColumnIndex; TextType: TVSTTextType;
var CellText: UTF8String);
var CellText: String);
procedure VST5InitNode(Sender: TBaseVirtualTree; ParentNode, Node: PVirtualNode;
var InitialStates: TVirtualNodeInitStates);
procedure VST5PaintText(Sender: TBaseVirtualTree; const TargetCanvas: TCanvas; Node: PVirtualNode;
@@ -129,7 +129,7 @@ end;
//----------------------------------------------------------------------------------------------------------------------
procedure TGridForm.VST5GetText(Sender: TBaseVirtualTree; Node: PVirtualNode; Column: TColumnIndex;
TextType: TVSTTextType; var CellText: UTF8String);
TextType: TVSTTextType; var CellText: String);
var
Data: PGridData;

4
components/virtualtreeview-new/trunk/demos/advanced/HeaderCustomDrawDemo.pas
View File

@@ -33,7 +33,7 @@ type
procedure HeaderCustomDrawTreeStateChange(Sender: TBaseVirtualTree; Enter, Leave: TVirtualTreeStates);
procedure HeaderCustomDrawTreeGetText(Sender: TBaseVirtualTree;
Node: PVirtualNode; Column: TColumnIndex; TextType: TVSTTextType;
var CellText: UTF8String);
var CellText: String);
private
FBackBitmap1,
FBackBitmap2,
@@ -297,7 +297,7 @@ end;
//----------------------------------------------------------------------------------------------------------------------
procedure THeaderOwnerDrawForm.HeaderCustomDrawTreeGetText(Sender: TBaseVirtualTree; Node: PVirtualNode;
Column: TColumnIndex; TextType: TVSTTextType; var CellText: UTF8String);
Column: TColumnIndex; TextType: TVSTTextType; var CellText: String);
begin
CellText := 'Some simple text.';

4
components/virtualtreeview-new/trunk/demos/advanced/Main.pas
View File

@@ -41,7 +41,7 @@ type
var
MainForm: TMainForm;
procedure LoadUnicodeStrings(const Name: string; var Strings: array of UTF8String);
procedure LoadUnicodeStrings(const Name: string; var Strings: array of String);
procedure SetStatusbarText(const S: string);
//----------------------------------------------------------------------------------------------------------------------
@@ -56,7 +56,7 @@ uses
//----------------------------------------------------------------------------------------------------------------------
procedure LoadUnicodeStrings(const Name: string; var Strings: array of UTF8String);
procedure LoadUnicodeStrings(const Name: string; var Strings: array of String);
// Loads the Unicode strings from the resource.

6
components/virtualtreeview-new/trunk/demos/advanced/MultilineDemo.pas
View File

@@ -23,7 +23,7 @@ type
var InitialStates: TVirtualNodeInitStates);
procedure FormCreate(Sender: TObject);
procedure MLTreeGetText(Sender: TBaseVirtualTree; Node: PVirtualNode; Column: TColumnIndex;
TextType: TVSTTextType; var CellText: UTF8String);
TextType: TVSTTextType; var CellText: String);
procedure MLTreePaintText(Sender: TBaseVirtualTree; const TargetCanvas: TCanvas; Node: PVirtualNode;
Column: TColumnIndex; TextType: TVSTTextType);
procedure MLTreeEditing(Sender: TBaseVirtualTree; Node: PVirtualNode; Column: TColumnIndex; var Allowed: Boolean);
@@ -42,7 +42,7 @@ uses
var
DemoText: array[0..29] of UTF8String;
DemoText: array[0..29] of String;
//----------------------------------------------------------------------------------------------------------------------
@@ -73,7 +73,7 @@ end;
//----------------------------------------------------------------------------------------------------------------------
procedure TNodeForm.MLTreeGetText(Sender: TBaseVirtualTree; Node: PVirtualNode; Column: TColumnIndex;
TextType: TVSTTextType; var CellText: UTF8String);
TextType: TVSTTextType; var CellText: String);
// Returns the text for the given node. This text was loaded at form creation time from the application resource.

12
components/virtualtreeview-new/trunk/demos/advanced/PropertiesDemo.pas
View File

@@ -29,17 +29,17 @@ type
procedure VST3CreateEditor(Sender: TBaseVirtualTree; Node: PVirtualNode; Column: TColumnIndex; out EditLink: IVTEditLink);
procedure VST3Editing(Sender: TBaseVirtualTree; Node: PVirtualNode; Column: TColumnIndex; var Allowed: Boolean);
procedure VST3GetHint(Sender: TBaseVirtualTree; Node: PVirtualNode; Column: TColumnIndex;
var LineBreakStyle: TVTTooltipLineBreakStyle; var HintText: UTF8String);
var LineBreakStyle: TVTTooltipLineBreakStyle; var HintText: String);
procedure VST3GetImageIndex(Sender: TBaseVirtualTree; Node: PVirtualNode; Kind: TVTImageKind; Column: TColumnIndex;
var Ghosted: Boolean; var Index: Integer);
procedure VST3GetText(Sender: TBaseVirtualTree; Node: PVirtualNode; Column: TColumnIndex; TextType: TVSTTextType;
var CellText: UTF8String);
var CellText: String);
procedure VST3InitChildren(Sender: TBaseVirtualTree; Node: PVirtualNode; var ChildCount: Cardinal);
procedure VST3InitNode(Sender: TBaseVirtualTree; ParentNode, Node: PVirtualNode;
var InitialStates: TVirtualNodeInitStates);
procedure VST3PaintText(Sender: TBaseVirtualTree; const TargetCanvas: TCanvas; Node: PVirtualNode;
Column: TColumnIndex; TextType: TVSTTextType);
procedure VST3IncrementalSearch(Sender: TBaseVirtualTree; Node: PVirtualNode; const Text: UTF8String;
procedure VST3IncrementalSearch(Sender: TBaseVirtualTree; Node: PVirtualNode; const Text: String;
var Result: Integer);
procedure RadioGroup1Click(Sender: TObject);
procedure VST3StateChange(Sender: TBaseVirtualTree; Enter, Leave: TVirtualTreeStates);
@@ -106,7 +106,7 @@ end;
//----------------------------------------------------------------------------------------------------------------------
procedure TPropertiesForm.VST3GetText(Sender: TBaseVirtualTree; Node: PVirtualNode; Column: TColumnIndex;
TextType: TVSTTextType; var CellText: UTF8String);
TextType: TVSTTextType; var CellText: String);
var
Data: PPropertyData;
@@ -136,7 +136,7 @@ end;
//----------------------------------------------------------------------------------------------------------------------
procedure TPropertiesForm.VST3GetHint(Sender: TBaseVirtualTree; Node: PVirtualNode; Column: TColumnIndex;
var LineBreakStyle: TVTTooltipLineBreakStyle; var HintText: UTF8String);
var LineBreakStyle: TVTTooltipLineBreakStyle; var HintText: String);
begin
// Add a dummy hint to the normal hint to demonstrate multiline hints.
@@ -241,7 +241,7 @@ end;
//----------------------------------------------------------------------------------------------------------------------
procedure TPropertiesForm.VST3IncrementalSearch(Sender: TBaseVirtualTree; Node: PVirtualNode; const Text: UTF8String;
procedure TPropertiesForm.VST3IncrementalSearch(Sender: TBaseVirtualTree; Node: PVirtualNode; const Text: String;
var Result: Integer);
var

4
components/virtualtreeview-new/trunk/demos/advanced/SpeedDemo.pas
View File

@@ -38,7 +38,7 @@ type
procedure ClearButtonClick(Sender: TObject);
procedure AddButtonClick(Sender: TObject);
procedure VST1GetText(Sender: TBaseVirtualTree; Node: PVirtualNode; Column: TColumnIndex; TextType: TVSTTextType;
var CellText: UTF8String);
var CellText: String);
procedure VST1Change(Sender: TBaseVirtualTree; Node: PVirtualNode);
procedure VST1StructureChange(Sender: TBaseVirtualTree; Node: PVirtualNode; Reason: TChangeReason);
procedure DeleteSelectionButtonClick(Sender: TObject);
@@ -142,7 +142,7 @@ end;
//----------------------------------------------------------------------------------------------------------------------
procedure TSpeedForm.VST1GetText(Sender: TBaseVirtualTree; Node: PVirtualNode; Column: TColumnIndex; TextType: TVSTTextType;
var CellText: UTF8String);
var CellText: String);
begin
CellText := Format('Level %d, Index %d', [Sender.GetNodeLevel(Node), Node.Index]);

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]);

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

@@ -41,13 +41,13 @@ type
var InitialStates: TVirtualNodeInitStates);
procedure XPTreeInitChildren(Sender: TBaseVirtualTree; Node: PVirtualNode; var ChildCount: Cardinal);
procedure XPTreeGetText(Sender: TBaseVirtualTree; Node: PVirtualNode; Column: TColumnIndex;
TextType: TVSTTextType; var CellText: UTF8String);
TextType: TVSTTextType; var CellText: String);
procedure XPTreeHeaderClick(Sender: TVTHeader; Column: TColumnIndex; Button: TMouseButton; Shift: TShiftState;
X, Y: Integer);
procedure XPTreeCompareNodes(Sender: TBaseVirtualTree; Node1, Node2: PVirtualNode; Column: TColumnIndex;
var Result: Integer);
procedure XPTreeGetHint(Sender: TBaseVirtualTree; Node: PVirtualNode; Column: TColumnIndex;
var LineBreakStyle: TVTTooltipLineBreakStyle; var HintText: UTF8String);
var LineBreakStyle: TVTTooltipLineBreakStyle; var HintText: String);
procedure Label4Click(Sender: TObject);
procedure ToolButton9Click(Sender: TObject);
procedure XPTreeStateChange(Sender: TBaseVirtualTree; Enter, Leave: TVirtualTreeStates);
@@ -66,7 +66,7 @@ uses
type
PEntry = ^TEntry;
TEntry = record
Caption: UTF8String;
Caption: String;
Image: Integer;
Size: Int64;
end;
@@ -162,7 +162,7 @@ end;
//----------------------------------------------------------------------------------------------------------------------
procedure TWindowsXPForm.XPTreeGetText(Sender: TBaseVirtualTree; Node: PVirtualNode; Column: TColumnIndex;
TextType: TVSTTextType; var CellText: UTF8String);
TextType: TVSTTextType; var CellText: String);
var
Data: PEntry;
@@ -242,7 +242,7 @@ end;
//----------------------------------------------------------------------------------------------------------------------
procedure TWindowsXPForm.XPTreeGetHint(Sender: TBaseVirtualTree; Node: PVirtualNode; Column: TColumnIndex;
var LineBreakStyle: TVTTooltipLineBreakStyle; var HintText: UTF8String);
var LineBreakStyle: TVTTooltipLineBreakStyle; var HintText: String);
begin
// Show only a dummy hint. It is just to demonstrate how to do it.