diff options
| author | George Hazan <george.hazan@gmail.com> | 2016-08-23 12:42:56 +0000 |
|---|---|---|
| committer | George Hazan <george.hazan@gmail.com> | 2016-08-23 12:42:56 +0000 |
| commit | 81ecfce928b7a9382c442ccf566ed6369b8b2669 (patch) | |
| tree | e1d7020d6c78cb0d83ce8ac23b9d55d53cd28ede /plugins/HistoryPlusPlus/hpp_externalgrid.pas | |
| parent | 3c22d97f8c0bab9fc214a3a3b36ab57ddc1bbfb2 (diff) | |
switch to WideStrings
git-svn-id: http://svn.miranda-ng.org/main/trunk@17201 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c
Diffstat (limited to 'plugins/HistoryPlusPlus/hpp_externalgrid.pas')
| -rw-r--r-- | plugins/HistoryPlusPlus/hpp_externalgrid.pas | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/plugins/HistoryPlusPlus/hpp_externalgrid.pas b/plugins/HistoryPlusPlus/hpp_externalgrid.pas index 23f89e1934..7167245f05 100644 --- a/plugins/HistoryPlusPlus/hpp_externalgrid.pas +++ b/plugins/HistoryPlusPlus/hpp_externalgrid.pas @@ -107,8 +107,8 @@ type function IsFileEvent(Index: Integer): Boolean;
protected
procedure GridItemData(Sender: TObject; Index: Integer; var Item: THistoryItem);
- procedure GridTranslateTime(Sender: TObject; Time: DWord; var Text: AnsiString);
- procedure GridNameData(Sender: TObject; Index: Integer; var Name: AnsiString);
+ procedure GridTranslateTime(Sender: TObject; Time: DWord; var Text: WideString);
+ procedure GridNameData(Sender: TObject; Index: Integer; var Name: WideString);
procedure GridProcessRichText(Sender: TObject; Handle: THandle; Item: Integer);
procedure GridUrlClick(Sender: TObject; Item: Integer; URLText: String; Button: TMouseButton);
procedure GridBookmarkClick(Sender: TObject; Item: Integer);
@@ -547,12 +547,12 @@ begin end;
end;
-procedure TExternalGrid.GridTranslateTime(Sender: TObject; Time: DWord; var Text: AnsiString);
+procedure TExternalGrid.GridTranslateTime(Sender: TObject; Time: DWord; var Text: WideString);
begin
- Text := TimestampToString(Time);
+ Text := WideString(TimestampToString(Time));
end;
-procedure TExternalGrid.GridNameData(Sender: TObject; Index: Integer; var Name: AnsiString);
+procedure TExternalGrid.GridNameData(Sender: TObject; Index: Integer; var Name: WideString);
begin
if Name = '' then
begin
|