[Lazarus] Dircleaner example application bug

[Mattias Gaertner]

On Thu, 10 Jun 2010 14:45:34 +0100
Howard Page-Clark <hdpc at talktalk.net> wrote:

> On 08/6/10 8:10, Mattias Gaertner wrote:
> > On Mon, 07 Jun 2010 23:54:22 +0100
> > Howard Page-Clark<hdpc at talktalk.net>  wrote:
> >
> >> There is a minor bug in the very useful example application dircleaner.
> >> The unit dircleaner.pp around line 441 has
> >>
> >> FileNameFits:=Pos(Ext,FWorkExt)<>0;
> >>
> >> to check if the current file under consideration fits the specified file
> >> extension.
> >>
> >> This test is too simple since it does not look for an exact match.
> >> Suppose FWorkExt contains 'PPU' and the current file extension is 'PP'.
> >>
> >> The program will delete all the .pp files it finds, as well as all the
> >> .ppu ones. The test has to be stricter.
> >
> > I improved it. Please test.
> 
> Your improvement fixes that bug, thanks.
> However I could not get the confdirs project to compile and run without 
> errors on Windows 7 until I commented out
> 
> confdirs.lpr line 15	{$R manifest.res}

Fixed. Please test under windows7

 
> frmmain.pp line 870	writeln('Adding', Loc[i].Name);

Fixed.

 
> Also the FileActions tabsheet of the main config pagecontrol does not 
> work properly. New actions are not shown, or the app crashes if an 
> 'invisible' (but selected) action is deleted. I see that frmmain.pp line 
> 990 has this comment in the method ShowFileActionItem(LI: TListItem):
> 
> // Bug in control: the items list is cleared!!
> // UpdateActionLocations(FLocations);
> 
> Is the source of this bug known, and if so is the bug in the bugtracker?

Please create a bug report.

Mattias