Index: /cprs/trunk/CPRS-Chart/fCombatVet.pas
===================================================================
--- /cprs/trunk/CPRS-Chart/fCombatVet.pas (revision 1683)
+++ /cprs/trunk/CPRS-Chart/fCombatVet.pas (revision 1683)
@@ -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.
Index: /cprs/trunk/CPRS-Lib/ORCtrlLib2006.dproj
===================================================================
--- /cprs/trunk/CPRS-Lib/ORCtrlLib2006.dproj (revision 1683)
+++ /cprs/trunk/CPRS-Lib/ORCtrlLib2006.dproj (revision 1683)
@@ -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
+
+
+
+
+
+
+
+
+
+
+
+
Index: /cprs/trunk/CPRS-Lib/VA10.dproj
===================================================================
--- /cprs/trunk/CPRS-Lib/VA10.dproj (revision 1683)
+++ /cprs/trunk/CPRS-Lib/VA10.dproj (revision 1683)
@@ -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
+
+
+
+
+
+