diff options
-rw-r--r-- | ide/fpini.pas | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/ide/fpini.pas b/ide/fpini.pas index 9aecfadb6c..8d3038540b 100644 --- a/ide/fpini.pas +++ b/ide/fpini.pas @@ -31,7 +31,7 @@ procedure SetPrinterDevice(const Device: string); implementation -uses +uses Dos,Objects,Drivers, FVConsts, Version, @@ -362,6 +362,7 @@ var INIFile: PINIFile; OK: boolean; ts : TSwitchMode; W: word; + crcv:cardinal; begin OK:=ExistsFile(IniFileName); if OK then @@ -432,10 +433,12 @@ begin CtrlMouseAction:=INIFile^.GetIntEntry(secMouse,ieCtrlClickAction,CtrlMouseAction); {Keyboard} S:=upcase(INIFile^.GetEntry(secKeyboard,ieEditKeys,'')); - case UpdateCrc32(0,s[1],Length(s)) of - $86a4c898: {crc32 for 'MICROSOFT'} + crcv := UpdateCrc32(0,s[1],Length(s)) ; + case crcv of + $795B3767 : {crc32 for 'MICROSOFT'} EditKeys:=ekm_microsoft; - $b20b87b3: {crc32 for 'BORLAND'} + $4DF4784C + : {crc32 for 'BORLAND'} EditKeys:=ekm_borland; else EditKeys:=ekm_default; |