From 4a43383caedfb4723bb13ae5133b97bbaf31a49f Mon Sep 17 00:00:00 2001
From: juha <juha@lazarus-ide.org>
Date: Sun, 5 May 2013 14:08:47 +0000
Subject: [PATCH] LazResExplorer: make file filters cross-platform.

git-svn-id: trunk@41039 -
---
 examples/lazresexplorer/remainunit.lfm  |  44 +++++++++++-------------
 examples/lazresexplorer/remainunit.pas  |   5 +++
 examples/lazresexplorer/resexplorer.lpi |  21 +++++------
 examples/lazresexplorer/resexplorer.res | Bin 139116 -> 139104 bytes
 4 files changed, 33 insertions(+), 37 deletions(-)

diff --git a/examples/lazresexplorer/remainunit.lfm b/examples/lazresexplorer/remainunit.lfm
index 14f9e14db4..6ddd74dc3b 100644
--- a/examples/lazresexplorer/remainunit.lfm
+++ b/examples/lazresexplorer/remainunit.lfm
@@ -5,15 +5,15 @@ object reMainForm: TreMainForm
   Width = 768
   ActiveControl = StringGrid1
   Caption = 'reMainForm'
-  ClientHeight = 585
+  ClientHeight = 584
   ClientWidth = 768
   Menu = MainMenu1
   OnCreate = FormCreate
   Position = poScreenCenter
-  LCLVersion = '0.9.29'
+  LCLVersion = '1.1'
   object TreeView1: TTreeView
     Left = 0
-    Height = 506
+    Height = 508
     Top = 56
     Width = 288
     Align = alLeft
@@ -26,7 +26,7 @@ object reMainForm: TreMainForm
   end
   object PageControl1: TPageControl
     Left = 293
-    Height = 506
+    Height = 508
     Top = 56
     Width = 475
     ActivePage = tabString
@@ -35,11 +35,11 @@ object reMainForm: TreMainForm
     TabOrder = 1
     object tabString: TTabSheet
       Caption = 'String'
-      ClientHeight = 480
+      ClientHeight = 478
       ClientWidth = 467
       object StringGrid1: TStringGrid
         Left = 0
-        Height = 480
+        Height = 478
         Top = 0
         Width = 467
         Align = alClient
@@ -49,8 +49,8 @@ object reMainForm: TreMainForm
         FixedRows = 0
         TabOrder = 0
         ColWidths = (
+          230
           231
-          232
         )
       end
     end
@@ -70,7 +70,7 @@ object reMainForm: TreMainForm
   end
   object Splitter1: TSplitter
     Left = 288
-    Height = 506
+    Height = 508
     Top = 56
     Width = 5
     OnChangeBounds = Splitter1ChangeBounds
@@ -98,8 +98,8 @@ object reMainForm: TreMainForm
   end
   object StatusBar1: TStatusBar
     Left = 0
-    Height = 23
-    Top = 562
+    Height = 20
+    Top = 564
     Width = 768
     Panels = <>
   end
@@ -122,21 +122,21 @@ object reMainForm: TreMainForm
       AutoSize = True
     end
     object ToolButton2: TToolButton
-      Left = 67
+      Left = 74
       Top = 2
       Action = fileSave
       AutoSize = True
     end
     object ToolButton3: TToolButton
-      Left = 176
+      Left = 204
       Top = 2
-      Width = 8
+      Width = 10
       AutoSize = True
       Caption = 'ToolButton3'
       Style = tbsSeparator
     end
     object ToolButton4: TToolButton
-      Left = 184
+      Left = 214
       Top = 2
       Action = hlpAbout
       AutoSize = True
@@ -144,8 +144,8 @@ object reMainForm: TreMainForm
   end
   object ActionList1: TActionList
     Images = ImageList1
-    left = 338
-    top = 166
+    left = 408
+    top = 168
     object fileOpen: TAction
       Category = 'File'
       Caption = 'Open...'
@@ -173,8 +173,8 @@ object reMainForm: TreMainForm
   object ImageList1: TImageList
     Height = 18
     Width = 18
-    left = 384
-    top = 166
+    left = 496
+    top = 168
     Bitmap = {
       4C69040000001200000012000000000000000000000000000000000000000000
       0000000000000000000000000000000000000000000000000000000000000000
@@ -343,8 +343,8 @@ object reMainForm: TreMainForm
   end
   object MainMenu1: TMainMenu
     Images = ImageList1
-    left = 304
-    top = 166
+    left = 320
+    top = 168
     object MenuItem1: TMenuItem
       Caption = 'File'
       object MenuItem4: TMenuItem
@@ -394,7 +394,6 @@ object reMainForm: TreMainForm
           0000000000000000000000000000000000000000000000000000000000000000
           00000000000000000000
         }
