paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-10 12:59:00 +02:00
Code Issues Packages Projects Releases Wiki Activity

MWE:

Browse Source 
- Removed menucreation from loaded since streaming works

git-svn-id: trunk@1721 -
This commit is contained in:
lazarus 2002-05-30 22:45:57 +00:00
parent 45309abaf7
commit c5067609de
3 changed files with 12 additions and 60 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
debugger/breakpointsdlg.pp
View File

@ -72,18 +72,10 @@ type
procedure UpdateItem(const AItem: TListItem; const ABreakpoint: TDBGBreakPoint);
protected
procedure Loaded; override;
procedure SetDebugger(const ADebugger: TDebugger); override;
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
published
// publish some properties until fpcbug #1888 is fixed
property Top;
property Left;
property Width;
property Height;
property Caption;
end;
@ -143,23 +135,6 @@ begin
inherited;
end;
procedure TBreakPointsDlg.Loaded;
begin
inherited Loaded;
// Not yet through resources
mnuPopUp.Items.Add(popAdd);
popAdd.Add(popAddSourceBP);
mnuPopUp.Items.Add(N1);
mnuPopUp.Items.Add(popProperties);
mnuPopUp.Items.Add(popEnabled);
mnuPopUp.Items.Add(popDelete);
mnuPopUp.Items.Add(N2);
mnuPopUp.Items.Add(popDisableAll);
mnuPopUp.Items.Add(popEnableAll);
mnuPopUp.Items.Add(popDeleteAll);
end;
procedure TBreakPointsDlg.lvBreakPointsClick(Sender: TObject);
begin
end;
@ -285,6 +260,10 @@ end.
{ =============================================================================
$Log$
Revision 1.7 2002/05/30 22:45:57 lazarus
MWE:
- Removed menucreation from loaded since streaming works
Revision 1.6 2002/05/10 06:57:47 lazarus
MG: updated licenses

14
debugger/dbgoutputform.pp
View File

@ -51,13 +51,6 @@ type
public
procedure AddText(const AText: String);
procedure Clear;
published
// publish some properties until fpcbug #1888 is fixed
property Top;
property Left;
property Width;
property Height;
property Caption;
end;
implementation
@ -88,9 +81,6 @@ begin
// Not yet through resources
txtOutput.Scrollbars := ssBoth;
// Not yet through resources
mnuPopUp.Items.Add(popClear);
end;
procedure TDbgOutputForm.popClearClick(Sender: TObject);
@ -104,6 +94,10 @@ initialization
end.
{ =============================================================================
$Log$
Revision 1.8 2002/05/30 22:45:57 lazarus
MWE:
- Removed menucreation from loaded since streaming works
Revision 1.7 2002/05/10 07:00:08 lazarus
MG: fixed typo

29
debugger/watchesdlg.pp
View File

@ -72,18 +72,10 @@ type
procedure UpdateItem(const AItem: TListItem; const AWatch: TDBGWatch);
protected
procedure Loaded; override;
procedure SetDebugger(const ADebugger: TDebugger); override;
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
published
// publish some properties until fpcbug #1888 is fixed
property Top;
property Left;
property Width;
property Height;
property Caption;
end;
@ -124,23 +116,6 @@ begin
else Result := TDBGWatch(Item.Data);
end;
procedure TWatchesDlg.Loaded;
begin
inherited Loaded;
// Not yet through resources
mnuPopUp.Items.Add(popAdd);
mnuPopUp.Items.Add(N1);
mnuPopUp.Items.Add(popProperties);
mnuPopUp.Items.Add(popEnabled);
mnuPopUp.Items.Add(popDelete);
mnuPopUp.Items.Add(N2);
mnuPopUp.Items.Add(popDisableAll);
mnuPopUp.Items.Add(popEnableAll);
mnuPopUp.Items.Add(popDeleteAll);
end;
procedure TWatchesDlg.lvWatchesClick(Sender: TObject);
begin
end;
@ -289,6 +264,10 @@ end.
{ =============================================================================
$Log$
Revision 1.4 2002/05/30 22:45:57 lazarus
MWE:
- Removed menucreation from loaded since streaming works
Revision 1.3 2002/05/30 21:53:56 lazarus
MG: fixed form streaming of not direct TForm descendents