paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-30 17:50:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

ideintf: replaced AnsiCompareText

Browse Source 
git-svn-id: trunk@47166 -
This commit is contained in:
mattias 2014-12-10 03:14:34 +00:00
parent 56a75016e0
commit 5a8fd4166f
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
components/ideintf/idewindowintf.pas
View File

@ -17,7 +17,8 @@ unit IDEWindowIntf;
interface interface
uses uses
Math, Classes, SysUtils, LCLProc, LazConfigStorage, Forms, Controls, LCLIntf; Math, Classes, SysUtils, LCLProc, LazConfigStorage, LazUTF8, Forms, Controls,
LCLIntf;
//---------------------------------------------------------------------------- //----------------------------------------------------------------------------
// layout settings of modal forms (dialogs) in the IDE // layout settings of modal forms (dialogs) in the IDE
@ -469,14 +470,14 @@ implementation
function StrToIDEWindowPlacement(const s: string): TIDEWindowPlacement; function StrToIDEWindowPlacement(const s: string): TIDEWindowPlacement;
begin begin
for Result:=Low(TIDEWindowPlacement) to High(TIDEWindowPlacement) do for Result:=Low(TIDEWindowPlacement) to High(TIDEWindowPlacement) do
if AnsiCompareText(s,IDEWindowPlacementNames[Result])=0 then exit; if UTF8CompareText(s,IDEWindowPlacementNames[Result])=0 then exit;
Result:=iwpDefault; Result:=iwpDefault;
end; end;
function StrToIDEWindowState(const s: string): TIDEWindowState; function StrToIDEWindowState(const s: string): TIDEWindowState;
begin begin
for Result:=Low(TIDEWindowState) to High(TIDEWindowState) do for Result:=Low(TIDEWindowState) to High(TIDEWindowState) do
if AnsiCompareText(s,IDEWindowStateNames[Result])=0 then exit; if UTF8CompareText(s,IDEWindowStateNames[Result])=0 then exit;
Result:=iwsNormal; Result:=iwsNormal;
end; end;