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/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