source: cprs/branches/HealthSevak-CPRS/CPRS-Chart/fCombatVet.pas@ 1722

Last change on this file since 1722 was 1693, checked in by healthsevak, 9 years ago

Committing the files for first time to this new branch

File size: 1.9 KB
Line 
1unit fCombatVet;
2
3interface
4
5uses
6 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
7 Dialogs, fBase508Form, StdCtrls, VA508AccessibilityManager, Buttons,
8 ExtCtrls;
9const
10 clCPRSYellow = TColor($01C9FF); //Blue 1 Green 201 Red 255
11 clCPRSRed = TColor($2F01C1); //Blue 47 Green 1 Red 193
12 clCPRSBlue = TColor($914F01); //Blue 145 Green 79 Red 1
13
14type
15 TfrmCombatVet = class(TfrmBase508Form)
16 pnlTop: TPanel;
17 BitBtn1: TBitBtn;
18 edtServiceBranch: TEdit;
19 edtStatus: TEdit;
20 edtSeparationDate: TEdit;
21 edtExpireDate: TEdit;
22 edtOEF_OIF: TEdit;
23 lblServiceBranch: TLabel;
24 lblStatus: TLabel;
25 lblSepDate: TLabel;
26 lblExpireDate: TLabel;
27 procedure FormShow(Sender: TObject);
28 private
29 { Private declarations }
30 public
31 { Public declarations }
32 end;
33
34var
35 frmCombatVet: TfrmCombatVet;
36
37implementation
38
39{$R *.dfm}
40
41uses uCore, ORFn;
42
43procedure TfrmCombatVet.FormShow(Sender: TObject);
44const
45 FONTFACTOR = 2; //WAT - edit control height wasn't increasing as font size increased
46begin
47 inherited;
48 ResizeFormToFont(Self);
49 edtServiceBranch.Text := Patient.CombatVet.ServiceBranch;
50 edtStatus.Text := Patient.CombatVet.Status;
51 edtSeparationDate.Text := Patient.CombatVet.ServiceSeparationDate;
52 edtExpireDate.Text := Patient.CombatVet.ExpirationDate;
53 edtOEF_OIF.Text := Patient.CombatVet.OEF_OIF;
54 //WAT
55 edtServiceBranch.Height := Round(FONTFACTOR * MainFontWidth);
56 edtStatus.Height := Round(FONTFACTOR * MainFontWidth);
57 edtSeparationDate.Height := Round(FONTFACTOR * MainFontWidth);
58 edtExpireDate.Height := Round(FONTFACTOR * MainFontWidth);
59 if edtOEF_OIF.GetTextLen > 0 then edtOEF_OIF.Height := Round(FONTFACTOR * MainFontWidth);
60 BitBtn1.Height := BitBtn1.Height + MainFontWidth;
61 BitBtn1.Width := BitBtn1.Width + MainFontWidth;
62 //WAT
63end;
64
65end.
Note: See TracBrowser for help on using the repository browser.