From 0ae7988b1ff5efba3008538fa3a0b6221ccdd02f Mon Sep 17 00:00:00 2001 From: healthsevak Date: Thu, 7 May 2015 16:48:13 +0000 Subject: [PATCH] Added these while updating the working copy to CPRS version 28 --- CPRS-Chart/fCombatVet.pas | 65 +++++++++++++++++++++ CPRS-Lib/ORCtrlLib2006.dproj | 52 +++++++++++++++++ CPRS-Lib/VA10.dproj | 108 +++++++++++++++++++++++++++++++++++ 3 files changed, 225 insertions(+) create mode 100644 CPRS-Chart/fCombatVet.pas create mode 100644 CPRS-Lib/ORCtrlLib2006.dproj create mode 100644 CPRS-Lib/VA10.dproj diff --git a/CPRS-Chart/fCombatVet.pas b/CPRS-Chart/fCombatVet.pas new file mode 100644 index 0000000..0323d17 --- /dev/null +++ b/CPRS-Chart/fCombatVet.pas @@ -0,0 +1,65 @@ +unit fCombatVet; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, fBase508Form, StdCtrls, VA508AccessibilityManager, Buttons, + ExtCtrls; +const + clCPRSYellow = TColor($01C9FF); //Blue 1 Green 201 Red 255 + clCPRSRed = TColor($2F01C1); //Blue 47 Green 1 Red 193 + clCPRSBlue = TColor($914F01); //Blue 145 Green 79 Red 1 + +type + TfrmCombatVet = class(TfrmBase508Form) + pnlTop: TPanel; + BitBtn1: TBitBtn; + edtServiceBranch: TEdit; + edtStatus: TEdit; + edtSeparationDate: TEdit; + edtExpireDate: TEdit; + edtOEF_OIF: TEdit; + lblServiceBranch: TLabel; + lblStatus: TLabel; + lblSepDate: TLabel; + lblExpireDate: TLabel; + procedure FormShow(Sender: TObject); + private + { Private declarations } + public + { Public declarations } + end; + +var + frmCombatVet: TfrmCombatVet; + +implementation + +{$R *.dfm} + +uses uCore, ORFn; + +procedure TfrmCombatVet.FormShow(Sender: TObject); +const + FONTFACTOR = 2; //WAT - edit control height wasn't increasing as font size increased +begin + inherited; + ResizeFormToFont(Self); + edtServiceBranch.Text := Patient.CombatVet.ServiceBranch; + edtStatus.Text := Patient.CombatVet.Status; + edtSeparationDate.Text := Patient.CombatVet.ServiceSeparationDate; + edtExpireDate.Text := Patient.CombatVet.ExpirationDate; + edtOEF_OIF.Text := Patient.CombatVet.OEF_OIF; + //WAT + edtServiceBranch.Height := Round(FONTFACTOR * MainFontWidth); + edtStatus.Height := Round(FONTFACTOR * MainFontWidth); + edtSeparationDate.Height := Round(FONTFACTOR * MainFontWidth); + edtExpireDate.Height := Round(FONTFACTOR * MainFontWidth); + if edtOEF_OIF.GetTextLen > 0 then edtOEF_OIF.Height := Round(FONTFACTOR * MainFontWidth); + BitBtn1.Height := BitBtn1.Height + MainFontWidth; + BitBtn1.Width := BitBtn1.Width + MainFontWidth; + //WAT +end; + +end. diff --git a/CPRS-Lib/ORCtrlLib2006.dproj b/CPRS-Lib/ORCtrlLib2006.dproj new file mode 100644 index 0000000..dbb05d9 --- /dev/null +++ b/CPRS-Lib/ORCtrlLib2006.dproj @@ -0,0 +1,52 @@ + + + {da052835-cc1a-47fb-aa80-83418bab640b} + ORCtrlLib2006.dpk + Debug + AnyCPU + DCC32 + C:\Vista\cprs\main\CPRS-Lib\dcu\ORCtrlLib2006.bpl + + + 7.0 + False + True + False + True + True + True + 0 + C:\Vista\cprs\main\CPRS-Lib\dcu + RELEASE + + + 7.0 + False + True + True + True + True + C:\Vista\cprs\main\CPRS-Lib\dcu + + + Delphi.Personality + Package + +FalseTrueFalseCPRS Custom ControlsTrueTrueFalseTrueFalse1000FalseFalseFalseFalseFalse103312521.0.0.01.0.0.0ORCtrlLib2006.dpk + + + + + MainSource + + + + + + + + + + + + \ No newline at end of file diff --git a/CPRS-Lib/VA10.dproj b/CPRS-Lib/VA10.dproj new file mode 100644 index 0000000..05b1909 --- /dev/null +++ b/CPRS-Lib/VA10.dproj @@ -0,0 +1,108 @@ + + + {d84528d5-4389-4881-b78c-4aa12f72bc21} + VA10.dpk + Debug + AnyCPU + DCC32 + ..\Packages\VA10.bpl + + + 7.0 + False + False + True + False + True + True + True + 0 + 3 + $(DELPHI)\dev\exesave + ..\cprs-lib\DCU + ..\cprs-lib\DCU + ..\cprs-lib\DCU + ..\Packages + ..\Packages + ..\cprs-lib;..\Packages + ..\cprs-lib;..\Packages + ..\cprs-lib;..\Packages + ..\cprs-lib;..\Packages + RELEASE + + + 7.0 + False + True + True + True + True + 3 + $(DELPHI)\dev\exesave + ..\cprs-lib\DCU + ..\cprs-lib\DCU + ..\cprs-lib\DCU + ..\Packages + ..\Packages + ..\cprs-lib;..\Packages + ..\cprs-lib;..\Packages + ..\cprs-lib;..\Packages + ..\cprs-lib;..\Packages + + + Delphi.Personality + Package + + + False + True + False + + + Wrap Grid + True + True + False + + + True + False + 1 + 0 + 0 + 0 + False + False + False + False + False + 1033 + 1252 + + + + + 1.0.0.0 + + + + + + 1.0.0.0 + + + + VA10.dpk + + + + + + + MainSource + + + + + + \ No newline at end of file