[lazarus] New Bug Entered

[andrew johnson]

I believe that all three points have been Fixed. If there still appears
to a problem let me know, otherwise can/should this bug be marked fixed?

Andrew

On Mon, 2002-10-28 at 15:39
Jeroen van Iddekinge wrote:

Title: Unitialised variables and memory leak
> 
> Entered by: Jeroen van Iddekinge
> 
> 1) In TGtkObject.InitStockItems the function CreateBrushIndirect is called.  logbrush.lbStyle is set to bs_null , but logbrush.lbColor is not set and is therefor unitialised. lbColor should be set because it is used in CreateBrushIndirect in a call to GetGDIolorRef
> 
> 2) TGtkObject.FillScreenFont, memory leak
> XFreeFontNames(theFonts) should be added. 
> 
> 3) TGtkObject.SelectClipRgn.
> The first lines of this routine is:
> 
> if not isValidDc(DC) then
>   Result := Error;
> if Result <> Error then
> 
> This should be something like:
> 
> Error := 0
> if not IsValidDc(DC) then
>     Result := Error;
> if Result <> Error then