36 lines
568 B
Plaintext
36 lines
568 B
Plaintext
unit mVitPain;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
|
|
mVitBase, StdCtrls, Buttons, ORCtrls;
|
|
|
|
type
|
|
TfraVitPain = class(TfraVitBase)
|
|
cbxPain: TORComboBox;
|
|
private
|
|
{ Private declarations }
|
|
public
|
|
function GetVitalInfo: TVitInfo; override;
|
|
end;
|
|
|
|
var
|
|
fraVitPain: TfraVitPain;
|
|
|
|
implementation
|
|
|
|
uses uVitals;
|
|
|
|
{$R *.DFM}
|
|
|
|
{ TfraVitPain }
|
|
|
|
function TfraVitPain.GetVitalInfo: TVitInfo;
|
|
begin
|
|
Result.VType := vtPain;
|
|
Result.VValue := cbxPain.ItemID;
|
|
end;
|
|
|
|
end.
|