source: cprs/branches/HealthSevak-CPRS/CPRS-Chart/fxServer.pas@ 1723

Last change on this file since 1723 was 830, checked in by Kevin Toppenberg, 14 years ago

Upgrading to version 27

File size: 1.2 KB
Line 
1unit fxServer;
2
3interface
4
5uses
6 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
7 StdCtrls, ComCtrls, ORNet, fBase508Form, VA508AccessibilityManager;
8
9type
10 TfrmDbgServer = class(TfrmBase508Form)
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.