source: cprs/trunk/CPRS-Chart/fHP.pas@ 840

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

Upgrading to version 27

File size: 607 bytes
RevLine 
[456]1unit fHP;
2
3interface
4
5uses
6 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
[830]7 fPage, StdCtrls, ExtCtrls, VA508AccessibilityManager;
[456]8
9type
10 TfrmHP = class(TfrmPage)
11 Label1: TLabel;
12 private
13 { Private declarations }
14 public
15 procedure ClearPtData; override;
16 procedure DisplayPage; override;
17 end;
18
19var
20 frmHP: TfrmHP;
21
22implementation
23
24{$R *.DFM}
25
26procedure TfrmHP.ClearPtData;
27begin
28 inherited ClearPtData;
29end;
30
31procedure TfrmHP.DisplayPage;
32begin
33 inherited DisplayPage;
34 if InitPatient then
35 begin
36 end;
37end;
38
39end.
Note: See TracBrowser for help on using the repository browser.