From d83baeb842ea828eaee90a0cd6575872a95240e8 Mon Sep 17 00:00:00 2001 From: Alexey Kulakov Date: Sat, 8 Mar 2014 13:10:05 +0000 Subject: Pascal-style type correction Letter case correction small fixes Actman UA part dialog slightly changed git-svn-id: http://svn.miranda-ng.org/main/trunk@8473 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c --- plugins/Watrack/myrtf.pas | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'plugins/Watrack/myrtf.pas') diff --git a/plugins/Watrack/myrtf.pas b/plugins/Watrack/myrtf.pas index a789b95d6a..0e1751017a 100644 --- a/plugins/Watrack/myrtf.pas +++ b/plugins/Watrack/myrtf.pas @@ -5,7 +5,7 @@ unit MyRTF; interface uses windows; -procedure SendRTF(wnd:hwnd;txt:PWideChar;isUnicode:Boolean;CP:integer=CP_ACP); +procedure SendRTF(wnd:HWND;txt:PWideChar;isUnicode:Boolean;CP:integer=CP_ACP); implementation uses richedit,common,messages{,m_api}; @@ -60,7 +60,7 @@ begin result:=0; end; -procedure WriteRTF(wnd:hwnd;const pszText:PAnsiChar); +procedure WriteRTF(wnd:HWND;const pszText:PAnsiChar); var stream:TEDITSTREAM; begin @@ -80,7 +80,7 @@ begin result:=0; end; -procedure ReadRTF(wnd:hwnd;var dst:PAnsiChar); +procedure ReadRTF(wnd:HWND;var dst:PAnsiChar); var stream:TEDITSTREAM; begin @@ -191,7 +191,7 @@ begin end; end; -procedure SendRTF(wnd:hwnd;txt:PWideChar;isUnicode:Boolean;CP:integer=CP_ACP); +procedure SendRTF(wnd:HWND;txt:PWideChar;isUnicode:Boolean;CP:integer=CP_ACP); var tmp:PAnsiChar; sstart:integer; -- cgit v1.2.3