[lazarus] New Bugs TMenuItem, TListView and Obj Inspector

[andrew johnson]

This sounds very much like what happened to me.. once a few weeks ago..
it has never happened again and I couldn't reproduce it so I thought it
a fluke.

Andrew

On Wed, 2002-11-13 at 13:19, Danie Brink wrote:
> Mattias Gaertner wrote:
> > On Wed, 13 Nov 2002 20:04:48 +0200
> > Danie Brink <subs at nas.co.za> wrote:
> > 
> > 
> > > Some More Bugs
> > > 
> > > TMenuItem : Sub Menu Items does not display shortcut, typing shortcut, 
> > > make shortcut letter appear in menu.
> > > 
> > > TListView : Clear Method does not exist. under TListView or
> > > TListView.Items
> > > 
> > 
> > 
> > > Creating an Event in the Object Inspector generates an error as followes 
> > > "Unable to create new method. Plz fix errors in source", but there are 
> > > no errors not even hints since I've added checking code to get rid of 
> > > them just in case.
> > > 
> > > Anny Sugestions as to the last error ?
> > > 
> > 
> > Can you plz send the terminal output?
> > 
> > 
> > Mattias
> > 
> > _________________________________________________________________
> >      To unsubscribe: mail lazarus-request at miraclec.com with
> >                 "unsubscribe" as the Subject
> >    archives at http://www.lazarus.freepascal.org/mailarchives
> > 
> > 
> > 
> My procedure is as follows, I select the form I want to create the
> event on.
> Double Click on the Event I want.
> Object Inspector Insert Generated String into Object Inspector field.
> Nothing else happens.
> Then I click on the source editor and the message apear allong with an
> EAccessViolation in the Messages Window.
> Here is the dump.
> 
> 
> TPascalParserTool.BuildTree B OnlyIntf=TRUE 
> /home/brink/work/dfssms/main.pas
> TMainIDE.DoOpenEditorFile END "/home/brink/work/dfssms/main.pas"
> TPascalParserTool.BuildTree B OnlyIntf=TRUE 
> /home/brink/work/dfssms/globals.pas
> TMainIDE.DoOpenEditorFile END "/home/brink/work/dfssms/globals.pas"
> TPascalParserTool.BuildTree B OnlyIntf=TRUE 
> /home/brink/work/dfssms/addressbook.pas
> TMainIDE.DoOpenEditorFile END
> "/home/brink/work/dfssms/addressbook.pas"
> TPascalParserTool.BuildTree B OnlyIntf=TRUE 
> /home/brink/lazarus/lcl/dialogs.pp
> ### TCodeToolManager.HandleException: "no pascal code found (first
> token is 1)" at Line=1 Col=1 in "/home/brink/lazarus/lcl/dialogs.pp"
> TMainIDE.DoOpenEditorFile END "/home/brink/lazarus/lcl/dialogs.pp"
> TMainIDE.DoOpenEditorFile END
> "/home/brink/lazarus/lcl/include/messagedialogs.inc"
> TPascalParserTool.BuildTree B OnlyIntf=TRUE 
> /home/brink/lazarus/lcl/comctrls.pp
> TMainIDE.DoOpenEditorFile END "/home/brink/lazarus/lcl/comctrls.pp"
> TPascalParserTool.BuildTree B OnlyIntf=TRUE 
> /home/brink/lazarus/lcl/stdctrls.pp
> TMainIDE.DoOpenEditorFile END "/home/brink/lazarus/lcl/stdctrls.pp"
> TPascalParserTool.BuildTree B OnlyIntf=TRUE 
> /home/brink/lazarus/lcl/controls.pp
> TMainIDE.DoOpenEditorFile END "/home/brink/lazarus/lcl/controls.pp"
> TPascalParserTool.BuildTree B OnlyIntf=TRUE 
> /home/brink/lazarus/lcl/menus.pp
> TMainIDE.DoOpenEditorFile END "/home/brink/lazarus/lcl/menus.pp"
> TPascalParserTool.BuildTree B OnlyIntf=TRUE 
> /home/brink/lazarus/lcl/forms.pp
> TMainIDE.DoOpenEditorFile END "/home/brink/lazarus/lcl/forms.pp"
> ************************************************************
> MouseDownOnControl Form1:TForm1 No Shift down, No CTRL down
> TDesigner.INVALIDATEWITHPARENT frmCellPages:TfrmCellPages
> TDesigner.INVALIDATEWITHPARENT Form1:TForm1
> [TDesigner.MouseDownOnControl] END
> ************************************************************
> MouseUpOnControl Form1:TForm1
> [TDesigner.MouseLeftUpOnControl] END
> ### TMethodPropertyEditor.GetValues
> [TEventsCodeTool.GetCompatiblePublishedMethods] A
> UpperClassName=TFORM1
> [TEventsCodeTool.GetCompatiblePublishedMethods] B TRUE
> [TEventsCodeTool.GetCompatiblePublishedMethods] C TRUE
> [TEventsCodeTool.GetCompatiblePublishedMethods] D
> [TEventsCodeTool.CreateExprListFromMethodTypeData] START
> [TEventsCodeTool.CreateExprListFromMethodTypeData] A  i=0/1
> Ident=TOBJECT
> TPascalParserTool.BuildTree B OnlyIntf=TRUE 
> /home/brink/lazarus/lcl/clipbrd.pp
> TPascalParserTool.BuildTree B OnlyIntf=TRUE 
> /home/brink/lazarus/lcl/buttons.pp
> TPascalParserTool.BuildTree B OnlyIntf=TRUE 
> /home/brink/lazarus/lcl/imglist.pp
> TPascalParserTool.BuildTree B OnlyIntf=TRUE 
> /home/brink/lazarus/lcl/lresources.pp
> TPascalParserTool.BuildTree B OnlyIntf=TRUE 
> /home/brink/lazarus/lcl/dialogs.pp
> [TEventsCodeTool.CreateExprListFromMethodTypeData] B  i=0/1
> Ident=TOBJECT CurExprType=Desc=None SubDesc=None
> [TEventsCodeTool.CreateExprListFromMethodTypeData] END
> [TEventsCodeTool.GetCompatiblePublishedMethods] E Searching ...
> TPascalParserTool.BuildTree B OnlyIntf=TRUE 
> /home/brink/lazarus/lcl/dialogs.pp
> TPascalParserTool.BuildTree B OnlyIntf=TRUE 
> /home/brink/lazarus/lcl/dialogs.pp
> TPascalParserTool.BuildTree B OnlyIntf=TRUE 
> /home/brink/lazarus/lcl/dialogs.pp
> TPascalParserTool.BuildTree B OnlyIntf=TRUE 
> /home/brink/lazarus/lcl/dialogs.pp
> TPascalParserTool.BuildTree B OnlyIntf=TRUE 
> /home/brink/lazarus/lcl/dialogs.pp
> TPascalParserTool.BuildTree B OnlyIntf=TRUE 
> /home/brink/lazarus/lcl/dialogs.pp
> ### TMethodPropertyEditor.SetValue A OldValue=""
> NewValue=Form1ACTIVATE
> [TEventsCodeTool.PublishedMethodExists] A UpperClassName=TFORM1
> [TEventsCodeTool.PublishedMethodExists] B TRUE
> TPascalParserTool.BuildTree B OnlyIntf=TRUE 
> /home/brink/lazarus/lcl/dialogs.pp
> TPascalParserTool.BuildTree B OnlyIntf=FALSE 
> /home/brink/work/dfssms/main.pas
> [TEventsCodeTool.CreatePublishedMethod] A AMethodName="Form1ACTIVATE"
> in "/home/brink/work/dfssms/main.pas"
> TPascalParserTool.BuildTree B OnlyIntf=TRUE 
> /home/brink/lazarus/lcl/dialogs.pp
> ### TCodeToolManager.HandleException: "EACCESSVIOLATION: Access
> violation" at Line=12 Col=12
-- 
andrew johnson <acjgenius at earthlink.net>