source: cprs/trunk/CPRS-Chart/fxServer.pas@ 730

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

Initial Upload of Official WV CPRS 1.0.26.76

File size: 1.1 KB
Line 
1unit fxServer;
2
3interface
4
5uses
6 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
7 StdCtrls, ComCtrls, ORNet;
8
9type
10 TfrmDbgServer = class(TForm)
11 memSymbols: TRichEdit;
12 RadioButton1: TRadioButton;
13 RadioButton2: TRadioButton;
14 Label1: TLabel;
15 Edit1: TEdit;
16 procedure FormCreate(Sender: TObject);
17 procedure FormKeyUp(Sender: TObject; var Key: Word;
18 Shift: TShiftState);
19 private
20 { Private declarations }
21 public
22 { Public declarations }
23 end;
24
25procedure DebugShowServer;
26
27implementation
28
29{$R *.DFM}
30
31uses rMisc, ORFn;
32
33procedure DebugShowServer;
34var
35 frmDbgServer: TfrmDbgServer;
36begin
37 frmDbgServer := TfrmDbgServer.Create(Application);
38 try
39 ResizeAnchoredFormToFont(frmDbgServer);
40 frmDbgServer.ShowModal;
41 finally
42 frmDbgServer.Release;
43 end;
44end;
45
46procedure TfrmDbgServer.FormCreate(Sender: TObject);
47begin
48 ListSymbolTable(memSymbols.Lines);
49end;
50
51procedure TfrmDbgServer.FormKeyUp(Sender: TObject; var Key: Word;
52 Shift: TShiftState);
53begin
54 if Key = VK_ESCAPE then
55 begin
56 Key := 0;
57 Close;
58 end;
59end;
60
61end.
Note: See TracBrowser for help on using the repository browser.