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

LazResExplorer: make file filters cross-platform.

Browse Source 
git-svn-id: trunk@41039 -
This commit is contained in:
juha 2013-05-05 14:08:47 +00:00
parent a031882b1a
commit 4a43383cae
4 changed files with 33 additions and 37 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

44
examples/lazresexplorer/remainunit.lfm
View File

@ -5,15 +5,15 @@ object reMainForm: TreMainForm
Width = 768 Width = 768
ActiveControl = StringGrid1 ActiveControl = StringGrid1
Caption = 'reMainForm' Caption = 'reMainForm'
ClientHeight = 585 ClientHeight = 584
ClientWidth = 768 ClientWidth = 768
Menu = MainMenu1 Menu = MainMenu1
OnCreate = FormCreate OnCreate = FormCreate
Position = poScreenCenter Position = poScreenCenter
LCLVersion = '0.9.29' LCLVersion = '1.1'
object TreeView1: TTreeView object TreeView1: TTreeView
Left = 0 Left = 0
Height = 506 Height = 508
Top = 56 Top = 56
Width = 288 Width = 288
Align = alLeft Align = alLeft
@ -26,7 +26,7 @@ object reMainForm: TreMainForm
end end
object PageControl1: TPageControl object PageControl1: TPageControl
Left = 293 Left = 293
Height = 506 Height = 508
Top = 56 Top = 56
Width = 475 Width = 475
ActivePage = tabString ActivePage = tabString
@ -35,11 +35,11 @@ object reMainForm: TreMainForm
TabOrder = 1 TabOrder = 1
object tabString: TTabSheet object tabString: TTabSheet
Caption = 'String' Caption = 'String'
ClientHeight = 480 ClientHeight = 478
ClientWidth = 467 ClientWidth = 467
object StringGrid1: TStringGrid object StringGrid1: TStringGrid
Left = 0 Left = 0
Height = 480 Height = 478
Top = 0 Top = 0
Width = 467 Width = 467
Align = alClient Align = alClient
@ -49,8 +49,8 @@ object reMainForm: TreMainForm
FixedRows = 0 FixedRows = 0
TabOrder = 0 TabOrder = 0
ColWidths = ( ColWidths = (
230
231 231
232
) )
end end
end end
@ -70,7 +70,7 @@ object reMainForm: TreMainForm
end end
object Splitter1: TSplitter object Splitter1: TSplitter
Left = 288 Left = 288
Height = 506 Height = 508
Top = 56 Top = 56
Width = 5 Width = 5
OnChangeBounds = Splitter1ChangeBounds OnChangeBounds = Splitter1ChangeBounds
@ -98,8 +98,8 @@ object reMainForm: TreMainForm
end end
object StatusBar1: TStatusBar object StatusBar1: TStatusBar
Left = 0 Left = 0
Height = 23 Height = 20
Top = 562 Top = 564
Width = 768 Width = 768
Panels = <> Panels = <>
end end
@ -122,21 +122,21 @@ object reMainForm: TreMainForm
AutoSize = True AutoSize = True
end end
object ToolButton2: TToolButton object ToolButton2: TToolButton
Left = 67 Left = 74
Top = 2 Top = 2
Action = fileSave Action = fileSave
AutoSize = True AutoSize = True
end end
object ToolButton3: TToolButton object ToolButton3: TToolButton
Left = 176 Left = 204
Top = 2 Top = 2
Width = 8 Width = 10
AutoSize = True AutoSize = True
Caption = 'ToolButton3' Caption = 'ToolButton3'
Style = tbsSeparator Style = tbsSeparator
end end
object ToolButton4: TToolButton object ToolButton4: TToolButton
Left = 184 Left = 214
Top = 2 Top = 2
Action = hlpAbout Action = hlpAbout
AutoSize = True AutoSize = True
@ -144,8 +144,8 @@ object reMainForm: TreMainForm
end end
object ActionList1: TActionList object ActionList1: TActionList
Images = ImageList1 Images = ImageList1
left = 338 left = 408
top = 166 top = 168
object fileOpen: TAction object fileOpen: TAction
Category = 'File' Category = 'File'
Caption = 'Open...' Caption = 'Open...'
@ -173,8 +173,8 @@ object reMainForm: TreMainForm
object ImageList1: TImageList object ImageList1: TImageList
Height = 18 Height = 18
Width = 18 Width = 18
left = 384 left = 496
top = 166 top = 168
Bitmap = { Bitmap = {
4C69040000001200000012000000000000000000000000000000000000000000 4C69040000001200000012000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000
@ -343,8 +343,8 @@ object reMainForm: TreMainForm
end end
object MainMenu1: TMainMenu object MainMenu1: TMainMenu
Images = ImageList1 Images = ImageList1
left = 304 left = 320
top = 166 top = 168
object MenuItem1: TMenuItem object MenuItem1: TMenuItem
Caption = 'File' Caption = 'File'
object MenuItem4: TMenuItem object MenuItem4: TMenuItem
@ -394,7 +394,6 @@ object reMainForm: TreMainForm
0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000
00000000000000000000 00000000000000000000
} }
OnClick = fileOpenExecute
end end
object MenuItem5: TMenuItem object MenuItem5: TMenuItem
Caption = '-' Caption = '-'
@ -446,7 +445,6 @@ object reMainForm: TreMainForm
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF006D9CD4896A9AD2FB6697 FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF006D9CD4896A9AD2FB6697
CFEE0000000000000000 CFEE0000000000000000
} }
OnClick = fileExitExecute
end end
end end
object MenuItem2: TMenuItem object MenuItem2: TMenuItem
@ -498,7 +496,6 @@ object reMainForm: TreMainForm
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF000000000000000000 FF000000000000000000
} }
OnClick = hlpAboutExecute
end end
end end
end end
@ -506,7 +503,6 @@ object reMainForm: TreMainForm
Width = 948 Width = 948
Height = 804 Height = 804
DefaultExt = '.exe' DefaultExt = '.exe'
Filter = 'All files (*.*)|*.*|Excutable files (*.exe)|*.exe|DLL (*.dll)|*.dll'
left = 338 left = 338
top = 232 top = 232
end end

