[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