Some More Bugs TMenuItem : Sub Menu Items does not display shortcut, typing shortcut,…
Mattias Gaertner wrote:
">
On Wed, 13 Nov 2002 20:04:48 +0200Danie Brink 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 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
