source: cprs/trunk/CPRS-Chart/tfVType.pas@ 1138

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

Upgrading to version 27

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