-        OnClick = fileOpenExecute
       end
       object MenuItem5: TMenuItem
         Caption = '-'
@@ -446,7 +445,6 @@ object reMainForm: TreMainForm
           FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF006D9CD4896A9AD2FB6697
           CFEE0000000000000000
         }
-        OnClick = fileExitExecute
       end
     end
     object MenuItem2: TMenuItem
@@ -498,7 +496,6 @@ object reMainForm: TreMainForm
           FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
           FF000000000000000000
         }
-        OnClick = hlpAboutExecute
       end
     end
   end
@@ -506,7 +503,6 @@ object reMainForm: TreMainForm
     Width = 948
     Height = 804
     DefaultExt = '.exe'
-    Filter = 'All files (*.*)|*.*|Excutable files (*.exe)|*.exe|DLL (*.dll)|*.dll'
     left = 338
     top = 232
   end
diff --git a/examples/lazresexplorer/remainunit.pas b/examples/lazresexplorer/remainunit.pas
index 12c04f431d..4b0ea6dc32 100644
--- a/examples/lazresexplorer/remainunit.pas
+++ b/examples/lazresexplorer/remainunit.pas
@@ -96,6 +96,11 @@ begin
   tabString.Caption:=sStrings;
   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);
 end;
 
diff --git a/examples/lazresexplorer/resexplorer.lpi b/examples/lazresexplorer/resexplorer.lpi
index 83207fc618..15dd1fa155 100644
--- a/examples/lazresexplorer/resexplorer.lpi
+++ b/examples/lazresexplorer/resexplorer.lpi
@@ -1,15 +1,11 @@
 <?xml version="1.0"?>
 <CONFIG>
   <ProjectOptions>
-    <Version Value="7"/>
+    <Version Value="9"/>
     <General>
-      <Flags>
-        <UseDefaultCompilerOptions Value="True"/>
-      </Flags>
       <SessionStorage Value="InProjectDir"/>
       <MainUnit Value="0"/>
       <AutoCreateForms Value="False"/>
-      <TargetFileExt Value=""/>
       <ResourceType Value="res"/>
       <UseXPManifest Value="True"/>
       <Icon Value="0"/>
@@ -22,8 +18,11 @@
       <AutoIncrementBuild Value="True"/>
       <MinorVersionNr Value="1"/>
       <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>
+    <BuildModes Count="1">
+      <Item1 Name="default" Default="True"/>
+    </BuildModes>
     <PublishOptions>
       <Version Value="2"/>
       <IgnoreBinaries Value="False"/>
@@ -52,6 +51,7 @@
         <Filename Value="remainunit.pas"/>
         <IsPartOfProject Value="True"/>
         <ComponentName Value="reMainForm"/>
+        <HasResources Value="True"/>
         <ResourceBaseClass Value="Form"/>
         <UnitName Value="reMainUnit"/>
       </Unit1>
@@ -70,19 +70,14 @@
     </Units>
   </ProjectOptions>
   <CompilerOptions>
-    <Version Value="8"/>
+    <Version Value="11"/>
     <Target>
       <Filename Value="resexplorer"/>
     </Target>
     <SearchPaths>
-      <IncludeFiles Value="$(ProjOutDir)/"/>
+      <IncludeFiles Value="$(ProjOutDir)"/>
       <UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/>
     </SearchPaths>
-    <Parsing>
-      <SyntaxOptions>
-        <UseAnsiStrings Value="True"/>
-      </SyntaxOptions>
-    </Parsing>
     <Linking>
       <Options>
         <Win32>
diff --git a/examples/lazresexplorer/resexplorer.res b/examples/lazresexplorer/resexplorer.res
index 1440060f12fc0e091e29e57edb42dd7153a3f665..4460eabef3401ec2891a7e08deac0d346ef901cc 100644
GIT binary patch
delta 72
zcmaE}kK@5Ujtvpaj2k9LGRp(WN@jCLhRGY5l^F#lUj>qHHveSSXWSgYn!-3)gVlgp
bgMo4Kel|r$hUT|y?Qhu_x4&g$s+Rx&gD4j-

delta 84
zcmaE`kK@fgjtvpajC&?WGRp(WN@jCL#>pF*l^JCwUj>psHveSSXPn%_X0Ta<HHDGc
jgn?u7el|s30|q??Lm&px2F(xI+8?qpZhy$eR4)Mli<ubP