paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-19 22:29:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

fixed debugging info

Browse Source 
git-svn-id: trunk@4527 -
This commit is contained in:
mattias 2003-08-26 12:39:03 +00:00
parent 12db19c7f6
commit f5d2c38786
2 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
designer/objectinspector.pp
View File

@ -330,6 +330,7 @@ type
ShowOptionsPopupMenuItem: TMenuItem;
procedure AvailComboBoxCloseUp(Sender: TObject);
procedure ComponentTreeSelectionChanged(Sender: TObject);
procedure NoteBookResize(Sender: TObject);
procedure OnBackgroundColPopupMenuItemClick(Sender :TObject);
procedure OnShowHintPopupMenuItemClick(Sender :TObject);
procedure OnShowOptionsPopupMenuItemClick(Sender :TObject);
@ -2245,6 +2246,7 @@ begin
Pages.Add(oisEvents);
PageIndex:=0;
PopupMenu:=MainPopupMenu;
OnResize:=@NoteBookResize;
end;
// property grid
@ -2507,6 +2509,13 @@ begin
FOnSelectComponentsInOI(Self);
end;
procedure TObjectInspector.NoteBookResize(Sender: TObject);
begin
{$IFDEF CompTree}
writeln('TObjectInspector.NoteBookResize A ',Left,',',Top,',',Width,',',Height);
{$ENDIF}
end;
procedure TObjectInspector.OnBackgroundColPopupMenuItemClick(Sender :TObject);
var ColorDialog:TColorDialog;
begin

2
designer/propedits.pp
View File

@ -3250,7 +3250,7 @@ end;
procedure TMethodPropertyEditor.GetValues(Proc: TGetStringProc);
begin
RaiseGDBException('TMethodPropertyEditor.GetValues');
//RaiseGDBException('TMethodPropertyEditor.GetValues');
writeln('### TMethodPropertyEditor.GetValues');
Proc('(None)');
PropertyHook.GetMethods(GetTypeData(GetPropType), Proc);