source: cprs/branches/tmg-cprs/CPRS-Chart/TMG_Extra/frmRPCtest.pas@ 1641

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

Fixing uploads of PDF files

File size: 547 bytes
RevLine 
[800]1unit frmRPCtest;
2
3interface
4
5uses
6 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
7 Dialogs, StdCtrls;
8
9type
10 TfrmRPCResults = class(TForm)
11 listRPCResults: TListBox;
12 Close: TButton;
13 procedure CloseClick(Sender: TObject);
14 private
15 { Private declarations }
16 public
17 { Public declarations }
18 end;
19
20var
21 frmRPCResults: TfrmRPCResults;
22
23implementation
24
25{$R *.dfm}
26
27procedure TfrmRPCResults.CloseClick(Sender: TObject);
28begin
29 self.ModalResult := mrOK;
30end;
31
32end.
33
Note: See TracBrowser for help on using the repository browser.