source: cprs/branches/tmg-cprs/CPRS-Chart/tfVType.pas@ 1620

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

Initial upload of TMG-CPRS 1.0.26.69

File size: 1.6 KB
Line 
1//kt -- Modified with SourceScanner on 8/7/2007
2unit tfVType;
3
4interface
5
6uses
7 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
8 StdCtrls, ExtCtrls;
9
10type
11 TfrmLaunch = class(TForm)
12 grpFontSize: TRadioGroup;
13 cmdShow: TButton;
14 Edit1: TEdit;
15 Label1: TLabel;
16 cmdClose: TButton;
17 procedure cmdShowClick(Sender: TObject);
18 procedure FormCreate(Sender: TObject);
19 procedure cmdCloseClick(Sender: TObject);
20 private
21 { Private declarations }
22 public
23 { Public declarations }
24 end;
25
26var
27 frmLaunch: TfrmLaunch;
28
29implementation
30
31{$R *.DFM}
32
33uses ORFn, ORNet, fVType, uCore;
34
35procedure TfrmLaunch.FormCreate(Sender: TObject);
36begin
37 if not ConnectToServer('OR CPRS GUI CHART') then
38 begin
39 Close; // need a way to exit without needing the broker (close may call it)
40 Exit;
41 end;
42 User := TUser.Create; // creates the user object defined in uCore
43 Patient := TPatient.Create; // creates the patient object defined in uCore
44 Encounter := TEncounter.Create; // creates the encounter object defined in uCore
45 Encounter.Location := 16;
46end;
47
48procedure TfrmLaunch.cmdShowClick(Sender: TObject);
49begin
50 case grpFontSize.ItemIndex of
51 0: Self.Font.Size := 8;
52 1: Self.Font.Size := 10;
53 2: Self.Font.Size := 12;
54 3: Self.Font.Size := 14;
55 4: Self.Font.Size := 18;
56 end;
57 UpdateVisitType;
58 //Edit1.Text := IntToStr(Patient.DFN) + U + Patient.Name + U + Encounter.LocationName;
59end;
60
61procedure TfrmLaunch.cmdCloseClick(Sender: TObject);
62begin
63 Close;
64end;
65
66end.
Note: See TracBrowser for help on using the repository browser.