paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-29 20:50:18 +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
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
@ -469,14 +470,14 @@ implementation
function StrToIDEWindowPlacement(const s: string): TIDEWindowPlacement;
begin
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;
end;
function StrToIDEWindowState(const s: string): TIDEWindowState;
begin
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;
end;