paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-07 05:40:49 +02:00
Code Issues Packages Projects Releases Wiki Activity

glazres: search files with Pascal case insensitivity as well

Browse Source 
git-svn-id: trunk@53401 -
This commit is contained in:
mattias 2016-11-21 16:01:36 +00:00
parent 28991b109d
commit 6c407707ae
2 changed files with 11 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
tools/glazres/glazres.lpi
View File

@ -1,7 +1,7 @@
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectOptions>
<Version Value="9"/>
<Version Value="10"/>
<PathDelim Value="\"/>
<General>
<SessionStorage Value="InProjectDir"/>
@ -9,15 +9,16 @@
<Title Value="glazres"/>
<ResourceType Value="res"/>
<UseXPManifest Value="True"/>
<XPManifest>
<TextName Value="CompanyName.ProductName.AppName"/>
<TextDesc Value="Your application description."/>
</XPManifest>
<Icon Value="0"/>
</General>
<i18n>
<EnableI18N Value="True"/>
<OutDir Value="languages"/>
</i18n>
<VersionInfo>
<StringTable ProductVersion=""/>
</VersionInfo>
<BuildModes Count="2">
<Item1 Name="Debug" Default="True"/>
<Item2 Name="Release">

9
tools/glazres/glazresmain.pp
View File

@ -63,7 +63,7 @@ type
procedure DestEdtAcceptFileName(Sender: TObject; var {%H-}Value: String);
procedure DestEdtEditingDone(Sender: TObject);
procedure FileListBoxDrawItem(Control: TWinControl; Index: Integer;
ARect: TRect; State: TOwnerDrawState);
ARect: TRect; {%H-}State: TOwnerDrawState);
procedure FormClose(Sender: TObject; var {%H-}CloseAction: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure FormResize(Sender: TObject);
@ -441,7 +441,8 @@ var
S:string;
ResFileStream, BinFileStream: TFileStreamUtf8;
ResMemStream, BinMemStream: TMemoryStream;
ResourceFilename, FullResourceFilename, BinFilename, BinExt, ResourceName, ResourceType: String;
ResourceFilename, FullResourceFilename, BinFilename, BinExt, ResourceName, ResourceType,
ExpS: String;
begin
FileCount := FileListBox.Count;
if FileCount = 0 then
@ -460,7 +461,9 @@ begin
AddMessageFmt(ErrFileNotfound,[S]);
exit;
end;
if CompareFilenamesIgnoreCase(ExpandFileNameUTF8(S), FullResourceFilename) = 0 then
ExpS:=ExpandFileNameUTF8(S);
if (CompareText(ExpS,FullResourceFilename)=0)
or (CompareFilenamesIgnoreCase(ExpandFileNameUTF8(S), FullResourceFilename) = 0) then
begin
AddMessageFmt(ErrFileIsResource,[S]);
exit;