diff --git a/CPRS-Chart/Orders/fOCMonograph.dfm b/CPRS-Chart/Orders/fOCMonograph.dfm new file mode 100644 index 0000000..0b6adbf --- /dev/null +++ b/CPRS-Chart/Orders/fOCMonograph.dfm @@ -0,0 +1,93 @@ +object frmOCMonograph: TfrmOCMonograph + Left = 0 + Top = 0 + Caption = 'Monographs for Order Checks' + ClientHeight = 516 + ClientWidth = 539 + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'Tahoma' + Font.Style = [] + OldCreateOrder = False + DesignSize = ( + 539 + 516) + PixelsPerInch = 96 + TextHeight = 13 + object monoCmbLst: TComboBox + Left = 8 + Top = 24 + Width = 225 + Height = 21 + ItemHeight = 13 + TabOrder = 1 + Text = 'monoCmbLst' + OnChange = monoCmbLstChange + end + object monoMemo: TCaptionMemo + Left = 8 + Top = 72 + Width = 523 + Height = 401 + Anchors = [akLeft, akTop, akRight, akBottom] + Lines.Strings = ( + 'monoMemo') + ReadOnly = True + ScrollBars = ssVertical + TabOrder = 3 + end + object cmdOK: TButton + Left = 432 + Top = 483 + Width = 75 + Height = 25 + Anchors = [akRight, akBottom] + Caption = 'OK' + TabOrder = 4 + OnClick = cmdOKClick + end + object VA508StaticText1: TVA508StaticText + Name = 'VA508StaticText1' + Left = 8 + Top = 0 + Width = 142 + Height = 15 + Alignment = taLeftJustify + Caption = 'Choose a Monograph to view' + TabOrder = 0 + ShowAccelChar = True + end + object VA508StaticText2: TVA508StaticText + Name = 'VA508StaticText2' + Left = 8 + Top = 51 + Width = 115 + Height = 15 + Alignment = taLeftJustify + Caption = 'Monograph Information' + TabOrder = 2 + ShowAccelChar = True + end + object VA508AccessibilityManager1: TVA508AccessibilityManager + Left = 352 + Top = 16 + Data = ( + ( + 'Component = monoMemo' + 'Status = stsDefault') + ( + 'Component = monoCmbLst' + 'Status = stsDefault') + ( + 'Component = frmOCMonograph' + 'Status = stsDefault')) + end + object VA508ComponentAccessibility1: TVA508ComponentAccessibility + Component = monoCmbLst + OnCaptionQuery = VA508ComponentAccessibility1CaptionQuery + Left = 256 + Top = 16 + end +end diff --git a/CPRS-Chart/Orders/fOCMonograph.pas b/CPRS-Chart/Orders/fOCMonograph.pas new file mode 100644 index 0000000..098cf34 --- /dev/null +++ b/CPRS-Chart/Orders/fOCMonograph.pas @@ -0,0 +1,102 @@ +unit fOCMonograph; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, StdCtrls, ORFn, ORCtrls, rOrders, VA508AccessibilityManager, ExtCtrls; + +type + TfrmOCMonograph = class(TForm) + monoCmbLst: TComboBox; + monoMemo: TCaptionMemo; + cmdOK: TButton; + VA508StaticText1: TVA508StaticText; + VA508StaticText2: TVA508StaticText; + VA508AccessibilityManager1: TVA508AccessibilityManager; + VA508ComponentAccessibility1: TVA508ComponentAccessibility; + procedure DisplayMonograph; + procedure monoCmbLstChange(Sender: TObject); + procedure cmdOKClick(Sender: TObject); + procedure VA508ComponentAccessibility1CaptionQuery(Sender: TObject; + var Text: string); + private + { Private declarations } + public + { Public declarations } + end; +var + mList: TStringList; +procedure ShowMonographs(monoList: TStringList); + +implementation + +{$R *.dfm} + +procedure ShowMonographs(monoList: TStringList); +var + i: Integer; + frmOCMonograph: TfrmOCMonograph; +begin + if monoList.Count > 0 then + begin + mList := monoList; + frmOCMonograph := TfrmOCMonograph.Create(Application); + try + for i := 0 to monoList.Count - 1 do + begin + frmOCMonograph.monoCmbLst.Items.Add(Piece(monoList[i], U, 2)); + end; + + //frmOCMonograph.monoMemo.Clear; + frmOCMonograph.monoCmbLst.ItemIndex := 0; + frmOCMonograph.DisplayMonograph; + frmOCMonograph.ShowModal; + finally + frmOCMonograph.Free; + end; + end; +end; + +procedure TfrmOCMonograph.DisplayMonograph; +var + i: Integer; + x: Integer; + monograph: TStringList; +begin + x := -1; + monograph := TStringList.Create; + monoMemo.Clear; + for i := 0 to mList.Count - 1 do + begin + if Piece(mList[i],'^',2)=monoCmbLst.Items[monoCmbLst.ItemIndex] then x := StrtoInt(Piece(mList[i],'^',1)); + end; + if (x > -1) then + begin + GetMonograph(monograph,x); + for i := 0 to monograph.Count - 1 do + begin + monoMemo.Text := monoMemo.Text + monograph[i] + CRLF; + end; + + end; + +end; + +procedure TfrmOCMonograph.cmdOKClick(Sender: TObject); +begin + self.Close; +end; + +procedure TfrmOCMonograph.monoCmbLstChange(Sender: TObject); +begin + DisplayMonograph; +end; + +procedure TfrmOCMonograph.VA508ComponentAccessibility1CaptionQuery( + Sender: TObject; var Text: string); +begin + Text := monoCmbLst.SelText; +end; + +end. diff --git a/CPRS-Chart/README.TXT b/CPRS-Chart/README.TXT new file mode 100644 index 0000000..8ef53b5 --- /dev/null +++ b/CPRS-Chart/README.TXT @@ -0,0 +1,72 @@ +5/9/2003 +======== + + IMPORTANT NOTE + TO ALL SITES UTILIZING DELPHI CPRS GUI SOURCE CODE: + +A problem was found in Delphi’s “ComServ.pas” file which causes problems +with COM object registration during installation of an application +utilizing such objects. This file explains the problem and the fix +for it. + +EACH SITE MUST IMPLEMENT THIS FIX MANUALLY in order to compile CPRS. + +You must have the Delphi Source code to implement this fix; it is +available only with Delphi Prossional or Delphi Enterprise (unknown: +Delphi Developer version?). The assumption is that anyone involved +with local modifications will have a properly-licensed version. + +After making the fix, DO NOT distribute the modified source code - anywhere. + +Explanation: + +If you try to register Com objects as a Restricted User (not a Power User +or Administrator) on Win2000 or XP, ComServ.pas will always throw an unhandled +error during program initialization because you don't have write permissions +to the registry. + +The TComServer.Initialize code attempts to "squelch the exception unless +we were explicitly told to register." But, it only traps the Ole +Registration Error and not the Ole Sys Error that was raised in +RegisterTypeLibrary from the OleCheck call. + +Two added lines were placed in the following code in the +TComServer.Initialize procedure of the ComServ.pas unit as a +workaround: + +procedure TComServer.Initialize; +begin + try + UpdateRegistry(FStartMode <> smUnregServer); + except + on E: EOleRegistrationError do + // User may not have write access to the registry. + // Squelch the exception unless we were explicitly told to register. + if FStartMode = smRegServer then raise; + on E: EOleSysError do + if FStartMode = smRegServer then raise; + end; + if FStartMode in [smRegServer, smUnregServer] then Halt; + ComClassManager.ForEachFactory(Self, FactoryRegisterClassObject); +end; + +To utilize this fix, copy the unit “ComServ.pas” into the “CPRS-Chart” +directory, rename it to “uComServ.pas” and then make the change above to +the “TComServer.Initialize” procedure of the new “uComserv.pas” file. +Then add “uComServ.pas” to the project. Finally, change the "Uses" clause +of everything that used to use "ComServ" to "uComServ" instead -- currently, +this consists of the files uAccessibleListBox.pas, uAccessibleStringGrid.pas, +uAccessibleTreeNode.pas, and uAccessibleTreeView.pas. + +NOTE that a “ComServ.pas” file IS NOT included in this zip distribution. +You must create this file yourself (by copying and modifying) and place +it in the “CPRS-Chart” directory. The four units listed above already +have “uComServ” in their “Uses” clauses (in place of the “ComServ” unit +formerly listed). + +This fix allows COM objects included with CPRS GUI to be registered on +an installation machine. (Note that machines where disabled users +will utilize applications accessing those COM objects need to have a +Power User or Adminstrator user run the application one time (unless +the disabled user is already a Power User or Adminstrator user) before +ongoing usage. diff --git a/CPRS-Chart/fSpellNotify.dfm b/CPRS-Chart/fSpellNotify.dfm new file mode 100644 index 0000000..5c32020 --- /dev/null +++ b/CPRS-Chart/fSpellNotify.dfm @@ -0,0 +1,68 @@ +object frmSpellNotify: TfrmSpellNotify + Left = 0 + Top = 0 + Cursor = crHourGlass + BorderIcons = [] + BorderStyle = bsDialog + Caption = 'Spell Check Running' + ClientHeight = 74 + ClientWidth = 355 + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'Tahoma' + Font.Style = [] + OldCreateOrder = False + Position = poMainFormCenter + OnActivate = Refocus + OnClick = Refocus + OnCreate = FormCreate + OnDblClick = Refocus + OnMouseDown = FormMouseDown + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 13 + object lblMain: TLabel + Left = 0 + Top = 0 + Width = 355 + Height = 55 + Align = alClient + Alignment = taCenter + Caption = 'Spell Check Running' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = 'Tahoma' + Font.Style = [fsBold] + ParentFont = False + Layout = tlCenter + OnClick = Refocus + OnDblClick = Refocus + ExplicitWidth = 243 + ExplicitHeight = 29 + end + object lblOptions: TLabel + Left = 0 + Top = 55 + Width = 355 + Height = 19 + Align = alBottom + Alignment = taCenter + Caption = '(Set Options using Grammar Check)' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = 'Tahoma' + Font.Style = [] + ParentFont = False + ExplicitTop = 58 + ExplicitWidth = 256 + end + object tmrMain: TTimer + OnTimer = Refocus + Left = 312 + Top = 8 + end +end diff --git a/CPRS-Chart/fSpellNotify.pas b/CPRS-Chart/fSpellNotify.pas new file mode 100644 index 0000000..9d4136b --- /dev/null +++ b/CPRS-Chart/fSpellNotify.pas @@ -0,0 +1,79 @@ +unit fSpellNotify; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, StdCtrls, uConst, ExtCtrls; + +type + TfrmSpellNotify = class(TForm) + lblMain: TLabel; + tmrMain: TTimer; + lblOptions: TLabel; + procedure FormCreate(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure Refocus(Sender: TObject); + procedure FormMouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + private + FSpellCheck: boolean; + FEditControl: TCustomMemo; + FFirst: boolean; + procedure WMMove(var Message: TWMMove); message WM_MOVE; + procedure UMDoSpellCheck(var Message: TMessage); message UM_MISC; + public + property SpellCheck: boolean read FSpellCheck write FSpellCheck; + property EditControl: TCustomMemo read FEditControl write FEditControl; + end; + +implementation + +uses uSpell, ORFn; + +{$R *.dfm} + +procedure TfrmSpellNotify.Refocus(Sender: TObject); +begin + RefocusSpellCheckWindow; +end; + +procedure TfrmSpellNotify.FormCreate(Sender: TObject); +begin + FFirst := True; +end; + +procedure TfrmSpellNotify.FormMouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); +begin + RefocusSpellCheckWindow; +end; + +procedure TfrmSpellNotify.FormShow(Sender: TObject); +begin + if FFirst then + begin + FFirst := False; + if not SpellCheck then + begin + lblMain.Caption := 'Grammar Check Running'; + lblOptions.Visible := false; + end; + PostMessage(Handle, UM_MISC, 0, 0); + end; + RefocusSpellCheckWindow; +end; + +procedure TfrmSpellNotify.UMDoSpellCheck(var Message: TMessage); +begin + InternalSpellCheck(SpellCheck, EditControl); + ModalResult := mrOK; +end; + +procedure TfrmSpellNotify.WMMove(var Message: TWMMove); +begin + inherited; + RefocusSpellCheckWindow; +end; + +end. diff --git a/CPRS-Chart/uCombatVet.pas b/CPRS-Chart/uCombatVet.pas new file mode 100644 index 0000000..6365d8a --- /dev/null +++ b/CPRS-Chart/uCombatVet.pas @@ -0,0 +1,68 @@ +unit uCombatVet; + +interface + +type + TCombatVet = Class(TObject) + private + FServiceBranch: String; + FOIF_OEF: String; + FExpirationDate: String; + FEligibilityDate: String; + FStatus: String; + FSeperationDate: String; + FDFN : String; + FLocation: String; + FIsEligible: Boolean; + procedure ClearProperties; + public + procedure UpdateData; + constructor Create(DFN : String); + property ServiceBranch : String read FServiceBranch write FServiceBranch; + property Status : String read FStatus write FStatus; + property ServiceSeparationDate : String read FSeperationDate write FSeperationDate; + property EligibilityDate : String read FEligibilityDate write FEligibilityDate; + property ExpirationDate : String read FExpirationDate write FExpirationDate; + property OEF_OIF : String read FOIF_OEF write FOIF_OEF; + property Location : String read FLocation write FLocation; + property IsEligible : Boolean read FIsEligible write FIsEligible; + End; + +implementation + +uses ORNet, VAUtils, ORFn; + +{ TCombatVet } + +procedure TCombatVet.ClearProperties; +begin + FServiceBranch := ''; + FStatus := ''; + FSeperationDate := ''; + FExpirationDate := ''; + FOIF_OEF := ''; +end; + +constructor TCombatVet.Create(DFN: String); +begin + FDFN := DFN; + UpdateData; +end; + +procedure TCombatVet.UpdateData; +begin + sCallV('OR GET COMBAT VET',[FDFN]); + FIsEligible := True; + if RPCBrokerV.Results[0] = 'NOTCV' then begin + FIsEligible := False; + ClearProperties; + Exit; + end; + FServiceBranch := Piece(RPCBrokerV.Results[0],U,2); + FStatus := Piece(RPCBrokerV.Results[1],U,2); + FSeperationDate := Piece(RPCBrokerV.Results[2],U,2); + FExpirationDate := Piece(RPCBrokerV.Results[3],U,2); + FOIF_OEF := RPCBrokerV.Results[4]; +end; + +end. diff --git a/CPRS-Chart/vclx.drc b/CPRS-Chart/vclx.drc new file mode 100644 index 0000000..b38e796 --- /dev/null +++ b/CPRS-Chart/vclx.drc @@ -0,0 +1,277 @@ +/* VER185 + Generated by the CodeGear Delphi Pascal Compiler + because -GD or --drc was supplied to the compiler. + + This file contains compiler-generated resources that + were bound to the executable. + If this file is empty, then no compiler-generated + resources were bound to the produced executable. +*/ + +/* c:\program files\codegear\rad studio\5.0\lib\Controls.res */ +/* c:\program files\codegear\rad studio\5.0\lib\Buttons.res */ +/* c:\program files\codegear\rad studio\5.0\lib\ExtDlgs.res */ +/* c:\program files\codegear\rad studio\5.0\lib\TeeResou.res */ +/* E:\Vista_30_28\OR_SRC_CREATION\CPRS-Lib\ORCTRLS.RES */ +/* E:\Vista_30_28\OR_SRC_CREATION\BDK50\BDK32_P50\Source\fSSHUsername.DFM */ +/* E:\Vista_30_28\OR_SRC_CREATION\BDK50\BDK32_P50\Source\fPlinkpw.DFM */ +/* E:\Vista_30_28\OR_SRC_CREATION\BDK50\BDK32_P50\Source\fDebugInfo.DFM */ +/* E:\Vista_30_28\OR_SRC_CREATION\BDK50\BDK32_P50\Source\Rpcberr.DFM */ +/* E:\Vista_30_28\OR_SRC_CREATION\BDK50\BDK32_P50\Source\fRPCBErrMsg.DFM */ +/* E:\Vista_30_28\OR_SRC_CREATION\BDK50\BDK32_P50\Source\SelDiv.DFM */ +/* E:\Vista_30_28\OR_SRC_CREATION\BDK50\BDK32_P50\Source\frmSignonMessage.DFM */ +/* E:\Vista_30_28\OR_SRC_CREATION\BDK50\BDK32_P50\Source\fSgnonDlg.DFM */ +/* E:\Vista_30_28\OR_SRC_CREATION\BDK50\BDK32_P50\Source\AddServer.DFM */ +/* E:\Vista_30_28\OR_SRC_CREATION\BDK50\BDK32_P50\Source\RpcNet.DFM */ +/* E:\Vista_30_28\OR_SRC_CREATION\BDK50\BDK32_P50\Source\Rpcconf1.DFM */ +/* E:\Vista_30_28\OR_SRC_CREATION\BDK50\BDK32_P50\Source\VCEdit.DFM */ +/* E:\Vista_30_28\OR_SRC_CREATION\BDK50\BDK32_P50\Source\Sgnoncnf.DFM */ +/* E:\Vista_30_28\OR_SRC_CREATION\BDK50\BDK32_P50\Source\Loginfrm.DFM */ +/* E:\Vista_30_28\OR_SRC_CREATION\CPRS-Lib\OR2006Compatibility.dfm */ +/* c:\program files\codegear\rad studio\5.0\lib\DBPWDlg.dfm */ +/* c:\program files\codegear\rad studio\5.0\lib\DBLogDlg.dfm */ +/* c:\program files\codegear\rad studio\5.0\lib\DBCtrls.res */ +/* c:\program files\codegear\rad studio\5.0\lib\DBGrids.res */ +/* fBase508Form.dfm */ +/* fAutoSz.DFM */ +/* fTimeout.DFM */ +/* c:\program files\codegear\rad studio\5.0\lib\Tabs.res */ +/* fCombatVet.dfm */ +/* Orders\fODDietLT.DFM */ +/* fClinicWardMeds.dfm */ +/* ..\CPRS-Lib\ORDtTm.DFM */ +/* ..\CPRS-Lib\ORDtTm.RES */ +/* ..\CPRS-Lib\ORDtTmRng.DFM */ +/* fHSplit.DFM */ +/* fGraphData.dfm */ +/* fRptBox.DFM */ +/* fGraphOthers.dfm */ +/* fGraphProfiles.DFM */ +/* fGraphSettings.DFM */ +/* fGraphs.DFM */ +/* Templates\fFindingTemplates.dfm */ +/* Vitals\fVitalsDate.DFM */ +/* mImgText.DFM */ +/* fRemCoverPreview.DFM */ +/* fMHTest.DFM */ +/* fRemCoverSheet.DFM */ +/* sremcvr.RES */ +/* fNoteST.DFM */ +/* Consults\fConsult513Prt.DFM */ +/* fNoteIDParents.DFM */ +/* fIconLegend.DFM */ +/* Encounter\fPCEBaseGrid.DFM */ +/* Encounter\fPCELex.DFM */ +/* Encounter\mVisitRelated.DFM */ +/* Encounter\fPCEProvider.DFM */ +/* Encounter\fGAF.DFM */ +/* Encounter\fVisitType.DFM */ +/* Encounter\fDiagnoses.DFM */ +/* Encounter\fProcedure.DFM */ +/* Encounter\fImmunization.DFM */ +/* Encounter\fSkinTest.DFM */ +/* Encounter\fPatientEd.DFM */ +/* Encounter\fHealthFactor.DFM */ +/* Encounter\fPCEOther.DFM */ +/* Encounter\fHFSearch.DFM */ +/* Encounter\fPCEBaseMain.DFM */ +/* Encounter\fExam.DFM */ +/* Encounter\fPCEEdit.DFM */ +/* Templates\fTemplateFields.DFM */ +/* fHunSpell.DFM */ +/* fSpellNotify.dfm */ +/* Templates\fTemplateFieldEditor.DFM */ +/* fNotesBP.DFM */ +/* fNoteProps.DFM */ +/* fRemVisitInfo.DFM */ +/* fNoteCPFields.DFM */ +/* Consults\fConsultAlertTo.DFM */ +/* Consults\fConsMedRslt.DFM */ +/* fNotePrt.DFM */ +/* Templates\fTemplateView.DFM */ +/* Templates\fTemplateObjects.DFM */ +/* Templates\fTemplateEditor.DFM */ +/* Consults\fEditConsult.DFM */ +/* Consults\fEditProc.DFM */ +/* fNoteDR.DFM */ +/* Consults\fPreReq.DFM */ +/* mCoPayDesc.DFM */ +/* Orders\fOrdersPrint.DFM */ +/* Orders\fOrdersSign.DFM */ +/* c:\program files\codegear\rad studio\5.0\lib\SPIN.RES */ +/* fSurgeryView.DFM */ +/* fTIUView.DFM */ +/* fNoteCslt.DFM */ +/* fSignItem.DFM */ +/* fNoteBD.DFM */ +/* fNoteBA.DFM */ +/* fVisit.DFM */ +/* fLkUpLocation.DFM */ +/* Orders\fOCMonograph.dfm */ +/* Orders\fOCSession.DFM */ +/* fReportsPrint.DFM */ +/* fProbCmt.DFM */ +/* Orders\fOMAction.DFM */ +/* fPatientFlagMulti.dfm */ +/* fVitals.DFM */ +/* fvit.DFM */ +/* fPtCWAD.DFM */ +/* fARTFreeTextMsg.dfm */ +/* fAllgyFind.DFM */ +/* fARTAllgy.DFM */ +/* fAllgyBox.dfm */ +/* fCover.DFM */ +/* fProbflt.DFM */ +/* fProbLex.DFM */ +/* fProbEdt.DFM */ +/* fProbs.DFM */ +/* BA\fBALocalDiagnoses.dfm */ +/* Consults\fODConsult.DFM */ +/* Orders\fODValidateAction.DFM */ +/* Orders\fODAuto.DFM */ +/* Orders\fOMVerify.DFM */ +/* Orders\fOrdersTS.DFM */ +/* fMedCopy.DFM */ +/* mEvntDelay.DFM */ +/* Orders\fOrdersCopy.DFM */ +/* Orders\fODChild.DFM */ +/* Orders\fODActive.DFM */ +/* fEffectDate.DFM */ +/* Orders\fODGen.DFM */ +/* Orders\fOMNavA.DFM */ +/* Orders\fODReleaseEvent.DFM */ +/* Orders\fOCAccept.DFM */ +/* fRenewOutMed.DFM */ +/* fDateRange.DFM */ +/* Orders\fOrdersRenew.DFM */ +/* fRename.DFM */ +/* Orders\fOrderSaveQuick.DFM */ +/* Orders\fOrderComment.DFM */ +/* Orders\fOrdersVerify.DFM */ +/* Orders\fOrdersComplete.DFM */ +/* Orders\fOrdersEvntRelease.DFM */ +/* Orders\fOrdersOnChart.DFM */ +/* Orders\fOrdersRelease.DFM */ +/* Orders\fOrderUnflag.DFM */ +/* Orders\fOrderFlag.DFM */ +/* Orders\fOrdersAlert.DFM */ +/* Orders\fOrdersUnhold.DFM */ +/* Orders\fOrdersHold.DFM */ +/* Orders\fODChangeEvtDisp.DFM */ +/* Orders\fOrdersCV.DFM */ +/* Orders\fOrdersDC.DFM */ +/* Orders\fOrderVw.DFM */ +/* Consults\fCsltNote.DFM */ +/* Consults\fODProc.DFM */ +/* Consults\fConsultsView.DFM */ +/* Consults\fConsultBSt.DFM */ +/* Consults\fConsultBD.DFM */ +/* Consults\fConsultBS.DFM */ +/* Orders\fODChangeUnreleasedRenew.dfm */ +/* Orders\fODMedNVA.DFM */ +/* Orders\fOMHTML.DFM */ +/* Orders\fOMSet.DFM */ +/* Orders\fODVitals.DFM */ +/* Orders\fIVRoutes.dfm */ +/* Orders\fOtherSchedule.dfm */ +/* Orders\fODMedIV.DFM */ +/* Orders\fODMeds.DFM */ +/* fLabCollTimes.DFM */ +/* Orders\fODLabImmedColl.DFM */ +/* Orders\fODLabOthCollSamp.DFM */ +/* Orders\fODLab.DFM */ +/* Orders\fODLabOthSpec.DFM */ +/* Orders\fODBBank.dfm */ +/* Orders\fODRadConShRes.DFM */ +/* Orders\fODRadApproval.DFM */ +/* Orders\fODRad.DFM */ +/* Orders\fODText.DFM */ +/* Orders\fODMedComplex.DFM */ +/* Orders\fODMedFA.DFM */ +/* Orders\fODMedOut.DFM */ +/* Orders\fODMedIn.DFM */ +/* Orders\fODMisc.DFM */ +/* Orders\fODDiet.DFM */ +/* fActivateDeactivate.dfm */ +/* Orders\fOrdersRefill.DFM */ +/* fPrintLocation.dfm */ +/* fReview.DFM */ +/* Encounter\fEncVitals.DFM */ +/* Encounter\fEncounterFrame.DFM */ +/* fReminderDialog.DFM */ +/* fDCSummProps.DFM */ +/* fReminderTree.DFM */ +/* Templates\mTemplateFieldButton.DFM */ +/* fReportsAdhocSubItem1.DFM */ +/* fReportsAdhocComponent1.DFM */ +/* Orders\fODMessage.DFM */ +/* Templates\fTemplateImport.DFM */ +/* BA\fBAOptionsDiagnoses.dfm */ +/* fAlertForward.DFM */ +/* fPtSelDemog.DFM */ +/* fPtSens.DFM */ +/* fDupPts.dfm */ +/* fPtSel.DFM */ +/* fPtSelOptSave.DFM */ +/* fPtSelOptns.DFM */ +/* fDefaultEvent.DFM */ +/* Options\fOptionsReportsDefault.DFM */ +/* fLabPrint.DFM */ +/* fLabTest.DFM */ +/* fLabTests.DFM */ +/* fLabTestGroups.DFM */ +/* fLabs.DFM */ +/* Options\fOptionsReportsCustom.DFM */ +/* Options\fOptionsTitles.DFM */ +/* Options\fOptionsNotes.DFM */ +/* Options\fOptionsOther.DFM */ +/* Options\fOptionsCombinations.DFM */ +/* Options\fOptionsTeams.DFM */ +/* Options\fOptionsNewList.DFM */ +/* Options\fOptionsLists.DFM */ +/* Options\fOptionsPatientSelection.DFM */ +/* Options\fOptionsSurrogate.DFM */ +/* Options\fOptionsReminders.DFM */ +/* Options\fOptionsDays.DFM */ +/* Options\fOptions.DFM */ +/* fLabInfo.DFM */ +/* fSplash.DFM */ +/* fxServer.DFM */ +/* fxLists.DFM */ +/* fxBroker.DFM */ +/* fAbout.DFM */ +/* fPtDemo.DFM */ +/* fPtSelMsg.DFM */ +/* Orders\fOrders.DFM */ +/* fHP.DFM */ +/* Orders\fODRadImType.DFM */ +/* Orders\fODSaveQuick.DFM */ +/* Orders\fOMProgress.DFM */ +/* Options\fOptionsPrimaryList.DFM */ +/* Options\fOptionsSubscribe.DFM */ +/* fAResize.DFM */ +/* Orders\fODAllgy.DFM */ +/* fPostings.DFM */ +/* Templates\fTemplateAutoGen.DFM */ +/* fAddlSigners.DFM */ +/* fSurgery.DFM */ +/* Consults\fConsultAct.DFM */ +/* Consults\fConsults.DFM */ +/* fMeds.DFM */ +/* fEncnt.DFM */ +/* Encounter\fPCEBase.DFM */ +/* fDCSumm.DFM */ +/* fPrintList.dfm */ +/* fNoteSTStop.dfm */ +/* fNotes.DFM */ +/* fDrawers.DFM */ +/* dShared.DFM */ +/* fReports.DFM */ +/* fDeviceSelect.DFM */ +/* Orders\fODBase.DFM */ +/* Templates\fTemplateDialog.DFM */ +/* fFrame.DFM */ +/* sBitmaps.RES */ +/* sRemSrch.RES */ +/* Orders\fODMedOIFA.DFM */ +/* fPage.DFM */ diff --git a/CPRS-Lib/ORCtrlLib2006.bdsproj b/CPRS-Lib/ORCtrlLib2006.bdsproj new file mode 100644 index 0000000..dece5a5 --- /dev/null +++ b/CPRS-Lib/ORCtrlLib2006.bdsproj @@ -0,0 +1,175 @@ + + + + + + + + + + + + ORCtrlLib2006.dpk + + + 7.0 + + + 8 + 0 + 1 + 0 + 0 + 0 + 1 + 1 + 1 + 1 + 0 + 1 + 0 + 1 + 1 + 1 + 1 + 1 + 0 + 0 + 0 + 1 + 1 + 1 + 1 + 1 + True + True + WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; + + False + + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + False + False + False + True + True + True + True + True + True + + + + 0 + 0 + False + 1 + False + False + False + 16384 + 1048576 + 4194304 + CPRS Custom Controls + + + + + C:\Vista\cprs\main\CPRS-Lib\dcu + + + + + + False + + + + + + False + + + True + False + + + + $00000000 + + + + True + False + 1 + 0 + 0 + 0 + False + False + False + False + False + 1033 + 1252 + + + + + 1.0.0.0 + + + + + + 1.0.0.0 + + + + diff --git a/CPRS-Lib/ORCtrlLib60.dproj b/CPRS-Lib/ORCtrlLib60.dproj new file mode 100644 index 0000000..bd8bf43 --- /dev/null +++ b/CPRS-Lib/ORCtrlLib60.dproj @@ -0,0 +1,116 @@ + + + {2a488772-9071-43b7-875b-0d26e1e19aef} + ORCtrlLib60.dpk + Debug + AnyCPU + DCC32 + ..\Packages\ORCtrlLib60.bpl + + + 7.0 + False + True + False + True + True + True + 0 + 3 + $(DELPHI)\dev\exesave + ..\Packages + ..\Packages + ..\Packages + ..\Packages + ..\Packages + ..\cprs-lib;..\Packages + ..\cprs-lib;..\Packages + ..\cprs-lib;..\Packages + ..\cprs-lib;..\Packages + RELEASE + + + 7.0 + True + True + True + True + 3 + $(DELPHI)\dev\exesave + ..\Packages + ..\Packages + ..\Packages + ..\Packages + ..\Packages + ..\cprs-lib;..\Packages + ..\cprs-lib;..\Packages + ..\cprs-lib;..\Packages + ..\cprs-lib;..\Packages + + + Delphi.Personality + Package + + + ..\Packages + False + True + False + + + CPRS Custom Controls + True + True + False + + + True + False + 1 + 0 + 0 + 0 + False + False + False + False + False + 1033 + 1252 + + + + + 1.0.0.0 + + + + + + 1.0.0.0 + + + + ORCtrlLib60.dpk + + + + + + + MainSource + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/CPRS-Lib/ORDateLib2006.VA508 b/CPRS-Lib/ORDateLib2006.VA508 new file mode 100644 index 0000000..507f987 --- /dev/null +++ b/CPRS-Lib/ORDateLib2006.VA508 @@ -0,0 +1,37 @@ +C:\Vista\cprs\main\CPRS-Lib\ORDtTm.dfm +5780/925128716 +0 +2 +C:\Vista\cprs\main\CPRS-Lib\ORDtTmRng.dfm +1172/925128716 +2 +2 +C:\Vista\cprs\main\CPRS-Lib\OR2006Compatibility.dfm +408/925128716 +4 +2 +E:\Vista_30_28\OR_SRC_CREATION\CPRS-Lib\ORDtTm.dfm +5780/1014934341 +6 +2 +E:\Vista_30_28\OR_SRC_CREATION\CPRS-Lib\ORDtTmRng.dfm +1172/1014934341 +8 +2 +E:\Vista_30_28\OR_SRC_CREATION\CPRS-Lib\OR2006Compatibility.dfm +408/1014934340 +10 +2 +|EOINDEX| +242 +object ORfrmDtTm: TORfrmDtTm +60 +object ORfrmDateRange: TORfrmDateRange +18 +object frm2006Compatibility: Tfrm2006Compatibility +242 +object ORfrmDtTm: TORfrmDtTm +60 +object ORfrmDateRange: TORfrmDateRange +18 +object frm2006Compatibility: Tfrm2006Compatibility diff --git a/CPRS-Lib/ORDateLib2006.bdsproj b/CPRS-Lib/ORDateLib2006.bdsproj new file mode 100644 index 0000000..af19ee0 --- /dev/null +++ b/CPRS-Lib/ORDateLib2006.bdsproj @@ -0,0 +1,175 @@ + + + + + + + + + + + + ORDateLib2006.dpk + + + 7.0 + + + 8 + 0 + 1 + 0 + 0 + 0 + 1 + 1 + 1 + 1 + 0 + 1 + 0 + 1 + 1 + 1 + 1 + 1 + 0 + 0 + 0 + 1 + 1 + 1 + 1 + 1 + True + True + WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; + + False + + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + False + False + False + True + True + True + True + True + True + + + + 3 + 0 + False + 1 + False + False + False + 16384 + 1048576 + 4194304 + CPRS Date/Time Dialogs + + + + + ..\Packages + ..\Packages + ..\Packages;..\cprs-chart;..\cprs-lib;..\va;..\va\va508accessibility + + + + False + + + + + + False + + + True + False + + + + $00000000 + + + + True + False + 1 + 0 + 0 + 0 + False + False + False + False + False + 1033 + 1252 + + + + + 1.0.0.0 + + + + + + 1.0.0.0 + + + + diff --git a/CPRS-Lib/ORDateLib2006.dproj b/CPRS-Lib/ORDateLib2006.dproj new file mode 100644 index 0000000..f3f0e29 --- /dev/null +++ b/CPRS-Lib/ORDateLib2006.dproj @@ -0,0 +1,72 @@ + + + {3c6648ee-2dc8-460e-a8fb-25a62198b304} + ORDateLib2006.dpk + Debug + AnyCPU + DCC32 + ..\Packages\ORDateLib2006.bpl + + + 7.0 + False + True + False + True + True + True + 0 + 3 + ..\Packages + ..\Packages + ..\Packages;..\cprs-chart;..\cprs-lib;..\va;..\va\va508accessibility + ..\Packages;..\cprs-chart;..\cprs-lib;..\va;..\va\va508accessibility + ..\Packages;..\cprs-chart;..\cprs-lib;..\va;..\va\va508accessibility + ..\Packages;..\cprs-chart;..\cprs-lib;..\va;..\va\va508accessibility + RELEASE + + + 7.0 + False + True + True + True + True + 3 + ..\Packages + ..\Packages + ..\Packages;..\cprs-chart;..\cprs-lib;..\va;..\va\va508accessibility + ..\Packages;..\cprs-chart;..\cprs-lib;..\va;..\va\va508accessibility + ..\Packages;..\cprs-chart;..\cprs-lib;..\va;..\va\va508accessibility + ..\Packages;..\cprs-chart;..\cprs-lib;..\va;..\va\va508accessibility + + + Delphi.Personality + Package + +FalseTrueFalseCPRS Date/Time DialogsTrueTrueFalseTrueFalse1000FalseFalseFalseFalseFalse103312521.0.0.01.0.0.0ORDateLib2006.dpk + + + + + MainSource + + +
frm2006Compatibility
+
+ + + + + + + + + + + + + + +
+
\ No newline at end of file diff --git a/CPRS-Lib/VA2006.dproj b/CPRS-Lib/VA2006.dproj new file mode 100644 index 0000000..b74b733 --- /dev/null +++ b/CPRS-Lib/VA2006.dproj @@ -0,0 +1,93 @@ + + + {dde1d5ea-b6bc-4a82-a8ed-1f79b7308f63} + VA2006.dpk + Debug + AnyCPU + DCC32 + C:\Documents and Settings\All Users\Documents\RAD Studio\5.0\Bpl\VA2006.bpl + + + 7.0 + False + False + True + False + True + True + True + 0 + RELEASE + + + 7.0 + False + True + True + True + True + + + 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 + + + + + + + + + Microsoft Office XP Sample Automation Server Wrapper Components + + + VA2006.dpk + + + + + + + MainSource + + + + + \ No newline at end of file diff --git a/Packages/XWB_D2006.bpl b/Packages/XWB_D2006.bpl new file mode 100644 index 0000000..9e29820 Binary files /dev/null and b/Packages/XWB_D2006.bpl differ diff --git a/Packages/XWB_D2006.dcp b/Packages/XWB_D2006.dcp new file mode 100644 index 0000000..788dbb3 Binary files /dev/null and b/Packages/XWB_D2006.dcp differ diff --git a/Packages/XWB_R2006.bpl b/Packages/XWB_R2006.bpl new file mode 100644 index 0000000..fb0f910 Binary files /dev/null and b/Packages/XWB_R2006.bpl differ diff --git a/Packages/XWB_R2006.dcp b/Packages/XWB_R2006.dcp new file mode 100644 index 0000000..7acaa6e Binary files /dev/null and b/Packages/XWB_R2006.dcp differ diff --git a/Packages/XWB_R2007.bpl b/Packages/XWB_R2007.bpl new file mode 100644 index 0000000..a1ff829 Binary files /dev/null and b/Packages/XWB_R2007.bpl differ diff --git a/Packages/XWB_R2007.dcp b/Packages/XWB_R2007.dcp new file mode 100644 index 0000000..efa5e12 Binary files /dev/null and b/Packages/XWB_R2007.dcp differ diff --git a/VA/VA508Accessibility/JAWS/JAWS.dproj b/VA/VA508Accessibility/JAWS/JAWS.dproj new file mode 100644 index 0000000..c873966 --- /dev/null +++ b/VA/VA508Accessibility/JAWS/JAWS.dproj @@ -0,0 +1,105 @@ + + + {4f206385-c253-446e-b839-cb6a9c7b6f8e} + JAWS.dpr + Debug + AnyCPU + DCC32 + ..\..\..\CPRS-Chart\JAWS Support Files\JAWS.SR + + + 7.0 + False + False + 0 + 3 + ..\..\..\CPRS-Chart\JAWS Support Files + ..\..\..\dcu + ..\..\..\dcu + ..\..\..\dcu + ...;..\;$(BDS)\lib + ...;..\;$(BDS)\lib + ...;..\;$(BDS)\lib + ...;..\;$(BDS)\lib + RELEASE + + + 7.0 + 3 + ..\..\..\CPRS-Chart\JAWS Support Files + ..\..\..\dcu + ..\..\..\dcu + ..\..\..\dcu + ...;..\;$(BDS)\lib + ...;..\;$(BDS)\lib + ...;..\;$(BDS)\lib + ...;..\;$(BDS)\lib + DEBUG + + + Delphi.Personality + + + + D:\perforce\cprs\main\ReaderProblems\FreedomDemo\FreedomDemo.exe + False + True + False + + + True + False + 1 + 10 + 0 + 0 + False + False + False + False + False + 1033 + 1252 + + + + + 1.10.0.0 + + + + + + 1.0.0.0 + + + + + + CPRS Date/Time Dialogs + + + JAWS.dpr + + + + + + + MainSource + + + + + + +
frmVA508HiddenJawsDataWindow
+
+ +
frmVA508HiddenJawsMainWindow
+
+ + +
+ +
\ No newline at end of file diff --git a/VA/VA508Accessibility/JAWS/JAWS.drc b/VA/VA508Accessibility/JAWS/JAWS.drc new file mode 100644 index 0000000..4482b1f --- /dev/null +++ b/VA/VA508Accessibility/JAWS/JAWS.drc @@ -0,0 +1,463 @@ +/* VER185 + Generated by the CodeGear Delphi Pascal Compiler + because -GD or --drc was supplied to the compiler. + + This file contains compiler-generated resources that + were bound to the executable. + If this file is empty, then no compiler-generated + resources were bound to the produced executable. +*/ + +#define Consts_SDuplicateMenus 65312 +#define Consts_SDockedCtlNeedsName 65313 +#define Consts_SDockTreeRemoveError 65314 +#define Consts_SDockZoneNotFound 65315 +#define Consts_SDockZoneHasNoCtl 65316 +#define Consts_SDockZoneVersionConflict 65317 +#define Consts_SANSIEncoding 65318 +#define Consts_SASCIIEncoding 65319 +#define Consts_SUnicodeEncoding 65320 +#define Consts_SBigEndianEncoding 65321 +#define Consts_SUTF8Encoding 65322 +#define Consts_SUTF7Encoding 65323 +#define OleConst_sNoRunningObject 65324 +#define Consts_SmkcEnter 65328 +#define Consts_SmkcSpace 65329 +#define Consts_SmkcPgUp 65330 +#define Consts_SmkcPgDn 65331 +#define Consts_SmkcEnd 65332 +#define Consts_SmkcHome 65333 +#define Consts_SmkcLeft 65334 +#define Consts_SmkcUp 65335 +#define Consts_SmkcRight 65336 +#define Consts_SmkcDown 65337 +#define Consts_SmkcIns 65338 +#define Consts_SmkcDel 65339 +#define Consts_SmkcShift 65340 +#define Consts_SmkcCtrl 65341 +#define Consts_SmkcAlt 65342 +#define Consts_SIconToClipboard 65343 +#define Consts_SMsgDlgInformation 65344 +#define Consts_SMsgDlgConfirm 65345 +#define Consts_SMsgDlgYes 65346 +#define Consts_SMsgDlgNo 65347 +#define Consts_SMsgDlgOK 65348 +#define Consts_SMsgDlgCancel 65349 +#define Consts_SMsgDlgHelp 65350 +#define Consts_SMsgDlgAbort 65351 +#define Consts_SMsgDlgRetry 65352 +#define Consts_SMsgDlgIgnore 65353 +#define Consts_SMsgDlgAll 65354 +#define Consts_SMsgDlgNoToAll 65355 +#define Consts_SMsgDlgYesToAll 65356 +#define Consts_SmkcBkSp 65357 +#define Consts_SmkcTab 65358 +#define Consts_SmkcEsc 65359 +#define Consts_SGroupIndexTooLow 65360 +#define Consts_SNoMDIForm 65361 +#define Consts_SControlParentSetToSelf 65362 +#define Consts_SOKButton 65363 +#define Consts_SCancelButton 65364 +#define Consts_SYesButton 65365 +#define Consts_SNoButton 65366 +#define Consts_SHelpButton 65367 +#define Consts_SCloseButton 65368 +#define Consts_SIgnoreButton 65369 +#define Consts_SRetryButton 65370 +#define Consts_SAbortButton 65371 +#define Consts_SAllButton 65372 +#define Consts_SCannotDragForm 65373 +#define Consts_SMsgDlgWarning 65374 +#define Consts_SMsgDlgError 65375 +#define Consts_SInvalidImageSize 65376 +#define Consts_SInvalidImageList 65377 +#define Consts_SImageIndexError 65378 +#define Consts_SImageReadFail 65379 +#define Consts_SImageWriteFail 65380 +#define Consts_SWindowDCError 65381 +#define Consts_SWindowClass 65382 +#define Consts_SCannotFocus 65383 +#define Consts_SParentRequired 65384 +#define Consts_SMDIChildNotVisible 65385 +#define Consts_SVisibleChanged 65386 +#define Consts_SCannotShowModal 65387 +#define Consts_SMenuIndexError 65388 +#define Consts_SMenuReinserted 65389 +#define Consts_SMenuNotFound 65390 +#define Consts_SNoTimers 65391 +#define ComConst_SOleError 65392 +#define ComConst_SNoMethod 65393 +#define ComConst_SVarNotObject 65394 +#define ComConst_STooManyParams 65395 +#define ComConst_SDCOMNotInstalled 65396 +#define HelpIntfs_hNoTableOfContents 65397 +#define HelpIntfs_hNothingFound 65398 +#define HelpIntfs_hNoContext 65399 +#define HelpIntfs_hNoContextFound 65400 +#define HelpIntfs_hNoTopics 65401 +#define Consts_SInvalidBitmap 65402 +#define Consts_SInvalidIcon 65403 +#define Consts_SChangeIconSize 65404 +#define Consts_SUnknownClipboardFormat 65405 +#define Consts_SOutOfResources 65406 +#define Consts_SNoCanvasHandle 65407 +#define RTLConsts_SInvalidPropertyValue 65408 +#define RTLConsts_SInvalidRegType 65409 +#define RTLConsts_SListCapacityError 65410 +#define RTLConsts_SListCountError 65411 +#define RTLConsts_SListIndexError 65412 +#define RTLConsts_SMemoryStreamError 65413 +#define RTLConsts_SPropertyException 65414 +#define RTLConsts_SReadError 65415 +#define RTLConsts_SReadOnlyProperty 65416 +#define RTLConsts_SRegGetDataFailed 65417 +#define RTLConsts_SResNotFound 65418 +#define RTLConsts_SSeekNotImplemented 65419 +#define RTLConsts_SSortedListError 65420 +#define RTLConsts_SUnknownGroup 65421 +#define RTLConsts_SUnknownProperty 65422 +#define RTLConsts_SWriteError 65423 +#define RTLConsts_SAncestorNotFound 65424 +#define RTLConsts_SAssignError 65425 +#define RTLConsts_SBitsIndexError 65426 +#define RTLConsts_SCantWriteResourceStreamError 65427 +#define RTLConsts_SCheckSynchronizeError 65428 +#define RTLConsts_SClassNotFound 65429 +#define RTLConsts_SDuplicateClass 65430 +#define RTLConsts_SDuplicateItem 65431 +#define RTLConsts_SDuplicateName 65432 +#define RTLConsts_SDuplicateString 65433 +#define RTLConsts_SFCreateErrorEx 65434 +#define RTLConsts_SFOpenErrorEx 65435 +#define RTLConsts_SIniFileWriteError 65436 +#define RTLConsts_SInvalidImage 65437 +#define RTLConsts_SInvalidName 65438 +#define RTLConsts_SInvalidPropertyPath 65439 +#define SysConst_SLongMonthNameNov 65440 +#define SysConst_SLongMonthNameDec 65441 +#define SysConst_SShortDayNameSun 65442 +#define SysConst_SShortDayNameMon 65443 +#define SysConst_SShortDayNameTue 65444 +#define SysConst_SShortDayNameWed 65445 +#define SysConst_SShortDayNameThu 65446 +#define SysConst_SShortDayNameFri 65447 +#define SysConst_SShortDayNameSat 65448 +#define SysConst_SLongDayNameSun 65449 +#define SysConst_SLongDayNameMon 65450 +#define SysConst_SLongDayNameTue 65451 +#define SysConst_SLongDayNameWed 65452 +#define SysConst_SLongDayNameThu 65453 +#define SysConst_SLongDayNameFri 65454 +#define SysConst_SLongDayNameSat 65455 +#define SysConst_SShortMonthNameJul 65456 +#define SysConst_SShortMonthNameAug 65457 +#define SysConst_SShortMonthNameSep 65458 +#define SysConst_SShortMonthNameOct 65459 +#define SysConst_SShortMonthNameNov 65460 +#define SysConst_SShortMonthNameDec 65461 +#define SysConst_SLongMonthNameJan 65462 +#define SysConst_SLongMonthNameFeb 65463 +#define SysConst_SLongMonthNameMar 65464 +#define SysConst_SLongMonthNameApr 65465 +#define SysConst_SLongMonthNameMay 65466 +#define SysConst_SLongMonthNameJun 65467 +#define SysConst_SLongMonthNameJul 65468 +#define SysConst_SLongMonthNameAug 65469 +#define SysConst_SLongMonthNameSep 65470 +#define SysConst_SLongMonthNameOct 65471 +#define SysConst_SVarUnexpected 65472 +#define SysConst_SExternalException 65473 +#define SysConst_SAssertionFailed 65474 +#define SysConst_SIntfCastError 65475 +#define SysConst_SSafecallException 65476 +#define SysConst_SAssertError 65477 +#define SysConst_SAbstractError 65478 +#define SysConst_SModuleAccessViolation 65479 +#define SysConst_SOSError 65480 +#define SysConst_SUnkOSError 65481 +#define SysConst_SShortMonthNameJan 65482 +#define SysConst_SShortMonthNameFeb 65483 +#define SysConst_SShortMonthNameMar 65484 +#define SysConst_SShortMonthNameApr 65485 +#define SysConst_SShortMonthNameMay 65486 +#define SysConst_SShortMonthNameJun 65487 +#define SysConst_SDispatchError 65488 +#define SysConst_SReadAccess 65489 +#define SysConst_SWriteAccess 65490 +#define SysConst_SVarArrayCreate 65491 +#define SysConst_SVarArrayBounds 65492 +#define SysConst_SVarArrayLocked 65493 +#define SysConst_SInvalidVarCast 65494 +#define SysConst_SInvalidVarOp 65495 +#define SysConst_SInvalidVarNullOp 65496 +#define SysConst_SInvalidVarOpWithHResultWithPrefix 65497 +#define SysConst_SVarTypeCouldNotConvert 65498 +#define SysConst_SVarTypeConvertOverflow 65499 +#define SysConst_SVarOverflow 65500 +#define SysConst_SVarInvalid 65501 +#define SysConst_SVarBadType 65502 +#define SysConst_SVarNotImplemented 65503 +#define SysConst_SIntOverflow 65504 +#define SysConst_SInvalidOp 65505 +#define SysConst_SZeroDivide 65506 +#define SysConst_SOverflow 65507 +#define SysConst_SUnderflow 65508 +#define SysConst_SInvalidPointer 65509 +#define SysConst_SInvalidCast 65510 +#define SysConst_SAccessViolationArg3 65511 +#define SysConst_SAccessViolationNoArg 65512 +#define SysConst_SStackOverflow 65513 +#define SysConst_SControlC 65514 +#define SysConst_SPrivilege 65515 +#define SysConst_SException 65516 +#define SysConst_SExceptTitle 65517 +#define SysConst_SInvalidFormat 65518 +#define SysConst_SArgumentMissing 65519 +#define SysConst_SInvalidInteger 65520 +#define SysConst_SInvalidFloat 65521 +#define SysConst_SInvalidDate 65522 +#define SysConst_SInvalidTime 65523 +#define SysConst_SInvalidDateTime 65524 +#define SysConst_SOutOfMemory 65525 +#define SysConst_SInOutError 65526 +#define SysConst_SFileNotFound 65527 +#define SysConst_SInvalidFilename 65528 +#define SysConst_STooManyOpenFiles 65529 +#define SysConst_SAccessDenied 65530 +#define SysConst_SEndOfFile 65531 +#define SysConst_SDiskFull 65532 +#define SysConst_SInvalidInput 65533 +#define SysConst_SDivByZero 65534 +#define SysConst_SRangeError 65535 +STRINGTABLE +BEGIN + Consts_SDuplicateMenus, "Menu '%s' is already being used by another form" + Consts_SDockedCtlNeedsName, "Docked control must have a name" + Consts_SDockTreeRemoveError, "Error removing control from dock tree" + Consts_SDockZoneNotFound, " - Dock zone not found" + Consts_SDockZoneHasNoCtl, " - Dock zone has no control" + Consts_SDockZoneVersionConflict, "Error loading dock zone from the stream. Expecting version %d, but found %d." + Consts_SANSIEncoding, "ANSI" + Consts_SASCIIEncoding, "ASCII" + Consts_SUnicodeEncoding, "Unicode" + Consts_SBigEndianEncoding, "Big Endian Unicode" + Consts_SUTF8Encoding, "UTF-8" + Consts_SUTF7Encoding, "UTF-7" + OleConst_sNoRunningObject, "Unable to retrieve a pointer to a running object registered with OLE for %s/%s" + Consts_SmkcEnter, "Enter" + Consts_SmkcSpace, "Space" + Consts_SmkcPgUp, "PgUp" + Consts_SmkcPgDn, "PgDn" + Consts_SmkcEnd, "End" + Consts_SmkcHome, "Home" + Consts_SmkcLeft, "Left" + Consts_SmkcUp, "Up" + Consts_SmkcRight, "Right" + Consts_SmkcDown, "Down" + Consts_SmkcIns, "Ins" + Consts_SmkcDel, "Del" + Consts_SmkcShift, "Shift+" + Consts_SmkcCtrl, "Ctrl+" + Consts_SmkcAlt, "Alt+" + Consts_SIconToClipboard, "Clipboard does not support Icons" + Consts_SMsgDlgInformation, "Information" + Consts_SMsgDlgConfirm, "Confirm" + Consts_SMsgDlgYes, "&Yes" + Consts_SMsgDlgNo, "&No" + Consts_SMsgDlgOK, "OK" + Consts_SMsgDlgCancel, "Cancel" + Consts_SMsgDlgHelp, "&Help" + Consts_SMsgDlgAbort, "&Abort" + Consts_SMsgDlgRetry, "&Retry" + Consts_SMsgDlgIgnore, "&Ignore" + Consts_SMsgDlgAll, "&All" + Consts_SMsgDlgNoToAll, "N&o to All" + Consts_SMsgDlgYesToAll, "Yes to &All" + Consts_SmkcBkSp, "BkSp" + Consts_SmkcTab, "Tab" + Consts_SmkcEsc, "Esc" + Consts_SGroupIndexTooLow, "GroupIndex cannot be less than a previous menu item's GroupIndex" + Consts_SNoMDIForm, "Cannot create form. No MDI forms are currently active" + Consts_SControlParentSetToSelf, "A control cannot have itself as its parent" + Consts_SOKButton, "OK" + Consts_SCancelButton, "Cancel" + Consts_SYesButton, "&Yes" + Consts_SNoButton, "&No" + Consts_SHelpButton, "&Help" + Consts_SCloseButton, "&Close" + Consts_SIgnoreButton, "&Ignore" + Consts_SRetryButton, "&Retry" + Consts_SAbortButton, "Abort" + Consts_SAllButton, "&All" + Consts_SCannotDragForm, "Cannot drag a form" + Consts_SMsgDlgWarning, "Warning" + Consts_SMsgDlgError, "Error" + Consts_SInvalidImageSize, "Invalid image size" + Consts_SInvalidImageList, "Invalid ImageList" + Consts_SImageIndexError, "Invalid ImageList Index" + Consts_SImageReadFail, "Failed to read ImageList data from stream" + Consts_SImageWriteFail, "Failed to write ImageList data to stream" + Consts_SWindowDCError, "Error creating window device context" + Consts_SWindowClass, "Error creating window class" + Consts_SCannotFocus, "Cannot focus a disabled or invisible window" + Consts_SParentRequired, "Control '%s' has no parent window" + Consts_SMDIChildNotVisible, "Cannot hide an MDI Child Form" + Consts_SVisibleChanged, "Cannot change Visible in OnShow or OnHide" + Consts_SCannotShowModal, "Cannot make a visible window modal" + Consts_SMenuIndexError, "Menu index out of range" + Consts_SMenuReinserted, "Menu inserted twice" + Consts_SMenuNotFound, "Sub-menu is not in menu" + Consts_SNoTimers, "Not enough timers available" + ComConst_SOleError, "OLE error %.8x" + ComConst_SNoMethod, "Method '%s' not supported by automation object" + ComConst_SVarNotObject, "Variant does not reference an automation object" + ComConst_STooManyParams, "Dispatch methods do not support more than 64 parameters" + ComConst_SDCOMNotInstalled, "DCOM not installed" + HelpIntfs_hNoTableOfContents, "Unable to find a Table of Contents" + HelpIntfs_hNothingFound, "No help found for %s" + HelpIntfs_hNoContext, "No context-sensitive help installed" + HelpIntfs_hNoContextFound, "No help found for context" + HelpIntfs_hNoTopics, "No topic-based help system installed" + Consts_SInvalidBitmap, "Bitmap image is not valid" + Consts_SInvalidIcon, "Icon image is not valid" + Consts_SChangeIconSize, "Cannot change the size of an icon" + Consts_SUnknownClipboardFormat, "Unsupported clipboard format" + Consts_SOutOfResources, "Out of system resources" + Consts_SNoCanvasHandle, "Canvas does not allow drawing" + RTLConsts_SInvalidPropertyValue, "Invalid property value" + RTLConsts_SInvalidRegType, "Invalid data type for '%s'" + RTLConsts_SListCapacityError, "List capacity out of bounds (%d)" + RTLConsts_SListCountError, "List count out of bounds (%d)" + RTLConsts_SListIndexError, "List index out of bounds (%d)" + RTLConsts_SMemoryStreamError, "Out of memory while expanding memory stream" + RTLConsts_SPropertyException, "Error reading %s%s%s: %s" + RTLConsts_SReadError, "Stream read error" + RTLConsts_SReadOnlyProperty, "Property is read-only" + RTLConsts_SRegGetDataFailed, "Failed to get data for '%s'" + RTLConsts_SResNotFound, "Resource %s not found" + RTLConsts_SSeekNotImplemented, "%s.Seek not implemented" + RTLConsts_SSortedListError, "Operation not allowed on sorted list" + RTLConsts_SUnknownGroup, "%s not in a class registration group" + RTLConsts_SUnknownProperty, "Property %s does not exist" + RTLConsts_SWriteError, "Stream write error" + RTLConsts_SAncestorNotFound, "Ancestor for '%s' not found" + RTLConsts_SAssignError, "Cannot assign a %s to a %s" + RTLConsts_SBitsIndexError, "Bits index out of range" + RTLConsts_SCantWriteResourceStreamError, "Can't write to a read-only resource stream" + RTLConsts_SCheckSynchronizeError, "CheckSynchronize called from thread $%x, which is NOT the main thread" + RTLConsts_SClassNotFound, "Class %s not found" + RTLConsts_SDuplicateClass, "A class named %s already exists" + RTLConsts_SDuplicateItem, "List does not allow duplicates ($0%x)" + RTLConsts_SDuplicateName, "A component named %s already exists" + RTLConsts_SDuplicateString, "String list does not allow duplicates" + RTLConsts_SFCreateErrorEx, "Cannot create file \"%s\". %s" + RTLConsts_SFOpenErrorEx, "Cannot open file \"%s\". %s" + RTLConsts_SIniFileWriteError, "Unable to write to %s" + RTLConsts_SInvalidImage, "Invalid stream format" + RTLConsts_SInvalidName, "''%s'' is not a valid component name" + RTLConsts_SInvalidPropertyPath, "Invalid property path" + SysConst_SLongMonthNameNov, "November" + SysConst_SLongMonthNameDec, "December" + SysConst_SShortDayNameSun, "Sun" + SysConst_SShortDayNameMon, "Mon" + SysConst_SShortDayNameTue, "Tue" + SysConst_SShortDayNameWed, "Wed" + SysConst_SShortDayNameThu, "Thu" + SysConst_SShortDayNameFri, "Fri" + SysConst_SShortDayNameSat, "Sat" + SysConst_SLongDayNameSun, "Sunday" + SysConst_SLongDayNameMon, "Monday" + SysConst_SLongDayNameTue, "Tuesday" + SysConst_SLongDayNameWed, "Wednesday" + SysConst_SLongDayNameThu, "Thursday" + SysConst_SLongDayNameFri, "Friday" + SysConst_SLongDayNameSat, "Saturday" + SysConst_SShortMonthNameJul, "Jul" + SysConst_SShortMonthNameAug, "Aug" + SysConst_SShortMonthNameSep, "Sep" + SysConst_SShortMonthNameOct, "Oct" + SysConst_SShortMonthNameNov, "Nov" + SysConst_SShortMonthNameDec, "Dec" + SysConst_SLongMonthNameJan, "January" + SysConst_SLongMonthNameFeb, "February" + SysConst_SLongMonthNameMar, "March" + SysConst_SLongMonthNameApr, "April" + SysConst_SLongMonthNameMay, "May" + SysConst_SLongMonthNameJun, "June" + SysConst_SLongMonthNameJul, "July" + SysConst_SLongMonthNameAug, "August" + SysConst_SLongMonthNameSep, "September" + SysConst_SLongMonthNameOct, "October" + SysConst_SVarUnexpected, "Unexpected variant error" + SysConst_SExternalException, "External exception %x" + SysConst_SAssertionFailed, "Assertion failed" + SysConst_SIntfCastError, "Interface not supported" + SysConst_SSafecallException, "Exception in safecall method" + SysConst_SAssertError, "%s (%s, line %d)" + SysConst_SAbstractError, "Abstract Error" + SysConst_SModuleAccessViolation, "Access violation at address %p in module '%s'. %s of address %p" + SysConst_SOSError, "System Error. Code: %d.\r\n%s" + SysConst_SUnkOSError, "A call to an OS function failed" + SysConst_SShortMonthNameJan, "Jan" + SysConst_SShortMonthNameFeb, "Feb" + SysConst_SShortMonthNameMar, "Mar" + SysConst_SShortMonthNameApr, "Apr" + SysConst_SShortMonthNameMay, "May" + SysConst_SShortMonthNameJun, "Jun" + SysConst_SDispatchError, "Variant method calls not supported" + SysConst_SReadAccess, "Read" + SysConst_SWriteAccess, "Write" + SysConst_SVarArrayCreate, "Error creating variant or safe array" + SysConst_SVarArrayBounds, "Variant or safe array index out of bounds" + SysConst_SVarArrayLocked, "Variant or safe array is locked" + SysConst_SInvalidVarCast, "Invalid variant type conversion" + SysConst_SInvalidVarOp, "Invalid variant operation" + SysConst_SInvalidVarNullOp, "Invalid NULL variant operation" + SysConst_SInvalidVarOpWithHResultWithPrefix, "Invalid variant operation (%s%.8x)\n%s" + SysConst_SVarTypeCouldNotConvert, "Could not convert variant of type (%s) into type (%s)" + SysConst_SVarTypeConvertOverflow, "Overflow while converting variant of type (%s) into type (%s)" + SysConst_SVarOverflow, "Variant overflow" + SysConst_SVarInvalid, "Invalid argument" + SysConst_SVarBadType, "Invalid variant type" + SysConst_SVarNotImplemented, "Operation not supported" + SysConst_SIntOverflow, "Integer overflow" + SysConst_SInvalidOp, "Invalid floating point operation" + SysConst_SZeroDivide, "Floating point division by zero" + SysConst_SOverflow, "Floating point overflow" + SysConst_SUnderflow, "Floating point underflow" + SysConst_SInvalidPointer, "Invalid pointer operation" + SysConst_SInvalidCast, "Invalid class typecast" + SysConst_SAccessViolationArg3, "Access violation at address %p. %s of address %p" + SysConst_SAccessViolationNoArg, "Access violation" + SysConst_SStackOverflow, "Stack overflow" + SysConst_SControlC, "Control-C hit" + SysConst_SPrivilege, "Privileged instruction" + SysConst_SException, "Exception %s in module %s at %p.\r\n%s%s\r\n" + SysConst_SExceptTitle, "Application Error" + SysConst_SInvalidFormat, "Format '%s' invalid or incompatible with argument" + SysConst_SArgumentMissing, "No argument for format '%s'" + SysConst_SInvalidInteger, "'%s' is not a valid integer value" + SysConst_SInvalidFloat, "'%s' is not a valid floating point value" + SysConst_SInvalidDate, "'%s' is not a valid date" + SysConst_SInvalidTime, "'%s' is not a valid time" + SysConst_SInvalidDateTime, "'%s' is not a valid date and time" + SysConst_SOutOfMemory, "Out of memory" + SysConst_SInOutError, "I/O error %d" + SysConst_SFileNotFound, "File not found" + SysConst_SInvalidFilename, "Invalid filename" + SysConst_STooManyOpenFiles, "Too many open files" + SysConst_SAccessDenied, "File access denied" + SysConst_SEndOfFile, "Read beyond end of file" + SysConst_SDiskFull, "Disk full" + SysConst_SInvalidInput, "Invalid numeric input" + SysConst_SDivByZero, "Division by zero" + SysConst_SRangeError, "Range check error" +END + +/* c:\program files\codegear\rad studio\5.0\lib\Controls.res */ +/* c:\program files\codegear\rad studio\5.0\lib\Buttons.res */ +/* c:\program files\codegear\rad studio\5.0\lib\ExtDlgs.res */ +/* fVA508HiddenJawsDataWindow.dfm */ +/* fVA508HiddenJawsMainWindow.dfm */ +/* E:\Vista_30_28\OR_SRC_CREATION\VA\VA508Accessibility\JAWS\JAWS.res */ +/* E:\Vista_30_28\OR_SRC_CREATION\VA\VA508Accessibility\JAWS\JAWS.drf */ diff --git a/VA/VA508Accessibility/VA508Access2006.dproj b/VA/VA508Accessibility/VA508Access2006.dproj new file mode 100644 index 0000000..0d457cb --- /dev/null +++ b/VA/VA508Accessibility/VA508Access2006.dproj @@ -0,0 +1,86 @@ + + + + {e69a3d49-1401-4990-acd7-30f55f76d420} + VA508Access2006.dpk + Debug + AnyCPU + DCC32 + ..\..\Packages\VA508Access2006.bpl + + + 7.0 + False + False + 0 + 3 + ..\..\DCU + ..\..\DCU + ..\..\DCU + ..\..\Packages + ..\..\Packages + $(BDS)\source\ToolsAPI + $(BDS)\source\ToolsAPI + $(BDS)\source\ToolsAPI + $(BDS)\source\ToolsAPI + DEBUG_ACCESSIBILITY_MANAGER;RELEASE + + + 7.0 + 3 + ..\..\DCU + ..\..\DCU + ..\..\DCU + ..\..\Packages + ..\..\Packages + $(BDS)\source\ToolsAPI + $(BDS)\source\ToolsAPI + $(BDS)\source\ToolsAPI + $(BDS)\source\ToolsAPI + DEBUG_ACCESSIBILITY_MANAGER + + + Delphi.Personality + Package + +-pDelphiC:\Program Files\Borland\Delphi 2006\Bin\bds.exeFalseTrueFalseVA Section 508 AccessibilityTrueTrueFalseTrueFalse1000FalseFalseFalseFalseFalse103312521.0.0.01.0.0.0VA508Access2006.dpk + + + Microsoft Office XP Sample Automation Server Wrapper Components + + + + + + MainSource + + + + + + +
frmProgress
+
+ + + + + + + + + + + + + +
frmImageListEditor
+
+ + + + + + +
+
\ No newline at end of file diff --git a/VA/VA508Accessibility/VA508Access2006.drc b/VA/VA508Accessibility/VA508Access2006.drc new file mode 100644 index 0000000..f1ed821 --- /dev/null +++ b/VA/VA508Accessibility/VA508Access2006.drc @@ -0,0 +1,20 @@ +/* VER185 + Generated by the CodeGear Delphi Pascal Compiler + because -GD or --drc was supplied to the compiler. + + This file contains compiler-generated resources that + were bound to the executable. + If this file is empty, then no compiler-generated + resources were bound to the produced executable. +*/ + +STRINGTABLE +BEGIN +END + +/* VA508AccessibilityCompileInfo.dfm */ +/* VA508ImageListLabelerPE.dfm */ +/* E:\Vista_30_28\OR_SRC_CREATION\VA\VA508Accessibility\VA508Access2006.res */ +/* E:\Vista_30_28\OR_SRC_CREATION\VA\VA508Accessibility\VA508AccessibilityManager.dcr */ +/* E:\Vista_30_28\OR_SRC_CREATION\VA\VA508Accessibility\VA508ImageListLabeler.dcr */ +/* E:\Vista_30_28\OR_SRC_CREATION\VA\VA508Accessibility\VA508Access2006.drf */ diff --git a/VA/VA508Accessibility/VA508AccessibilityGroup.groupproj b/VA/VA508Accessibility/VA508AccessibilityGroup.groupproj new file mode 100644 index 0000000..f44557b --- /dev/null +++ b/VA/VA508Accessibility/VA508AccessibilityGroup.groupproj @@ -0,0 +1,44 @@ + + + {85fc3129-6913-4c95-bca5-222ea0953ce2} + + + + + + + + Default.Personality + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/VA/VAShared2006.dproj b/VA/VAShared2006.dproj new file mode 100644 index 0000000..cdbcb1d --- /dev/null +++ b/VA/VAShared2006.dproj @@ -0,0 +1,52 @@ + + + + {c43fa8b9-3c40-4735-b689-4bf5a959209e} + VAShared2006.dpk + Debug + AnyCPU + DCC32 + ..\Packages\VAShared2006.bpl + + + 7.0 + False + False + 0 + 3 + ..\dcu + ..\dcu + ..\dcu + ..\Packages + ..\Packages + RELEASE + + + 7.0 + 3 + ..\dcu + ..\dcu + ..\dcu + ..\Packages + ..\Packages + + + Delphi.Personality + Package + +FalseTrueFalseVA Shared Units (no components)FalseTrueFalseTrueFalse1000FalseFalseFalseFalseFalse103312521.0.0.01.0.0.0VAShared2006.dpk + + + + + MainSource + + + + + + + + + + \ No newline at end of file diff --git a/VA/VAShared2006.drc b/VA/VAShared2006.drc new file mode 100644 index 0000000..37d9174 --- /dev/null +++ b/VA/VAShared2006.drc @@ -0,0 +1,16 @@ +/* VER185 + Generated by the CodeGear Delphi Pascal Compiler + because -GD or --drc was supplied to the compiler. + + This file contains compiler-generated resources that + were bound to the executable. + If this file is empty, then no compiler-generated + resources were bound to the produced executable. +*/ + +STRINGTABLE +BEGIN +END + +/* E:\Vista_30_28\OR_SRC_CREATION\VA\VAShared2006.res */ +/* E:\Vista_30_28\OR_SRC_CREATION\VA\VAShared2006.drf */