source: cprs/branches/tmg-cprs/CPRS-Chart/fxServer.pas@ 1593

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

Initial upload of TMG-CPRS 1.0.26.69

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