paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-06 00:37:18 +01:00
Code Issues Packages Projects Releases Wiki Activity

* debugger: moved FormCreate/Destroy code to constructor/destructor since debugmanager uses OnDestroy itself

Browse Source 
git-svn-id: trunk@24605 -
This commit is contained in:
marc 2010-04-12 21:37:19 +00:00
parent 7f9ad32c3b
commit 8e5361c254
2 changed files with 28 additions and 28 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
debugger/debugeventsform.lfm
View File

@ -1,16 +1,14 @@
inherited DbgEventsForm: TDbgEventsForm
Left = 510
Left = 514
Height = 348
Top = 192
Top = 228
Width = 577
ActiveControl = ckgFilter.CheckBox0
ClientHeight = 348
ClientWidth = 577
OnCreate = FormCreate
OnDestroy = FormDestroy
object ckgFilter: TCheckGroup[0]
Left = 0
Height = 50
Height = 48
Top = 0
Width = 577
Align = alTop
@ -45,8 +43,8 @@ inherited DbgEventsForm: TDbgEventsForm
end
object lstFilteredEvents: TListView[1]
Left = 0
Height = 298
Top = 50
Height = 300
Top = 48
Width = 577
Align = alClient
Columns = <

44
debugger/debugeventsform.pp
View File

@ -46,13 +46,13 @@ type
imlMain: TImageList;
lstFilteredEvents: TListView;
procedure ckgFilterItemClick(Sender: TObject; Index: integer);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
private
FEvents: TStringList;
FFilter: TDBGEventCategories;
procedure UpdateFilteredList;
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
procedure SetEvents(const AEvents: TStrings; const AFilter: TDBGEventCategories);
procedure GetEvents(const AResultEvents: TStrings; var AResultFilter: TDBGEventCategories);
procedure Clear;
@ -65,20 +65,6 @@ implementation
{ TDbgEventsForm }
procedure TDbgEventsForm.FormCreate(Sender: TObject);
begin
Caption := lisMenuViewDebugEvents;
FEvents := TStringList.Create;
ckgFilter.Items.Clear;
ckgFilter.Items.Add(lisDebugOptionsFrmBreakpoint);
ckgFilter.Items.Add(lisDebugOptionsFrmProcess);
ckgFilter.Items.Add(lisDebugOptionsFrmThread);
ckgFilter.Items.Add(lisDebugOptionsFrmModule);
ckgFilter.Items.Add(lisDebugOptionsFrmOutput);
ckgFilter.Items.Add(lisDebugOptionsFrmWindow);
ckgFilter.Items.Add(lisDebugOptionsFrmDebugger);
end;
procedure TDbgEventsForm.ckgFilterItemClick(Sender: TObject; Index: integer);
begin
if ckgFilter.Checked[Index] then
@ -88,11 +74,6 @@ begin
UpdateFilteredList;
end;
procedure TDbgEventsForm.FormDestroy(Sender: TObject);
begin
FreeAndNil(FEvents);
end;
procedure TDbgEventsForm.UpdateFilteredList;
const
CategoryImages: array [TDBGEventCategory] of Integer = (
@ -162,6 +143,27 @@ begin
lstFilteredEvents.Clear;
end;
constructor TDbgEventsForm.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
Caption := lisMenuViewDebugEvents;
FEvents := TStringList.Create;
ckgFilter.Items.Clear;
ckgFilter.Items.Add(lisDebugOptionsFrmBreakpoint);
ckgFilter.Items.Add(lisDebugOptionsFrmProcess);
ckgFilter.Items.Add(lisDebugOptionsFrmThread);
ckgFilter.Items.Add(lisDebugOptionsFrmModule);
ckgFilter.Items.Add(lisDebugOptionsFrmOutput);
ckgFilter.Items.Add(lisDebugOptionsFrmWindow);
ckgFilter.Items.Add(lisDebugOptionsFrmDebugger);
end;
destructor TDbgEventsForm.Destroy;
begin
FreeAndNil(FEvents);
inherited Destroy;
end;
procedure TDbgEventsForm.AddEvent(const ACategory: TDBGEventCategory; const AText: String);
var
Item: TListItem;