paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-11 10:39:20 +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"?> <?xml version="1.0" encoding="UTF-8"?>
<CONFIG> <CONFIG>
<ProjectOptions> <ProjectOptions>
<Version Value="9"/> <Version Value="10"/>
<PathDelim Value="\"/> <PathDelim Value="\"/>
<General> <General>
<SessionStorage Value="InProjectDir"/> <SessionStorage Value="InProjectDir"/>
@ -9,15 +9,16 @@
<Title Value="glazres"/> <Title Value="glazres"/>
<ResourceType Value="res"/> <ResourceType Value="res"/>
<UseXPManifest Value="True"/> <UseXPManifest Value="True"/>
<XPManifest>
<TextName Value="CompanyName.ProductName.AppName"/>
<TextDesc Value="Your application description."/>
</XPManifest>
<Icon Value="0"/> <Icon Value="0"/>
</General> </General>
<i18n> <i18n>
<EnableI18N Value="True"/> <EnableI18N Value="True"/>
<OutDir Value="languages"/> <OutDir Value="languages"/>
</i18n> </i18n>
<VersionInfo>
<StringTable ProductVersion=""/>
</VersionInfo>
<BuildModes Count="2"> <BuildModes Count="2">
<Item1 Name="Debug" Default="True"/> <Item1 Name="Debug" Default="True"/>
<Item2 Name="Release"> <Item2 Name="Release">

9
tools/glazres/glazresmain.pp
View File

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