source: cprs/branches/GUI-config/DebugU.pas@ 1699

Last change on this file since 1699 was 488, checked in by Kevin Toppenberg, 16 years ago

Added debug log form

File size: 743 bytes
Line 
1unit DebugU;
2
3interface
4
5uses
6 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
7 Dialogs, StdCtrls, ExtCtrls;
8
9type
10 TDebugForm = class(TForm)
11 Memo: TMemo;
12 Panel1: TPanel;
13 Panel2: TPanel;
14 Label1: TLabel;
15 btnHide: TButton;
16 btnClear: TButton;
17 procedure btnClearClick(Sender: TObject);
18 procedure btnHideClick(Sender: TObject);
19 private
20 { Private declarations }
21 public
22 { Public declarations }
23 end;
24
25var
26 DebugForm: TDebugForm;
27
28implementation
29
30{$R *.dfm}
31
32procedure TDebugForm.btnClearClick(Sender: TObject);
33begin
34 Memo.Lines.Clear;
35end;
36
37procedure TDebugForm.btnHideClick(Sender: TObject);
38begin
39 DebugForm.Hide;
40end;
41
42end.
43
Note: See TracBrowser for help on using the repository browser.