5
examples/lazresexplorer/remainunit.pas
View File

@ -96,6 +96,11 @@ begin
tabString.Caption:=sStrings; tabString.Caption:=sStrings;
tabImage.Caption:=sImage; tabImage.Caption:=sImage;
{$IFDEF Windows}
OpenDialog1.Filter:='All files (*.*)|*.*|Excutable files (*.exe)|*.exe|DLL (*.dll)|*.dll';
{$ELSE}
OpenDialog1.Filter:='All files (*)|*|Shared lib (*.so)|*.so';
{$ENDIF}
Splitter1ChangeBounds(nil); Splitter1ChangeBounds(nil);
end; end;

21
examples/lazresexplorer/resexplorer.lpi
View File

@ -1,15 +1,11 @@
<?xml version="1.0"?> <?xml version="1.0"?>
<CONFIG> <CONFIG>
<ProjectOptions> <ProjectOptions>
<Version Value="7"/> <Version Value="9"/>
<General> <General>
<Flags>
<UseDefaultCompilerOptions Value="True"/>
</Flags>
<SessionStorage Value="InProjectDir"/> <SessionStorage Value="InProjectDir"/>
<MainUnit Value="0"/> <MainUnit Value="0"/>
<AutoCreateForms Value="False"/> <AutoCreateForms Value="False"/>
<TargetFileExt Value=""/>
<ResourceType Value="res"/> <ResourceType Value="res"/>
<UseXPManifest Value="True"/> <UseXPManifest Value="True"/>
<Icon Value="0"/> <Icon Value="0"/>
@ -22,8 +18,11 @@
<AutoIncrementBuild Value="True"/> <AutoIncrementBuild Value="True"/>
<MinorVersionNr Value="1"/> <MinorVersionNr Value="1"/>
<CharSet Value="04B0"/> <CharSet Value="04B0"/>
<StringTable Comments="Explore your resources in executables and resource files" CompanyName="Alexey Lagunov" FileDescription="Resource Explorer" FileVersion="0.1.0.0" InternalName="LazResExplorer" LegalCopyright="Alexey Lagunov" LegalTrademarks="No Trademarks" OriginalFilename="lazresexplorer" ProductName="Lazarus Resource Explorer" ProductVersion="0.1.0.0"/> <StringTable Comments="Explore your resources in executables and resource files" CompanyName="Alexey Lagunov" FileDescription="Resource Explorer" InternalName="LazResExplorer" LegalCopyright="Alexey Lagunov" LegalTrademarks="No Trademarks" OriginalFilename="lazresexplorer" ProductName="Lazarus Resource Explorer"/>
</VersionInfo> </VersionInfo>
<BuildModes Count="1">
<Item1 Name="default" Default="True"/>
</BuildModes>
<PublishOptions> <PublishOptions>
<Version Value="2"/> <Version Value="2"/>
<IgnoreBinaries Value="False"/> <IgnoreBinaries Value="False"/>
@ -52,6 +51,7 @@
<Filename Value="remainunit.pas"/> <Filename Value="remainunit.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<ComponentName Value="reMainForm"/> <ComponentName Value="reMainForm"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<UnitName Value="reMainUnit"/> <UnitName Value="reMainUnit"/>
</Unit1> </Unit1>
@ -70,19 +70,14 @@
</Units> </Units>
</ProjectOptions> </ProjectOptions>
<CompilerOptions> <CompilerOptions>
<Version Value="8"/> <Version Value="11"/>
<Target> <Target>
<Filename Value="resexplorer"/> <Filename Value="resexplorer"/>
</Target> </Target>
<SearchPaths> <SearchPaths>
<IncludeFiles Value="$(ProjOutDir)/"/> <IncludeFiles Value="$(ProjOutDir)"/>
<UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/> <UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/>
</SearchPaths> </SearchPaths>
<Parsing>
<SyntaxOptions>
<UseAnsiStrings Value="True"/>
</SyntaxOptions>
</Parsing>
<Linking> <Linking>
<Options> <Options>
<Win32> <Win32>

BIN
examples/lazresexplorer/resexplorer.res
View File

Binary file not shown.