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/players/pl_behold.pas | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'plugins/Watrack/players/pl_behold.pas') diff --git a/plugins/Watrack/players/pl_behold.pas b/plugins/Watrack/players/pl_behold.pas index 977a021034..ddac43cfa1 100644 --- a/plugins/Watrack/players/pl_behold.pas +++ b/plugins/Watrack/players/pl_behold.pas @@ -55,7 +55,7 @@ end; function GetVersion(wnd:HWND):integer; begin - result:=DWORD(SendMessage(wnd,WM_BHCMD,WMBH_GETVERSION,0)); + result:=dword(SendMessage(wnd,WM_BHCMD,WMBH_GETVERSION,0)); result:=((result shr 16) shl 8)+LoWord(result); end; @@ -92,7 +92,7 @@ end; function GetVolume(wnd:HWND):cardinal; begin - result:=WORD(SendMessage(wnd,WM_BHCMD,WMBH_GETVOLUME,0)); + result:=word(SendMessage(wnd,WM_BHCMD,WMBH_GETVOLUME,0)); result:=(result shl 16)+(result shr 12); end; @@ -103,12 +103,12 @@ end; function VolDn(wnd:HWND):integer; begin - result:=WORD(SendMessage(wnd,WM_BHCMD,WMBH_VOLUMEDOWN,0)); + result:=word(SendMessage(wnd,WM_BHCMD,WMBH_VOLUMEDOWN,0)); end; function VolUp(wnd:HWND):integer; begin - result:=WORD(SendMessage(wnd,WM_BHCMD,WMBH_VOLUMEUP,0)); + result:=word(SendMessage(wnd,WM_BHCMD,WMBH_VOLUMEUP,0)); end; function GetInfo(var SongInfo:tSongInfo;flags:integer):integer;cdecl; -- cgit v1.2.3