[lazarus] New Bugs TMenuItem, TListView and Obj Inspector

[Danie Brink]

Mattias Gaertner wrote:
20021113191419.543e3faf.nc-gaertnma at netcologne.de">
  On Wed, 13 Nov 2002 20:04:48 +0200Danie Brink <subs at nas.co.za> wrote:
  
    Some More BugsTMenuItem : Sub Menu Items does not display shortcut, typing shortcut, make shortcut letter appear in menu.TListView : Clear Method does not exist. under TListView orTListView.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