diff options
| author | George Hazan <george.hazan@gmail.com> | 2016-08-23 12:19:43 +0000 |
|---|---|---|
| committer | George Hazan <george.hazan@gmail.com> | 2016-08-23 12:19:43 +0000 |
| commit | 3c22d97f8c0bab9fc214a3a3b36ab57ddc1bbfb2 (patch) | |
| tree | b66e8b3378e285d9e3c19a8cd62d12c705092211 /plugins/HistoryPlusPlus/hpp_externalgrid.pas | |
| parent | 352fe9cb793622c4a6ccc88e938ae51ed09b6d94 (diff) | |
warning fixes
git-svn-id: http://svn.miranda-ng.org/main/trunk@17200 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c
Diffstat (limited to 'plugins/HistoryPlusPlus/hpp_externalgrid.pas')
| -rw-r--r-- | plugins/HistoryPlusPlus/hpp_externalgrid.pas | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/plugins/HistoryPlusPlus/hpp_externalgrid.pas b/plugins/HistoryPlusPlus/hpp_externalgrid.pas index 2bf5dd6c8c..23f89e1934 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: String);
- procedure GridNameData(Sender: TObject; Index: Integer; var Name: String);
+ procedure GridTranslateTime(Sender: TObject; Time: DWord; var Text: AnsiString);
+ procedure GridNameData(Sender: TObject; Index: Integer; var Name: AnsiString);
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: String);
+procedure TExternalGrid.GridTranslateTime(Sender: TObject; Time: DWord; var Text: AnsiString);
begin
Text := TimestampToString(Time);
end;
-procedure TExternalGrid.GridNameData(Sender: TObject; Index: Integer; var Name: String);
+procedure TExternalGrid.GridNameData(Sender: TObject; Index: Integer; var Name: AnsiString);
begin
if Name = '' then
begin
|