[lazarus] Bugs found

Jeroen van Iddekinge iddekingej at lycos.com
Fri Dec 13 11:53:16 EST 2002


Hi,

I found the following bugs is lazarus:

1) In TGtkObject.RemoveCallBacks


ImplWidget is set as :

if WinWidgetInfo<> nil then
   ImplWidget := WinWidgetInfo^.ImplementationWidget;..


But if WinWidgetInfo = nil ImplWidget is not set at all and
therefor not initialized.

2) In TGtkObject.Destroy


In following code

 if (FGDIObjects.Count > 0)  
  then begin  
    WriteLN(Format('[TgtkObject.Destroy] WARNING: There are %d unreleased GDIObjects, a detailed dump follows:' ,[FGDIObjects.Count]));  
--> for GDIType := Low(GDIType) to High(GDIType) do
    begin
--->    for GDIType := Low(GDIType) to High(GDIType) do
        GDITypeCount[GDIType] := 0;


I think that the First 'for loop' can be removed.




3) INTERFACEBASE.INC TINTERFACEBASE.EXCLUDECLIPRECT

'Result' is initilized when first if/then is not true.
This method should contain

begin
     Result := ERROR; {CHanged}
     Clip := ....
     if .... then


4) PROPEDITS.PP TPROPERTYEDITOR.LISTDRAWVALUE
          TPROPERTYEDITOR.PROPDRAWNAME
The Variable Style , wich is used in a call to ACanvas.TextRec, contains a field
SystemFont wich isn't initialised in the methode LISTDRAWVALUE and PROPDRAWNAME



Saluti,
  Jer


_____________________________________________________________
Get 25MB, POP3, Spam Filtering with LYCOS MAIL PLUS for $19.95/year.
http://login.mail.lycos.com/brandPage.shtml?pageId=plus&ref=lmtplus






More information about the Lazarus mailing list