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

added lazdbexport-0.lpl

Browse Source 
git-svn-id: trunk@16035 -
This commit is contained in:
mattias 2008-08-12 13:11:31 +00:00
parent 5014375f11
commit 75d4901a35
4 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -3622,6 +3622,7 @@ packager/globallinks/lazcustforms-0.lpl svneol=native#text/plain
packager/globallinks/lazcustomform-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/lazdaemon-0.lpl svneol=native#text/plain
packager/globallinks/lazdatadict-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/lazopenglcontext-0.lpl svneol=native#text/plain
packager/globallinks/lazparadox-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 packager/globallinks/lazreport-0.9.5.lpl svneol=native#text/plain

3
components/dbexport/demo/simple/simpleexport.lpi
View File

@ -4,7 +4,7 @@
<PathDelim Value="/"/> <PathDelim Value="/"/>
<Version Value="6"/> <Version Value="6"/>
<General> <General>
<SessionStorage Value="InProjectDir"/> <SessionStorage Value="InIDEConfig"/>
<MainUnit Value="0"/> <MainUnit Value="0"/>
<IconPath Value="./"/> <IconPath Value="./"/>
<TargetFileExt Value=""/> <TargetFileExt Value=""/>
@ -27,7 +27,6 @@
<RequiredPackages Count="5"> <RequiredPackages Count="5">
<Item1> <Item1>
<PackageName Value="lazdbexport"/> <PackageName Value="lazdbexport"/>
<MinVersion Major="1" Valid="True"/>
</Item1> </Item1>
<Item2> <Item2>
<PackageName Value="LCL"/> <PackageName Value="LCL"/>

5
lcl/interfaces/gtk/gtkproc.inc
View File

@ -3459,6 +3459,7 @@ var
i: integer; i: integer;
begin begin
StrList.Sorted := True; StrList.Sorted := True;
//DebugLn(['AddList ',StrList.Text]);
for i:=0 to StrList.Count-1 do for i:=0 to StrList.Count-1 do
Add(List, StrList[i]); Add(List, StrList[i]);
StrList.Sorted := False; StrList.Sorted := False;
@ -3474,6 +3475,7 @@ begin
SetLength(Dir, LastDelimiter(PathDelim,Dir)); SetLength(Dir, LastDelimiter(PathDelim,Dir));
end else end else
Dir := ''; Dir := '';
//DebugLn(['PopulateFileAndDirectoryLists ',Dir]);
Text[1] := nil; Text[1] := nil;
gtk_clist_freeze(Dirs); gtk_clist_freeze(Dirs);
gtk_clist_clear(Dirs); gtk_clist_clear(Dirs);
@ -3483,12 +3485,13 @@ begin
Strlist.Add('..'+PathDelim); Strlist.Add('..'+PathDelim);
if FindFirst(AppendPathDelim(Dir)+GetAllFilesMask, faAnyFile and faDirectory, if FindFirst(AppendPathDelim(Dir)+GetAllFilesMask, faAnyFile and faDirectory,
Info) = 0 Info) = 0
then then begin
repeat repeat
if ((Info.Attr and faDirectory) = faDirectory) and (Info.Name <> '.') if ((Info.Attr and faDirectory) = faDirectory) and (Info.Name <> '.')
and (Info.Name <> '..') and (Info.Name<>'') then and (Info.Name <> '..') and (Info.Name<>'') then
StrList.Add(AppendPathDelim(Info.Name)); StrList.Add(AppendPathDelim(Info.Name));
until FindNext(Info) <> 0; until FindNext(Info) <> 0;
end;
FindClose(Info); FindClose(Info);
AddList(Dirs); AddList(Dirs);
// add required files // add required files

2
packager/globallinks/lazdbexport-0.lpl Normal file
View File

@ -0,0 +1,2 @@
$(LazarusDir)/components/dbexport/lazdbexport.lpk