From 75d4901a355aa83e3a903aacc7e853673725964f Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Tue, 12 Aug 2008 13:11:31 +0000
Subject: [PATCH] added lazdbexport-0.lpl

git-svn-id: trunk@16035 -
---
 .gitattributes                                   | 1 +
 components/dbexport/demo/simple/simpleexport.lpi | 3 +--
 lcl/interfaces/gtk/gtkproc.inc                   | 5 ++++-
 packager/globallinks/lazdbexport-0.lpl           | 2 ++
 4 files changed, 8 insertions(+), 3 deletions(-)
 create mode 100644 packager/globallinks/lazdbexport-0.lpl

diff --git a/.gitattributes b/.gitattributes
index 7b8f99c1d6..f2974da861 100644
--- a/.gitattributes
+++ b/.gitattributes
@@ -3622,6 +3622,7 @@ packager/globallinks/lazcustforms-0.lpl svneol=native#text/plain
 packager/globallinks/lazcustomform-0.lpl svneol=native#text/plain
 packager/globallinks/lazdaemon-0.lpl svneol=native#text/plain
 packager/globallinks/lazdatadict-0.lpl svneol=native#text/plain
+packager/globallinks/lazdbexport-0.lpl svneol=native#text/plain
 packager/globallinks/lazopenglcontext-0.lpl svneol=native#text/plain
 packager/globallinks/lazparadox-0.lpl svneol=native#text/plain
 packager/globallinks/lazreport-0.9.5.lpl svneol=native#text/plain
diff --git a/components/dbexport/demo/simple/simpleexport.lpi b/components/dbexport/demo/simple/simpleexport.lpi
index cb630ab69a..d6253e31ed 100644
--- a/components/dbexport/demo/simple/simpleexport.lpi
+++ b/components/dbexport/demo/simple/simpleexport.lpi
@@ -4,7 +4,7 @@
     <PathDelim Value="/"/>
     <Version Value="6"/>
     <General>
-      <SessionStorage Value="InProjectDir"/>
+      <SessionStorage Value="InIDEConfig"/>
       <MainUnit Value="0"/>
       <IconPath Value="./"/>
       <TargetFileExt Value=""/>
@@ -27,7 +27,6 @@
     <RequiredPackages Count="5">
       <Item1>
         <PackageName Value="lazdbexport"/>
-        <MinVersion Major="1" Valid="True"/>
       </Item1>
       <Item2>
         <PackageName Value="LCL"/>
diff --git a/lcl/interfaces/gtk/gtkproc.inc b/lcl/interfaces/gtk/gtkproc.inc
index 39c95bcdab..039845413e 100644
--- a/lcl/interfaces/gtk/gtkproc.inc
+++ b/lcl/interfaces/gtk/gtkproc.inc
@@ -3459,6 +3459,7 @@ var
     i: integer;
   begin
     StrList.Sorted := True;
+    //DebugLn(['AddList ',StrList.Text]);
     for i:=0 to StrList.Count-1 do
       Add(List, StrList[i]);
     StrList.Sorted := False;
@@ -3474,6 +3475,7 @@ begin
     SetLength(Dir, LastDelimiter(PathDelim,Dir));
   end else
     Dir := '';
+  //DebugLn(['PopulateFileAndDirectoryLists ',Dir]);
   Text[1] := nil;
   gtk_clist_freeze(Dirs);
   gtk_clist_clear(Dirs);
@@ -3483,12 +3485,13 @@ begin
   Strlist.Add('..'+PathDelim);
   if FindFirst(AppendPathDelim(Dir)+GetAllFilesMask, faAnyFile and faDirectory,
     Info) = 0
-  then
+  then begin
     repeat
       if ((Info.Attr and faDirectory) = faDirectory) and (Info.Name <> '.')
       and (Info.Name <> '..') and (Info.Name<>'') then
         StrList.Add(AppendPathDelim(Info.Name));
     until FindNext(Info) <> 0;
+  end;
   FindClose(Info);
   AddList(Dirs);
   // add required files
diff --git a/packager/globallinks/lazdbexport-0.lpl b/packager/globallinks/lazdbexport-0.lpl
new file mode 100644
index 0000000000..6e66f291ad
--- /dev/null
+++ b/packager/globallinks/lazdbexport-0.lpl
@@ -0,0 +1,2 @@
+$(LazarusDir)/components/dbexport/lazdbexport.lpk
+