diff options
| author | George Hazan <george.hazan@gmail.com> | 2013-03-01 23:11:39 +0000 |
|---|---|---|
| committer | George Hazan <george.hazan@gmail.com> | 2013-03-01 23:11:39 +0000 |
| commit | 8ef40f0bd018c6f9295977c206714db8d1e6159c (patch) | |
| tree | 2acbdcb3743bb4d1b6bbfc49953cc164b11a6089 /plugins/Utils.pas | |
| parent | 427891e0d28becb428ae8435954399f2e4daa9fe (diff) | |
code cleanup for pascal plugins
git-svn-id: http://svn.miranda-ng.org/main/trunk@3828 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c
Diffstat (limited to 'plugins/Utils.pas')
| -rw-r--r-- | plugins/Utils.pas/mApiCardM.pas | 8 | ||||
| -rw-r--r-- | plugins/Utils.pas/old/mApiCardC.pas | 6 |
2 files changed, 5 insertions, 9 deletions
diff --git a/plugins/Utils.pas/mApiCardM.pas b/plugins/Utils.pas/mApiCardM.pas index ff289168f3..8a3011153d 100644 --- a/plugins/Utils.pas/mApiCardM.pas +++ b/plugins/Utils.pas/mApiCardM.pas @@ -8,8 +8,8 @@ uses windows,messages; type
tmApiCard = class
private
- function GetDescription:pAnsiChar;
- function GetResultType :pAnsiChar;
+ function GetDescription:pAnsiChar;
+ function GetResultType :pAnsiChar;
procedure SetCurrentService(item:pAnsiChar);
public
constructor Create(fname:pAnsiChar; lparent:HWND=0);
@@ -239,7 +239,7 @@ begin SetDlgItemTextA(Dialog,IDC_HLP_ALIAS,
GetParamSectionStr(current,'alias',''));
-
+
FastAnsiToWideBuf(GetParamSectionStr(current,'return','Undefined'),tmp);
SetDlgItemTextW(Dialog,IDC_HLP_RETURN,TranslateW(tmp));
@@ -367,8 +367,6 @@ begin if fname<>nil then
begin
ConvertFileName(fname,@INIFile);
- // CallService(MS_UTILS_PATHTOABSOLUTE,
- // dword(PAnsiChar(ServiceHlpFile)),dword(INIFile));
if GetFSize(pAnsiChar(@INIFile))=0 then
begin
INIFile[0]:=#0;
diff --git a/plugins/Utils.pas/old/mApiCardC.pas b/plugins/Utils.pas/old/mApiCardC.pas index 507bc79d79..7c67443087 100644 --- a/plugins/Utils.pas/old/mApiCardC.pas +++ b/plugins/Utils.pas/old/mApiCardC.pas @@ -8,8 +8,8 @@ uses windows,messages; type
tmApiCard = class
private
- function GetDescription:pAnsiChar;
- function GetResultType :pAnsiChar;
+ function GetDescription:pAnsiChar;
+ function GetResultType :pAnsiChar;
procedure SetCurrentService(item:pAnsiChar);
public
constructor Create(fname:pAnsiChar; lparent:HWND=0);
@@ -371,8 +371,6 @@ begin if fname<>nil then
begin
ConvertFileName(fname,@INIFile);
- // PluginLink^.CallService(MS_UTILS_PATHTOABSOLUTE,
- // dword(PAnsiChar(ServiceHlpFile)),dword(INIFile));
if GetFSize(pAnsiChar(@INIFile))=0 then
begin
INIFile[0]:=#0;
|