paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-02 19:43:15 +01:00
Code Issues Packages Projects Releases Wiki Activity

* use UpdateCrc32 instead of Crc32

Browse Source 
git-svn-id: trunk@9779 -
This commit is contained in:
peter 2008-01-17 19:58:32 +00:00
parent 793fd8fc09
commit 39cd83a465
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
ide/fpini.pas
View File

@ -430,7 +430,8 @@ begin
AltMouseAction:=INIFile^.GetIntEntry(secMouse,ieAltClickAction,AltMouseAction);
CtrlMouseAction:=INIFile^.GetIntEntry(secMouse,ieCtrlClickAction,CtrlMouseAction);
{Keyboard}
case crc32(upcase(INIFile^.GetEntry(secKeyboard,ieEditKeys,''))) of
S:=upcase(INIFile^.GetEntry(secKeyboard,ieEditKeys,''));
case UpdateCrc32(0,s[1],Length(s)) of
$86a4c898: {crc32 for 'MICROSOFT'}
EditKeys:=ekm_microsoft;
$b20b87b3: {crc32 for 'BORLAND'}