Upgrading to version 27
This commit is contained in:
parent
ad6be8316c
commit
97da8f3c53
|
@ -1,286 +0,0 @@
|
|||
unit Accessibility_TLB;
|
||||
|
||||
// ************************************************************************ //
|
||||
// WARNING
|
||||
// -------
|
||||
// The types declared in this file were generated from data read from a
|
||||
// Type Library. If this type library is explicitly or indirectly (via
|
||||
// another type library referring to this type library) re-imported, or the
|
||||
// 'Refresh' command of the Type Library Editor activated while editing the
|
||||
// Type Library, the contents of this file will be regenerated and all
|
||||
// manual modifications will be lost.
|
||||
// ************************************************************************ //
|
||||
|
||||
// PASTLWTR : 1.2
|
||||
// File generated on 2/4/2008 6:51:03 PM from Type Library described below.
|
||||
|
||||
// ************************************************************************ //
|
||||
// Type Lib: C:\WINDOWS\system32\oleacc.dll (1)
|
||||
// LIBID: {1EA4DBF0-3C3B-11CF-810C-00AA00389B71}
|
||||
// LCID: 0
|
||||
// Helpfile:
|
||||
// HelpString:
|
||||
// DepndLst:
|
||||
// (1) v2.0 stdole, (C:\WINDOWS\system32\stdole2.tlb)
|
||||
// Parent TypeLibrary:
|
||||
// (0) v1.0 CPRSChart, (C:\Program Files\Borland\Delphi7\Projects\OR_SRC_CREATION FILE 12 06 06 OR_3_270\WV_Release_CPRS_OFFICIAL\CPRS-Chart\CPRSChart.tlb)
|
||||
// Errors:
|
||||
// Hint: Parameter 'var' of IAccPropServices.SetPropValue changed to 'var_'
|
||||
// Hint: Parameter 'var' of IAccPropServices.SetHwndProp changed to 'var_'
|
||||
// Hint: Parameter 'var' of IAccPropServices.SetHmenuProp changed to 'var_'
|
||||
// ************************************************************************ //
|
||||
{$TYPEDADDRESS OFF} // Unit must be compiled without type-checked pointers.
|
||||
{$WARN SYMBOL_PLATFORM OFF}
|
||||
{$WRITEABLECONST ON}
|
||||
{$VARPROPSETTER ON}
|
||||
interface
|
||||
|
||||
uses Windows, ActiveX, Classes, Graphics, StdVCL, Variants;
|
||||
|
||||
|
||||
// *********************************************************************//
|
||||
// GUIDS declared in the TypeLibrary. Following prefixes are used:
|
||||
// Type Libraries : LIBID_xxxx
|
||||
// CoClasses : CLASS_xxxx
|
||||
// DISPInterfaces : DIID_xxxx
|
||||
// Non-DISP interfaces: IID_xxxx
|
||||
// *********************************************************************//
|
||||
const
|
||||
// TypeLibrary Major and minor versions
|
||||
AccessibilityMajorVersion = 1;
|
||||
AccessibilityMinorVersion = 1;
|
||||
|
||||
LIBID_Accessibility: TGUID = '{1EA4DBF0-3C3B-11CF-810C-00AA00389B71}';
|
||||
|
||||
IID_IAccessible: TGUID = '{618736E0-3C3D-11CF-810C-00AA00389B71}';
|
||||
IID_IAccessibleHandler: TGUID = '{03022430-ABC4-11D0-BDE2-00AA001A1953}';
|
||||
IID_IAccIdentity: TGUID = '{7852B78D-1CFD-41C1-A615-9C0C85960B5F}';
|
||||
IID_IAccPropServer: TGUID = '{76C0DBBB-15E0-4E7B-B61B-20EEEA2001E0}';
|
||||
IID_IAccPropServices: TGUID = '{6E26E776-04F0-495D-80E4-3330352E3169}';
|
||||
CLASS_CAccPropServices: TGUID = '{B5F8350B-0548-48B1-A6EE-88BD00B4A5E7}';
|
||||
|
||||
// *********************************************************************//
|
||||
// Declaration of Enumerations defined in Type Library
|
||||
// *********************************************************************//
|
||||
// Constants for enum AnnoScope
|
||||
type
|
||||
AnnoScope = TOleEnum;
|
||||
const
|
||||
ANNO_THIS = $00000000;
|
||||
ANNO_CONTAINER = $00000001;
|
||||
|
||||
type
|
||||
|
||||
// *********************************************************************//
|
||||
// Forward declaration of types defined in TypeLibrary
|
||||
// *********************************************************************//
|
||||
IAccessible = interface;
|
||||
IAccessibleDisp = dispinterface;
|
||||
IAccessibleHandler = interface;
|
||||
IAccIdentity = interface;
|
||||
IAccPropServer = interface;
|
||||
IAccPropServices = interface;
|
||||
|
||||
// *********************************************************************//
|
||||
// Declaration of CoClasses defined in Type Library
|
||||
// (NOTE: Here we map each CoClass to its Default Interface)
|
||||
// *********************************************************************//
|
||||
CAccPropServices = IAccPropServices;
|
||||
|
||||
|
||||
// *********************************************************************//
|
||||
// Declaration of structures, unions and aliases.
|
||||
// *********************************************************************//
|
||||
wireHWND = ^_RemotableHandle;
|
||||
wireHMENU = ^_RemotableHandle;
|
||||
PByte1 = ^Byte; {*}
|
||||
PUserType1 = ^TGUID; {*}
|
||||
|
||||
|
||||
__MIDL_IWinTypes_0009 = record
|
||||
case Integer of
|
||||
0: (hInproc: Integer);
|
||||
1: (hRemote: Integer);
|
||||
end;
|
||||
|
||||
_RemotableHandle = packed record
|
||||
fContext: Integer;
|
||||
u: __MIDL_IWinTypes_0009;
|
||||
end;
|
||||
|
||||
|
||||
// *********************************************************************//
|
||||
// Interface: IAccessible
|
||||
// Flags: (4432) Hidden Dual OleAutomation Dispatchable
|
||||
// GUID: {618736E0-3C3D-11CF-810C-00AA00389B71}
|
||||
// *********************************************************************//
|
||||
IAccessible = interface(IDispatch)
|
||||
['{618736E0-3C3D-11CF-810C-00AA00389B71}']
|
||||
function Get_accParent: IDispatch; safecall;
|
||||
function Get_accChildCount: Integer; safecall;
|
||||
function Get_accChild(varChild: OleVariant): IDispatch; safecall;
|
||||
function Get_accName(varChild: OleVariant): WideString; safecall;
|
||||
function Get_accValue(varChild: OleVariant): WideString; safecall;
|
||||
function Get_accDescription(varChild: OleVariant): WideString; safecall;
|
||||
function Get_accRole(varChild: OleVariant): OleVariant; safecall;
|
||||
function Get_accState(varChild: OleVariant): OleVariant; safecall;
|
||||
function Get_accHelp(varChild: OleVariant): WideString; safecall;
|
||||
function Get_accHelpTopic(out pszHelpFile: WideString; varChild: OleVariant): Integer; safecall;
|
||||
function Get_accKeyboardShortcut(varChild: OleVariant): WideString; safecall;
|
||||
function Get_accFocus: OleVariant; safecall;
|
||||
function Get_accSelection: OleVariant; safecall;
|
||||
function Get_accDefaultAction(varChild: OleVariant): WideString; safecall;
|
||||
procedure accSelect(flagsSelect: Integer; varChild: OleVariant); safecall;
|
||||
procedure accLocation(out pxLeft: Integer; out pyTop: Integer; out pcxWidth: Integer;
|
||||
out pcyHeight: Integer; varChild: OleVariant); safecall;
|
||||
function accNavigate(navDir: Integer; varStart: OleVariant): OleVariant; safecall;
|
||||
function accHitTest(xLeft: Integer; yTop: Integer): OleVariant; safecall;
|
||||
procedure accDoDefaultAction(varChild: OleVariant); safecall;
|
||||
procedure Set_accName(varChild: OleVariant; const pszName: WideString); safecall;
|
||||
procedure Set_accValue(varChild: OleVariant; const pszValue: WideString); safecall;
|
||||
property accParent: IDispatch read Get_accParent;
|
||||
property accChildCount: Integer read Get_accChildCount;
|
||||
property accChild[varChild: OleVariant]: IDispatch read Get_accChild;
|
||||
property accName[varChild: OleVariant]: WideString read Get_accName write Set_accName;
|
||||
property accValue[varChild: OleVariant]: WideString read Get_accValue write Set_accValue;
|
||||
property accDescription[varChild: OleVariant]: WideString read Get_accDescription;
|
||||
property accRole[varChild: OleVariant]: OleVariant read Get_accRole;
|
||||
property accState[varChild: OleVariant]: OleVariant read Get_accState;
|
||||
property accHelp[varChild: OleVariant]: WideString read Get_accHelp;
|
||||
property accHelpTopic[out pszHelpFile: WideString; varChild: OleVariant]: Integer read Get_accHelpTopic;
|
||||
property accKeyboardShortcut[varChild: OleVariant]: WideString read Get_accKeyboardShortcut;
|
||||
property accFocus: OleVariant read Get_accFocus;
|
||||
property accSelection: OleVariant read Get_accSelection;
|
||||
property accDefaultAction[varChild: OleVariant]: WideString read Get_accDefaultAction;
|
||||
end;
|
||||
|
||||
// *********************************************************************//
|
||||
// DispIntf: IAccessibleDisp
|
||||
// Flags: (4432) Hidden Dual OleAutomation Dispatchable
|
||||
// GUID: {618736E0-3C3D-11CF-810C-00AA00389B71}
|
||||
// *********************************************************************//
|
||||
IAccessibleDisp = dispinterface
|
||||
['{618736E0-3C3D-11CF-810C-00AA00389B71}']
|
||||
property accParent: IDispatch readonly dispid -5000;
|
||||
property accChildCount: Integer readonly dispid -5001;
|
||||
property accChild[varChild: OleVariant]: IDispatch readonly dispid -5002;
|
||||
property accName[varChild: OleVariant]: WideString dispid -5003;
|
||||
property accValue[varChild: OleVariant]: WideString dispid -5004;
|
||||
property accDescription[varChild: OleVariant]: WideString readonly dispid -5005;
|
||||
property accRole[varChild: OleVariant]: OleVariant readonly dispid -5006;
|
||||
property accState[varChild: OleVariant]: OleVariant readonly dispid -5007;
|
||||
property accHelp[varChild: OleVariant]: WideString readonly dispid -5008;
|
||||
property accHelpTopic[out pszHelpFile: WideString; varChild: OleVariant]: Integer readonly dispid -5009;
|
||||
property accKeyboardShortcut[varChild: OleVariant]: WideString readonly dispid -5010;
|
||||
property accFocus: OleVariant readonly dispid -5011;
|
||||
property accSelection: OleVariant readonly dispid -5012;
|
||||
property accDefaultAction[varChild: OleVariant]: WideString readonly dispid -5013;
|
||||
procedure accSelect(flagsSelect: Integer; varChild: OleVariant); dispid -5014;
|
||||
procedure accLocation(out pxLeft: Integer; out pyTop: Integer; out pcxWidth: Integer;
|
||||
out pcyHeight: Integer; varChild: OleVariant); dispid -5015;
|
||||
function accNavigate(navDir: Integer; varStart: OleVariant): OleVariant; dispid -5016;
|
||||
function accHitTest(xLeft: Integer; yTop: Integer): OleVariant; dispid -5017;
|
||||
procedure accDoDefaultAction(varChild: OleVariant); dispid -5018;
|
||||
end;
|
||||
|
||||
// *********************************************************************//
|
||||
// Interface: IAccessibleHandler
|
||||
// Flags: (272) Hidden OleAutomation
|
||||
// GUID: {03022430-ABC4-11D0-BDE2-00AA001A1953}
|
||||
// *********************************************************************//
|
||||
IAccessibleHandler = interface(IUnknown)
|
||||
['{03022430-ABC4-11D0-BDE2-00AA001A1953}']
|
||||
function AccessibleObjectFromID(hwnd: Integer; lObjectID: Integer; out pIAccessible: IAccessible): HResult; stdcall;
|
||||
end;
|
||||
|
||||
// *********************************************************************//
|
||||
// Interface: IAccIdentity
|
||||
// Flags: (0)
|
||||
// GUID: {7852B78D-1CFD-41C1-A615-9C0C85960B5F}
|
||||
// *********************************************************************//
|
||||
IAccIdentity = interface(IUnknown)
|
||||
['{7852B78D-1CFD-41C1-A615-9C0C85960B5F}']
|
||||
function GetIdentityString(dwIDChild: LongWord; out ppIDString: PByte1;
|
||||
out pdwIDStringLen: LongWord): HResult; stdcall;
|
||||
end;
|
||||
|
||||
// *********************************************************************//
|
||||
// Interface: IAccPropServer
|
||||
// Flags: (0)
|
||||
// GUID: {76C0DBBB-15E0-4E7B-B61B-20EEEA2001E0}
|
||||
// *********************************************************************//
|
||||
IAccPropServer = interface(IUnknown)
|
||||
['{76C0DBBB-15E0-4E7B-B61B-20EEEA2001E0}']
|
||||
function GetPropValue(var pIDString: Byte; dwIDStringLen: LongWord; idProp: TGUID;
|
||||
out pvarValue: OleVariant; out pfHasProp: Integer): HResult; stdcall;
|
||||
end;
|
||||
|
||||
// *********************************************************************//
|
||||
// Interface: IAccPropServices
|
||||
// Flags: (0)
|
||||
// GUID: {6E26E776-04F0-495D-80E4-3330352E3169}
|
||||
// *********************************************************************//
|
||||
IAccPropServices = interface(IUnknown)
|
||||
['{6E26E776-04F0-495D-80E4-3330352E3169}']
|
||||
function SetPropValue(var pIDString: Byte; dwIDStringLen: LongWord; idProp: TGUID;
|
||||
var_: OleVariant): HResult; stdcall;
|
||||
function SetPropServer(var pIDString: Byte; dwIDStringLen: LongWord; var paProps: TGUID;
|
||||
cProps: SYSINT; const pServer: IAccPropServer; AnnoScope: AnnoScope): HResult; stdcall;
|
||||
function ClearProps(var pIDString: Byte; dwIDStringLen: LongWord; var paProps: TGUID;
|
||||
cProps: SYSINT): HResult; stdcall;
|
||||
function SetHwndProp(var hwnd: _RemotableHandle; idObject: LongWord; idChild: LongWord;
|
||||
idProp: TGUID; var_: OleVariant): HResult; stdcall;
|
||||
function SetHwndPropStr(var hwnd: _RemotableHandle; idObject: LongWord; idChild: LongWord;
|
||||
idProp: TGUID; str: PWideChar): HResult; stdcall;
|
||||
function SetHwndPropServer(var hwnd: _RemotableHandle; idObject: LongWord; idChild: LongWord;
|
||||
var paProps: TGUID; cProps: SYSINT; const pServer: IAccPropServer;
|
||||
AnnoScope: AnnoScope): HResult; stdcall;
|
||||
function ClearHwndProps(var hwnd: _RemotableHandle; idObject: LongWord; idChild: LongWord;
|
||||
var paProps: TGUID; cProps: SYSINT): HResult; stdcall;
|
||||
function ComposeHwndIdentityString(var hwnd: _RemotableHandle; idObject: LongWord;
|
||||
idChild: LongWord; out ppIDString: PByte1;
|
||||
out pdwIDStringLen: LongWord): HResult; stdcall;
|
||||
function DecomposeHwndIdentityString(var pIDString: Byte; dwIDStringLen: LongWord;
|
||||
out phwnd: wireHWND; out pidObject: LongWord;
|
||||
out pidChild: LongWord): HResult; stdcall;
|
||||
function SetHmenuProp(var hmenu: _RemotableHandle; idChild: LongWord; idProp: TGUID;
|
||||
var_: OleVariant): HResult; stdcall;
|
||||
function SetHmenuPropStr(var hmenu: _RemotableHandle; idChild: LongWord; idProp: TGUID;
|
||||
str: PWideChar): HResult; stdcall;
|
||||
function SetHmenuPropServer(var hmenu: _RemotableHandle; idChild: LongWord; var paProps: TGUID;
|
||||
cProps: SYSINT; const pServer: IAccPropServer; AnnoScope: AnnoScope): HResult; stdcall;
|
||||
function ClearHmenuProps(var hmenu: _RemotableHandle; idChild: LongWord; var paProps: TGUID;
|
||||
cProps: SYSINT): HResult; stdcall;
|
||||
function ComposeHmenuIdentityString(var hmenu: _RemotableHandle; idChild: LongWord;
|
||||
out ppIDString: PByte1; out pdwIDStringLen: LongWord): HResult; stdcall;
|
||||
function DecomposeHmenuIdentityString(var pIDString: Byte; dwIDStringLen: LongWord;
|
||||
out phmenu: wireHMENU; out pidChild: LongWord): HResult; stdcall;
|
||||
end;
|
||||
|
||||
// *********************************************************************//
|
||||
// The Class CoCAccPropServices provides a Create and CreateRemote method to
|
||||
// create instances of the default interface IAccPropServices exposed by
|
||||
// the CoClass CAccPropServices. The functions are intended to be used by
|
||||
// clients wishing to automate the CoClass objects exposed by the
|
||||
// server of this typelibrary.
|
||||
// *********************************************************************//
|
||||
CoCAccPropServices = class
|
||||
class function Create: IAccPropServices;
|
||||
class function CreateRemote(const MachineName: string): IAccPropServices;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
uses ComObj;
|
||||
|
||||
class function CoCAccPropServices.Create: IAccPropServices;
|
||||
begin
|
||||
Result := CreateComObject(CLASS_CAccPropServices) as IAccPropServices;
|
||||
end;
|
||||
|
||||
class function CoCAccPropServices.CreateRemote(const MachineName: string): IAccPropServices;
|
||||
begin
|
||||
Result := CreateRemoteComObject(MachineName, CLASS_CAccPropServices) as IAccPropServices;
|
||||
end;
|
||||
|
||||
end.
|
|
@ -0,0 +1,177 @@
|
|||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<BorlandProject>
|
||||
<PersonalityInfo>
|
||||
<Option>
|
||||
<Option Name="Personality">Delphi.Personality</Option>
|
||||
<Option Name="ProjectType">VCLApplication</Option>
|
||||
<Option Name="Version">1.0</Option>
|
||||
<Option Name="GUID">{B0A908D8-813B-4A01-B1DE-D0C343E41F8B}</Option>
|
||||
</Option>
|
||||
</PersonalityInfo>
|
||||
<Delphi.Personality>
|
||||
<Source>
|
||||
<Source Name="MainSource">CPRSChart.dpr</Source>
|
||||
</Source>
|
||||
<FileVersion>
|
||||
<FileVersion Name="Version">7.0</FileVersion>
|
||||
</FileVersion>
|
||||
<Compiler>
|
||||
<Compiler Name="A">8</Compiler>
|
||||
<Compiler Name="B">0</Compiler>
|
||||
<Compiler Name="C">1</Compiler>
|
||||
<Compiler Name="D">1</Compiler>
|
||||
<Compiler Name="E">0</Compiler>
|
||||
<Compiler Name="F">0</Compiler>
|
||||
<Compiler Name="G">1</Compiler>
|
||||
<Compiler Name="H">1</Compiler>
|
||||
<Compiler Name="I">1</Compiler>
|
||||
<Compiler Name="J">1</Compiler>
|
||||
<Compiler Name="K">0</Compiler>
|
||||
<Compiler Name="L">1</Compiler>
|
||||
<Compiler Name="M">0</Compiler>
|
||||
<Compiler Name="N">1</Compiler>
|
||||
<Compiler Name="O">1</Compiler>
|
||||
<Compiler Name="P">1</Compiler>
|
||||
<Compiler Name="Q">0</Compiler>
|
||||
<Compiler Name="R">0</Compiler>
|
||||
<Compiler Name="S">0</Compiler>
|
||||
<Compiler Name="T">0</Compiler>
|
||||
<Compiler Name="U">0</Compiler>
|
||||
<Compiler Name="V">1</Compiler>
|
||||
<Compiler Name="W">0</Compiler>
|
||||
<Compiler Name="X">1</Compiler>
|
||||
<Compiler Name="Y">1</Compiler>
|
||||
<Compiler Name="Z">1</Compiler>
|
||||
<Compiler Name="ShowHints">True</Compiler>
|
||||
<Compiler Name="ShowWarnings">True</Compiler>
|
||||
<Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
|
||||
<Compiler Name="NamespacePrefix"></Compiler>
|
||||
<Compiler Name="GenerateDocumentation">False</Compiler>
|
||||
<Compiler Name="DefaultNamespace"></Compiler>
|
||||
<Compiler Name="SymbolDeprecated">True</Compiler>
|
||||
<Compiler Name="SymbolLibrary">True</Compiler>
|
||||
<Compiler Name="SymbolPlatform">True</Compiler>
|
||||
<Compiler Name="SymbolExperimental">True</Compiler>
|
||||
<Compiler Name="UnitLibrary">True</Compiler>
|
||||
<Compiler Name="UnitPlatform">True</Compiler>
|
||||
<Compiler Name="UnitDeprecated">True</Compiler>
|
||||
<Compiler Name="UnitExperimental">True</Compiler>
|
||||
<Compiler Name="HResultCompat">True</Compiler>
|
||||
<Compiler Name="HidingMember">True</Compiler>
|
||||
<Compiler Name="HiddenVirtual">True</Compiler>
|
||||
<Compiler Name="Garbage">True</Compiler>
|
||||
<Compiler Name="BoundsError">True</Compiler>
|
||||
<Compiler Name="ZeroNilCompat">True</Compiler>
|
||||
<Compiler Name="StringConstTruncated">True</Compiler>
|
||||
<Compiler Name="ForLoopVarVarPar">True</Compiler>
|
||||
<Compiler Name="TypedConstVarPar">True</Compiler>
|
||||
<Compiler Name="AsgToTypedConst">True</Compiler>
|
||||
<Compiler Name="CaseLabelRange">True</Compiler>
|
||||
<Compiler Name="ForVariable">True</Compiler>
|
||||
<Compiler Name="ConstructingAbstract">True</Compiler>
|
||||
<Compiler Name="ComparisonFalse">True</Compiler>
|
||||
<Compiler Name="ComparisonTrue">True</Compiler>
|
||||
<Compiler Name="ComparingSignedUnsigned">True</Compiler>
|
||||
<Compiler Name="CombiningSignedUnsigned">True</Compiler>
|
||||
<Compiler Name="UnsupportedConstruct">True</Compiler>
|
||||
<Compiler Name="FileOpen">True</Compiler>
|
||||
<Compiler Name="FileOpenUnitSrc">True</Compiler>
|
||||
<Compiler Name="BadGlobalSymbol">True</Compiler>
|
||||
<Compiler Name="DuplicateConstructorDestructor">True</Compiler>
|
||||
<Compiler Name="InvalidDirective">True</Compiler>
|
||||
<Compiler Name="PackageNoLink">True</Compiler>
|
||||
<Compiler Name="PackageThreadVar">True</Compiler>
|
||||
<Compiler Name="ImplicitImport">True</Compiler>
|
||||
<Compiler Name="HPPEMITIgnored">True</Compiler>
|
||||
<Compiler Name="NoRetVal">True</Compiler>
|
||||
<Compiler Name="UseBeforeDef">True</Compiler>
|
||||
<Compiler Name="ForLoopVarUndef">True</Compiler>
|
||||
<Compiler Name="UnitNameMismatch">True</Compiler>
|
||||
<Compiler Name="NoCFGFileFound">True</Compiler>
|
||||
<Compiler Name="ImplicitVariants">True</Compiler>
|
||||
<Compiler Name="UnicodeToLocale">True</Compiler>
|
||||
<Compiler Name="LocaleToUnicode">True</Compiler>
|
||||
<Compiler Name="ImagebaseMultiple">True</Compiler>
|
||||
<Compiler Name="SuspiciousTypecast">True</Compiler>
|
||||
<Compiler Name="PrivatePropAccessor">True</Compiler>
|
||||
<Compiler Name="UnsafeType">False</Compiler>
|
||||
<Compiler Name="UnsafeCode">False</Compiler>
|
||||
<Compiler Name="UnsafeCast">False</Compiler>
|
||||
<Compiler Name="OptionTruncated">True</Compiler>
|
||||
<Compiler Name="WideCharReduced">True</Compiler>
|
||||
<Compiler Name="DuplicatesIgnored">True</Compiler>
|
||||
<Compiler Name="UnitInitSeq">True</Compiler>
|
||||
<Compiler Name="LocalPInvoke">True</Compiler>
|
||||
<Compiler Name="MessageDirective">True</Compiler>
|
||||
<Compiler Name="CodePage"></Compiler>
|
||||
</Compiler>
|
||||
<Linker>
|
||||
<Linker Name="MapFile">3</Linker>
|
||||
<Linker Name="OutputObjs">0</Linker>
|
||||
<Linker Name="GenerateHpps">False</Linker>
|
||||
<Linker Name="ConsoleApp">1</Linker>
|
||||
<Linker Name="DebugInfo">False</Linker>
|
||||
<Linker Name="RemoteSymbols">False</Linker>
|
||||
<Linker Name="GenerateDRC">False</Linker>
|
||||
<Linker Name="MinStackSize">32768</Linker>
|
||||
<Linker Name="MaxStackSize">1048576</Linker>
|
||||
<Linker Name="AutoRegisterTLB">False</Linker>
|
||||
<Linker Name="AutoGenImportAssembly">False</Linker>
|
||||
<Linker Name="ImageBase">4194304</Linker>
|
||||
<Linker Name="ExeDescription"></Linker>
|
||||
</Linker>
|
||||
<Directories>
|
||||
<Directories Name="OutputDir"></Directories>
|
||||
<Directories Name="UnitOutputDir">P:\vista\CPRS-WV_OFFICIAL_RELEASE-27\WVEHR-v27Delphi2006\DCU</Directories>
|
||||
<Directories Name="PackageDLLOutputDir">P:\vista\CPRS-WV_OFFICIAL_RELEASE-27\WVEHR-v27Delphi2006\Packages</Directories>
|
||||
<Directories Name="PackageDCPOutputDir">P:\vista\CPRS-WV_OFFICIAL_RELEASE-27\WVEHR-v27Delphi2006\Packages</Directories>
|
||||
<Directories Name="SearchPath">P:\vista\CPRS-WV_OFFICIAL_RELEASE-27\WVEHR-v27Delphi2006\CPRS-chart;P:\vista\CPRS-WV_OFFICIAL_RELEASE-27\WVEHR-v27Delphi2006\CPRS-Lib;P:\vista\CPRS-WV_OFFICIAL_RELEASE-27\WVEHR-v27Delphi2006\WVEHR-Lib;P:\vista\CPRS-WV_OFFICIAL_RELEASE-27\WVEHR-v27Delphi2006\DCU;P:\vista\CPRS-WV_OFFICIAL_RELEASE-27\WVEHR-v27Delphi2006\BDK32\Source</Directories>
|
||||
<Directories Name="Packages">vcl;vclx;dbrtl;Rave65VCL;bdertl;rtl;vcldb;adortl;dbxcds;dbexpress;vclib;ibxpress;xmlrtl;vclactnband;inet;IntrawebDB_80_100;Intraweb_80_100;vclie;inetdbbde;inetdbxpress;IndyCore;IndySystem;dclOfficeXP;VclSmp;soaprtl;dsnap;IndyProtocols;teeui;teedb;tee;vcldbx</Directories>
|
||||
<Directories Name="Conditionals"></Directories>
|
||||
<Directories Name="DebugSourceDirs"></Directories>
|
||||
<Directories Name="UsePackages">False</Directories>
|
||||
</Directories>
|
||||
<Parameters>
|
||||
<Parameters Name="RunParams"></Parameters>
|
||||
<Parameters Name="HostApplication"></Parameters>
|
||||
<Parameters Name="Launcher"></Parameters>
|
||||
<Parameters Name="UseLauncher">False</Parameters>
|
||||
<Parameters Name="DebugCWD"></Parameters>
|
||||
<Parameters Name="Debug Symbols Search Path"></Parameters>
|
||||
<Parameters Name="LoadAllSymbols">True</Parameters>
|
||||
<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
|
||||
</Parameters>
|
||||
<Language>
|
||||
<Language Name="ActiveLang"></Language>
|
||||
<Language Name="ProjectLang">$00000000</Language>
|
||||
<Language Name="RootDir"></Language>
|
||||
</Language>
|
||||
<VersionInfo>
|
||||
<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
|
||||
<VersionInfo Name="AutoIncBuild">False</VersionInfo>
|
||||
<VersionInfo Name="MajorVer">1</VersionInfo>
|
||||
<VersionInfo Name="MinorVer">0</VersionInfo>
|
||||
<VersionInfo Name="Release">27</VersionInfo>
|
||||
<VersionInfo Name="Build">83</VersionInfo>
|
||||
<VersionInfo Name="Debug">False</VersionInfo>
|
||||
<VersionInfo Name="PreRelease">False</VersionInfo>
|
||||
<VersionInfo Name="Special">False</VersionInfo>
|
||||
<VersionInfo Name="Private">False</VersionInfo>
|
||||
<VersionInfo Name="DLL">False</VersionInfo>
|
||||
<VersionInfo Name="Locale">1033</VersionInfo>
|
||||
<VersionInfo Name="CodePage">1252</VersionInfo>
|
||||
</VersionInfo>
|
||||
<VersionInfoKeys>
|
||||
<VersionInfoKeys Name="CompanyName">Department of Veterans Affairs</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="FileDescription">11/04/2008</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="FileVersion">1.0.27.83</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="InternalName">1.0.27.83 server required</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="LegalCopyright">Unauthorized access or misuse of this system and/or its data is a federal crime. Use of all data shall be in accordance with VA policy on security and privacy.</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="OriginalFilename">Patch 304</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="ProductName">Computerized Patient Record System</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="Comments">Version 1.0.27.83</VersionInfoKeys>
|
||||
</VersionInfoKeys>
|
||||
</Delphi.Personality>
|
||||
</BorlandProject>
|
|
@ -0,0 +1,2 @@
|
|||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<BorlandProject/>
|
|
@ -32,11 +32,13 @@
|
|||
-M
|
||||
-$M32768,1048576
|
||||
-K$00400000
|
||||
-E"C:\Program Files\Borland\Delphi7\Projects\OR_SRC_CREATION FILE 12 06 06 OR_3_270\WV_Release_CPRS_OFFICIAL\CPRS-Chart"
|
||||
-N"C:\Program Files\Borland\Delphi7\Projects\OR_SRC_CREATION FILE 12 06 06 OR_3_270\WV_Release_CPRS_OFFICIAL\CPRS-Chart"
|
||||
-LE"C:\Program Files\Borland\Delphi7\Projects\OR_SRC_CREATION FILE 12 06 06 OR_3_270\WV_Release_CPRS_OFFICIAL\Packages"
|
||||
-LN"C:\Program Files\Borland\Delphi7\Projects\OR_SRC_CREATION FILE 12 06 06 OR_3_270\WV_Release_CPRS_OFFICIAL\Packages"
|
||||
-U"c:\program files\borland\delphi7\Lib\Debug;C:\Program Files\Borland\Delphi7\Projects\OR_SRC_CREATION FILE 12 06 06 OR_3_270\WV_Release_CPRS_OFFICIAL\CPRS-Lib"
|
||||
-O"c:\program files\borland\delphi7\Lib\Debug;C:\Program Files\Borland\Delphi7\Projects\OR_SRC_CREATION FILE 12 06 06 OR_3_270\WV_Release_CPRS_OFFICIAL\CPRS-Lib"
|
||||
-I"c:\program files\borland\delphi7\Lib\Debug;C:\Program Files\Borland\Delphi7\Projects\OR_SRC_CREATION FILE 12 06 06 OR_3_270\WV_Release_CPRS_OFFICIAL\CPRS-Lib"
|
||||
-R"c:\program files\borland\delphi7\Lib\Debug;C:\Program Files\Borland\Delphi7\Projects\OR_SRC_CREATION FILE 12 06 06 OR_3_270\WV_Release_CPRS_OFFICIAL\CPRS-Lib"
|
||||
-N0"P:\vista\CPRS-WV_OFFICIAL_RELEASE-27\WVEHR-v27Delphi2006\DCU"
|
||||
-LE"P:\vista\CPRS-WV_OFFICIAL_RELEASE-27\WVEHR-v27Delphi2006\Packages"
|
||||
-LN"P:\vista\CPRS-WV_OFFICIAL_RELEASE-27\WVEHR-v27Delphi2006\Packages"
|
||||
-U"P:\vista\CPRS-WV_OFFICIAL_RELEASE-27\WVEHR-v27Delphi2006\CPRS-chart;P:\vista\CPRS-WV_OFFICIAL_RELEASE-27\WVEHR-v27Delphi2006\CPRS-Lib;P:\vista\CPRS-WV_OFFICIAL_RELEASE-27\WVEHR-v27Delphi2006\WVEHR-Lib;P:\vista\CPRS-WV_OFFICIAL_RELEASE-27\WVEHR-v27Delphi2006\DCU;P:\vista\CPRS-WV_OFFICIAL_RELEASE-27\WVEHR-v27Delphi2006\BDK32\Source"
|
||||
-O"P:\vista\CPRS-WV_OFFICIAL_RELEASE-27\WVEHR-v27Delphi2006\CPRS-chart;P:\vista\CPRS-WV_OFFICIAL_RELEASE-27\WVEHR-v27Delphi2006\CPRS-Lib;P:\vista\CPRS-WV_OFFICIAL_RELEASE-27\WVEHR-v27Delphi2006\WVEHR-Lib;P:\vista\CPRS-WV_OFFICIAL_RELEASE-27\WVEHR-v27Delphi2006\DCU;P:\vista\CPRS-WV_OFFICIAL_RELEASE-27\WVEHR-v27Delphi2006\BDK32\Source"
|
||||
-I"P:\vista\CPRS-WV_OFFICIAL_RELEASE-27\WVEHR-v27Delphi2006\CPRS-chart;P:\vista\CPRS-WV_OFFICIAL_RELEASE-27\WVEHR-v27Delphi2006\CPRS-Lib;P:\vista\CPRS-WV_OFFICIAL_RELEASE-27\WVEHR-v27Delphi2006\WVEHR-Lib;P:\vista\CPRS-WV_OFFICIAL_RELEASE-27\WVEHR-v27Delphi2006\DCU;P:\vista\CPRS-WV_OFFICIAL_RELEASE-27\WVEHR-v27Delphi2006\BDK32\Source"
|
||||
-R"P:\vista\CPRS-WV_OFFICIAL_RELEASE-27\WVEHR-v27Delphi2006\CPRS-chart;P:\vista\CPRS-WV_OFFICIAL_RELEASE-27\WVEHR-v27Delphi2006\CPRS-Lib;P:\vista\CPRS-WV_OFFICIAL_RELEASE-27\WVEHR-v27Delphi2006\WVEHR-Lib;P:\vista\CPRS-WV_OFFICIAL_RELEASE-27\WVEHR-v27Delphi2006\DCU;P:\vista\CPRS-WV_OFFICIAL_RELEASE-27\WVEHR-v27Delphi2006\BDK32\Source"
|
||||
-w-UNSAFE_TYPE
|
||||
-w-UNSAFE_CODE
|
||||
-w-UNSAFE_CAST
|
||||
|
|
|
@ -1,170 +0,0 @@
|
|||
[FileVersion]
|
||||
Version=7.0
|
||||
[Compiler]
|
||||
A=8
|
||||
B=0
|
||||
C=1
|
||||
D=1
|
||||
E=0
|
||||
F=0
|
||||
G=1
|
||||
H=1
|
||||
I=1
|
||||
J=1
|
||||
K=0
|
||||
L=1
|
||||
M=0
|
||||
N=1
|
||||
O=1
|
||||
P=1
|
||||
Q=0
|
||||
R=0
|
||||
S=0
|
||||
T=0
|
||||
U=0
|
||||
V=1
|
||||
W=0
|
||||
X=1
|
||||
Y=1
|
||||
Z=1
|
||||
ShowHints=1
|
||||
ShowWarnings=1
|
||||
UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
|
||||
NamespacePrefix=
|
||||
SymbolDeprecated=1
|
||||
SymbolLibrary=1
|
||||
SymbolPlatform=1
|
||||
UnitLibrary=1
|
||||
UnitPlatform=1
|
||||
UnitDeprecated=1
|
||||
HResultCompat=1
|
||||
HidingMember=1
|
||||
HiddenVirtual=1
|
||||
Garbage=1
|
||||
BoundsError=1
|
||||
ZeroNilCompat=1
|
||||
StringConstTruncated=1
|
||||
ForLoopVarVarPar=1
|
||||
TypedConstVarPar=1
|
||||
AsgToTypedConst=1
|
||||
CaseLabelRange=1
|
||||
ForVariable=1
|
||||
ConstructingAbstract=1
|
||||
ComparisonFalse=1
|
||||
ComparisonTrue=1
|
||||
ComparingSignedUnsigned=1
|
||||
CombiningSignedUnsigned=1
|
||||
UnsupportedConstruct=1
|
||||
FileOpen=1
|
||||
FileOpenUnitSrc=1
|
||||
BadGlobalSymbol=1
|
||||
DuplicateConstructorDestructor=1
|
||||
InvalidDirective=1
|
||||
PackageNoLink=1
|
||||
PackageThreadVar=1
|
||||
ImplicitImport=1
|
||||
HPPEMITIgnored=1
|
||||
NoRetVal=1
|
||||
UseBeforeDef=1
|
||||
ForLoopVarUndef=1
|
||||
UnitNameMismatch=1
|
||||
NoCFGFileFound=1
|
||||
MessageDirective=1
|
||||
ImplicitVariants=1
|
||||
UnicodeToLocale=1
|
||||
LocaleToUnicode=1
|
||||
ImagebaseMultiple=1
|
||||
SuspiciousTypecast=1
|
||||
PrivatePropAccessor=1
|
||||
UnsafeType=1
|
||||
UnsafeCode=1
|
||||
UnsafeCast=1
|
||||
[Linker]
|
||||
MapFile=3
|
||||
OutputObjs=0
|
||||
ConsoleApp=1
|
||||
DebugInfo=0
|
||||
RemoteSymbols=0
|
||||
MinStackSize=32768
|
||||
MaxStackSize=1048576
|
||||
ImageBase=4194304
|
||||
ExeDescription=
|
||||
[Directories]
|
||||
OutputDir=C:\Program Files\Borland\Delphi7\Projects\OR_SRC_CREATION FILE 12 06 06 OR_3_270\WV_Release_CPRS_OFFICIAL\CPRS-Chart
|
||||
UnitOutputDir=C:\Program Files\Borland\Delphi7\Projects\OR_SRC_CREATION FILE 12 06 06 OR_3_270\WV_Release_CPRS_OFFICIAL\CPRS-Chart
|
||||
PackageDLLOutputDir=C:\Program Files\Borland\Delphi7\Projects\OR_SRC_CREATION FILE 12 06 06 OR_3_270\WV_Release_CPRS_OFFICIAL\Packages
|
||||
PackageDCPOutputDir=C:\Program Files\Borland\Delphi7\Projects\OR_SRC_CREATION FILE 12 06 06 OR_3_270\WV_Release_CPRS_OFFICIAL\Packages
|
||||
SearchPath=$(DELPHI)\Lib\Debug;C:\Program Files\Borland\Delphi7\Projects\OR_SRC_CREATION FILE 12 06 06 OR_3_270\WV_Release_CPRS_OFFICIAL\CPRS-Lib
|
||||
Packages=vcl;rtl;vclx;VclSmp;vclshlctrls;dbrtl;adortl;vcldb;qrpt;bdertl;vcldbx;dsnap;cds;bdecds;teeui;teedb;tee;teeqr;ibxpress;visualclx;visualdbclx;vclie;xmlrtl;inet;inetdbbde;inetdbxpress;inetdb;nmfast;dbexpress;dbxcds;indy;dclOffice2k;soaprtl;XWB_R60
|
||||
Conditionals=
|
||||
DebugSourceDirs=
|
||||
UsePackages=0
|
||||
[Parameters]
|
||||
RunParams=s=127.0.0.1 p=9211 CCOW=disable
|
||||
HostApplication=
|
||||
Launcher=
|
||||
UseLauncher=0
|
||||
DebugCWD=
|
||||
[Language]
|
||||
ActiveLang=
|
||||
ProjectLang=
|
||||
RootDir=C:\Program Files\Borland\Delphi6\Bin\
|
||||
[Version Info]
|
||||
IncludeVerInfo=1
|
||||
AutoIncBuild=0
|
||||
MajorVer=1
|
||||
MinorVer=0
|
||||
Release=26
|
||||
Build=76
|
||||
Debug=0
|
||||
PreRelease=0
|
||||
Special=0
|
||||
Private=0
|
||||
DLL=0
|
||||
Locale=1033
|
||||
CodePage=1252
|
||||
[Version Info Keys]
|
||||
CompanyName=Department of Veterans Affairs
|
||||
FileDescription=1/21/2006
|
||||
FileVersion=1.0.26.76
|
||||
InternalName=1.0.26.76 server required
|
||||
LegalCopyright=Unauthorized access or misuse of this system and/or its data is a federal crime. Use of all data shall be in accordance with VA policy on security and privacy.
|
||||
LegalTrademarks=
|
||||
OriginalFilename=Patch 215
|
||||
ProductName=Computerized Patient Record System
|
||||
ProductVersion=1.0.0.0
|
||||
Comments=Version 1.0.26.76
|
||||
[HistoryLists\hlUnitAliases]
|
||||
Count=1
|
||||
Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
|
||||
[HistoryLists\hlSearchPath]
|
||||
Count=5
|
||||
Item0=$(DELPHI)\Lib\Debug;C:\Program Files\Borland\Delphi7\Projects\OR_SRC_CREATION FILE 12 06 06 OR_3_270\WV_Release_CPRS_OFFICIAL\CPRS-Lib
|
||||
Item1=$(DELPHI)\Lib\Debug;C:\Vista\cprs\OR_3_270V26_69\CPRS-Lib;C:\Program Files\Borland\Delphi7\Projects\OR_SRC_CREATION FILE 12 06 06 OR_3_270\WV_OR_SRC_CREATION\CPRS-Lib
|
||||
Item2=$(DELPHI)\Lib\Debug;C:\Vista\cprs\OR_3_270V26_69\CPRS-Lib;C:\Program Files\Borland\Delphi7\Projects\OR_SRC_CREATION FILE 12 06 06 OR_3_270\OR_SRC_CREATION\CPRS-Lib
|
||||
Item3=$(DELPHI)\Lib\Debug;C:\Vista\cprs\OR_3_270V26_69\CPRS-Lib
|
||||
Item4=C:\Vista\cprs\OR_3_215V26_69\CPRS-Lib
|
||||
[HistoryLists\hlUnitOutputDirectory]
|
||||
Count=4
|
||||
Item0=C:\Program Files\Borland\Delphi7\Projects\OR_SRC_CREATION FILE 12 06 06 OR_3_270\WV_Release_CPRS_OFFICIAL\CPRS-Chart
|
||||
Item1=C:\Vista\cprs\WV_OR_3_270V26_69\CPRS-Chart\DCU
|
||||
Item2=C:\Vista\cprs\OR_3_270V26_69\CPRS-Chart\DCU
|
||||
Item3=C:\Vista\cprs\OR_3_215V26_69\CPRS-Chart\DCU
|
||||
[HistoryLists\hlOutputDirectorry]
|
||||
Count=4
|
||||
Item0=C:\Program Files\Borland\Delphi7\Projects\OR_SRC_CREATION FILE 12 06 06 OR_3_270\WV_Release_CPRS_OFFICIAL\CPRS-Chart
|
||||
Item1=C:\Vista\cprs\WV_OR_3_270V26_69\CPRS-Chart
|
||||
Item2=C:\Vista\cprs\OR_3_270V26_69\CPRS-Chart
|
||||
Item3=C:\Vista\cprs\OR_3_215V26_69\CPRS-Chart
|
||||
[HistoryLists\hlBPLOutput]
|
||||
Count=4
|
||||
Item0=C:\Program Files\Borland\Delphi7\Projects\OR_SRC_CREATION FILE 12 06 06 OR_3_270\WV_Release_CPRS_OFFICIAL\Packages
|
||||
Item1=C:\Vista\cprs\WV_OR_3_270V26_69\Packages
|
||||
Item2=C:\Vista\cprs\OR_3_270V26_69\Packages
|
||||
Item3=C:\Vista\cprs\OR_3_215V26_69\Packages
|
||||
[HistoryLists\hlDCPOutput]
|
||||
Count=4
|
||||
Item0=C:\Program Files\Borland\Delphi7\Projects\OR_SRC_CREATION FILE 12 06 06 OR_3_270\WV_Release_CPRS_OFFICIAL\Packages
|
||||
Item1=C:\Vista\cprs\WV_OR_3_270V26_69\Packages
|
||||
Item2=C:\Vista\cprs\OR_3_270V26_69\Packages
|
||||
Item3=C:\Vista\cprs\OR_3_215V26_69\Packages
|
|
@ -1,5 +1,9 @@
|
|||
program CPRSChart;
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
uses
|
||||
ShareMem,
|
||||
Forms,
|
||||
|
@ -43,7 +47,7 @@ uses
|
|||
fVitals in 'fVitals.pas' {frmVitals},
|
||||
uProbs in 'uProbs.pas',
|
||||
fProbEdt in 'fProbEdt.pas' {frmdlgProb},
|
||||
fProbflt in 'fProbFlt.pas' {frmPlVuFilt},
|
||||
fProbFlt in 'fProbFlt.pas' {frmPlVuFilt},
|
||||
fProbCmt in 'fProbCmt.pas' {frmProbCmt},
|
||||
fNoteCslt in 'fNoteCslt.pas' {frmNoteConsult},
|
||||
fNotePrt in 'fNotePrt.pas' {frmNotePrint},
|
||||
|
@ -117,21 +121,8 @@ uses
|
|||
fDCSummProps in 'fDCSummProps.pas' {frmDCSummProperties},
|
||||
fHFSearch in 'Encounter\fHFSearch.pas' {frmHFSearch},
|
||||
fConsMedRslt in 'Consults\fConsMedRslt.pas' {frmConsMedRslt},
|
||||
mVitMetric in 'Vitals\mVitMetric.pas' {fraVitMetric: TFrame},
|
||||
mVitAll in 'Vitals\mVitAll.pas' {fraVitAll: TFrame},
|
||||
mVitBase in 'Vitals\mVitBase.pas' {fraVitBase: TFrame},
|
||||
uVitals in 'Vitals\uVitals.pas',
|
||||
rVitals in 'Vitals\rVitals.pas',
|
||||
mVitPulse in 'Vitals\mVitPulse.pas' {fraVitPulse: TFrame},
|
||||
mVitResp in 'Vitals\mVitResp.pas' {fraVitResp: TFrame},
|
||||
mVitBP in 'Vitals\mVitBP.pas' {fraVitPB: TFrame},
|
||||
mVitTemp in 'Vitals\mVitTemp.pas' {fraVitTemp: TFrame},
|
||||
mVitHeight in 'Vitals\mVitHeight.pas' {fraVitHeight: TFrame},
|
||||
mVitWeight in 'Vitals\mVitWeight.pas' {fraVitWeight: TFrame},
|
||||
mVitPain in 'Vitals\mVitPain.pas' {fraVitPain: TFrame},
|
||||
mVitPO2 in 'Vitals\mVitPO2.pas' {fraVitPO2: TFrame},
|
||||
mVitCVP in 'Vitals\mVitCVP.pas' {fraVitCVP: TFrame},
|
||||
mVitCirGirth in 'Vitals\mVitCirGirth.pas' {fraVitCircum: TFrame},
|
||||
uDCSumm in 'uDCSumm.pas',
|
||||
uDocTree in 'uDocTree.pas',
|
||||
fVitalsDate in 'Vitals\fVitalsDate.pas' {frmVitalsDate},
|
||||
|
@ -262,11 +253,6 @@ uses
|
|||
fODChangeEvtDisp in 'Orders\fODChangeEvtDisp.pas' {frmChangeEventDisp},
|
||||
fODValidateAction in 'Orders\fODValidateAction.pas' {frmInvalidActionList},
|
||||
fODChild in 'Orders\fODChild.pas' {frmODChild},
|
||||
uAccessibleStringGrid in 'uAccessibleStringGrid.pas' {AccessibleStringGrid: CoClass},
|
||||
Accessibility_TLB in 'Accessibility_TLB.pas',
|
||||
uAccessibleListBox in 'uAccessibleListBox.pas' {AccessibleListBox: CoClass},
|
||||
uAccessibleTreeNode in 'uAccessibleTreeNode.pas' {IAccessibleTreeNode: CoClass},
|
||||
uAccessibleTreeView in 'uAccessibleTreeView.pas' {AccessibleTreeView: CoClass},
|
||||
fDupPts in 'fDupPts.pas' {frmDupPts},
|
||||
VERGENCECONTEXTORLib_TLB in 'VERGENCECONTEXTORLib_TLB.pas',
|
||||
uOrPtf in 'uOrPtf.pas',
|
||||
|
@ -274,7 +260,6 @@ uses
|
|||
fFrame in 'fFrame.pas' {frmFrame},
|
||||
fAlertForward in 'fAlertForward.pas' {frmAlertForward},
|
||||
fODMedNVA in 'Orders\fODMedNVA.pas' {frmODMedNVA},
|
||||
uAccessibleRichEdit in 'uAccessibleRichEdit.pas' {AccessibleRichEdit: CoClass},
|
||||
fPrintList in 'fPrintList.pas' {frmPrintList},
|
||||
fODChangeUnreleasedRenew in 'Orders\fODChangeUnreleasedRenew.pas' {frmODChangeUnreleasedRenew},
|
||||
UBAMessages in 'BA\UBAMessages.pas',
|
||||
|
@ -298,7 +283,38 @@ uses
|
|||
uGraphs in 'uGraphs.pas',
|
||||
fClinicWardMeds in 'fClinicWardMeds.pas' {frmClinicWardMeds},
|
||||
fActivateDeactivate in 'fActivateDeactivate.pas' {frmActivateDeactive},
|
||||
uFormMonitor in 'uFormMonitor.pas';
|
||||
uFormMonitor in 'uFormMonitor.pas',
|
||||
fAResize in 'fAResize.pas' {frmAutoResize},
|
||||
fODAllgy in 'Orders\fODAllgy.pas' {frmODAllergy},
|
||||
fDeviceSelect in 'fDeviceSelect.pas' {frmDeviceSelect},
|
||||
fLabCollTimes in 'fLabCollTimes.pas' {frmLabCollectTimes},
|
||||
fPostings in 'fPostings.pas' {frmPostings},
|
||||
fProbLex in 'fProbLex.pas' {frmPLLex},
|
||||
fTIUView in 'fTIUView.pas' {frmTIUView},
|
||||
ORClasses in '..\CPRS-Lib\ORClasses.pas',
|
||||
ORCtrls in '..\CPRS-Lib\ORCtrls.pas',
|
||||
ORDtTm in '..\CPRS-Lib\ORDtTm.pas' {ORfrmDtTm},
|
||||
ORDtTmCal in '..\CPRS-Lib\ORDtTmCal.pas',
|
||||
ORDtTmRng in '..\CPRS-Lib\ORDtTmRng.pas' {ORfrmDateRange},
|
||||
ORFn in '..\CPRS-Lib\ORFn.pas',
|
||||
ORNet in '..\CPRS-Lib\ORNet.pas',
|
||||
Vawrgrid in '..\CPRS-Lib\Vawrgrid.pas',
|
||||
XMLUtils in '..\CPRS-Lib\XMLUtils.pas',
|
||||
fBase508Form in 'fBase508Form.pas' {frmBase508Form},
|
||||
VAUtils in '..\VA\VAUtils.pas',
|
||||
VA2006Utils in '..\VA\VA2006Utils.pas',
|
||||
VAClasses in '..\VA\VAClasses.pas',
|
||||
fPrintLocation in 'fPrintLocation.pas' {frmPrintLocation},
|
||||
uVA508CPRSCompatibility in 'uVA508CPRSCompatibility.pas',
|
||||
VA508AccessibilityManager in '..\VA\VA508Accessibility\VA508AccessibilityManager.pas',
|
||||
ORCtrlsVA508Compatibility in '..\CPRS-Lib\ORCtrlsVA508Compatibility.pas',
|
||||
VA508DelphiCompatibility in '..\VA\VA508Accessibility\VA508DelphiCompatibility.pas',
|
||||
uDlgComponents in 'uDlgComponents.pas',
|
||||
fGraphData in 'fGraphData.pas' {frmGraphData},
|
||||
fGraphOthers in 'fGraphOthers.pas' {frmGraphOthers},
|
||||
VA508AccessibilityRouter in '..\VA\VA508Accessibility\VA508AccessibilityRouter.pas',
|
||||
fIVRoutes in 'Orders\fIVRoutes.pas' {frmIVRoutes},
|
||||
fFindingTemplates in 'Templates\fFindingTemplates.pas' {frmFindingTemplates};
|
||||
|
||||
{$R *.TLB}
|
||||
|
||||
|
@ -307,6 +323,7 @@ uses
|
|||
begin
|
||||
if not UpdateSelf then // only start if not copying new version
|
||||
begin
|
||||
if not BorlandDLLVersionOK then exit; // Exit immediately if old or missing BORLNDMM.DLL
|
||||
RegisterCPRSTypeLibrary; // will halt program if /regserver or /unregserver param
|
||||
Application.Initialize;
|
||||
frmSplash := nil;
|
||||
|
|
|
@ -0,0 +1,877 @@
|
|||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<ProjectGuid>{b0a908d8-813b-4a01-b1de-d0c343e41f8b}</ProjectGuid>
|
||||
<MainSource>CPRSChart.dpr</MainSource>
|
||||
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
||||
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
|
||||
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
|
||||
<DCC_DependencyCheckOutputName>CPRSChart.exe</DCC_DependencyCheckOutputName>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
|
||||
<Version>7.0</Version>
|
||||
<DCC_DebugInformation>False</DCC_DebugInformation>
|
||||
<DCC_WriteableConstants>True</DCC_WriteableConstants>
|
||||
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
|
||||
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
|
||||
<DCC_MapFile>3</DCC_MapFile>
|
||||
<DCC_StackSize>32768,1048576</DCC_StackSize>
|
||||
<DCC_ExeOutput>C:\Vista\cprs\OR_3_243V27\CPRS-chart</DCC_ExeOutput>
|
||||
<DCC_DcuOutput>C:\Vista\cprs\OR_3_243V27\CPRS-chart\DCU</DCC_DcuOutput>
|
||||
<DCC_ObjOutput>C:\Vista\cprs\OR_3_243V27\CPRS-chart\DCU</DCC_ObjOutput>
|
||||
<DCC_HppOutput>C:\Vista\cprs\OR_3_243V27\CPRS-chart\DCU</DCC_HppOutput>
|
||||
<DCC_BplOutput>C:\Vista\cprs\OR_3_243V27\Packages</DCC_BplOutput>
|
||||
<DCC_DcpOutput>C:\Vista\cprs\OR_3_243V27\Packages</DCC_DcpOutput>
|
||||
<DCC_UnitSearchPath>C:\Vista\cprs\OR_3_243V27\CPRS-chart;C:\Vista\cprs\OR_3_243V27\CPRS-Lib;C:\Vista\cprs\OR_3_243V27\VA;C:\Vista\cprs\OR_3_243V27\VA\VA508Accessibility</DCC_UnitSearchPath>
|
||||
<DCC_ResourcePath>C:\Vista\cprs\OR_3_243V27\CPRS-chart;C:\Vista\cprs\OR_3_243V27\CPRS-Lib;C:\Vista\cprs\OR_3_243V27\VA;C:\Vista\cprs\OR_3_243V27\VA\VA508Accessibility</DCC_ResourcePath>
|
||||
<DCC_ObjPath>C:\Vista\cprs\OR_3_243V27\CPRS-chart;C:\Vista\cprs\OR_3_243V27\CPRS-Lib;C:\Vista\cprs\OR_3_243V27\VA;C:\Vista\cprs\OR_3_243V27\VA\VA508Accessibility</DCC_ObjPath>
|
||||
<DCC_IncludePath>C:\Vista\cprs\OR_3_243V27\CPRS-chart;C:\Vista\cprs\OR_3_243V27\CPRS-Lib;C:\Vista\cprs\OR_3_243V27\VA;C:\Vista\cprs\OR_3_243V27\VA\VA508Accessibility</DCC_IncludePath>
|
||||
<DCC_Define>RELEASE</DCC_Define>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
||||
<Version>7.0</Version>
|
||||
<DCC_WriteableConstants>True</DCC_WriteableConstants>
|
||||
<DCC_MapFile>3</DCC_MapFile>
|
||||
<DCC_StackSize>32768,1048576</DCC_StackSize>
|
||||
<DCC_ExeOutput>C:\Vista\cprs\OR_3_243V27\CPRS-chart</DCC_ExeOutput>
|
||||
<DCC_DcuOutput>C:\Vista\cprs\OR_3_243V27\CPRS-chart\DCU</DCC_DcuOutput>
|
||||
<DCC_ObjOutput>C:\Vista\cprs\OR_3_243V27\CPRS-chart\DCU</DCC_ObjOutput>
|
||||
<DCC_HppOutput>C:\Vista\cprs\OR_3_243V27\CPRS-chart\DCU</DCC_HppOutput>
|
||||
<DCC_BplOutput>C:\Vista\cprs\OR_3_243V27\Packages</DCC_BplOutput>
|
||||
<DCC_DcpOutput>C:\Vista\cprs\OR_3_243V27\Packages</DCC_DcpOutput>
|
||||
<DCC_UnitSearchPath>C:\Vista\cprs\OR_3_243V27\CPRS-chart;C:\Vista\cprs\OR_3_243V27\CPRS-Lib;C:\Vista\cprs\OR_3_243V27\VA;C:\Vista\cprs\OR_3_243V27\VA\VA508Accessibility</DCC_UnitSearchPath>
|
||||
<DCC_ResourcePath>C:\Vista\cprs\OR_3_243V27\CPRS-chart;C:\Vista\cprs\OR_3_243V27\CPRS-Lib;C:\Vista\cprs\OR_3_243V27\VA;C:\Vista\cprs\OR_3_243V27\VA\VA508Accessibility</DCC_ResourcePath>
|
||||
<DCC_ObjPath>C:\Vista\cprs\OR_3_243V27\CPRS-chart;C:\Vista\cprs\OR_3_243V27\CPRS-Lib;C:\Vista\cprs\OR_3_243V27\VA;C:\Vista\cprs\OR_3_243V27\VA\VA508Accessibility</DCC_ObjPath>
|
||||
<DCC_IncludePath>C:\Vista\cprs\OR_3_243V27\CPRS-chart;C:\Vista\cprs\OR_3_243V27\CPRS-Lib;C:\Vista\cprs\OR_3_243V27\VA;C:\Vista\cprs\OR_3_243V27\VA\VA508Accessibility</DCC_IncludePath>
|
||||
<DCC_Define>DEBUG</DCC_Define>
|
||||
</PropertyGroup>
|
||||
<ProjectExtensions>
|
||||
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
||||
<Borland.ProjectType>VCLApplication</Borland.ProjectType>
|
||||
<BorlandProject>
|
||||
<BorlandProject xmlns=""> <Delphi.Personality> <Parameters>
|
||||
<Parameters Name="UseLauncher">False</Parameters>
|
||||
<Parameters Name="LoadAllSymbols">True</Parameters>
|
||||
<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
|
||||
</Parameters>
|
||||
<VersionInfo>
|
||||
<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
|
||||
<VersionInfo Name="AutoIncBuild">False</VersionInfo>
|
||||
<VersionInfo Name="MajorVer">1</VersionInfo>
|
||||
<VersionInfo Name="MinorVer">0</VersionInfo>
|
||||
<VersionInfo Name="Release">27</VersionInfo>
|
||||
<VersionInfo Name="Build">77</VersionInfo>
|
||||
<VersionInfo Name="Debug">False</VersionInfo>
|
||||
<VersionInfo Name="PreRelease">False</VersionInfo>
|
||||
<VersionInfo Name="Special">False</VersionInfo>
|
||||
<VersionInfo Name="Private">False</VersionInfo>
|
||||
<VersionInfo Name="DLL">False</VersionInfo>
|
||||
<VersionInfo Name="Locale">1033</VersionInfo>
|
||||
<VersionInfo Name="CodePage">1252</VersionInfo>
|
||||
</VersionInfo>
|
||||
<VersionInfoKeys>
|
||||
<VersionInfoKeys Name="CompanyName">Department of Veterans Affairs</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="FileDescription">6/26/2007</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="FileVersion">1.0.27.77</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="InternalName">1.0.27.77 server required</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="LegalCopyright">Unauthorized access or misuse of this system and/or its data is a federal crime. Use of all data shall be in accordance with VA policy on security and privacy.</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="OriginalFilename">Patch 243</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="ProductName">Computerized Patient Record System</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="Comments">Version 1.0.27.77</VersionInfoKeys>
|
||||
</VersionInfoKeys>
|
||||
<Excluded_Packages>
|
||||
|
||||
|
||||
<Excluded_Packages Name="C:\Vista\cprs\ShiftChangeHandOff\ORCtrlLib60.bpl">CPRS Custom Controls</Excluded_Packages>
|
||||
</Excluded_Packages>
|
||||
<Source>
|
||||
<Source Name="MainSource">CPRSChart.dpr</Source>
|
||||
</Source>
|
||||
</Delphi.Personality> </BorlandProject></BorlandProject>
|
||||
</ProjectExtensions>
|
||||
<ItemGroup />
|
||||
<ItemGroup>
|
||||
<DelphiCompile Include="CPRSChart.dpr">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\CPRS-Lib\ORClasses.pas" />
|
||||
<DCCReference Include="..\CPRS-Lib\ORCtrls.pas" />
|
||||
<DCCReference Include="..\CPRS-Lib\ORCtrlsVA508Compatibility.pas" />
|
||||
<DCCReference Include="..\CPRS-Lib\ORDtTm.pas">
|
||||
<Form>ORfrmDtTm</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\CPRS-Lib\ORDtTmCal.pas" />
|
||||
<DCCReference Include="..\CPRS-Lib\ORDtTmRng.pas">
|
||||
<Form>ORfrmDateRange</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\CPRS-Lib\ORFn.pas" />
|
||||
<DCCReference Include="..\CPRS-Lib\ORNet.pas" />
|
||||
<DCCReference Include="..\CPRS-Lib\Vawrgrid.pas" />
|
||||
<DCCReference Include="..\CPRS-Lib\XMLUtils.pas" />
|
||||
<DCCReference Include="..\VA\VA2006Utils.pas" />
|
||||
<DCCReference Include="..\VA\VA508Accessibility\VA508AccessibilityManager.pas" />
|
||||
<DCCReference Include="..\VA\VA508Accessibility\VA508AccessibilityRouter.pas" />
|
||||
<DCCReference Include="..\VA\VA508Accessibility\VA508DelphiCompatibility.pas" />
|
||||
<DCCReference Include="..\VA\VAClasses.pas" />
|
||||
<DCCReference Include="..\VA\VAUtils.pas" />
|
||||
<DCCReference Include="BA\fBALocalDiagnoses.pas">
|
||||
<Form>frmBALocalDiagnoses</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="BA\fBAOptionsDiagnoses.pas">
|
||||
<Form>frmBAOptionsDiagnoses</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="BA\UBAConst.pas" />
|
||||
<DCCReference Include="BA\UBACore.pas" />
|
||||
<DCCReference Include="BA\UBAGlobals.pas" />
|
||||
<DCCReference Include="BA\UBAMessages.pas" />
|
||||
<DCCReference Include="Consults\fConsMedRslt.pas">
|
||||
<Form>frmConsMedRslt</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Consults\fConsult513Prt.pas">
|
||||
<Form>frm513Print</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Consults\fConsultAct.pas">
|
||||
<Form>frmConsultAction</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Consults\fConsultAlertTo.pas">
|
||||
<Form>frmConsultAlertsTo</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Consults\fConsultBD.pas">
|
||||
<Form>frmConsultsByDate</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Consults\fConsultBS.pas">
|
||||
<Form>frmConsultsByService</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Consults\fConsultBSt.pas">
|
||||
<Form>frmConsultsByStatus</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Consults\fConsults.pas">
|
||||
<Form>frmConsults</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Consults\fConsultsView.pas">
|
||||
<Form>frmConsultsView</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Consults\fCsltNote.pas">
|
||||
<Form>frmCsltNote</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Consults\fEditConsult.pas">
|
||||
<Form>frmEditCslt</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Consults\fEditProc.pas">
|
||||
<Form>frmEditProc</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Consults\fODConsult.pas">
|
||||
<Form>frmODCslt</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Consults\fODProc.pas">
|
||||
<Form>frmODProc</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Consults\fPreReq.pas">
|
||||
<Form>frmPrerequisites</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Consults\rConsults.pas" />
|
||||
<DCCReference Include="Consults\uConsults.pas" />
|
||||
<DCCReference Include="CPRSChart_TLB.pas" />
|
||||
<DCCReference Include="dShared.pas">
|
||||
<Form>dmodShared</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Encounter\fDiagnoses.pas">
|
||||
<Form>frmDiagnoses</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Encounter\fEncounterFrame.pas">
|
||||
<Form>frmEncounterFrame</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Encounter\fEncVitals.pas">
|
||||
<Form>frmEncVitals</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Encounter\fExam.pas">
|
||||
<Form>frmExams</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Encounter\fGAF.pas">
|
||||
<Form>frmGAF</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Encounter\fHealthFactor.pas">
|
||||
<Form>frmHealthFactors</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Encounter\fHFSearch.pas">
|
||||
<Form>frmHFSearch</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Encounter\fImmunization.pas">
|
||||
<Form>frmImmunizations</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Encounter\fPatientEd.pas">
|
||||
<Form>frmPatientEd</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Encounter\fPCEBase.pas">
|
||||
<Form>frmPCEBase</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Encounter\fPCEBaseGrid.pas">
|
||||
<Form>frmPCEBaseGrid</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Encounter\fPCEBaseMain.pas">
|
||||
<Form>frmPCEBaseMain</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Encounter\fPCEEdit.pas">
|
||||
<Form>frmPCEEdit</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Encounter\fPCELex.pas">
|
||||
<Form>frmPCELex</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Encounter\fPCEOther.pas">
|
||||
<Form>frmPCEOther</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Encounter\fPCEProvider.pas">
|
||||
<Form>frmPCEProvider</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Encounter\fProcedure.pas">
|
||||
<Form>frmProcedures</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Encounter\fSkinTest.pas">
|
||||
<Form>frmSkinTests</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Encounter\fVisitType.pas">
|
||||
<Form>frmVisitType</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Encounter\mVisitRelated.pas">
|
||||
<Form>fraVisitRelated</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Encounter\rPCE.pas" />
|
||||
<DCCReference Include="Encounter\uPCE.pas" />
|
||||
<DCCReference Include="fAbout.pas">
|
||||
<Form>frmAbout</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="fActivateDeactivate.pas">
|
||||
<Form>frmActivateDeactive</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="fAddlSigners.pas">
|
||||
<Form>frmAddlSigners</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="fAlertForward.pas">
|
||||
<Form>frmAlertForward</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="fAllgyBox.pas">
|
||||
<Form>frmAllgyBox</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="fAllgyFind.pas">
|
||||
<Form>frmAllgyFind</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="fAResize.pas">
|
||||
<Form>frmAutoResize</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="fARTAllgy.pas">
|
||||
<Form>frmARTAllergy</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="fARTFreeTextMsg.pas">
|
||||
<Form>frmARTFreeTextMsg</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="fAutoSz.pas">
|
||||
<Form>frmAutoSz</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="fBase508Form.pas">
|
||||
<Form>frmBase508Form</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="fClinicWardMeds.pas">
|
||||
<Form>frmClinicWardMeds</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="fCover.pas">
|
||||
<Form>frmCover</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="fDateRange.pas">
|
||||
<Form>frmDateRange</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="fDCSumm.pas">
|
||||
<Form>frmDCSumm</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="fDCSummProps.pas">
|
||||
<Form>frmDCSummProperties</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="fDefaultEvent.pas">
|
||||
<Form>frmDefaultEvent</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="fDeviceSelect.pas">
|
||||
<Form>frmDeviceSelect</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="fDrawers.pas">
|
||||
<Form>frmDrawers</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="fDupPts.pas">
|
||||
<Form>frmDupPts</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="fEffectDate.pas">
|
||||
<Form>frmEffectDate</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="fEncnt.pas">
|
||||
<Form>frmEncounter</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="fFrame.pas">
|
||||
<Form>frmFrame</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="fGraphData.pas">
|
||||
<Form>frmGraphData</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="fGraphOthers.pas">
|
||||
<Form>frmGraphOthers</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="fGraphProfiles.pas">
|
||||
<Form>frmGraphProfiles</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="fGraphs.pas">
|
||||
<Form>frmGraphs</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="fGraphSettings.pas">
|
||||
<Form>frmGraphSettings</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="fHP.pas">
|
||||
<Form>frmHP</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="fHSplit.pas">
|
||||
<Form>frmHSplit</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="fIconLegend.pas">
|
||||
<Form>frmIconLegend</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="fLabCollTimes.pas">
|
||||
<Form>frmLabCollectTimes</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="fLabInfo.pas">
|
||||
<Form>frmLabInfo</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="fLabPrint.pas">
|
||||
<Form>frmLabPrint</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="fLabs.pas">
|
||||
<Form>frmLabs</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="fLabTest.pas">
|
||||
<Form>frmLabTest</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="fLabTestGroups.pas">
|
||||
<Form>frmLabTestGroups</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="fLabTests.pas">
|
||||
<Form>frmLabTests</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="fLkUpLocation.pas">
|
||||
<Form>frmLkUpLocation</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="fMedCopy.pas">
|
||||
<Form>frmMedCopy</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="fMeds.pas">
|
||||
<Form>frmMeds</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="fMHTest.pas">
|
||||
<Form>frmMHTest</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="fNoteBA.pas">
|
||||
<Form>frmNotesByAuthor</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="fNoteBD.pas">
|
||||
<Form>frmNotesByDate</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="fNoteCPFields.pas">
|
||||
<Form>frmNoteCPFields</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="fNoteCslt.pas">
|
||||
<Form>frmNoteConsult</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="fNoteDR.pas">
|
||||
<Form>frmNoteDelReason</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="fNoteIDParents.pas">
|
||||
<Form>frmNoteIDParents</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="fNoteProps.pas">
|
||||
<Form>frmNoteProperties</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="fNotePrt.pas">
|
||||
<Form>frmNotePrint</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="fNotes.pas">
|
||||
<Form>frmNotes</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="fNotesBP.pas">
|
||||
<Form>frmNotesBP</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="fNoteST.pas">
|
||||
<Form>frmNotesSearchText</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="fNoteSTStop.pas">
|
||||
<Form>frmSearchStop</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="fPage.pas">
|
||||
<Form>frmPage</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="fPatientFlagMulti.pas">
|
||||
<Form>frmFlags</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="fPostings.pas">
|
||||
<Form>frmPostings</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="fPrintList.pas">
|
||||
<Form>frmPrintList</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="fPrintLocation.pas">
|
||||
<Form>frmPrintLocation</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="fProbCmt.pas">
|
||||
<Form>frmProbCmt</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="fProbEdt.pas">
|
||||
<Form>frmdlgProb</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="fProbFlt.pas">
|
||||
<Form>frmPlVuFilt</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="fProbLex.pas">
|
||||
<Form>frmPLLex</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="fProbs.pas">
|
||||
<Form>frmProblems</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="fPtCWAD.pas">
|
||||
<Form>frmPtCWAD</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="fPtDemo.pas">
|
||||
<Form>frmPtDemo</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="fPtSel.pas">
|
||||
<Form>frmPtSel</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="fPtSelDemog.pas">
|
||||
<Form>frmPtSelDemog</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="fPtSelMsg.pas">
|
||||
<Form>frmPtSelMsg</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="fPtSelOptns.pas">
|
||||
<Form>frmPtSelOptns</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="fPtSelOptSave.pas">
|
||||
<Form>frmPtSelOptSave</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="fPtSens.pas">
|
||||
<Form>frmPtSens</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="fRemCoverPreview.pas">
|
||||
<Form>frmRemCoverPreview</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="fRemCoverSheet.pas">
|
||||
<Form>frmRemCoverSheet</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="fReminderDialog.pas">
|
||||
<Form>frmRemDlg</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="fReminderTree.pas">
|
||||
<Form>frmReminderTree</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="fRemVisitInfo.pas">
|
||||
<Form>frmRemVisitInfo</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="fRename.pas">
|
||||
<Form>frmRename</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="fRenewOutMed.pas">
|
||||
<Form>frmRenewOutMed</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="fReports.pas">
|
||||
<Form>frmReports</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="fReportsAdhocComponent1.pas">
|
||||
<Form>frmReportsAdhocComponent1</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="fReportsAdhocSubItem1.pas">
|
||||
<Form>frmReportsAdhocSubItem1</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="fReportsPrint.pas">
|
||||
<Form>frmReportPrt</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="fReview.pas">
|
||||
<Form>frmReview</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="fRptBox.pas">
|
||||
<Form>frmReportBox</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="fSignItem.pas">
|
||||
<Form>frmSignItem</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="fSplash.pas">
|
||||
<Form>frmSplash</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="fSurgery.pas">
|
||||
<Form>frmSurgery</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="fSurgeryView.pas">
|
||||
<Form>frmSurgeryView</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="fTimeout.pas">
|
||||
<Form>frmTimeout</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="fTIUView.pas">
|
||||
<Form>frmTIUView</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="fVisit.pas">
|
||||
<Form>frmVisit</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="fvit.pas">
|
||||
<Form>frmVit</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="fVitals.pas">
|
||||
<Form>frmVitals</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="fxBroker.pas">
|
||||
<Form>frmBroker</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="fxLists.pas">
|
||||
<Form>frmDbgList</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="fxServer.pas">
|
||||
<Form>frmDbgServer</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="mCoPayDesc.pas">
|
||||
<Form>fraCoPayDesc</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="mEvntDelay.pas">
|
||||
<Form>fraEvntDelayList</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="mImgText.pas">
|
||||
<Form>fraImgText</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Options\fOptions.pas">
|
||||
<Form>frmOptions</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Options\fOptionsCombinations.pas">
|
||||
<Form>frmOptionsCombinations</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Options\fOptionsDays.pas">
|
||||
<Form>frmOptionsDays</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Options\fOptionsLists.pas">
|
||||
<Form>frmOptionsLists</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Options\fOptionsNewList.pas">
|
||||
<Form>frmOptionsNewList</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Options\fOptionsNotes.pas">
|
||||
<Form>frmOptionsNotes</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Options\fOptionsOther.pas">
|
||||
<Form>frmOptionsOther</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Options\fOptionsPatientSelection.pas">
|
||||
<Form>frmOptionsPatientSelection</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Options\fOptionsPrimaryList.pas">
|
||||
<Form>frmOptionsPrimaryList</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Options\fOptionsReminders.pas">
|
||||
<Form>frmOptionsReminders</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Options\fOptionsReportsCustom.pas">
|
||||
<Form>frmOptionsReportsCustom</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Options\fOptionsReportsDefault.pas">
|
||||
<Form>frmOptionsReportsDefault</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Options\fOptionsSubscribe.pas">
|
||||
<Form>frmOptionsSubscribe</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Options\fOptionsSurrogate.pas">
|
||||
<Form>frmOptionsSurrogate</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Options\fOptionsTeams.pas">
|
||||
<Form>frmOptionsTeams</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Options\fOptionsTitles.pas">
|
||||
<Form>frmOptionsTitles</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Options\rOptions.pas" />
|
||||
<DCCReference Include="Options\uOptions.pas" />
|
||||
<DCCReference Include="Orders\fIVRoutes.pas">
|
||||
<Form>frmIVRoutes</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Orders\fOCAccept.pas">
|
||||
<Form>frmOCAccept</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Orders\fOCSession.pas">
|
||||
<Form>frmOCSession</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Orders\fODActive.pas">
|
||||
<Form>frmODActive</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Orders\fODAllgy.pas">
|
||||
<Form>frmODAllergy</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Orders\fODAuto.pas" />
|
||||
<DCCReference Include="Orders\fODBase.pas">
|
||||
<Form>frmODBase</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Orders\fODBBank.pas">
|
||||
<Form>frmODBBank</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Orders\fODChangeEvtDisp.pas">
|
||||
<Form>frmChangeEventDisp</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Orders\fODChangeUnreleasedRenew.pas">
|
||||
<Form>frmODChangeUnreleasedRenew</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Orders\fODChild.pas">
|
||||
<Form>frmODChild</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Orders\fODDiet.pas">
|
||||
<Form>frmODDiet</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Orders\fODDietLT.pas">
|
||||
<Form>frmODDietLT</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Orders\fODGen.pas">
|
||||
<Form>frmODGen</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Orders\fODLab.pas">
|
||||
<Form>frmODLab</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Orders\fODLabImmedColl.pas">
|
||||
<Form>frmODLabImmedColl</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Orders\fODLabOthCollSamp.pas">
|
||||
<Form>frmODLabOthCollSamp</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Orders\fODLabOthSpec.pas">
|
||||
<Form>frmODLabOthSpec</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Orders\fODMedComplex.pas">
|
||||
<Form>frmODMedComplex</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Orders\fODMedFA.pas">
|
||||
<Form>frmODMedFA</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Orders\fODMedIn.pas">
|
||||
<Form>frmODMedIn</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Orders\fODMedIV.pas">
|
||||
<Form>frmODMedIV</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Orders\fODMedNVA.pas">
|
||||
<Form>frmODMedNVA</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Orders\fODMedOIFA.pas">
|
||||
<Form>frmODMedOIFA</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Orders\fODMedOut.pas">
|
||||
<Form>frmODMedOut</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Orders\fODMeds.pas">
|
||||
<Form>frmODMeds</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Orders\fODMessage.pas">
|
||||
<Form>frmODMessage</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Orders\fODMisc.pas">
|
||||
<Form>frmODMisc</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Orders\fODRad.pas">
|
||||
<Form>frmODRad</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Orders\fODRadApproval.pas">
|
||||
<Form>frmODRadApproval</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Orders\fODRadConShRes.pas">
|
||||
<Form>frmODRadConShRes</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Orders\fODRadImType.pas">
|
||||
<Form>frmODRadImType</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Orders\fODReleaseEvent.pas">
|
||||
<Form>frmOrdersReleaseEvent</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Orders\fODSaveQuick.pas">
|
||||
<Form>frmODQuick</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Orders\fODText.pas">
|
||||
<Form>frmODText</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Orders\fODValidateAction.pas">
|
||||
<Form>frmInvalidActionList</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Orders\fODVitals.pas">
|
||||
<Form>frmODVitals</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Orders\fOMAction.pas">
|
||||
<Form>frmOMAction</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Orders\fOMHTML.pas">
|
||||
<Form>frmOMHTML</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Orders\fOMNavA.pas">
|
||||
<Form>frmOMNavA</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Orders\fOMProgress.pas">
|
||||
<Form>frmOMProgress</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Orders\fOMSet.pas">
|
||||
<Form>frmOMSet</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Orders\fOMVerify.pas">
|
||||
<Form>frmOMVerify</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Orders\fOrderComment.pas">
|
||||
<Form>frmWardComments</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Orders\fOrderFlag.pas">
|
||||
<Form>frmFlagOrder</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Orders\fOrders.pas">
|
||||
<Form>frmOrders</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Orders\fOrdersAlert.pas">
|
||||
<Form>frmAlertOrders</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Orders\fOrderSaveQuick.pas">
|
||||
<Form>frmSaveQuickOrder</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Orders\fOrdersComplete.pas">
|
||||
<Form>frmCompleteOrders</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Orders\fOrdersCopy.pas">
|
||||
<Form>frmCopyOrders</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Orders\fOrdersCV.pas">
|
||||
<Form>frmChgEvent</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Orders\fOrdersDC.pas">
|
||||
<Form>frmDCOrders</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Orders\fOrdersEvntRelease.pas">
|
||||
<Form>frmOrdersEvntRelease</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Orders\fOrdersHold.pas">
|
||||
<Form>frmHoldOrders</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Orders\fOrdersOnChart.pas">
|
||||
<Form>frmOnChartOrders</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Orders\fOrdersPrint.pas">
|
||||
<Form>frmOrdersPrint</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Orders\fOrdersRefill.pas">
|
||||
<Form>frmRefillOrders</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Orders\fOrdersRelease.pas">
|
||||
<Form>frmReleaseOrders</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Orders\fOrdersRenew.pas">
|
||||
<Form>frmRenewOrders</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Orders\fOrdersSign.pas">
|
||||
<Form>frmSignOrders</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Orders\fOrdersTS.pas">
|
||||
<Form>frmOrdersTS</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Orders\fOrdersUnhold.pas">
|
||||
<Form>frmUnholdOrders</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Orders\fOrdersVerify.pas">
|
||||
<Form>frmVerifyOrders</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Orders\fOrderUnflag.pas">
|
||||
<Form>frmUnflagOrder</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Orders\fOrderVw.pas">
|
||||
<Form>frmOrderView</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Orders\fOtherSchedule.pas">
|
||||
<Form>frmOtherSchedule</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Orders\rODAllergy.pas" />
|
||||
<DCCReference Include="Orders\rODBase.pas" />
|
||||
<DCCReference Include="Orders\rODDiet.pas" />
|
||||
<DCCReference Include="Orders\rODLab.pas" />
|
||||
<DCCReference Include="Orders\rODMeds.pas" />
|
||||
<DCCReference Include="Orders\rODRad.pas" />
|
||||
<DCCReference Include="Orders\rOrders.pas" />
|
||||
<DCCReference Include="Orders\uODBase.pas" />
|
||||
<DCCReference Include="Orders\uOrders.pas" />
|
||||
<DCCReference Include="rCore.pas" />
|
||||
<DCCReference Include="rCover.pas" />
|
||||
<DCCReference Include="rDCSumm.pas" />
|
||||
<DCCReference Include="rECS.pas" />
|
||||
<DCCReference Include="rEventHooks.pas" />
|
||||
<DCCReference Include="rGraphs.pas" />
|
||||
<DCCReference Include="rLabs.pas" />
|
||||
<DCCReference Include="rMeds.pas" />
|
||||
<DCCReference Include="rMisc.pas" />
|
||||
<DCCReference Include="rProbs.pas" />
|
||||
<DCCReference Include="rReminders.pas" />
|
||||
<DCCReference Include="rReports.pas" />
|
||||
<DCCReference Include="rSurgery.pas" />
|
||||
<DCCReference Include="rTIU.pas" />
|
||||
<DCCReference Include="Templates\fFindingTemplates.pas">
|
||||
<Form>frmFindingTemplates</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Templates\fTemplateAutoGen.pas">
|
||||
<Form>frmTemplateAutoGen</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Templates\fTemplateDialog.pas">
|
||||
<Form>frmTemplateDialog</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Templates\fTemplateEditor.pas">
|
||||
<Form>frmTemplateEditor</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Templates\fTemplateFieldEditor.pas">
|
||||
<Form>frmTemplateFieldEditor</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Templates\fTemplateFields.pas">
|
||||
<Form>frmTemplateFields</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Templates\fTemplateImport.pas">
|
||||
<Form>frmTemplateImport</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Templates\fTemplateObjects.pas">
|
||||
<Form>frmTemplateObjects</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Templates\fTemplateView.pas">
|
||||
<Form>frmTemplateView</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Templates\mTemplateFieldButton.pas">
|
||||
<Form>fraTemplateFieldButton</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Templates\rTemplates.pas" />
|
||||
<DCCReference Include="Templates\uTemplateFields.pas" />
|
||||
<DCCReference Include="Templates\uTemplates.pas" />
|
||||
<DCCReference Include="uCaseTree.pas" />
|
||||
<DCCReference Include="uConst.pas" />
|
||||
<DCCReference Include="uCore.pas" />
|
||||
<DCCReference Include="uDCSumm.pas" />
|
||||
<DCCReference Include="uDlgComponents.pas" />
|
||||
<DCCReference Include="uDocTree.pas" />
|
||||
<DCCReference Include="uEventHooks.pas" />
|
||||
<DCCReference Include="uFormMonitor.pas" />
|
||||
<DCCReference Include="uGraphs.pas" />
|
||||
<DCCReference Include="uInit.pas" />
|
||||
<DCCReference Include="uOrPtf.pas" />
|
||||
<DCCReference Include="uProbs.pas" />
|
||||
<DCCReference Include="uReminders.pas" />
|
||||
<DCCReference Include="uReports.pas" />
|
||||
<DCCReference Include="uSignItems.pas" />
|
||||
<DCCReference Include="uSpell.pas" />
|
||||
<DCCReference Include="uSurgery.pas" />
|
||||
<DCCReference Include="uTIU.pas" />
|
||||
<DCCReference Include="uVA508CPRSCompatibility.pas" />
|
||||
<DCCReference Include="VERGENCECONTEXTORLib_TLB.pas" />
|
||||
<DCCReference Include="Vitals\fVitalsDate.pas">
|
||||
<Form>frmVitalsDate</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Vitals\rVitals.pas" />
|
||||
<DCCReference Include="Vitals\uVitals.pas" />
|
||||
<DCCReference Include="XuDigSigSC_TLB.pas" />
|
||||
</ItemGroup>
|
||||
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
|
||||
</Project>
|
|
@ -0,0 +1,2 @@
|
|||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<BorlandProject/>
|
|
@ -1,4 +1,4 @@
|
|||
/* VER150
|
||||
/* VER180
|
||||
Generated by the Borland Delphi Pascal Compiler
|
||||
because -GD or --drc was supplied to the compiler.
|
||||
|
||||
|
@ -8,343 +8,251 @@
|
|||
resources were bound to the produced executable.
|
||||
*/
|
||||
|
||||
#define IdResourceStrings_RSStackHOST_NOT_FOUND 65040
|
||||
#define IdResourceStrings_RSStackENETUNREACH 65056
|
||||
#define IdResourceStrings_RSStackENETRESET 65057
|
||||
#define IdResourceStrings_RSStackECONNABORTED 65058
|
||||
#define IdResourceStrings_RSStackECONNRESET 65059
|
||||
#define IdResourceStrings_RSStackENOBUFS 65060
|
||||
#define IdResourceStrings_RSStackEISCONN 65061
|
||||
#define IdResourceStrings_RSStackENOTCONN 65062
|
||||
#define IdResourceStrings_RSStackESHUTDOWN 65063
|
||||
#define IdResourceStrings_RSStackETOOMANYREFS 65064
|
||||
#define IdResourceStrings_RSStackETIMEDOUT 65065
|
||||
#define IdResourceStrings_RSStackECONNREFUSED 65066
|
||||
#define IdResourceStrings_RSStackELOOP 65067
|
||||
#define IdResourceStrings_RSStackENAMETOOLONG 65068
|
||||
#define IdResourceStrings_RSStackEHOSTDOWN 65069
|
||||
#define IdResourceStrings_RSStackEHOSTUNREACH 65070
|
||||
#define IdResourceStrings_RSStackENOTEMPTY 65071
|
||||
#define IdResourceStrings_RSStackEWOULDBLOCK 65072
|
||||
#define IdResourceStrings_RSStackEINPROGRESS 65073
|
||||
#define IdResourceStrings_RSStackEALREADY 65074
|
||||
#define IdResourceStrings_RSStackENOTSOCK 65075
|
||||
#define IdResourceStrings_RSStackEDESTADDRREQ 65076
|
||||
#define IdResourceStrings_RSStackEMSGSIZE 65077
|
||||
#define IdResourceStrings_RSStackEPROTOTYPE 65078
|
||||
#define IdResourceStrings_RSStackENOPROTOOPT 65079
|
||||
#define IdResourceStrings_RSStackEPROTONOSUPPORT 65080
|
||||
#define IdResourceStrings_RSStackESOCKTNOSUPPORT 65081
|
||||
#define IdResourceStrings_RSStackEOPNOTSUPP 65082
|
||||
#define IdResourceStrings_RSStackEPFNOSUPPORT 65083
|
||||
#define IdResourceStrings_RSStackEAFNOSUPPORT 65084
|
||||
#define IdResourceStrings_RSStackEADDRINUSE 65085
|
||||
#define IdResourceStrings_RSStackEADDRNOTAVAIL 65086
|
||||
#define IdResourceStrings_RSStackENETDOWN 65087
|
||||
#define VDBConsts_SPostEdit 65088
|
||||
#define VDBConsts_SCancelEdit 65089
|
||||
#define VDBConsts_SRefreshRecord 65090
|
||||
#define VDBConsts_SRemoteLogin 65091
|
||||
#define IdResourceStrings_RSWinsockInitializationError 65092
|
||||
#define IdResourceStrings_RSSetSizeExceeded 65093
|
||||
#define IdResourceStrings_RSWS2CallError 65094
|
||||
#define IdResourceStrings_RSWS2LoadError 65095
|
||||
#define IdResourceStrings_RSInvalidServiceName 65096
|
||||
#define IdResourceStrings_RSStackError 65097
|
||||
#define IdResourceStrings_RSStackEINTR 65098
|
||||
#define IdResourceStrings_RSStackEBADF 65099
|
||||
#define IdResourceStrings_RSStackEACCES 65100
|
||||
#define IdResourceStrings_RSStackEFAULT 65101
|
||||
#define IdResourceStrings_RSStackEINVAL 65102
|
||||
#define IdResourceStrings_RSStackEMFILE 65103
|
||||
#define OleConst_SCannotActivate 65104
|
||||
#define OleConst_SNoWindowHandle 65105
|
||||
#define OleConst_SInvalidLicense 65106
|
||||
#define OleConst_SNotLicensed 65107
|
||||
#define OleConst_sNoRunningObject 65108
|
||||
#define DBConsts_SBcdOverflow 65109
|
||||
#define DBConsts_SInvalidBcdValue 65110
|
||||
#define DBConsts_SCouldNotParseTimeStamp 65111
|
||||
#define DBConsts_SInvalidSqlTimeStamp 65112
|
||||
#define VDBConsts_SFirstRecord 65113
|
||||
#define VDBConsts_SPriorRecord 65114
|
||||
#define VDBConsts_SNextRecord 65115
|
||||
#define VDBConsts_SLastRecord 65116
|
||||
#define VDBConsts_SInsertRecord 65117
|
||||
#define VDBConsts_SDeleteRecord 65118
|
||||
#define VDBConsts_SEditRecord 65119
|
||||
#define TeeConst_TeeMsg_ValuesArrowEndX 65120
|
||||
#define TeeConst_TeeMsg_ValuesArrowEndY 65121
|
||||
#define ComConst_SCreateRegKeyError 65122
|
||||
#define ComConst_SOleError 65123
|
||||
#define ComConst_SObjectFactoryMissing 65124
|
||||
#define ComConst_STypeInfoMissing 65125
|
||||
#define ComConst_SBadTypeInfo 65126
|
||||
#define ComConst_SDispIntfMissing 65127
|
||||
#define ComConst_SNoMethod 65128
|
||||
#define ComConst_SVarNotObject 65129
|
||||
#define ComConst_STooManyParams 65130
|
||||
#define ComConst_SDCOMNotInstalled 65131
|
||||
#define ComConst_SDAXError 65132
|
||||
#define ComConst_SAutomationWarning 65133
|
||||
#define ComConst_SNoCloseActiveServer1 65134
|
||||
#define ComConst_SNoCloseActiveServer2 65135
|
||||
#define TeeConst_TeeMsg_FunctionDivide 65136
|
||||
#define TeeConst_TeeMsg_FunctionHigh 65137
|
||||
#define TeeConst_TeeMsg_FunctionLow 65138
|
||||
#define TeeConst_TeeMsg_FunctionAverage 65139
|
||||
#define TeeConst_TeeMsg_DefaultFontName 65140
|
||||
#define TeeConst_TeeMsg_CheckPointerSize 65141
|
||||
#define TeeConst_TeeMsg_FunctionPeriod 65142
|
||||
#define TeeConst_TeeMsg_PieOther 65143
|
||||
#define TeeConst_TeeMsg_ValuesX 65144
|
||||
#define TeeConst_TeeMsg_ValuesY 65145
|
||||
#define TeeConst_TeeMsg_ValuesPie 65146
|
||||
#define TeeConst_TeeMsg_ValuesBar 65147
|
||||
#define TeeConst_TeeMsg_ValuesAngle 65148
|
||||
#define TeeConst_TeeMsg_ValuesGanttStart 65149
|
||||
#define TeeConst_TeeMsg_ValuesGanttEnd 65150
|
||||
#define TeeConst_TeeMsg_ValuesGanttNextTask 65151
|
||||
#define TeeConst_TeeMsg_GalleryArrow 65152
|
||||
#define TeeConst_TeeMsg_GalleryGantt 65153
|
||||
#define TeeConst_TeeMsg_GanttSample1 65154
|
||||
#define TeeConst_TeeMsg_GanttSample2 65155
|
||||
#define TeeConst_TeeMsg_GanttSample3 65156
|
||||
#define TeeConst_TeeMsg_GanttSample4 65157
|
||||
#define TeeConst_TeeMsg_GanttSample5 65158
|
||||
#define TeeConst_TeeMsg_GanttSample6 65159
|
||||
#define TeeConst_TeeMsg_GanttSample7 65160
|
||||
#define TeeConst_TeeMsg_GanttSample8 65161
|
||||
#define TeeConst_TeeMsg_GanttSample9 65162
|
||||
#define TeeConst_TeeMsg_GanttSample10 65163
|
||||
#define TeeConst_TeeMsg_DefaultFontSize 65164
|
||||
#define TeeConst_TeeMsg_FunctionAdd 65165
|
||||
#define TeeConst_TeeMsg_FunctionSubtract 65166
|
||||
#define TeeConst_TeeMsg_FunctionMultiply 65167
|
||||
#define TeeConst_TeeMsg_GalleryArea 65168
|
||||
#define TeeConst_TeeMsg_GalleryBar 65169
|
||||
#define TeeConst_TeeMsg_GalleryHorizBar 65170
|
||||
#define TeeConst_TeeMsg_GalleryPie 65171
|
||||
#define TeeConst_TeeMsg_GalleryFastLine 65172
|
||||
#define TeeConst_TeeMsg_Rotation 65173
|
||||
#define TeeConst_TeeMsg_PieSample1 65174
|
||||
#define TeeConst_TeeMsg_PieSample2 65175
|
||||
#define TeeConst_TeeMsg_PieSample3 65176
|
||||
#define TeeConst_TeeMsg_PieSample4 65177
|
||||
#define TeeConst_TeeMsg_PieSample5 65178
|
||||
#define TeeConst_TeeMsg_PieSample6 65179
|
||||
#define TeeConst_TeeMsg_PieSample7 65180
|
||||
#define TeeConst_TeeMsg_PieSample8 65181
|
||||
#define TeeConst_TeeMsg_GalleryStandard 65182
|
||||
#define TeeConst_TeeMsg_GalleryFunctions 65183
|
||||
#define TeeConst_TeeMsg_AxisIncrementNeg 65184
|
||||
#define TeeConst_TeeMsg_AxisMinMax 65185
|
||||
#define TeeConst_TeeMsg_AxisMaxMin 65186
|
||||
#define TeeConst_TeeMsg_AxisLogBase 65187
|
||||
#define TeeConst_TeeMsg_MaxPointsPerPage 65188
|
||||
#define TeeConst_TeeMsg_3dPercent 65189
|
||||
#define TeeConst_TeeMsg_CircularSeries 65190
|
||||
#define TeeConst_TeeMsg_BarWidthPercent 65191
|
||||
#define TeeConst_TeeMsg_BarOffsetPercent 65192
|
||||
#define TeeConst_TeeMsg_DefaultPercentOf 65193
|
||||
#define TeeConst_TeeMsg_DefPercentFormat 65194
|
||||
#define TeeConst_TeeMsg_DefValueFormat 65195
|
||||
#define TeeConst_TeeMsg_AxisTitle 65196
|
||||
#define TeeConst_TeeMsg_AxisLabels 65197
|
||||
#define TeeConst_TeeMsg_GalleryLine 65198
|
||||
#define TeeConst_TeeMsg_GalleryPoint 65199
|
||||
#define ComStrs_sDateTimeMin 65200
|
||||
#define ComStrs_sFailSetCalDateTime 65201
|
||||
#define ComStrs_sFailSetCalMaxSelRange 65202
|
||||
#define ComStrs_sFailSetCalMinMaxRange 65203
|
||||
#define ComStrs_sFailsetCalSelRange 65204
|
||||
#define WinHelpViewer_hNoKeyword 65205
|
||||
#define TeeConst_TeeMsg_LegendTopPos 65206
|
||||
#define TeeConst_TeeMsg_LegendFirstValue 65207
|
||||
#define TeeConst_TeeMsg_LegendColorWidth 65208
|
||||
#define TeeConst_TeeMsg_SeriesSetDataSource 65209
|
||||
#define TeeConst_TeeMsg_SeriesInvDataSource 65210
|
||||
#define TeeConst_TeeMsg_FillSample 65211
|
||||
#define TeeConst_TeeMsg_Angle 65212
|
||||
#define TeeConst_TeeMsg_AxisLogDateTime 65213
|
||||
#define TeeConst_TeeMsg_AxisLogNotPositive 65214
|
||||
#define TeeConst_TeeMsg_AxisLabelSep 65215
|
||||
#define ComStrs_sTabFailDelete 65216
|
||||
#define ComStrs_sTabFailRetrieve 65217
|
||||
#define ComStrs_sTabFailGetObject 65218
|
||||
#define ComStrs_sTabFailSet 65219
|
||||
#define ComStrs_sTabFailSetObject 65220
|
||||
#define ComStrs_sTabMustBeMultiLine 65221
|
||||
#define ComStrs_sInvalidIndex 65222
|
||||
#define ComStrs_sInsertError 65223
|
||||
#define ComStrs_sInvalidOwner 65224
|
||||
#define ComStrs_sRichEditInsertError 65225
|
||||
#define ComStrs_sRichEditLoadFail 65226
|
||||
#define ComStrs_sRichEditSaveFail 65227
|
||||
#define ComStrs_sUDAssociated 65228
|
||||
#define ComStrs_sPageIndexError 65229
|
||||
#define ComStrs_sInvalidComCtl32 65230
|
||||
#define ComStrs_sDateTimeMax 65231
|
||||
#define ExtCtrls_clNameHighlightText 65232
|
||||
#define ExtCtrls_clNameInactiveBorder 65233
|
||||
#define ExtCtrls_clNameInactiveCaption 65234
|
||||
#define ExtCtrls_clNameInactiveCaptionText 65235
|
||||
#define ExtCtrls_clNameInfoBk 65236
|
||||
#define ExtCtrls_clNameInfoText 65237
|
||||
#define ExtCtrls_clNameMenu 65238
|
||||
#define ExtCtrls_clNameMenuText 65239
|
||||
#define ExtCtrls_clNameNone 65240
|
||||
#define ExtCtrls_clNameScrollBar 65241
|
||||
#define ExtCtrls_clName3DDkShadow 65242
|
||||
#define ExtCtrls_clName3DLight 65243
|
||||
#define ExtCtrls_clNameWindow 65244
|
||||
#define ExtCtrls_clNameWindowFrame 65245
|
||||
#define ExtCtrls_clNameWindowText 65246
|
||||
#define ComStrs_sTabFailClear 65247
|
||||
#define ExtCtrls_clNameMoneyGreen 65248
|
||||
#define ExtCtrls_clNameSkyBlue 65249
|
||||
#define ExtCtrls_clNameCream 65250
|
||||
#define ExtCtrls_clNameMedGray 65251
|
||||
#define ExtCtrls_clNameActiveBorder 65252
|
||||
#define ExtCtrls_clNameActiveCaption 65253
|
||||
#define ExtCtrls_clNameAppWorkSpace 65254
|
||||
#define ExtCtrls_clNameBackground 65255
|
||||
#define ExtCtrls_clNameBtnFace 65256
|
||||
#define ExtCtrls_clNameBtnHighlight 65257
|
||||
#define ExtCtrls_clNameBtnShadow 65258
|
||||
#define ExtCtrls_clNameBtnText 65259
|
||||
#define ExtCtrls_clNameCaptionText 65260
|
||||
#define ExtCtrls_clNameDefault 65261
|
||||
#define ExtCtrls_clNameGrayText 65262
|
||||
#define ExtCtrls_clNameHighlight 65263
|
||||
#define ExtCtrls_clNameBlack 65264
|
||||
#define ExtCtrls_clNameMaroon 65265
|
||||
#define ExtCtrls_clNameGreen 65266
|
||||
#define ExtCtrls_clNameOlive 65267
|
||||
#define ExtCtrls_clNameNavy 65268
|
||||
#define ExtCtrls_clNamePurple 65269
|
||||
#define ExtCtrls_clNameTeal 65270
|
||||
#define ExtCtrls_clNameGray 65271
|
||||
#define ExtCtrls_clNameSilver 65272
|
||||
#define ExtCtrls_clNameRed 65273
|
||||
#define ExtCtrls_clNameLime 65274
|
||||
#define ExtCtrls_clNameYellow 65275
|
||||
#define ExtCtrls_clNameBlue 65276
|
||||
#define ExtCtrls_clNameFuchsia 65277
|
||||
#define ExtCtrls_clNameAqua 65278
|
||||
#define ExtCtrls_clNameWhite 65279
|
||||
#define Consts_SNoDefaultPrinter 65280
|
||||
#define Consts_SDuplicateMenus 65281
|
||||
#define Consts_SCannotOpenAVI 65282
|
||||
#define Consts_SDockedCtlNeedsName 65283
|
||||
#define Consts_SDockTreeRemoveError 65284
|
||||
#define Consts_SDockZoneNotFound 65285
|
||||
#define Consts_SDockZoneHasNoCtl 65286
|
||||
#define Consts_SMultiSelectRequired 65287
|
||||
#define Consts_SSeparator 65288
|
||||
#define Consts_SErrorSettingCount 65289
|
||||
#define Consts_SListBoxMustBeVirtual 65290
|
||||
#define Consts_SNoGetItemEventHandler 65291
|
||||
#define HelpIntfs_hNoTableOfContents 65292
|
||||
#define HelpIntfs_hNothingFound 65293
|
||||
#define HelpIntfs_hNoContext 65294
|
||||
#define HelpIntfs_hNoTopics 65295
|
||||
#define Consts_SmkcLeft 65296
|
||||
#define Consts_SmkcUp 65297
|
||||
#define Consts_SmkcRight 65298
|
||||
#define Consts_SmkcDown 65299
|
||||
#define Consts_SmkcIns 65300
|
||||
#define Consts_SmkcDel 65301
|
||||
#define Consts_SmkcShift 65302
|
||||
#define Consts_SmkcCtrl 65303
|
||||
#define Consts_SmkcAlt 65304
|
||||
#define Consts_SOutOfRange 65305
|
||||
#define Consts_SInsertLineError 65306
|
||||
#define Consts_SInvalidClipFmt 65307
|
||||
#define Consts_SIconToClipboard 65308
|
||||
#define Consts_SCannotOpenClipboard 65309
|
||||
#define Consts_SInvalidMemoSize 65310
|
||||
#define Consts_SInvalidPrinterOp 65311
|
||||
#define Consts_SMsgDlgHelp 65312
|
||||
#define Consts_SMsgDlgAbort 65313
|
||||
#define Consts_SMsgDlgRetry 65314
|
||||
#define Consts_SMsgDlgIgnore 65315
|
||||
#define Consts_SMsgDlgAll 65316
|
||||
#define Consts_SMsgDlgNoToAll 65317
|
||||
#define Consts_SMsgDlgYesToAll 65318
|
||||
#define Consts_SmkcBkSp 65319
|
||||
#define Consts_SmkcTab 65320
|
||||
#define Consts_SmkcEsc 65321
|
||||
#define Consts_SmkcEnter 65322
|
||||
#define Consts_SmkcSpace 65323
|
||||
#define Consts_SmkcPgUp 65324
|
||||
#define Consts_SmkcPgDn 65325
|
||||
#define Consts_SmkcEnd 65326
|
||||
#define Consts_SmkcHome 65327
|
||||
#define Consts_SAllButton 65328
|
||||
#define Consts_SCannotDragForm 65329
|
||||
#define Consts_SVMetafiles 65330
|
||||
#define Consts_SVEnhMetafiles 65331
|
||||
#define Consts_SVIcons 65332
|
||||
#define Consts_SVBitmaps 65333
|
||||
#define Consts_SMaskErr 65334
|
||||
#define Consts_SMaskEditErr 65335
|
||||
#define Consts_SMsgDlgWarning 65336
|
||||
#define Consts_SMsgDlgError 65337
|
||||
#define Consts_SMsgDlgInformation 65338
|
||||
#define Consts_SMsgDlgConfirm 65339
|
||||
#define Consts_SMsgDlgYes 65340
|
||||
#define Consts_SMsgDlgNo 65341
|
||||
#define Consts_SMsgDlgOK 65342
|
||||
#define Consts_SMsgDlgCancel 65343
|
||||
#define Consts_SNotPrinting 65344
|
||||
#define Consts_SPrinting 65345
|
||||
#define Consts_SInvalidPrinter 65346
|
||||
#define Consts_SDeviceOnPort 65347
|
||||
#define Consts_SGroupIndexTooLow 65348
|
||||
#define Consts_SNoMDIForm 65349
|
||||
#define Consts_SControlParentSetToSelf 65350
|
||||
#define Consts_SOKButton 65351
|
||||
#define Consts_SCancelButton 65352
|
||||
#define Consts_SYesButton 65353
|
||||
#define Consts_SNoButton 65354
|
||||
#define Consts_SHelpButton 65355
|
||||
#define Consts_SCloseButton 65356
|
||||
#define Consts_SIgnoreButton 65357
|
||||
#define Consts_SRetryButton 65358
|
||||
#define Consts_SAbortButton 65359
|
||||
#define Consts_SImageReadFail 65360
|
||||
#define Consts_SImageWriteFail 65361
|
||||
#define Consts_SWindowDCError 65362
|
||||
#define Consts_SWindowClass 65363
|
||||
#define Consts_SCannotFocus 65364
|
||||
#define Consts_SParentRequired 65365
|
||||
#define Consts_SParentGivenNotAParent 65366
|
||||
#define Consts_SMDIChildNotVisible 65367
|
||||
#define Consts_SVisibleChanged 65368
|
||||
#define Consts_SCannotShowModal 65369
|
||||
#define Consts_SScrollBarRange 65370
|
||||
#define Consts_SPropertyOutOfRange 65371
|
||||
#define Consts_SMenuIndexError 65372
|
||||
#define Consts_SMenuReinserted 65373
|
||||
#define Consts_SMenuNotFound 65374
|
||||
#define Consts_SNoTimers 65375
|
||||
#define VDBConsts_SPostEdit 65136
|
||||
#define VDBConsts_SCancelEdit 65137
|
||||
#define VDBConsts_SRefreshRecord 65138
|
||||
#define VDBConsts_SRemoteLogin 65139
|
||||
#define fPtSel_StrFPtSel_lstvAlerts_Co 65140
|
||||
#define OleConst_SCannotActivate 65152
|
||||
#define OleConst_SNoWindowHandle 65153
|
||||
#define OleConst_SInvalidLicense 65154
|
||||
#define OleConst_SNotLicensed 65155
|
||||
#define OleConst_sNoRunningObject 65156
|
||||
#define DBConsts_SBcdOverflow 65157
|
||||
#define DBConsts_SInvalidBcdValue 65158
|
||||
#define DBConsts_SCouldNotParseTimeStamp 65159
|
||||
#define DBConsts_SInvalidSqlTimeStamp 65160
|
||||
#define VDBConsts_SFirstRecord 65161
|
||||
#define VDBConsts_SPriorRecord 65162
|
||||
#define VDBConsts_SNextRecord 65163
|
||||
#define VDBConsts_SLastRecord 65164
|
||||
#define VDBConsts_SInsertRecord 65165
|
||||
#define VDBConsts_SDeleteRecord 65166
|
||||
#define VDBConsts_SEditRecord 65167
|
||||
#define TeeConst_TeeMsg_PieOther 65168
|
||||
#define TeeConst_TeeMsg_ValuesX 65169
|
||||
#define TeeConst_TeeMsg_ValuesY 65170
|
||||
#define TeeConst_TeeMsg_ValuesPie 65171
|
||||
#define TeeConst_TeeMsg_ValuesBar 65172
|
||||
#define TeeConst_TeeMsg_ValuesAngle 65173
|
||||
#define TeeConst_TeeMsg_ValuesGanttStart 65174
|
||||
#define TeeConst_TeeMsg_ValuesGanttEnd 65175
|
||||
#define TeeConst_TeeMsg_ValuesGanttNextTask 65176
|
||||
#define TeeConst_TeeMsg_ValuesArrowEndX 65177
|
||||
#define TeeConst_TeeMsg_ValuesArrowEndY 65178
|
||||
#define ComConst_SOleError 65179
|
||||
#define ComConst_SNoMethod 65180
|
||||
#define ComConst_SVarNotObject 65181
|
||||
#define ComConst_STooManyParams 65182
|
||||
#define ComConst_SDCOMNotInstalled 65183
|
||||
#define TeeConst_TeeMsg_GanttSample6 65184
|
||||
#define TeeConst_TeeMsg_GanttSample7 65185
|
||||
#define TeeConst_TeeMsg_GanttSample8 65186
|
||||
#define TeeConst_TeeMsg_GanttSample9 65187
|
||||
#define TeeConst_TeeMsg_GanttSample10 65188
|
||||
#define TeeConst_TeeMsg_DefaultFontSize 65189
|
||||
#define TeeConst_TeeMsg_FunctionAdd 65190
|
||||
#define TeeConst_TeeMsg_FunctionSubtract 65191
|
||||
#define TeeConst_TeeMsg_FunctionMultiply 65192
|
||||
#define TeeConst_TeeMsg_FunctionDivide 65193
|
||||
#define TeeConst_TeeMsg_FunctionHigh 65194
|
||||
#define TeeConst_TeeMsg_FunctionLow 65195
|
||||
#define TeeConst_TeeMsg_FunctionAverage 65196
|
||||
#define TeeConst_TeeMsg_DefaultFontName 65197
|
||||
#define TeeConst_TeeMsg_CheckPointerSize 65198
|
||||
#define TeeConst_TeeMsg_FunctionPeriod 65199
|
||||
#define TeeConst_TeeMsg_PieSample2 65200
|
||||
#define TeeConst_TeeMsg_PieSample3 65201
|
||||
#define TeeConst_TeeMsg_PieSample4 65202
|
||||
#define TeeConst_TeeMsg_PieSample5 65203
|
||||
#define TeeConst_TeeMsg_PieSample6 65204
|
||||
#define TeeConst_TeeMsg_PieSample7 65205
|
||||
#define TeeConst_TeeMsg_PieSample8 65206
|
||||
#define TeeConst_TeeMsg_GalleryStandard 65207
|
||||
#define TeeConst_TeeMsg_GalleryFunctions 65208
|
||||
#define TeeConst_TeeMsg_GalleryArrow 65209
|
||||
#define TeeConst_TeeMsg_GalleryGantt 65210
|
||||
#define TeeConst_TeeMsg_GanttSample1 65211
|
||||
#define TeeConst_TeeMsg_GanttSample2 65212
|
||||
#define TeeConst_TeeMsg_GanttSample3 65213
|
||||
#define TeeConst_TeeMsg_GanttSample4 65214
|
||||
#define TeeConst_TeeMsg_GanttSample5 65215
|
||||
#define TeeConst_TeeMsg_BarWidthPercent 65216
|
||||
#define TeeConst_TeeMsg_BarOffsetPercent 65217
|
||||
#define TeeConst_TeeMsg_DefaultPercentOf 65218
|
||||
#define TeeConst_TeeMsg_DefPercentFormat 65219
|
||||
#define TeeConst_TeeMsg_DefValueFormat 65220
|
||||
#define TeeConst_TeeMsg_AxisTitle 65221
|
||||
#define TeeConst_TeeMsg_AxisLabels 65222
|
||||
#define TeeConst_TeeMsg_GalleryLine 65223
|
||||
#define TeeConst_TeeMsg_GalleryPoint 65224
|
||||
#define TeeConst_TeeMsg_GalleryArea 65225
|
||||
#define TeeConst_TeeMsg_GalleryBar 65226
|
||||
#define TeeConst_TeeMsg_GalleryHorizBar 65227
|
||||
#define TeeConst_TeeMsg_GalleryPie 65228
|
||||
#define TeeConst_TeeMsg_GalleryFastLine 65229
|
||||
#define TeeConst_TeeMsg_Rotation 65230
|
||||
#define TeeConst_TeeMsg_PieSample1 65231
|
||||
#define TeeConst_TeeMsg_LegendFirstValue 65232
|
||||
#define TeeConst_TeeMsg_LegendColorWidth 65233
|
||||
#define TeeConst_TeeMsg_SeriesSetDataSource 65234
|
||||
#define TeeConst_TeeMsg_SeriesInvDataSource 65235
|
||||
#define TeeConst_TeeMsg_FillSample 65236
|
||||
#define TeeConst_TeeMsg_Angle 65237
|
||||
#define TeeConst_TeeMsg_AxisLogDateTime 65238
|
||||
#define TeeConst_TeeMsg_AxisLogNotPositive 65239
|
||||
#define TeeConst_TeeMsg_AxisLabelSep 65240
|
||||
#define TeeConst_TeeMsg_AxisIncrementNeg 65241
|
||||
#define TeeConst_TeeMsg_AxisMinMax 65242
|
||||
#define TeeConst_TeeMsg_AxisMaxMin 65243
|
||||
#define TeeConst_TeeMsg_AxisLogBase 65244
|
||||
#define TeeConst_TeeMsg_MaxPointsPerPage 65245
|
||||
#define TeeConst_TeeMsg_3dPercent 65246
|
||||
#define TeeConst_TeeMsg_CircularSeries 65247
|
||||
#define ComStrs_sInvalidIndex 65248
|
||||
#define ComStrs_sInsertError 65249
|
||||
#define ComStrs_sInvalidOwner 65250
|
||||
#define ComStrs_sRichEditInsertError 65251
|
||||
#define ComStrs_sRichEditLoadFail 65252
|
||||
#define ComStrs_sRichEditSaveFail 65253
|
||||
#define ComStrs_sUDAssociated 65254
|
||||
#define ComStrs_sPageIndexError 65255
|
||||
#define ComStrs_sInvalidComCtl32 65256
|
||||
#define ComStrs_sDateTimeMax 65257
|
||||
#define ComStrs_sDateTimeMin 65258
|
||||
#define ComStrs_sFailSetCalDateTime 65259
|
||||
#define ComStrs_sFailSetCalMaxSelRange 65260
|
||||
#define ComStrs_sFailSetCalMinMaxRange 65261
|
||||
#define ComStrs_sFailsetCalSelRange 65262
|
||||
#define TeeConst_TeeMsg_LegendTopPos 65263
|
||||
#define Consts_SListBoxMustBeVirtual 65264
|
||||
#define Consts_SNoGetItemEventHandler 65265
|
||||
#define Consts_SANSIEncoding 65266
|
||||
#define Consts_SASCIIEncoding 65267
|
||||
#define Consts_SUnicodeEncoding 65268
|
||||
#define Consts_SBigEndianEncoding 65269
|
||||
#define Consts_SUTF8Encoding 65270
|
||||
#define Consts_SUTF7Encoding 65271
|
||||
#define Consts_SPageControlNotSet 65272
|
||||
#define ComStrs_sTabFailClear 65273
|
||||
#define ComStrs_sTabFailDelete 65274
|
||||
#define ComStrs_sTabFailRetrieve 65275
|
||||
#define ComStrs_sTabFailGetObject 65276
|
||||
#define ComStrs_sTabFailSet 65277
|
||||
#define ComStrs_sTabFailSetObject 65278
|
||||
#define ComStrs_sTabMustBeMultiLine 65279
|
||||
#define Consts_SInvalidClipFmt 65280
|
||||
#define Consts_SIconToClipboard 65281
|
||||
#define Consts_SCannotOpenClipboard 65282
|
||||
#define Consts_SInvalidMemoSize 65283
|
||||
#define Consts_SInvalidPrinterOp 65284
|
||||
#define Consts_SNoDefaultPrinter 65285
|
||||
#define Consts_SDuplicateMenus 65286
|
||||
#define Consts_SCannotOpenAVI 65287
|
||||
#define Consts_SDockedCtlNeedsName 65288
|
||||
#define Consts_SDockTreeRemoveError 65289
|
||||
#define Consts_SDockZoneNotFound 65290
|
||||
#define Consts_SDockZoneHasNoCtl 65291
|
||||
#define Consts_SDockZoneVersionConflict 65292
|
||||
#define Consts_SMultiSelectRequired 65293
|
||||
#define Consts_SSeparator 65294
|
||||
#define Consts_SErrorSettingCount 65295
|
||||
#define Consts_SmkcSpace 65296
|
||||
#define Consts_SmkcPgUp 65297
|
||||
#define Consts_SmkcPgDn 65298
|
||||
#define Consts_SmkcEnd 65299
|
||||
#define Consts_SmkcHome 65300
|
||||
#define Consts_SmkcLeft 65301
|
||||
#define Consts_SmkcUp 65302
|
||||
#define Consts_SmkcRight 65303
|
||||
#define Consts_SmkcDown 65304
|
||||
#define Consts_SmkcIns 65305
|
||||
#define Consts_SmkcDel 65306
|
||||
#define Consts_SmkcShift 65307
|
||||
#define Consts_SmkcCtrl 65308
|
||||
#define Consts_SmkcAlt 65309
|
||||
#define Consts_SOutOfRange 65310
|
||||
#define Consts_SInsertLineError 65311
|
||||
#define Consts_SMsgDlgConfirm 65312
|
||||
#define Consts_SMsgDlgYes 65313
|
||||
#define Consts_SMsgDlgNo 65314
|
||||
#define Consts_SMsgDlgOK 65315
|
||||
#define Consts_SMsgDlgCancel 65316
|
||||
#define Consts_SMsgDlgHelp 65317
|
||||
#define Consts_SMsgDlgAbort 65318
|
||||
#define Consts_SMsgDlgRetry 65319
|
||||
#define Consts_SMsgDlgIgnore 65320
|
||||
#define Consts_SMsgDlgAll 65321
|
||||
#define Consts_SMsgDlgNoToAll 65322
|
||||
#define Consts_SMsgDlgYesToAll 65323
|
||||
#define Consts_SmkcBkSp 65324
|
||||
#define Consts_SmkcTab 65325
|
||||
#define Consts_SmkcEsc 65326
|
||||
#define Consts_SmkcEnter 65327
|
||||
#define Consts_SHelpButton 65328
|
||||
#define Consts_SCloseButton 65329
|
||||
#define Consts_SIgnoreButton 65330
|
||||
#define Consts_SRetryButton 65331
|
||||
#define Consts_SAbortButton 65332
|
||||
#define Consts_SAllButton 65333
|
||||
#define Consts_SCannotDragForm 65334
|
||||
#define Consts_SVMetafiles 65335
|
||||
#define Consts_SVEnhMetafiles 65336
|
||||
#define Consts_SVIcons 65337
|
||||
#define Consts_SVBitmaps 65338
|
||||
#define Consts_SMaskErr 65339
|
||||
#define Consts_SMaskEditErr 65340
|
||||
#define Consts_SMsgDlgWarning 65341
|
||||
#define Consts_SMsgDlgError 65342
|
||||
#define Consts_SMsgDlgInformation 65343
|
||||
#define Consts_SPropertyOutOfRange 65344
|
||||
#define Consts_SMenuIndexError 65345
|
||||
#define Consts_SMenuReinserted 65346
|
||||
#define Consts_SMenuNotFound 65347
|
||||
#define Consts_SNoTimers 65348
|
||||
#define Consts_SNotPrinting 65349
|
||||
#define Consts_SPrinting 65350
|
||||
#define Consts_SInvalidPrinter 65351
|
||||
#define Consts_SDeviceOnPort 65352
|
||||
#define Consts_SGroupIndexTooLow 65353
|
||||
#define Consts_SNoMDIForm 65354
|
||||
#define Consts_SControlParentSetToSelf 65355
|
||||
#define Consts_SOKButton 65356
|
||||
#define Consts_SCancelButton 65357
|
||||
#define Consts_SYesButton 65358
|
||||
#define Consts_SNoButton 65359
|
||||
#define Consts_SNoCanvasHandle 65360
|
||||
#define Consts_SInvalidImageSize 65361
|
||||
#define Consts_SInvalidImageList 65362
|
||||
#define Consts_SReplaceImage 65363
|
||||
#define Consts_SImageIndexError 65364
|
||||
#define Consts_SImageReadFail 65365
|
||||
#define Consts_SImageWriteFail 65366
|
||||
#define Consts_SWindowDCError 65367
|
||||
#define Consts_SWindowClass 65368
|
||||
#define Consts_SCannotFocus 65369
|
||||
#define Consts_SParentRequired 65370
|
||||
#define Consts_SParentGivenNotAParent 65371
|
||||
#define Consts_SMDIChildNotVisible 65372
|
||||
#define Consts_SVisibleChanged 65373
|
||||
#define Consts_SCannotShowModal 65374
|
||||
#define Consts_SScrollBarRange 65375
|
||||
#define RTLConsts_SThreadCreateError 65376
|
||||
#define RTLConsts_SThreadError 65377
|
||||
#define Consts_SInvalidTabPosition 65378
|
||||
#define Consts_SInvalidTabStyle 65379
|
||||
#define Consts_SInvalidBitmap 65380
|
||||
#define Consts_SInvalidIcon 65381
|
||||
#define Consts_SInvalidMetafile 65382
|
||||
#define Consts_SChangeIconSize 65383
|
||||
#define Consts_SOleGraphic 65384
|
||||
#define Consts_SUnknownClipboardFormat 65385
|
||||
#define Consts_SOutOfResources 65386
|
||||
#define Consts_SNoCanvasHandle 65387
|
||||
#define Consts_SInvalidImageSize 65388
|
||||
#define Consts_SInvalidImageList 65389
|
||||
#define Consts_SReplaceImage 65390
|
||||
#define Consts_SImageIndexError 65391
|
||||
#define HelpIntfs_hNoTableOfContents 65378
|
||||
#define HelpIntfs_hNothingFound 65379
|
||||
#define HelpIntfs_hNoContext 65380
|
||||
#define HelpIntfs_hNoContextFound 65381
|
||||
#define HelpIntfs_hNoTopics 65382
|
||||
#define Consts_SInvalidTabPosition 65383
|
||||
#define Consts_SInvalidTabStyle 65384
|
||||
#define Consts_SInvalidBitmap 65385
|
||||
#define Consts_SInvalidIcon 65386
|
||||
#define Consts_SInvalidMetafile 65387
|
||||
#define Consts_SChangeIconSize 65388
|
||||
#define Consts_SOleGraphic 65389
|
||||
#define Consts_SUnknownClipboardFormat 65390
|
||||
#define Consts_SOutOfResources 65391
|
||||
#define RTLConsts_SListCapacityError 65392
|
||||
#define RTLConsts_SListCountError 65393
|
||||
#define RTLConsts_SListIndexError 65394
|
||||
|
@ -491,55 +399,11 @@
|
|||
#define SysConst_SDivByZero 65535
|
||||
STRINGTABLE
|
||||
BEGIN
|
||||
IdResourceStrings_RSStackHOST_NOT_FOUND, "Host not found."
|
||||
IdResourceStrings_RSStackENETUNREACH, "Network is unreachable."
|
||||
IdResourceStrings_RSStackENETRESET, "Net dropped connection or reset."
|
||||
IdResourceStrings_RSStackECONNABORTED, "Software caused connection abort."
|
||||
IdResourceStrings_RSStackECONNRESET, "Connection reset by peer."
|
||||
IdResourceStrings_RSStackENOBUFS, "No buffer space available."
|
||||
IdResourceStrings_RSStackEISCONN, "Socket is already connected."
|
||||
IdResourceStrings_RSStackENOTCONN, "Socket is not connected."
|
||||
IdResourceStrings_RSStackESHUTDOWN, "Cannot send or receive after socket is closed."
|
||||
IdResourceStrings_RSStackETOOMANYREFS, "Too many references, cannot splice."
|
||||
IdResourceStrings_RSStackETIMEDOUT, "Connection timed out."
|
||||
IdResourceStrings_RSStackECONNREFUSED, "Connection refused."
|
||||
IdResourceStrings_RSStackELOOP, "Too many levels of symbolic links."
|
||||
IdResourceStrings_RSStackENAMETOOLONG, "File name too long."
|
||||
IdResourceStrings_RSStackEHOSTDOWN, "Host is down."
|
||||
IdResourceStrings_RSStackEHOSTUNREACH, "No route to host."
|
||||
IdResourceStrings_RSStackENOTEMPTY, "Directory not empty"
|
||||
IdResourceStrings_RSStackEWOULDBLOCK, "Operation would block. "
|
||||
IdResourceStrings_RSStackEINPROGRESS, "Operation now in progress."
|
||||
IdResourceStrings_RSStackEALREADY, "Operation already in progress."
|
||||
IdResourceStrings_RSStackENOTSOCK, "Socket operation on non-socket."
|
||||
IdResourceStrings_RSStackEDESTADDRREQ, "Destination address required."
|
||||
IdResourceStrings_RSStackEMSGSIZE, "Message too long."
|
||||
IdResourceStrings_RSStackEPROTOTYPE, "Protocol wrong type for socket."
|
||||
IdResourceStrings_RSStackENOPROTOOPT, "Bad protocol option."
|
||||
IdResourceStrings_RSStackEPROTONOSUPPORT, "Protocol not supported."
|
||||
IdResourceStrings_RSStackESOCKTNOSUPPORT, "Socket type not supported."
|
||||
IdResourceStrings_RSStackEOPNOTSUPP, "Operation not supported on socket."
|
||||
IdResourceStrings_RSStackEPFNOSUPPORT, "Protocol family not supported."
|
||||
IdResourceStrings_RSStackEAFNOSUPPORT, "Address family not supported by protocol family."
|
||||
IdResourceStrings_RSStackEADDRINUSE, "Address already in use."
|
||||
IdResourceStrings_RSStackEADDRNOTAVAIL, "Cannot assign requested address."
|
||||
IdResourceStrings_RSStackENETDOWN, "Network is down."
|
||||
VDBConsts_SPostEdit, "Post edit"
|
||||
VDBConsts_SCancelEdit, "Cancel edit"
|
||||
VDBConsts_SRefreshRecord, "Refresh data"
|
||||
VDBConsts_SRemoteLogin, "Remote Login"
|
||||
IdResourceStrings_RSWinsockInitializationError, "Winsock Initialization Error."
|
||||
IdResourceStrings_RSSetSizeExceeded, "Set Size Exceeded."
|
||||
IdResourceStrings_RSWS2CallError, "Error on call Winsock2 library function %s"
|
||||
IdResourceStrings_RSWS2LoadError, "Error on loading Winsock2 library (%s)"
|
||||
IdResourceStrings_RSInvalidServiceName, "%s is not a valid service."
|
||||
IdResourceStrings_RSStackError, "Socket Error # %d\r\n%s"
|
||||
IdResourceStrings_RSStackEINTR, "Interrupted system call."
|
||||
IdResourceStrings_RSStackEBADF, "Bad file number."
|
||||
IdResourceStrings_RSStackEACCES, "Access denied."
|
||||
IdResourceStrings_RSStackEFAULT, "Bad address."
|
||||
IdResourceStrings_RSStackEINVAL, "Invalid argument."
|
||||
IdResourceStrings_RSStackEMFILE, "Too many open files."
|
||||
fPtSel_StrFPtSel_lstvAlerts_Co, "C^fPtSel.lstvAlerts.Cols"
|
||||
OleConst_SCannotActivate, "OLE control activation failed"
|
||||
OleConst_SNoWindowHandle, "Could not obtain OLE control window handle"
|
||||
OleConst_SInvalidLicense, "License information for %s is invalid"
|
||||
|
@ -556,29 +420,6 @@ BEGIN
|
|||
VDBConsts_SInsertRecord, "Insert record"
|
||||
VDBConsts_SDeleteRecord, "Delete record"
|
||||
VDBConsts_SEditRecord, "Edit record"
|
||||
TeeConst_TeeMsg_ValuesArrowEndX, "EndX"
|
||||
TeeConst_TeeMsg_ValuesArrowEndY, "EndY"
|
||||
ComConst_SCreateRegKeyError, "Error creating system registry entry"
|
||||
ComConst_SOleError, "OLE error %.8x"
|
||||
ComConst_SObjectFactoryMissing, "Object factory for class %s missing"
|
||||
ComConst_STypeInfoMissing, "Type information missing for class %s"
|
||||
ComConst_SBadTypeInfo, "Incorrect type information for class %s"
|
||||
ComConst_SDispIntfMissing, "Dispatch interface missing from class %s"
|
||||
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"
|
||||
ComConst_SDAXError, "DAX Error"
|
||||
ComConst_SAutomationWarning, "COM Server Warning"
|
||||
ComConst_SNoCloseActiveServer1, "There are still active COM objects in this application. One or more clients may have references to these objects, so manually closing "
|
||||
ComConst_SNoCloseActiveServer2, "this application may cause those client application(s) to fail.\r\n\r\nAre you sure you want to close this application?"
|
||||
TeeConst_TeeMsg_FunctionDivide, "Divide"
|
||||
TeeConst_TeeMsg_FunctionHigh, "High"
|
||||
TeeConst_TeeMsg_FunctionLow, "Low"
|
||||
TeeConst_TeeMsg_FunctionAverage, "Average"
|
||||
TeeConst_TeeMsg_DefaultFontName, "Arial"
|
||||
TeeConst_TeeMsg_CheckPointerSize, "Pointer size must be greater than zero"
|
||||
TeeConst_TeeMsg_FunctionPeriod, "Function Period should be >= 0"
|
||||
TeeConst_TeeMsg_PieOther, "Other"
|
||||
TeeConst_TeeMsg_ValuesX, "X"
|
||||
TeeConst_TeeMsg_ValuesY, "Y"
|
||||
|
@ -588,13 +429,13 @@ BEGIN
|
|||
TeeConst_TeeMsg_ValuesGanttStart, "Start"
|
||||
TeeConst_TeeMsg_ValuesGanttEnd, "End"
|
||||
TeeConst_TeeMsg_ValuesGanttNextTask, "NextTask"
|
||||
TeeConst_TeeMsg_GalleryArrow, "Arrow"
|
||||
TeeConst_TeeMsg_GalleryGantt, "Gantt"
|
||||
TeeConst_TeeMsg_GanttSample1, "Design"
|
||||
TeeConst_TeeMsg_GanttSample2, "Prototyping"
|
||||
TeeConst_TeeMsg_GanttSample3, "Development"
|
||||
TeeConst_TeeMsg_GanttSample4, "Sales"
|
||||
TeeConst_TeeMsg_GanttSample5, "Marketing"
|
||||
TeeConst_TeeMsg_ValuesArrowEndX, "EndX"
|
||||
TeeConst_TeeMsg_ValuesArrowEndY, "EndY"
|
||||
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"
|
||||
TeeConst_TeeMsg_GanttSample6, "Testing"
|
||||
TeeConst_TeeMsg_GanttSample7, "Manufac."
|
||||
TeeConst_TeeMsg_GanttSample8, "Debugging"
|
||||
|
@ -604,13 +445,13 @@ BEGIN
|
|||
TeeConst_TeeMsg_FunctionAdd, "Add"
|
||||
TeeConst_TeeMsg_FunctionSubtract, "Subtract"
|
||||
TeeConst_TeeMsg_FunctionMultiply, "Multiply"
|
||||
TeeConst_TeeMsg_GalleryArea, "Area"
|
||||
TeeConst_TeeMsg_GalleryBar, "Bar"
|
||||
TeeConst_TeeMsg_GalleryHorizBar, "Horiz. Bar"
|
||||
TeeConst_TeeMsg_GalleryPie, "Pie"
|
||||
TeeConst_TeeMsg_GalleryFastLine, "Fast Line"
|
||||
TeeConst_TeeMsg_Rotation, "Rotation"
|
||||
TeeConst_TeeMsg_PieSample1, "Cars"
|
||||
TeeConst_TeeMsg_FunctionDivide, "Divide"
|
||||
TeeConst_TeeMsg_FunctionHigh, "High"
|
||||
TeeConst_TeeMsg_FunctionLow, "Low"
|
||||
TeeConst_TeeMsg_FunctionAverage, "Average"
|
||||
TeeConst_TeeMsg_DefaultFontName, "Arial"
|
||||
TeeConst_TeeMsg_CheckPointerSize, "Pointer size must be greater than zero"
|
||||
TeeConst_TeeMsg_FunctionPeriod, "Function Period should be >= 0"
|
||||
TeeConst_TeeMsg_PieSample2, "Phones"
|
||||
TeeConst_TeeMsg_PieSample3, "Tables"
|
||||
TeeConst_TeeMsg_PieSample4, "Monitors"
|
||||
|
@ -620,13 +461,13 @@ BEGIN
|
|||
TeeConst_TeeMsg_PieSample8, "Chairs"
|
||||
TeeConst_TeeMsg_GalleryStandard, "Standard"
|
||||
TeeConst_TeeMsg_GalleryFunctions, "Functions"
|
||||
TeeConst_TeeMsg_AxisIncrementNeg, "Axis increment must be >= 0"
|
||||
TeeConst_TeeMsg_AxisMinMax, "Axis Minimum Value must be <= Maximum"
|
||||
TeeConst_TeeMsg_AxisMaxMin, "Axis Maximum Value must be >= Minimum"
|
||||
TeeConst_TeeMsg_AxisLogBase, "Axis Logarithmic Base should be >= 2"
|
||||
TeeConst_TeeMsg_MaxPointsPerPage, "MaxPointsPerPage must be >= 0"
|
||||
TeeConst_TeeMsg_3dPercent, "3D effect percent must be between %d and %d"
|
||||
TeeConst_TeeMsg_CircularSeries, "Circular Series dependences are not allowed"
|
||||
TeeConst_TeeMsg_GalleryArrow, "Arrow"
|
||||
TeeConst_TeeMsg_GalleryGantt, "Gantt"
|
||||
TeeConst_TeeMsg_GanttSample1, "Design"
|
||||
TeeConst_TeeMsg_GanttSample2, "Prototyping"
|
||||
TeeConst_TeeMsg_GanttSample3, "Development"
|
||||
TeeConst_TeeMsg_GanttSample4, "Sales"
|
||||
TeeConst_TeeMsg_GanttSample5, "Marketing"
|
||||
TeeConst_TeeMsg_BarWidthPercent, "Bar Width Percent must be between 1 and 100"
|
||||
TeeConst_TeeMsg_BarOffsetPercent, "Bar Offset Percent must be between -100% and 100%"
|
||||
TeeConst_TeeMsg_DefaultPercentOf, "%s of %s"
|
||||
|
@ -636,13 +477,13 @@ BEGIN
|
|||
TeeConst_TeeMsg_AxisLabels, "Axis Labels"
|
||||
TeeConst_TeeMsg_GalleryLine, "Line"
|
||||
TeeConst_TeeMsg_GalleryPoint, "Point"
|
||||
ComStrs_sDateTimeMin, "Date is less than minimum of %s"
|
||||
ComStrs_sFailSetCalDateTime, "Failed to set calendar date or time"
|
||||
ComStrs_sFailSetCalMaxSelRange, "Failed to set maximum selection range"
|
||||
ComStrs_sFailSetCalMinMaxRange, "Failed to set calendar min/max range"
|
||||
ComStrs_sFailsetCalSelRange, "Failed to set calendar selected range"
|
||||
WinHelpViewer_hNoKeyword, "No help keyword specified."
|
||||
TeeConst_TeeMsg_LegendTopPos, "Top Legend Position must be between 0 and 100 %"
|
||||
TeeConst_TeeMsg_GalleryArea, "Area"
|
||||
TeeConst_TeeMsg_GalleryBar, "Bar"
|
||||
TeeConst_TeeMsg_GalleryHorizBar, "Horiz. Bar"
|
||||
TeeConst_TeeMsg_GalleryPie, "Pie"
|
||||
TeeConst_TeeMsg_GalleryFastLine, "Fast Line"
|
||||
TeeConst_TeeMsg_Rotation, "Rotation"
|
||||
TeeConst_TeeMsg_PieSample1, "Cars"
|
||||
TeeConst_TeeMsg_LegendFirstValue, "First Legend Value must be > 0"
|
||||
TeeConst_TeeMsg_LegendColorWidth, "Legend Color Width must be between 0 and 100 %"
|
||||
TeeConst_TeeMsg_SeriesSetDataSource, "No ParentChart to validate DataSource"
|
||||
|
@ -652,12 +493,13 @@ BEGIN
|
|||
TeeConst_TeeMsg_AxisLogDateTime, "DateTime Axis cannot be Logarithmic"
|
||||
TeeConst_TeeMsg_AxisLogNotPositive, "Logarithmic Axis Min and Max values should be >= 0"
|
||||
TeeConst_TeeMsg_AxisLabelSep, "Labels Separation % must be greater than 0"
|
||||
ComStrs_sTabFailDelete, "Failed to delete tab at index %d"
|
||||
ComStrs_sTabFailRetrieve, "Failed to retrieve tab at index %d"
|
||||
ComStrs_sTabFailGetObject, "Failed to get object at index %d"
|
||||
ComStrs_sTabFailSet, "Failed to set tab \"%s\" at index %d"
|
||||
ComStrs_sTabFailSetObject, "Failed to set object at index %d"
|
||||
ComStrs_sTabMustBeMultiLine, "MultiLine must be True when TabPosition is tpLeft or tpRight"
|
||||
TeeConst_TeeMsg_AxisIncrementNeg, "Axis increment must be >= 0"
|
||||
TeeConst_TeeMsg_AxisMinMax, "Axis Minimum Value must be <= Maximum"
|
||||
TeeConst_TeeMsg_AxisMaxMin, "Axis Maximum Value must be >= Minimum"
|
||||
TeeConst_TeeMsg_AxisLogBase, "Axis Logarithmic Base should be >= 2"
|
||||
TeeConst_TeeMsg_MaxPointsPerPage, "MaxPointsPerPage must be >= 0"
|
||||
TeeConst_TeeMsg_3dPercent, "3D effect percent must be between %d and %d"
|
||||
TeeConst_TeeMsg_CircularSeries, "Circular Series dependences are not allowed"
|
||||
ComStrs_sInvalidIndex, "Invalid index"
|
||||
ComStrs_sInsertError, "Unable to insert an item"
|
||||
ComStrs_sInvalidOwner, "Invalid owner"
|
||||
|
@ -668,54 +510,33 @@ BEGIN
|
|||
ComStrs_sPageIndexError, "%d is an invalid PageIndex value. PageIndex must be between 0 and %d"
|
||||
ComStrs_sInvalidComCtl32, "This control requires version 4.70 or greater of COMCTL32.DLL"
|
||||
ComStrs_sDateTimeMax, "Date exceeds maximum of %s"
|
||||
ExtCtrls_clNameHighlightText, "Highlight Text"
|
||||
ExtCtrls_clNameInactiveBorder, "Inactive Border"
|
||||
ExtCtrls_clNameInactiveCaption, "Inactive Caption"
|
||||
ExtCtrls_clNameInactiveCaptionText, "Inactive Caption Text"
|
||||
ExtCtrls_clNameInfoBk, "Info Background"
|
||||
ExtCtrls_clNameInfoText, "Info Text"
|
||||
ExtCtrls_clNameMenu, "Menu Background"
|
||||
ExtCtrls_clNameMenuText, "Menu Text"
|
||||
ExtCtrls_clNameNone, "None"
|
||||
ExtCtrls_clNameScrollBar, "Scroll Bar"
|
||||
ExtCtrls_clName3DDkShadow, "3D Dark Shadow"
|
||||
ExtCtrls_clName3DLight, "3D Light"
|
||||
ExtCtrls_clNameWindow, "Window Background"
|
||||
ExtCtrls_clNameWindowFrame, "Window Frame"
|
||||
ExtCtrls_clNameWindowText, "Window Text"
|
||||
ComStrs_sDateTimeMin, "Date is less than minimum of %s"
|
||||
ComStrs_sFailSetCalDateTime, "Failed to set calendar date or time"
|
||||
ComStrs_sFailSetCalMaxSelRange, "Failed to set maximum selection range"
|
||||
ComStrs_sFailSetCalMinMaxRange, "Failed to set calendar min/max range"
|
||||
ComStrs_sFailsetCalSelRange, "Failed to set calendar selected range"
|
||||
TeeConst_TeeMsg_LegendTopPos, "Top Legend Position must be between 0 and 100 %"
|
||||
Consts_SListBoxMustBeVirtual, "Listbox (%s) style must be virtual in order to set Count"
|
||||
Consts_SNoGetItemEventHandler, "No OnGetItem event handler assigned"
|
||||
Consts_SANSIEncoding, "ANSI"
|
||||
Consts_SASCIIEncoding, "ASCII"
|
||||
Consts_SUnicodeEncoding, "Unicode"
|
||||
Consts_SBigEndianEncoding, "Big Endian Unicode"
|
||||
Consts_SUTF8Encoding, "UTF-8"
|
||||
Consts_SUTF7Encoding, "UTF-7"
|
||||
Consts_SPageControlNotSet, "PageControl must first be assigned"
|
||||
ComStrs_sTabFailClear, "Failed to clear tab control"
|
||||
ExtCtrls_clNameMoneyGreen, "Money Green"
|
||||
ExtCtrls_clNameSkyBlue, "Sky Blue"
|
||||
ExtCtrls_clNameCream, "Cream"
|
||||
ExtCtrls_clNameMedGray, "Medium Gray"
|
||||
ExtCtrls_clNameActiveBorder, "Active Border"
|
||||
ExtCtrls_clNameActiveCaption, "Active Caption"
|
||||
ExtCtrls_clNameAppWorkSpace, "Application Workspace"
|
||||
ExtCtrls_clNameBackground, "Background"
|
||||
ExtCtrls_clNameBtnFace, "Button Face"
|
||||
ExtCtrls_clNameBtnHighlight, "Button Highlight"
|
||||
ExtCtrls_clNameBtnShadow, "Button Shadow"
|
||||
ExtCtrls_clNameBtnText, "Button Text"
|
||||
ExtCtrls_clNameCaptionText, "Caption Text"
|
||||
ExtCtrls_clNameDefault, "Default"
|
||||
ExtCtrls_clNameGrayText, "Gray Text"
|
||||
ExtCtrls_clNameHighlight, "Highlight Background"
|
||||
ExtCtrls_clNameBlack, "Black"
|
||||
ExtCtrls_clNameMaroon, "Maroon"
|
||||
ExtCtrls_clNameGreen, "Green"
|
||||
ExtCtrls_clNameOlive, "Olive"
|
||||
ExtCtrls_clNameNavy, "Navy"
|
||||
ExtCtrls_clNamePurple, "Purple"
|
||||
ExtCtrls_clNameTeal, "Teal"
|
||||
ExtCtrls_clNameGray, "Gray"
|
||||
ExtCtrls_clNameSilver, "Silver"
|
||||
ExtCtrls_clNameRed, "Red"
|
||||
ExtCtrls_clNameLime, "Lime"
|
||||
ExtCtrls_clNameYellow, "Yellow"
|
||||
ExtCtrls_clNameBlue, "Blue"
|
||||
ExtCtrls_clNameFuchsia, "Fuchsia"
|
||||
ExtCtrls_clNameAqua, "Aqua"
|
||||
ExtCtrls_clNameWhite, "White"
|
||||
ComStrs_sTabFailDelete, "Failed to delete tab at index %d"
|
||||
ComStrs_sTabFailRetrieve, "Failed to retrieve tab at index %d"
|
||||
ComStrs_sTabFailGetObject, "Failed to get object at index %d"
|
||||
ComStrs_sTabFailSet, "Failed to set tab \"%s\" at index %d"
|
||||
ComStrs_sTabFailSetObject, "Failed to set object at index %d"
|
||||
ComStrs_sTabMustBeMultiLine, "MultiLine must be True when TabPosition is tpLeft or tpRight"
|
||||
Consts_SInvalidClipFmt, "Invalid clipboard format"
|
||||
Consts_SIconToClipboard, "Clipboard does not support Icons"
|
||||
Consts_SCannotOpenClipboard, "Cannot open clipboard"
|
||||
Consts_SInvalidMemoSize, "Text exceeds memo capacity"
|
||||
Consts_SInvalidPrinterOp, "Operation not supported on selected printer"
|
||||
Consts_SNoDefaultPrinter, "There is no default printer currently selected"
|
||||
Consts_SDuplicateMenus, "Menu '%s' is already being used by another form"
|
||||
Consts_SCannotOpenAVI, "Cannot open AVI"
|
||||
|
@ -723,15 +544,15 @@ BEGIN
|
|||
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_SMultiSelectRequired, "Multiselect mode must be on for this feature"
|
||||
Consts_SSeparator, "Separator"
|
||||
Consts_SErrorSettingCount, "Error setting %s.Count"
|
||||
Consts_SListBoxMustBeVirtual, "Listbox (%s) style must be virtual in order to set Count"
|
||||
Consts_SNoGetItemEventHandler, "No OnGetItem event handler assigned"
|
||||
HelpIntfs_hNoTableOfContents, "Unable to find a Table of Contents"
|
||||
HelpIntfs_hNothingFound, "No help found for %s"
|
||||
HelpIntfs_hNoContext, "No context-sensitive help installed"
|
||||
HelpIntfs_hNoTopics, "No topic-based help system installed"
|
||||
Consts_SmkcSpace, "Space"
|
||||
Consts_SmkcPgUp, "PgUp"
|
||||
Consts_SmkcPgDn, "PgDn"
|
||||
Consts_SmkcEnd, "End"
|
||||
Consts_SmkcHome, "Home"
|
||||
Consts_SmkcLeft, "Left"
|
||||
Consts_SmkcUp, "Up"
|
||||
Consts_SmkcRight, "Right"
|
||||
|
@ -743,11 +564,11 @@ BEGIN
|
|||
Consts_SmkcAlt, "Alt+"
|
||||
Consts_SOutOfRange, "Value must be between %d and %d"
|
||||
Consts_SInsertLineError, "Unable to insert a line"
|
||||
Consts_SInvalidClipFmt, "Invalid clipboard format"
|
||||
Consts_SIconToClipboard, "Clipboard does not support Icons"
|
||||
Consts_SCannotOpenClipboard, "Cannot open clipboard"
|
||||
Consts_SInvalidMemoSize, "Text exceeds memo capacity"
|
||||
Consts_SInvalidPrinterOp, "Operation not supported on selected printer"
|
||||
Consts_SMsgDlgConfirm, "Confirm"
|
||||
Consts_SMsgDlgYes, "&Yes"
|
||||
Consts_SMsgDlgNo, "&No"
|
||||
Consts_SMsgDlgOK, "OK"
|
||||
Consts_SMsgDlgCancel, "Cancel"
|
||||
Consts_SMsgDlgHelp, "&Help"
|
||||
Consts_SMsgDlgAbort, "&Abort"
|
||||
Consts_SMsgDlgRetry, "&Retry"
|
||||
|
@ -759,11 +580,11 @@ BEGIN
|
|||
Consts_SmkcTab, "Tab"
|
||||
Consts_SmkcEsc, "Esc"
|
||||
Consts_SmkcEnter, "Enter"
|
||||
Consts_SmkcSpace, "Space"
|
||||
Consts_SmkcPgUp, "PgUp"
|
||||
Consts_SmkcPgDn, "PgDn"
|
||||
Consts_SmkcEnd, "End"
|
||||
Consts_SmkcHome, "Home"
|
||||
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_SVMetafiles, "Metafiles"
|
||||
|
@ -775,11 +596,11 @@ BEGIN
|
|||
Consts_SMsgDlgWarning, "Warning"
|
||||
Consts_SMsgDlgError, "Error"
|
||||
Consts_SMsgDlgInformation, "Information"
|
||||
Consts_SMsgDlgConfirm, "Confirm"
|
||||
Consts_SMsgDlgYes, "&Yes"
|
||||
Consts_SMsgDlgNo, "&No"
|
||||
Consts_SMsgDlgOK, "OK"
|
||||
Consts_SMsgDlgCancel, "Cancel"
|
||||
Consts_SPropertyOutOfRange, "%s property out of range"
|
||||
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"
|
||||
Consts_SNotPrinting, "Printer is not currently printing"
|
||||
Consts_SPrinting, "Printing in progress"
|
||||
Consts_SInvalidPrinter, "Printer selected is not valid"
|
||||
|
@ -791,11 +612,11 @@ BEGIN
|
|||
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_SNoCanvasHandle, "Canvas does not allow drawing"
|
||||
Consts_SInvalidImageSize, "Invalid image size"
|
||||
Consts_SInvalidImageList, "Invalid ImageList"
|
||||
Consts_SReplaceImage, "Unable to Replace Image"
|
||||
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"
|
||||
|
@ -807,13 +628,13 @@ BEGIN
|
|||
Consts_SVisibleChanged, "Cannot change Visible in OnShow or OnHide"
|
||||
Consts_SCannotShowModal, "Cannot make a visible window modal"
|
||||
Consts_SScrollBarRange, "Scrollbar property out of range"
|
||||
Consts_SPropertyOutOfRange, "%s property out of range"
|
||||
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"
|
||||
RTLConsts_SThreadCreateError, "Thread creation error: %s"
|
||||
RTLConsts_SThreadError, "Thread Error: %s (%d)"
|
||||
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_SInvalidTabPosition, "Tab position incompatible with current tab style"
|
||||
Consts_SInvalidTabStyle, "Tab style incompatible with current tab position"
|
||||
Consts_SInvalidBitmap, "Bitmap image is not valid"
|
||||
|
@ -823,11 +644,6 @@ BEGIN
|
|||
Consts_SOleGraphic, "Invalid operation on TOleGraphic"
|
||||
Consts_SUnknownClipboardFormat, "Unsupported clipboard format"
|
||||
Consts_SOutOfResources, "Out of system resources"
|
||||
Consts_SNoCanvasHandle, "Canvas does not allow drawing"
|
||||
Consts_SInvalidImageSize, "Invalid image size"
|
||||
Consts_SInvalidImageList, "Invalid ImageList"
|
||||
Consts_SReplaceImage, "Unable to Replace Image"
|
||||
Consts_SImageIndexError, "Invalid ImageList Index"
|
||||
RTLConsts_SListCapacityError, "List capacity out of bounds (%d)"
|
||||
RTLConsts_SListCountError, "List count out of bounds (%d)"
|
||||
RTLConsts_SListIndexError, "List index out of bounds (%d)"
|
||||
|
|
|
@ -1,290 +1,440 @@
|
|||
[Closed Files]
|
||||
File_0=SourceModule,'C:\Program Files\Borland\Delphi7\Projects\OR_SRC_CREATION FILE 12 06 06 OR_3_270\WV_Release_CPRS_OFFICIAL\CPRS-Lib\ORSystem.pas',0,1,1,1,332,0,0
|
||||
File_1=SourceModule,'C:\Shared\CPRSfromGeorgeWelch\OR_30_270_SRC_VOE_MODIFIED\Program Files\Borland\Delphi7\Projects\OR_SRC_CREATION FILE 12 06 06 OR_3_270\OR_SRC_CREATION\CPRS-Chart\CPRSChart.dpr',0,1,1,1,1,0,0
|
||||
File_2=SourceModule,'C:\Shared\CPRSfromGeorgeWelch\OR_30_270_SRC_VOE_MODIFIED\Program Files\Borland\Delphi7\Projects\OR_SRC_CREATION FILE 12 06 06 OR_3_270\OR_SRC_CREATION\CPRS-Chart\fLabs.pas',0,1,1116,59,1127,0,0
|
||||
File_3=SourceModule,'C:\Shared\CPRSfromGeorgeWelch\OR_30_270_SRC_VOE_MODIFIED\Program Files\Borland\Delphi7\Projects\OR_SRC_CREATION FILE 12 06 06 OR_3_270\OR_SRC_CREATION\CPRS-Chart\fReview.pas',0,1,928,47,939,0,0
|
||||
File_4=SourceModule,'C:\Shared\CPRSfromGeorgeWelch\OR_30_270_SRC_VOE_MODIFIED\Program Files\Borland\Delphi7\Projects\OR_SRC_CREATION FILE 12 06 06 OR_3_270\OR_SRC_CREATION\CPRS-Chart\rTIU.pas',0,1,1033,28,1044,0,0
|
||||
File_5=SourceModule,'C:\Shared\CPRSfromGeorgeWelch\OR_30_270_SRC_VOE_MODIFIED\Program Files\Borland\Delphi7\Projects\OR_SRC_CREATION FILE 12 06 06 OR_3_270\OR_SRC_CREATION\CPRS-Chart\fAbout.pas',0,35,56,105,67,0,0
|
||||
File_6=SourceModule,'C:\Shared\CPRSfromGeorgeWelch\OR_30_270_SRC_VOE_MODIFIED\Program Files\Borland\Delphi7\Projects\OR_SRC_CREATION FILE 12 06 06 OR_3_270\OR_SRC_CREATION\CPRS-Chart\rMisc.pas',0,1,114,26,125,0,0
|
||||
File_7=SourceModule,'C:\Shared\CPRSfromGeorgeWelch\OR_30_270_SRC_VOE_MODIFIED\Program Files\Borland\Delphi7\Projects\OR_SRC_CREATION FILE 12 06 06 OR_3_270\OR_SRC_CREATION\CPRS-Chart\uSpell.pas',0,1,103,48,114,0,0
|
||||
File_8=SourceModule,'C:\Shared\CPRSfromGeorgeWelch\OR_30_270_SRC_VOE_MODIFIED\Program Files\Borland\Delphi7\Projects\OR_SRC_CREATION FILE 12 06 06 OR_3_270\OR_SRC_CREATION\CPRS-Chart\uSignItems.pas',0,1,645,37,664,0,0
|
||||
File_0=TSourceModule,'C:\Vista\cprs\OR_3_243V27\CPRS-chart\fFrame.pas',0,1,3475,6,3476,0,0,,
|
||||
File_1=TSourceModule,'C:\Program Files\vista\BDK32\Source\wsockc.pas',0,1,1464,1,1485,0,0,,
|
||||
File_2=TSourceModule,'C:\Vista\cprs\OR_3_243V27\VA\VAUtils.pas',0,1,1390,1,1407,0,0,,
|
||||
File_3=TSourceModule,'C:\Vista\cprs\OR_3_243V27\CPRS-chart\fReports.pas',0,1,245,1,266,0,0,,
|
||||
File_4=TSourceModule,'C:\Vista\cprs\OR_3_243V27\VA\VA508Accessibility\VA508AccessibilityManager.pas',0,1,1163,1,1184,0,0,,
|
||||
File_5=TSourceModule,'C:\Vista\cprs\OR_3_243V27\CPRS-chart\uGraphs.pas',0,1,199,1,220,0,0,,
|
||||
File_6=TSourceModule,'C:\Vista\cprs\OR_3_243V27\CPRS-chart\VERGENCECONTEXTORLib_TLB.pas',0,1,1104,47,1117,0,0,,
|
||||
File_7=TSourceModule,'C:\Vista\cprs\OR_3_243V27\CPRS-chart\Orders\fOrdersDC.pas',0,1,98,51,121,0,0,,
|
||||
File_8=TSourceModule,'c:\program files\borland\bds\4.0\source\Win32\rtl\common\ComObj.pas',0,1,1249,1,1270,0,0,,
|
||||
File_9=TSourceModule,'C:\Vista\cprs\main\CPRS-Chart\fAutoSz.pas',0,1,1,1,1,0,0,,
|
||||
|
||||
[Modules]
|
||||
Module0=C:\Program Files\Borland\Delphi7\Projects\OR_SRC_CREATION FILE 12 06 06 OR_3_270\WV_Release_CPRS_OFFICIAL\CPRS-Chart\fPtSelOptns.pas
|
||||
Module1=C:\Program Files\Borland\Delphi7\Projects\OR_SRC_CREATION FILE 12 06 06 OR_3_270\WV_Release_CPRS_OFFICIAL\CPRS-Chart\fPtSel.pas
|
||||
Module2=C:\Program Files\Borland\Delphi7\Projects\OR_SRC_CREATION FILE 12 06 06 OR_3_270\WV_Release_CPRS_OFFICIAL\CPRS-Chart\fFrame.pas
|
||||
Module3=C:\Program Files\Borland\Delphi7\Projects\OR_SRC_CREATION FILE 12 06 06 OR_3_270\WV_Release_CPRS_OFFICIAL\CPRS-Chart\VERGENCECONTEXTORLib_TLB.pas
|
||||
Module4=C:\PROGRA~1\BORLAND\DELPHI7\LIB\BDK32\Source\wsockc.pas
|
||||
Module5=c:\program files\borland\delphi7\source\rtl\Sys\system.pas
|
||||
Count=6
|
||||
Module0=default.htm
|
||||
Count=1
|
||||
EditWindowCount=1
|
||||
TypeLibWindowCount=1
|
||||
|
||||
[C:\Program Files\Borland\Delphi7\Projects\OR_SRC_CREATION FILE 12 06 06 OR_3_270\WV_Release_CPRS_OFFICIAL\CPRS-Chart\fPtSelOptns.pas]
|
||||
ModuleType=SourceModule
|
||||
FormState=1
|
||||
FormOnTop=1
|
||||
|
||||
[C:\Program Files\Borland\Delphi7\Projects\OR_SRC_CREATION FILE 12 06 06 OR_3_270\WV_Release_CPRS_OFFICIAL\CPRS-Chart\fPtSel.pas]
|
||||
ModuleType=SourceModule
|
||||
FormState=1
|
||||
FormOnTop=1
|
||||
|
||||
[C:\Program Files\Borland\Delphi7\Projects\OR_SRC_CREATION FILE 12 06 06 OR_3_270\WV_Release_CPRS_OFFICIAL\CPRS-Chart\fFrame.pas]
|
||||
ModuleType=SourceModule
|
||||
FormState=0
|
||||
FormOnTop=0
|
||||
|
||||
[C:\Program Files\Borland\Delphi7\Projects\OR_SRC_CREATION FILE 12 06 06 OR_3_270\WV_Release_CPRS_OFFICIAL\CPRS-Chart\VERGENCECONTEXTORLib_TLB.pas]
|
||||
ModuleType=SourceModule
|
||||
FormState=0
|
||||
FormOnTop=0
|
||||
|
||||
[C:\PROGRA~1\BORLAND\DELPHI7\LIB\BDK32\Source\wsockc.pas]
|
||||
ModuleType=SourceModule
|
||||
FormState=0
|
||||
FormOnTop=0
|
||||
|
||||
[c:\program files\borland\delphi7\source\rtl\Sys\system.pas]
|
||||
ModuleType=SourceModule
|
||||
FormState=0
|
||||
FormOnTop=0
|
||||
|
||||
[C:\Program Files\Borland\Delphi7\Projects\ProjectGroup1.bpg]
|
||||
FormState=0
|
||||
FormOnTop=0
|
||||
|
||||
[C:\Program Files\Borland\Delphi7\Projects\OR_SRC_CREATION FILE 12 06 06 OR_3_270\WV_Release_CPRS_OFFICIAL\CPRS-Chart\CPRSChart.dpr]
|
||||
FormState=0
|
||||
FormOnTop=0
|
||||
SymbolFile=C:\Program Files\Borland\Delphi7\Projects\OR_SRC_CREATION FILE 12 06 06 OR_3_270\WV_Release_CPRS_OFFICIAL\CPRS-Chart\CPRSChart.dsm
|
||||
ModSinceCompile=1
|
||||
|
||||
[C:\Program Files\Borland\Delphi7\Projects\OR_SRC_CREATION FILE 12 06 06 OR_3_270\WV_Release_CPRS_OFFICIAL\CPRS-Chart\CPRSChart.tlb]
|
||||
FormState=0
|
||||
FormOnTop=0
|
||||
[default.htm]
|
||||
ModuleType=TURLModule
|
||||
|
||||
[EditWindow0]
|
||||
ViewCount=6
|
||||
CurrentView=3
|
||||
ViewCount=1
|
||||
CurrentView=0
|
||||
View0=0
|
||||
View1=1
|
||||
View2=2
|
||||
View3=3
|
||||
View4=4
|
||||
View5=5
|
||||
CodeExplorer=CodeExplorer@EditWindow0
|
||||
MessageView=MessageView@EditWindow0
|
||||
PercentageSizes=1
|
||||
Create=1
|
||||
Visible=1
|
||||
Docked=0
|
||||
State=0
|
||||
Left=35
|
||||
Top=116
|
||||
Width=957
|
||||
Height=594
|
||||
MaxLeft=-1
|
||||
MaxTop=-1
|
||||
ClientWidth=949
|
||||
ClientHeight=560
|
||||
Left=3154
|
||||
Top=1192
|
||||
Width=6797
|
||||
Height=8767
|
||||
MaxLeft=0
|
||||
MaxTop=0
|
||||
ClientWidth=6719
|
||||
ClientHeight=8306
|
||||
DockedToMainForm=0
|
||||
MessageView=MessageView@EditWindow0
|
||||
BorlandEditorCodeExplorer=BorlandEditorCodeExplorer@EditWindow0
|
||||
TopPanelSize=0
|
||||
LeftPanelSize=0
|
||||
LeftPanelClients=BorlandEditorCodeExplorer@EditWindow0
|
||||
LeftPanelData=0000080001000100000019000000426F726C616E64456469746F72436F64654578706C6F726572B70C00000000000000E201000000000000FFFFFFFF
|
||||
RightPanelSize=0
|
||||
BottomPanelSize=0
|
||||
BottomPanelClients=MessageView@EditWindow0
|
||||
BottomPanelData=000008000100010000000B0000004D657373616765566965770000000000000000000000000000000000FFFFFFFF
|
||||
BottomMiddlePanelSize=0
|
||||
BottomMiddlePanelClients=DockSite1
|
||||
BottomMiddelPanelData=0000080001000100000009000000446F636B53697465310000000000000000000000000000000000FFFFFFFF
|
||||
|
||||
[View0]
|
||||
Module=c:\program files\borland\delphi7\source\rtl\Sys\system.pas
|
||||
CursorX=1
|
||||
CursorY=11674
|
||||
TopLine=11660
|
||||
LeftCol=1
|
||||
|
||||
[View1]
|
||||
Module=C:\Program Files\Borland\Delphi7\Projects\OR_SRC_CREATION FILE 12 06 06 OR_3_270\WV_Release_CPRS_OFFICIAL\CPRS-Chart\fPtSel.pas
|
||||
CursorX=80
|
||||
CursorY=1310
|
||||
TopLine=1291
|
||||
LeftCol=1
|
||||
|
||||
[View2]
|
||||
Module=C:\PROGRA~1\BORLAND\DELPHI7\LIB\BDK32\Source\wsockc.pas
|
||||
CursorX=1
|
||||
CursorY=1479
|
||||
TopLine=1465
|
||||
LeftCol=1
|
||||
|
||||
[View3]
|
||||
Module=C:\Program Files\Borland\Delphi7\Projects\OR_SRC_CREATION FILE 12 06 06 OR_3_270\WV_Release_CPRS_OFFICIAL\CPRS-Chart\fPtSelOptns.pas
|
||||
CursorX=1
|
||||
CursorY=202
|
||||
TopLine=185
|
||||
LeftCol=1
|
||||
|
||||
[View4]
|
||||
Module=C:\Program Files\Borland\Delphi7\Projects\OR_SRC_CREATION FILE 12 06 06 OR_3_270\WV_Release_CPRS_OFFICIAL\CPRS-Chart\VERGENCECONTEXTORLib_TLB.pas
|
||||
CursorX=1
|
||||
CursorY=1145
|
||||
TopLine=1134
|
||||
LeftCol=1
|
||||
|
||||
[View5]
|
||||
Module=C:\Program Files\Borland\Delphi7\Projects\OR_SRC_CREATION FILE 12 06 06 OR_3_270\WV_Release_CPRS_OFFICIAL\CPRS-Chart\fFrame.pas
|
||||
CursorX=10
|
||||
CursorY=624
|
||||
TopLine=610
|
||||
LeftCol=1
|
||||
CustomEditViewType=TWelcomePageView
|
||||
WelcomePageURL=bds:/default.htm
|
||||
|
||||
[TypeLibEditWindow0]
|
||||
Create=1
|
||||
Visible=0
|
||||
State=0
|
||||
Left=200
|
||||
Top=110
|
||||
Width=639
|
||||
Height=453
|
||||
MaxLeft=-1
|
||||
MaxTop=-1
|
||||
ClientWidth=631
|
||||
ClientHeight=419
|
||||
Module=C:\Program Files\Borland\Delphi7\Projects\OR_SRC_CREATION FILE 12 06 06 OR_3_270\WV_Release_CPRS_OFFICIAL\CPRS-Chart\CPRSChart.tlb
|
||||
Module=P:\vista\CPRS-WV_OFFICIAL_RELEASE-27\WVEHR-v27Delphi2006\CPRS-chart\CPRSChart.tlb
|
||||
|
||||
[Watches]
|
||||
Count=1
|
||||
Watch0='paramstr(2)',256,0,18,1,1,'Watches'
|
||||
Count=0
|
||||
|
||||
[WatchWindow]
|
||||
WatchColumnWidth=100
|
||||
WatchColumnWidth=120
|
||||
WatchShowColumnHeaders=1
|
||||
PercentageSizes=1
|
||||
Create=1
|
||||
Visible=0
|
||||
Docked=0
|
||||
State=0
|
||||
Left=4
|
||||
Top=410
|
||||
Width=739
|
||||
Height=172
|
||||
MaxLeft=-1
|
||||
MaxTop=-1
|
||||
ClientWidth=731
|
||||
ClientHeight=146
|
||||
TBDockHeight=146
|
||||
LRDockWidth=426
|
||||
Left=1738
|
||||
Top=1423
|
||||
Width=2627
|
||||
Height=2344
|
||||
MaxLeft=-10
|
||||
MaxTop=-14
|
||||
ClientWidth=2549
|
||||
ClientHeight=1992
|
||||
TBDockHeight=163
|
||||
LRDockWidth=2549
|
||||
Dockable=1
|
||||
StayOnTop=0
|
||||
|
||||
[Breakpoints]
|
||||
Count=0
|
||||
Count=1
|
||||
Breakpoint0='C:\Vista\cprs\OR_3_243V27\CPRS-chart\fGraphs.pas',462,'',0,1,'',1,0,0,'',1,'','','',0
|
||||
|
||||
[AddressBreakpoints]
|
||||
Count=0
|
||||
|
||||
[Main Window]
|
||||
PercentageSizes=1
|
||||
Create=1
|
||||
Visible=1
|
||||
Docked=0
|
||||
State=0
|
||||
Left=0
|
||||
Top=0
|
||||
Width=1024
|
||||
Height=112
|
||||
MaxLeft=-1
|
||||
MaxTop=-1
|
||||
ClientWidth=1016
|
||||
ClientHeight=78
|
||||
Width=10000
|
||||
Height=1165
|
||||
MaxLeft=-10
|
||||
MaxTop=-14
|
||||
ClientWidth=9922
|
||||
ClientHeight=705
|
||||
BottomPanelSize=0
|
||||
|
||||
[ProjectManager]
|
||||
Create=1
|
||||
Visible=0
|
||||
State=0
|
||||
Left=-43
|
||||
Top=189
|
||||
Width=1036
|
||||
Height=462
|
||||
MaxLeft=-1
|
||||
MaxTop=-1
|
||||
ClientWidth=1028
|
||||
ClientHeight=436
|
||||
TBDockHeight=489
|
||||
LRDockWidth=719
|
||||
Dockable=1
|
||||
|
||||
[Components]
|
||||
Left=240
|
||||
Top=237
|
||||
Width=183
|
||||
Height=235
|
||||
Create=1
|
||||
Visible=0
|
||||
State=0
|
||||
MaxLeft=-1
|
||||
MaxTop=-1
|
||||
ClientWidth=175
|
||||
ClientHeight=209
|
||||
TBDockHeight=235
|
||||
LRDockWidth=183
|
||||
Dockable=1
|
||||
|
||||
[CPUWindow]
|
||||
Create=1
|
||||
Visible=0
|
||||
State=0
|
||||
Left=166
|
||||
Top=114
|
||||
Width=634
|
||||
Height=565
|
||||
MaxLeft=-1
|
||||
MaxTop=-1
|
||||
ClientWidth=626
|
||||
ClientHeight=531
|
||||
DumpPane=79
|
||||
DisassemblyPane=187
|
||||
RegisterPane=231
|
||||
FlagPane=64
|
||||
|
||||
[AlignmentPalette]
|
||||
Create=1
|
||||
Visible=0
|
||||
State=0
|
||||
Left=200
|
||||
Top=114
|
||||
Width=156
|
||||
Height=84
|
||||
MaxLeft=-1
|
||||
MaxTop=-1
|
||||
ClientWidth=150
|
||||
ClientHeight=60
|
||||
|
||||
[PropertyInspector]
|
||||
PercentageSizes=1
|
||||
Create=1
|
||||
Visible=1
|
||||
Docked=1
|
||||
State=0
|
||||
Left=0
|
||||
Top=394
|
||||
Width=246
|
||||
Height=335
|
||||
Top=0
|
||||
Width=1289
|
||||
Height=2358
|
||||
MaxLeft=-1
|
||||
MaxTop=-1
|
||||
ClientWidth=238
|
||||
ClientHeight=309
|
||||
TBDockHeight=367
|
||||
LRDockWidth=190
|
||||
ClientWidth=1289
|
||||
ClientHeight=2358
|
||||
TBDockHeight=271
|
||||
LRDockWidth=3730
|
||||
Dockable=1
|
||||
SplitPos=85
|
||||
ArrangeBy=Name
|
||||
SelectedItem=Visible
|
||||
ExpandedItems=
|
||||
HiddenCategories=
|
||||
StayOnTop=0
|
||||
|
||||
[BreakpointWindow]
|
||||
[ToolForm]
|
||||
PercentageSizes=1
|
||||
Create=1
|
||||
Visible=1
|
||||
Docked=1
|
||||
State=0
|
||||
Left=0
|
||||
Top=0
|
||||
Width=2920
|
||||
Height=7696
|
||||
MaxLeft=-1
|
||||
MaxTop=-1
|
||||
ClientWidth=2920
|
||||
ClientHeight=7696
|
||||
TBDockHeight=5813
|
||||
LRDockWidth=1406
|
||||
Dockable=1
|
||||
StayOnTop=0
|
||||
|
||||
[DebugLogView]
|
||||
PercentageSizes=1
|
||||
Create=1
|
||||
Visible=0
|
||||
Docked=0
|
||||
State=0
|
||||
Left=143
|
||||
Top=285
|
||||
Width=737
|
||||
Height=197
|
||||
Left=68
|
||||
Top=8198
|
||||
Width=3623
|
||||
Height=3360
|
||||
MaxLeft=-10
|
||||
MaxTop=-14
|
||||
ClientWidth=3545
|
||||
ClientHeight=3008
|
||||
TBDockHeight=298
|
||||
LRDockWidth=3623
|
||||
Dockable=1
|
||||
StayOnTop=0
|
||||
|
||||
[ThreadStatusWindow]
|
||||
PercentageSizes=1
|
||||
Create=1
|
||||
Visible=0
|
||||
Docked=0
|
||||
State=0
|
||||
Left=68
|
||||
Top=8198
|
||||
Width=5420
|
||||
Height=1762
|
||||
MaxLeft=-10
|
||||
MaxTop=-14
|
||||
ClientWidth=5342
|
||||
ClientHeight=1409
|
||||
TBDockHeight=149
|
||||
LRDockWidth=5420
|
||||
Dockable=1
|
||||
StayOnTop=0
|
||||
Column0Width=145
|
||||
Column1Width=100
|
||||
Column2Width=115
|
||||
Column3Width=250
|
||||
|
||||
[LocalVarsWindow]
|
||||
PercentageSizes=1
|
||||
Create=1
|
||||
Visible=0
|
||||
Docked=0
|
||||
State=0
|
||||
Left=1738
|
||||
Top=1423
|
||||
Width=2627
|
||||
Height=2412
|
||||
MaxLeft=-10
|
||||
MaxTop=-14
|
||||
ClientWidth=2549
|
||||
ClientHeight=2060
|
||||
TBDockHeight=203
|
||||
LRDockWidth=2549
|
||||
Dockable=1
|
||||
StayOnTop=0
|
||||
|
||||
[CallStackWindow]
|
||||
PercentageSizes=1
|
||||
Create=1
|
||||
Visible=0
|
||||
Docked=0
|
||||
State=0
|
||||
Left=117
|
||||
Top=1558
|
||||
Width=2627
|
||||
Height=2344
|
||||
MaxLeft=-10
|
||||
MaxTop=-14
|
||||
ClientWidth=2549
|
||||
ClientHeight=1992
|
||||
TBDockHeight=163
|
||||
LRDockWidth=2549
|
||||
Dockable=1
|
||||
StayOnTop=0
|
||||
|
||||
[FindReferencsForm]
|
||||
PercentageSizes=1
|
||||
Create=1
|
||||
Visible=1
|
||||
Docked=1
|
||||
State=0
|
||||
Left=0
|
||||
Top=0
|
||||
Width=4307
|
||||
Height=1396
|
||||
MaxLeft=-1
|
||||
MaxTop=-1
|
||||
ClientWidth=729
|
||||
ClientHeight=171
|
||||
TBDockHeight=197
|
||||
LRDockWidth=737
|
||||
ClientWidth=4307
|
||||
ClientHeight=1396
|
||||
TBDockHeight=5081
|
||||
LRDockWidth=5303
|
||||
Dockable=1
|
||||
StayOnTop=0
|
||||
|
||||
[RefactoringForm]
|
||||
PercentageSizes=1
|
||||
Create=1
|
||||
Visible=1
|
||||
Docked=1
|
||||
State=0
|
||||
Left=0
|
||||
Top=0
|
||||
Width=4307
|
||||
Height=1396
|
||||
MaxLeft=-1
|
||||
MaxTop=-1
|
||||
ClientWidth=4307
|
||||
ClientHeight=1396
|
||||
TBDockHeight=3835
|
||||
LRDockWidth=5303
|
||||
Dockable=1
|
||||
StayOnTop=0
|
||||
|
||||
[TemplateView]
|
||||
PercentageSizes=1
|
||||
Create=1
|
||||
Visible=0
|
||||
Docked=0
|
||||
State=0
|
||||
Left=0
|
||||
Top=0
|
||||
Width=4297
|
||||
Height=5827
|
||||
MaxLeft=-10
|
||||
MaxTop=-14
|
||||
ClientWidth=4219
|
||||
ClientHeight=5474
|
||||
TBDockHeight=5827
|
||||
LRDockWidth=4297
|
||||
Dockable=1
|
||||
StayOnTop=0
|
||||
Name=60
|
||||
Description=308
|
||||
filter=1
|
||||
|
||||
[DataExplorer]
|
||||
PercentageSizes=1
|
||||
Create=1
|
||||
Visible=1
|
||||
Docked=1
|
||||
State=0
|
||||
Left=0
|
||||
Top=0
|
||||
Width=1289
|
||||
Height=2358
|
||||
MaxLeft=-1
|
||||
MaxTop=-1
|
||||
ClientWidth=1289
|
||||
ClientHeight=2358
|
||||
TBDockHeight=4878
|
||||
LRDockWidth=7148
|
||||
Dockable=1
|
||||
StayOnTop=0
|
||||
|
||||
[MetricsView]
|
||||
PercentageSizes=1
|
||||
Create=1
|
||||
Visible=0
|
||||
Docked=1
|
||||
State=0
|
||||
Left=-183
|
||||
Top=-748
|
||||
Width=5303
|
||||
Height=3835
|
||||
MaxLeft=-1
|
||||
MaxTop=-1
|
||||
ClientWidth=5303
|
||||
ClientHeight=3835
|
||||
TBDockHeight=3835
|
||||
LRDockWidth=5303
|
||||
Dockable=1
|
||||
StayOnTop=0
|
||||
|
||||
[QAView]
|
||||
PercentageSizes=1
|
||||
Create=1
|
||||
Visible=0
|
||||
Docked=1
|
||||
State=0
|
||||
Left=-183
|
||||
Top=-748
|
||||
Width=5303
|
||||
Height=3835
|
||||
MaxLeft=-1
|
||||
MaxTop=-1
|
||||
ClientWidth=5303
|
||||
ClientHeight=3835
|
||||
TBDockHeight=3835
|
||||
LRDockWidth=5303
|
||||
Dockable=1
|
||||
StayOnTop=0
|
||||
|
||||
[RefactoringsView]
|
||||
PercentageSizes=1
|
||||
Create=1
|
||||
Visible=0
|
||||
Docked=1
|
||||
State=0
|
||||
Left=-183
|
||||
Top=-748
|
||||
Width=5303
|
||||
Height=3835
|
||||
MaxLeft=-1
|
||||
MaxTop=-1
|
||||
ClientWidth=5303
|
||||
ClientHeight=3835
|
||||
TBDockHeight=3835
|
||||
LRDockWidth=5303
|
||||
Dockable=1
|
||||
StayOnTop=0
|
||||
|
||||
[UsagesView]
|
||||
PercentageSizes=1
|
||||
Create=1
|
||||
Visible=0
|
||||
Docked=1
|
||||
State=0
|
||||
Left=-183
|
||||
Top=-748
|
||||
Width=5303
|
||||
Height=3835
|
||||
MaxLeft=-1
|
||||
MaxTop=-1
|
||||
ClientWidth=5303
|
||||
ClientHeight=3835
|
||||
TBDockHeight=3835
|
||||
LRDockWidth=5303
|
||||
Dockable=1
|
||||
StayOnTop=0
|
||||
|
||||
[ModelViewTool]
|
||||
PercentageSizes=1
|
||||
Create=1
|
||||
Visible=1
|
||||
Docked=1
|
||||
State=0
|
||||
Left=0
|
||||
Top=0
|
||||
Width=1289
|
||||
Height=2358
|
||||
MaxLeft=-1
|
||||
MaxTop=-1
|
||||
ClientWidth=1289
|
||||
ClientHeight=2358
|
||||
TBDockHeight=4878
|
||||
LRDockWidth=5303
|
||||
Dockable=1
|
||||
StayOnTop=0
|
||||
|
||||
[PropertyInspector]
|
||||
PercentageSizes=1
|
||||
Create=1
|
||||
Visible=1
|
||||
Docked=1
|
||||
State=0
|
||||
Left=0
|
||||
Top=0
|
||||
Width=2920
|
||||
Height=7696
|
||||
MaxLeft=-1
|
||||
MaxTop=-1
|
||||
ClientWidth=2920
|
||||
ClientHeight=7696
|
||||
TBDockHeight=5813
|
||||
LRDockWidth=1543
|
||||
Dockable=1
|
||||
StayOnTop=0
|
||||
SplitPos=73
|
||||
|
||||
[BreakpointWindow]
|
||||
PercentageSizes=1
|
||||
Create=1
|
||||
Visible=0
|
||||
Docked=0
|
||||
State=0
|
||||
Left=88
|
||||
Top=7453
|
||||
Width=6396
|
||||
Height=2276
|
||||
MaxLeft=-10
|
||||
MaxTop=-14
|
||||
ClientWidth=6318
|
||||
ClientHeight=1924
|
||||
TBDockHeight=203
|
||||
LRDockWidth=6396
|
||||
Dockable=1
|
||||
StayOnTop=0
|
||||
Column0Width=100
|
||||
Column1Width=75
|
||||
Column2Width=200
|
||||
|
@ -292,106 +442,151 @@ Column3Width=200
|
|||
Column4Width=75
|
||||
Column5Width=75
|
||||
|
||||
[CallStackWindow]
|
||||
[StructureView]
|
||||
PercentageSizes=1
|
||||
Create=1
|
||||
Visible=0
|
||||
State=0
|
||||
Left=282
|
||||
Top=543
|
||||
Width=469
|
||||
Height=294
|
||||
MaxLeft=-1
|
||||
MaxTop=-1
|
||||
ClientWidth=461
|
||||
ClientHeight=268
|
||||
TBDockHeight=294
|
||||
LRDockWidth=469
|
||||
Dockable=1
|
||||
|
||||
[ObjectTree]
|
||||
Create=1
|
||||
Visible=1
|
||||
Docked=0
|
||||
State=0
|
||||
Left=0
|
||||
Top=114
|
||||
Width=250
|
||||
Height=274
|
||||
MaxLeft=-1
|
||||
MaxTop=-1
|
||||
ClientWidth=242
|
||||
ClientHeight=248
|
||||
TBDockHeight=248
|
||||
LRDockWidth=190
|
||||
Top=1192
|
||||
Width=1670
|
||||
Height=3469
|
||||
MaxLeft=-10
|
||||
MaxTop=-14
|
||||
ClientWidth=1592
|
||||
ClientHeight=3117
|
||||
TBDockHeight=3469
|
||||
LRDockWidth=1670
|
||||
Dockable=1
|
||||
StayOnTop=0
|
||||
|
||||
[DebugLogView]
|
||||
[frmCaliberMain]
|
||||
PercentageSizes=1
|
||||
Create=1
|
||||
Visible=0
|
||||
Docked=0
|
||||
State=0
|
||||
Left=431
|
||||
Top=254
|
||||
Width=417
|
||||
Height=291
|
||||
MaxLeft=-1
|
||||
MaxTop=-1
|
||||
ClientWidth=409
|
||||
ClientHeight=265
|
||||
TBDockHeight=291
|
||||
LRDockWidth=417
|
||||
Dockable=1
|
||||
|
||||
[CodeExplorer@EditWindow0]
|
||||
Create=1
|
||||
Visible=1
|
||||
State=0
|
||||
Left=0
|
||||
Top=0
|
||||
Width=1008
|
||||
Height=419
|
||||
MaxLeft=-1
|
||||
MaxTop=-1
|
||||
ClientWidth=1008
|
||||
ClientHeight=419
|
||||
TBDockHeight=305
|
||||
LRDockWidth=140
|
||||
Left=78
|
||||
Top=7656
|
||||
Width=9863
|
||||
Height=2209
|
||||
MaxLeft=-10
|
||||
MaxTop=-14
|
||||
ClientWidth=9785
|
||||
ClientHeight=1856
|
||||
TBDockHeight=1098
|
||||
LRDockWidth=1504
|
||||
Dockable=1
|
||||
StayOnTop=0
|
||||
|
||||
[MessageView@EditWindow0]
|
||||
PercentageSizes=1
|
||||
Create=1
|
||||
Visible=0
|
||||
Docked=1
|
||||
State=0
|
||||
Left=0
|
||||
Top=0
|
||||
Width=1008
|
||||
Height=419
|
||||
Left=-179
|
||||
Top=-726
|
||||
Width=2773
|
||||
Height=1152
|
||||
MaxLeft=-1
|
||||
MaxTop=-1
|
||||
ClientWidth=1008
|
||||
ClientHeight=419
|
||||
TBDockHeight=85
|
||||
LRDockWidth=443
|
||||
ClientWidth=2773
|
||||
ClientHeight=1152
|
||||
TBDockHeight=1152
|
||||
LRDockWidth=2773
|
||||
Dockable=1
|
||||
StayOnTop=0
|
||||
|
||||
[BorlandEditorCodeExplorer@EditWindow0]
|
||||
PercentageSizes=1
|
||||
Create=1
|
||||
Visible=0
|
||||
Docked=1
|
||||
State=0
|
||||
Left=-179
|
||||
Top=-113
|
||||
Width=1465
|
||||
Height=8266
|
||||
MaxLeft=-1
|
||||
MaxTop=-1
|
||||
ClientWidth=1465
|
||||
ClientHeight=8266
|
||||
TBDockHeight=8266
|
||||
LRDockWidth=1465
|
||||
Dockable=1
|
||||
StayOnTop=0
|
||||
|
||||
[DockHosts]
|
||||
DockHostCount=1
|
||||
DockHostCount=3
|
||||
|
||||
[DockSite0]
|
||||
DockSiteType=1
|
||||
PercentageSizes=1
|
||||
Create=1
|
||||
Visible=1
|
||||
Docked=0
|
||||
State=0
|
||||
Left=-10
|
||||
Top=1369
|
||||
Width=3076
|
||||
Height=8523
|
||||
MaxLeft=-10
|
||||
MaxTop=-14
|
||||
ClientWidth=2998
|
||||
ClientHeight=8171
|
||||
TBDockHeight=8523
|
||||
LRDockWidth=3076
|
||||
Dockable=1
|
||||
StayOnTop=0
|
||||
TabPosition=0
|
||||
ActiveTabID=ToolForm
|
||||
TabDockClients=PropertyInspector,ToolForm
|
||||
|
||||
[DockSite1]
|
||||
DockSiteType=1
|
||||
PercentageSizes=1
|
||||
Create=1
|
||||
Visible=0
|
||||
Docked=1
|
||||
State=0
|
||||
Left=4
|
||||
Top=195
|
||||
Width=1024
|
||||
Height=474
|
||||
Left=-179
|
||||
Top=-726
|
||||
Width=4385
|
||||
Height=1870
|
||||
MaxLeft=-1
|
||||
MaxTop=-1
|
||||
ClientWidth=1016
|
||||
ClientHeight=448
|
||||
TBDockHeight=474
|
||||
LRDockWidth=283
|
||||
ClientWidth=4385
|
||||
ClientHeight=1870
|
||||
TBDockHeight=1870
|
||||
LRDockWidth=4385
|
||||
Dockable=1
|
||||
TabPosition=0
|
||||
ActiveTab=Exploring fPtSelOptns.pas
|
||||
TabDockClients=CodeExplorer@EditWindow0,MessageView@EditWindow0
|
||||
StayOnTop=0
|
||||
TabPosition=1
|
||||
ActiveTabID=RefactoringForm
|
||||
TabDockClients=RefactoringForm,FindReferencsForm,UsagesView,RefactoringsView,QAView,MetricsView
|
||||
|
||||
[DockSite2]
|
||||
DockSiteType=1
|
||||
PercentageSizes=1
|
||||
Create=1
|
||||
Visible=0
|
||||
Docked=0
|
||||
State=0
|
||||
Left=8516
|
||||
Top=1125
|
||||
Width=1445
|
||||
Height=3184
|
||||
MaxLeft=-10
|
||||
MaxTop=-14
|
||||
ClientWidth=1367
|
||||
ClientHeight=2832
|
||||
TBDockHeight=3184
|
||||
LRDockWidth=1445
|
||||
Dockable=1
|
||||
StayOnTop=0
|
||||
TabPosition=1
|
||||
ActiveTabID=ProjectManager
|
||||
TabDockClients=ProjectManager,ModelViewTool,DataExplorer
|
||||
|
||||
|
|
Binary file not shown.
Binary file not shown.
144939
CPRS-Chart/CPRSChart.map
144939
CPRS-Chart/CPRSChart.map
File diff suppressed because it is too large
Load Diff
Binary file not shown.
Binary file not shown.
|
@ -0,0 +1,679 @@
|
|||
[Closed Files]
|
||||
File_0=TSourceModule,'C:\Vista\cprs\OR_3_243V27\CPRS-chart\fFrame.pas',0,1,3475,6,3476,0,0,,
|
||||
File_1=TSourceModule,'C:\Program Files\vista\BDK32\Source\wsockc.pas',0,1,1464,1,1485,0,0,,
|
||||
File_2=TSourceModule,'C:\Vista\cprs\OR_3_243V27\VA\VAUtils.pas',0,1,1390,1,1407,0,0,,
|
||||
File_3=TSourceModule,'C:\Vista\cprs\OR_3_243V27\CPRS-chart\fReports.pas',0,1,245,1,266,0,0,,
|
||||
File_4=TSourceModule,'C:\Vista\cprs\OR_3_243V27\VA\VA508Accessibility\VA508AccessibilityManager.pas',0,1,1163,1,1184,0,0,,
|
||||
File_5=TSourceModule,'C:\Vista\cprs\OR_3_243V27\CPRS-chart\uGraphs.pas',0,1,199,1,220,0,0,,
|
||||
File_6=TSourceModule,'C:\Vista\cprs\OR_3_243V27\CPRS-chart\VERGENCECONTEXTORLib_TLB.pas',0,1,1104,47,1117,0,0,,
|
||||
File_7=TSourceModule,'C:\Vista\cprs\OR_3_243V27\CPRS-chart\Orders\fOrdersDC.pas',0,1,98,51,121,0,0,,
|
||||
File_8=TSourceModule,'c:\program files\borland\bds\4.0\source\Win32\rtl\common\ComObj.pas',0,1,1249,1,1270,0,0,,
|
||||
File_9=TSourceModule,'C:\Vista\cprs\main\CPRS-Chart\fAutoSz.pas',0,1,1,1,1,0,0,,
|
||||
|
||||
[Modules]
|
||||
Module0=C:\Vista\cprs\OR_3_243V27\VA\VAClasses.pas
|
||||
Module1=default.htm
|
||||
Module2=C:\Vista\cprs\OR_3_243V27\CPRS-chart\CPRSChart.bdsproj
|
||||
Module3=C:\Vista\cprs\OR_3_243V27\CPRS-chart\uInit.pas
|
||||
Module4=C:\Vista\cprs\OR_3_243V27\CPRS-Lib\ORNet.pas
|
||||
Module5=C:\Vista\cprs\OR_3_243V27\CPRS-chart\Templates\fFindingTemplates.pas
|
||||
Module6=C:\Vista\cprs\OR_3_243V27\CPRS-chart\fGraphs.pas
|
||||
Count=7
|
||||
EditWindowCount=1
|
||||
TypeLibWindowCount=1
|
||||
|
||||
[C:\Vista\cprs\OR_3_243V27\VA\VAClasses.pas]
|
||||
ModuleType=TSourceModule
|
||||
FormState=0
|
||||
FormOnTop=0
|
||||
|
||||
[default.htm]
|
||||
ModuleType=TURLModule
|
||||
|
||||
[C:\Vista\cprs\OR_3_243V27\CPRS-chart\CPRSChart.bdsproj]
|
||||
ModuleType=TBaseProject
|
||||
|
||||
[C:\Vista\cprs\OR_3_243V27\CPRS-chart\uInit.pas]
|
||||
ModuleType=TSourceModule
|
||||
FormState=0
|
||||
FormOnTop=0
|
||||
|
||||
[C:\Vista\cprs\OR_3_243V27\CPRS-Lib\ORNet.pas]
|
||||
ModuleType=TSourceModule
|
||||
FormState=0
|
||||
FormOnTop=0
|
||||
|
||||
[C:\Vista\cprs\OR_3_243V27\CPRS-chart\Templates\fFindingTemplates.pas]
|
||||
ModuleType=TSourceModule
|
||||
FormState=0
|
||||
FormOnTop=0
|
||||
|
||||
[C:\Vista\cprs\OR_3_243V27\CPRS-chart\fGraphs.pas]
|
||||
ModuleType=TSourceModule
|
||||
FormState=0
|
||||
FormOnTop=0
|
||||
|
||||
[C:\Vista\cprs\OR_3_243V27\CPRS-chart\fBase508Form.pas]
|
||||
FormState=0
|
||||
FormOnTop=0
|
||||
|
||||
[EditWindow0]
|
||||
ViewCount=7
|
||||
CurrentEditView=C:\Vista\cprs\OR_3_243V27\VA\VAClasses.pas
|
||||
View0=0
|
||||
View1=1
|
||||
View2=2
|
||||
View3=3
|
||||
View4=4
|
||||
View5=5
|
||||
View6=6
|
||||
PercentageSizes=1
|
||||
Create=1
|
||||
Visible=1
|
||||
Docked=0
|
||||
State=0
|
||||
Left=1709
|
||||
Top=1131
|
||||
Width=6797
|
||||
Height=8760
|
||||
MaxLeft=0
|
||||
MaxTop=0
|
||||
ClientWidth=6719
|
||||
ClientHeight=8297
|
||||
DockedToMainForm=0
|
||||
MessageView=MessageView@EditWindow0
|
||||
BorlandEditorCodeExplorer=BorlandEditorCodeExplorer@EditWindow0
|
||||
TopPanelSize=0
|
||||
LeftPanelSize=0
|
||||
LeftPanelClients=BorlandEditorCodeExplorer@EditWindow0
|
||||
LeftPanelData=0000080001000100000019000000426F726C616E64456469746F72436F64654578706C6F726572B70C00000000000000E201000000000000FFFFFFFF
|
||||
RightPanelSize=0
|
||||
BottomPanelSize=2552
|
||||
BottomPanelClients=MessageView@EditWindow0
|
||||
BottomPanelData=0000080001000000000000000000000000000000000000000000000100000000000000000B0000004D65737361676556696577FFFFFFFF
|
||||
BottomMiddlePanelSize=0
|
||||
BottomMiddlePanelClients=DockSite0
|
||||
BottomMiddelPanelData=0000080001000100000009000000446F636B53697465300000000000000000000000000000000000FFFFFFFF
|
||||
|
||||
[View0]
|
||||
CustomEditViewType=TWelcomePageView
|
||||
WelcomePageURL=bds:/default.htm
|
||||
|
||||
[View1]
|
||||
CustomEditViewType=TEditView
|
||||
Module=C:\Vista\cprs\OR_3_243V27\CPRS-chart\uInit.pas
|
||||
CursorX=27
|
||||
CursorY=23
|
||||
TopLine=11
|
||||
LeftCol=1
|
||||
Elisions=
|
||||
Bookmarks=
|
||||
EditViewName=C:\Vista\cprs\OR_3_243V27\CPRS-chart\uInit.pas
|
||||
|
||||
[View2]
|
||||
CustomEditViewType=TEditView
|
||||
Module=C:\Vista\cprs\OR_3_243V27\CPRS-chart\CPRSChart.dpr
|
||||
CursorX=6
|
||||
CursorY=322
|
||||
TopLine=298
|
||||
LeftCol=1
|
||||
Elisions=
|
||||
Bookmarks=
|
||||
EditViewName=C:\Vista\cprs\OR_3_243V27\CPRS-chart\CPRSChart.dpr
|
||||
|
||||
[View3]
|
||||
CustomEditViewType=TEditView
|
||||
Module=C:\Vista\cprs\OR_3_243V27\CPRS-chart\fGraphs.pas
|
||||
CursorX=1
|
||||
CursorY=1661
|
||||
TopLine=1640
|
||||
LeftCol=1
|
||||
Elisions=
|
||||
Bookmarks=
|
||||
EditViewName=C:\Vista\cprs\OR_3_243V27\CPRS-chart\fGraphs.pas
|
||||
|
||||
[View4]
|
||||
CustomEditViewType=TEditView
|
||||
Module=C:\Vista\cprs\OR_3_243V27\VA\VAClasses.pas
|
||||
CursorX=1
|
||||
CursorY=314
|
||||
TopLine=297
|
||||
LeftCol=1
|
||||
Elisions=
|
||||
Bookmarks=
|
||||
EditViewName=C:\Vista\cprs\OR_3_243V27\VA\VAClasses.pas
|
||||
|
||||
[View5]
|
||||
CustomEditViewType=TEditView
|
||||
Module=C:\Vista\cprs\OR_3_243V27\CPRS-chart\Templates\fFindingTemplates.pas
|
||||
CursorX=27
|
||||
CursorY=133
|
||||
TopLine=119
|
||||
LeftCol=1
|
||||
Elisions=
|
||||
Bookmarks=
|
||||
EditViewName=C:\Vista\cprs\OR_3_243V27\CPRS-chart\Templates\fFindingTemplates.pas
|
||||
|
||||
[View6]
|
||||
CustomEditViewType=TEditView
|
||||
Module=C:\Vista\cprs\OR_3_243V27\CPRS-Lib\ORNet.pas
|
||||
CursorX=51
|
||||
CursorY=377
|
||||
TopLine=367
|
||||
LeftCol=1
|
||||
Elisions=
|
||||
Bookmarks=
|
||||
EditViewName=C:\Vista\cprs\OR_3_243V27\CPRS-Lib\ORNet.pas
|
||||
|
||||
[TypeLibEditWindow0]
|
||||
Module=C:\Vista\cprs\OR_3_243V27\CPRS-chart\CPRSChart.tlb
|
||||
|
||||
[Watches]
|
||||
Count=0
|
||||
|
||||
[WatchWindow]
|
||||
WatchColumnWidth=120
|
||||
WatchShowColumnHeaders=1
|
||||
PercentageSizes=1
|
||||
Create=1
|
||||
Visible=0
|
||||
Docked=0
|
||||
State=0
|
||||
Left=1738
|
||||
Top=1417
|
||||
Width=2627
|
||||
Height=2343
|
||||
MaxLeft=-10
|
||||
MaxTop=-14
|
||||
ClientWidth=2549
|
||||
ClientHeight=1989
|
||||
TBDockHeight=163
|
||||
LRDockWidth=2549
|
||||
Dockable=1
|
||||
StayOnTop=0
|
||||
|
||||
[Breakpoints]
|
||||
Count=1
|
||||
Breakpoint0='C:\Vista\cprs\OR_3_243V27\CPRS-chart\fGraphs.pas',462,'',0,1,'',1,0,0,'',1,'','','',0
|
||||
|
||||
[AddressBreakpoints]
|
||||
Count=0
|
||||
|
||||
[Main Window]
|
||||
PercentageSizes=1
|
||||
Create=1
|
||||
Visible=1
|
||||
Docked=0
|
||||
State=0
|
||||
Left=0
|
||||
Top=0
|
||||
Width=10000
|
||||
Height=1172
|
||||
MaxLeft=-10
|
||||
MaxTop=-14
|
||||
ClientWidth=9922
|
||||
ClientHeight=708
|
||||
BottomPanelSize=0
|
||||
|
||||
[ProjectManager]
|
||||
PercentageSizes=1
|
||||
Create=1
|
||||
Visible=1
|
||||
Docked=1
|
||||
State=0
|
||||
Left=0
|
||||
Top=0
|
||||
Width=1289
|
||||
Height=2357
|
||||
MaxLeft=-1
|
||||
MaxTop=-1
|
||||
ClientWidth=1289
|
||||
ClientHeight=2357
|
||||
TBDockHeight=272
|
||||
LRDockWidth=3730
|
||||
Dockable=1
|
||||
StayOnTop=0
|
||||
|
||||
[ToolForm]
|
||||
PercentageSizes=1
|
||||
Create=1
|
||||
Visible=1
|
||||
Docked=0
|
||||
State=0
|
||||
Left=8506
|
||||
Top=4292
|
||||
Width=1475
|
||||
Height=5613
|
||||
MaxLeft=-10
|
||||
MaxTop=-14
|
||||
ClientWidth=1396
|
||||
ClientHeight=5259
|
||||
TBDockHeight=5817
|
||||
LRDockWidth=1406
|
||||
Dockable=1
|
||||
StayOnTop=0
|
||||
|
||||
[DebugLogView]
|
||||
PercentageSizes=1
|
||||
Create=1
|
||||
Visible=0
|
||||
Docked=0
|
||||
State=0
|
||||
Left=68
|
||||
Top=8202
|
||||
Width=3623
|
||||
Height=3365
|
||||
MaxLeft=-10
|
||||
MaxTop=-14
|
||||
ClientWidth=3545
|
||||
ClientHeight=3011
|
||||
TBDockHeight=300
|
||||
LRDockWidth=3623
|
||||
Dockable=1
|
||||
StayOnTop=0
|
||||
|
||||
[ThreadStatusWindow]
|
||||
PercentageSizes=1
|
||||
Create=1
|
||||
Visible=0
|
||||
Docked=0
|
||||
State=0
|
||||
Left=68
|
||||
Top=8202
|
||||
Width=5420
|
||||
Height=1757
|
||||
MaxLeft=-10
|
||||
MaxTop=-14
|
||||
ClientWidth=5342
|
||||
ClientHeight=1403
|
||||
TBDockHeight=150
|
||||
LRDockWidth=5420
|
||||
Dockable=1
|
||||
StayOnTop=0
|
||||
Column0Width=145
|
||||
Column1Width=100
|
||||
Column2Width=115
|
||||
Column3Width=250
|
||||
|
||||
[LocalVarsWindow]
|
||||
PercentageSizes=1
|
||||
Create=1
|
||||
Visible=0
|
||||
Docked=0
|
||||
State=0
|
||||
Left=1738
|
||||
Top=1417
|
||||
Width=2627
|
||||
Height=2411
|
||||
MaxLeft=-10
|
||||
MaxTop=-14
|
||||
ClientWidth=2549
|
||||
ClientHeight=2057
|
||||
TBDockHeight=204
|
||||
LRDockWidth=2549
|
||||
Dockable=1
|
||||
StayOnTop=0
|
||||
|
||||
[CallStackWindow]
|
||||
PercentageSizes=1
|
||||
Create=1
|
||||
Visible=0
|
||||
Docked=0
|
||||
State=0
|
||||
Left=117
|
||||
Top=1553
|
||||
Width=2627
|
||||
Height=2343
|
||||
MaxLeft=-10
|
||||
MaxTop=-14
|
||||
ClientWidth=2549
|
||||
ClientHeight=1989
|
||||
TBDockHeight=163
|
||||
LRDockWidth=2549
|
||||
Dockable=1
|
||||
StayOnTop=0
|
||||
|
||||
[FindReferencsForm]
|
||||
PercentageSizes=1
|
||||
Create=1
|
||||
Visible=1
|
||||
Docked=1
|
||||
State=0
|
||||
Left=0
|
||||
Top=0
|
||||
Width=4307
|
||||
Height=1390
|
||||
MaxLeft=-1
|
||||
MaxTop=-1
|
||||
ClientWidth=4307
|
||||
ClientHeight=1390
|
||||
TBDockHeight=5082
|
||||
LRDockWidth=5303
|
||||
Dockable=1
|
||||
StayOnTop=0
|
||||
|
||||
[RefactoringForm]
|
||||
PercentageSizes=1
|
||||
Create=1
|
||||
Visible=1
|
||||
Docked=1
|
||||
State=0
|
||||
Left=0
|
||||
Top=0
|
||||
Width=4307
|
||||
Height=1390
|
||||
MaxLeft=-1
|
||||
MaxTop=-1
|
||||
ClientWidth=4307
|
||||
ClientHeight=1390
|
||||
TBDockHeight=3828
|
||||
LRDockWidth=5303
|
||||
Dockable=1
|
||||
StayOnTop=0
|
||||
|
||||
[TemplateView]
|
||||
PercentageSizes=1
|
||||
Create=1
|
||||
Visible=0
|
||||
Docked=0
|
||||
State=0
|
||||
Left=0
|
||||
Top=0
|
||||
Width=4297
|
||||
Height=5858
|
||||
MaxLeft=-10
|
||||
MaxTop=-14
|
||||
ClientWidth=4219
|
||||
ClientHeight=5504
|
||||
TBDockHeight=5858
|
||||
LRDockWidth=4297
|
||||
Dockable=1
|
||||
StayOnTop=0
|
||||
Name=60
|
||||
Description=308
|
||||
filter=1
|
||||
|
||||
[DataExplorer]
|
||||
PercentageSizes=1
|
||||
Create=1
|
||||
Visible=1
|
||||
Docked=1
|
||||
State=0
|
||||
Left=0
|
||||
Top=0
|
||||
Width=1289
|
||||
Height=2357
|
||||
MaxLeft=-1
|
||||
MaxTop=-1
|
||||
ClientWidth=1289
|
||||
ClientHeight=2357
|
||||
TBDockHeight=4877
|
||||
LRDockWidth=7148
|
||||
Dockable=1
|
||||
StayOnTop=0
|
||||
|
||||
[PropertyInspector]
|
||||
PercentageSizes=1
|
||||
Create=1
|
||||
Visible=1
|
||||
Docked=0
|
||||
State=0
|
||||
Left=0
|
||||
Top=4687
|
||||
Width=1689
|
||||
Height=5204
|
||||
MaxLeft=-10
|
||||
MaxTop=-14
|
||||
ClientWidth=1611
|
||||
ClientHeight=4850
|
||||
TBDockHeight=5817
|
||||
LRDockWidth=1543
|
||||
Dockable=1
|
||||
StayOnTop=0
|
||||
SplitPos=73
|
||||
|
||||
[MetricsView]
|
||||
PercentageSizes=1
|
||||
Create=1
|
||||
Visible=0
|
||||
Docked=1
|
||||
State=0
|
||||
Left=-899
|
||||
Top=-3234
|
||||
Width=5303
|
||||
Height=3828
|
||||
MaxLeft=-1
|
||||
MaxTop=-1
|
||||
ClientWidth=5303
|
||||
ClientHeight=3828
|
||||
TBDockHeight=3828
|
||||
LRDockWidth=5303
|
||||
Dockable=1
|
||||
StayOnTop=0
|
||||
|
||||
[QAView]
|
||||
PercentageSizes=1
|
||||
Create=1
|
||||
Visible=0
|
||||
Docked=1
|
||||
State=0
|
||||
Left=-899
|
||||
Top=-3234
|
||||
Width=5303
|
||||
Height=3828
|
||||
MaxLeft=-1
|
||||
MaxTop=-1
|
||||
ClientWidth=5303
|
||||
ClientHeight=3828
|
||||
TBDockHeight=3828
|
||||
LRDockWidth=5303
|
||||
Dockable=1
|
||||
StayOnTop=0
|
||||
|
||||
[RefactoringsView]
|
||||
PercentageSizes=1
|
||||
Create=1
|
||||
Visible=0
|
||||
Docked=1
|
||||
State=0
|
||||
Left=-899
|
||||
Top=-3234
|
||||
Width=5303
|
||||
Height=3828
|
||||
MaxLeft=-1
|
||||
MaxTop=-1
|
||||
ClientWidth=5303
|
||||
ClientHeight=3828
|
||||
TBDockHeight=3828
|
||||
LRDockWidth=5303
|
||||
Dockable=1
|
||||
StayOnTop=0
|
||||
|
||||
[UsagesView]
|
||||
PercentageSizes=1
|
||||
Create=1
|
||||
Visible=0
|
||||
Docked=1
|
||||
State=0
|
||||
Left=-899
|
||||
Top=-3234
|
||||
Width=5303
|
||||
Height=3828
|
||||
MaxLeft=-1
|
||||
MaxTop=-1
|
||||
ClientWidth=5303
|
||||
ClientHeight=3828
|
||||
TBDockHeight=3828
|
||||
LRDockWidth=5303
|
||||
Dockable=1
|
||||
StayOnTop=0
|
||||
|
||||
[ModelViewTool]
|
||||
PercentageSizes=1
|
||||
Create=1
|
||||
Visible=1
|
||||
Docked=1
|
||||
State=0
|
||||
Left=0
|
||||
Top=0
|
||||
Width=1289
|
||||
Height=2357
|
||||
MaxLeft=-1
|
||||
MaxTop=-1
|
||||
ClientWidth=1289
|
||||
ClientHeight=2357
|
||||
TBDockHeight=4877
|
||||
LRDockWidth=5303
|
||||
Dockable=1
|
||||
StayOnTop=0
|
||||
|
||||
[BreakpointWindow]
|
||||
PercentageSizes=1
|
||||
Create=1
|
||||
Visible=0
|
||||
Docked=0
|
||||
State=0
|
||||
Left=88
|
||||
Top=7452
|
||||
Width=6396
|
||||
Height=2275
|
||||
MaxLeft=-10
|
||||
MaxTop=-14
|
||||
ClientWidth=6318
|
||||
ClientHeight=1921
|
||||
TBDockHeight=204
|
||||
LRDockWidth=6396
|
||||
Dockable=1
|
||||
StayOnTop=0
|
||||
Column0Width=100
|
||||
Column1Width=75
|
||||
Column2Width=200
|
||||
Column3Width=200
|
||||
Column4Width=75
|
||||
Column5Width=75
|
||||
|
||||
[StructureView]
|
||||
PercentageSizes=1
|
||||
Create=1
|
||||
Visible=1
|
||||
Docked=0
|
||||
State=0
|
||||
Left=0
|
||||
Top=1185
|
||||
Width=1670
|
||||
Height=3474
|
||||
MaxLeft=-10
|
||||
MaxTop=-14
|
||||
ClientWidth=1592
|
||||
ClientHeight=3120
|
||||
TBDockHeight=3474
|
||||
LRDockWidth=1670
|
||||
Dockable=1
|
||||
StayOnTop=0
|
||||
|
||||
[frmCaliberMain]
|
||||
PercentageSizes=1
|
||||
Create=1
|
||||
Visible=0
|
||||
Docked=0
|
||||
State=0
|
||||
Left=78
|
||||
Top=7657
|
||||
Width=9863
|
||||
Height=2207
|
||||
MaxLeft=-10
|
||||
MaxTop=-14
|
||||
ClientWidth=9785
|
||||
ClientHeight=1853
|
||||
TBDockHeight=1104
|
||||
LRDockWidth=1504
|
||||
Dockable=1
|
||||
StayOnTop=0
|
||||
|
||||
[MessageView@EditWindow0]
|
||||
PercentageSizes=1
|
||||
Create=1
|
||||
Visible=1
|
||||
Docked=1
|
||||
State=0
|
||||
Left=0
|
||||
Top=23
|
||||
Width=6719
|
||||
Height=2357
|
||||
MaxLeft=-1
|
||||
MaxTop=-1
|
||||
ClientWidth=6719
|
||||
ClientHeight=2357
|
||||
TBDockHeight=2357
|
||||
LRDockWidth=2773
|
||||
Dockable=1
|
||||
StayOnTop=0
|
||||
|
||||
[BorlandEditorCodeExplorer@EditWindow0]
|
||||
PercentageSizes=1
|
||||
Create=1
|
||||
Visible=0
|
||||
Docked=1
|
||||
State=0
|
||||
Left=-179
|
||||
Top=-113
|
||||
Width=1465
|
||||
Height=8270
|
||||
MaxLeft=-1
|
||||
MaxTop=-1
|
||||
ClientWidth=1465
|
||||
ClientHeight=8270
|
||||
TBDockHeight=8270
|
||||
LRDockWidth=1465
|
||||
Dockable=1
|
||||
StayOnTop=0
|
||||
|
||||
[DockHosts]
|
||||
DockHostCount=2
|
||||
|
||||
[DockSite0]
|
||||
DockSiteType=1
|
||||
PercentageSizes=1
|
||||
Create=1
|
||||
Visible=0
|
||||
Docked=1
|
||||
State=0
|
||||
Left=693
|
||||
Top=-440
|
||||
Width=4385
|
||||
Height=1866
|
||||
MaxLeft=-1
|
||||
MaxTop=-1
|
||||
ClientWidth=4385
|
||||
ClientHeight=1866
|
||||
TBDockHeight=1866
|
||||
LRDockWidth=4385
|
||||
Dockable=1
|
||||
StayOnTop=0
|
||||
TabPosition=1
|
||||
ActiveTabID=RefactoringForm
|
||||
TabDockClients=RefactoringForm,FindReferencsForm,UsagesView,RefactoringsView,QAView,MetricsView
|
||||
|
||||
[DockSite1]
|
||||
DockSiteType=1
|
||||
PercentageSizes=1
|
||||
Create=1
|
||||
Visible=1
|
||||
Docked=0
|
||||
State=0
|
||||
Left=8516
|
||||
Top=1131
|
||||
Width=1445
|
||||
Height=3188
|
||||
MaxLeft=-10
|
||||
MaxTop=-14
|
||||
ClientWidth=1367
|
||||
ClientHeight=2834
|
||||
TBDockHeight=3188
|
||||
LRDockWidth=1445
|
||||
Dockable=1
|
||||
StayOnTop=0
|
||||
TabPosition=1
|
||||
ActiveTabID=ProjectManager
|
||||
TabDockClients=ProjectManager,ModelViewTool,DataExplorer
|
||||
|
|
@ -12,17 +12,16 @@ unit CPRSChart_TLB;
|
|||
// ************************************************************************ //
|
||||
|
||||
// PASTLWTR : 1.2
|
||||
// File generated on 2/4/2008 6:51:03 PM from Type Library described below.
|
||||
// File generated on 6/26/2010 8:43:12 PM from Type Library described below.
|
||||
|
||||
// ************************************************************************ //
|
||||
// Type Lib: C:\Program Files\Borland\Delphi7\Projects\OR_SRC_CREATION FILE 12 06 06 OR_3_270\WV_Release_CPRS_OFFICIAL\CPRS-Chart\CPRSChart.tlb (1)
|
||||
// Type Lib: P:\vista\CPRS-WV_OFFICIAL_RELEASE-27\WVEHR-v27Delphi2006\CPRS-chart\CPRSChart.tlb (1)
|
||||
// LIBID: {0A4A6086-6504-11D5-82DE-00C04F72C274}
|
||||
// LCID: 0
|
||||
// Helpfile:
|
||||
// HelpString: CPRSChart Library
|
||||
// DepndLst:
|
||||
// (1) v2.0 stdole, (C:\WINDOWS\system32\stdole2.tlb)
|
||||
// (2) v1.1 Accessibility, (C:\WINDOWS\system32\oleacc.dll)
|
||||
// ************************************************************************ //
|
||||
{$TYPEDADDRESS OFF} // Unit must be compiled without type-checked pointers.
|
||||
{$WARN SYMBOL_PLATFORM OFF}
|
||||
|
@ -30,7 +29,7 @@ unit CPRSChart_TLB;
|
|||
{$VARPROPSETTER ON}
|
||||
interface
|
||||
|
||||
uses Windows, Accessibility_TLB, ActiveX, Classes, Graphics, StdVCL, Variants;
|
||||
uses Windows, ActiveX, Classes, Graphics, StdVCL, Variants;
|
||||
|
||||
|
||||
// *********************************************************************//
|
||||
|
@ -50,16 +49,6 @@ const
|
|||
IID_ICPRSBroker: TGUID = '{63DC619B-6BE0-11D5-82E6-00C04F72C274}';
|
||||
IID_ICPRSState: TGUID = '{63DC619E-6BE0-11D5-82E6-00C04F72C274}';
|
||||
IID_ICPRSExtension: TGUID = '{63DC61C4-6BE0-11D5-82E6-00C04F72C274}';
|
||||
IID_IAccessibleStringGrid: TGUID = '{EFD768F7-59C0-48D9-889E-49EDF75488A6}';
|
||||
CLASS_AccessibleStringGrid: TGUID = '{25CDBD92-C72E-47B0-9E75-9457B603000C}';
|
||||
IID_IAccessibleListBox: TGUID = '{4B6A88F7-DCFE-4992-B5FC-565FDCB3829B}';
|
||||
CLASS_AccessibleListBox: TGUID = '{758002E7-7012-4FAB-BD84-40D372694719}';
|
||||
IID_IAccessibleTreeNode: TGUID = '{5974D1D8-0F49-45E5-AEFE-674A61F8771A}';
|
||||
CLASS_AccessibleTreeNode: TGUID = '{3AD21DCA-2298-487A-8197-59B8D586C244}';
|
||||
IID_IAccessibleTreeView: TGUID = '{06AA97AB-6D67-425C-B794-15FB8C62F870}';
|
||||
CLASS_AccessibleTreeView: TGUID = '{507AD9F0-9ED6-4BCD-A3AB-DBA72153F14D}';
|
||||
IID_IAccessibleRichEdit: TGUID = '{F2C380A5-C3DD-4AE8-81ED-C08C59E92962}';
|
||||
CLASS_AccessibleRichEdit: TGUID = '{DC61493C-51FE-49A4-8749-8464A00D5CFC}';
|
||||
|
||||
// *********************************************************************//
|
||||
// Declaration of Enumerations defined in Type Library
|
||||
|
@ -84,27 +73,6 @@ type
|
|||
ICPRSStateDisp = dispinterface;
|
||||
ICPRSExtension = interface;
|
||||
ICPRSExtensionDisp = dispinterface;
|
||||
IAccessibleStringGrid = interface;
|
||||
IAccessibleStringGridDisp = dispinterface;
|
||||
IAccessibleListBox = interface;
|
||||
IAccessibleListBoxDisp = dispinterface;
|
||||
IAccessibleTreeNode = interface;
|
||||
IAccessibleTreeNodeDisp = dispinterface;
|
||||
IAccessibleTreeView = interface;
|
||||
IAccessibleTreeViewDisp = dispinterface;
|
||||
IAccessibleRichEdit = interface;
|
||||
IAccessibleRichEditDisp = dispinterface;
|
||||
|
||||
// *********************************************************************//
|
||||
// Declaration of CoClasses defined in Type Library
|
||||
// (NOTE: Here we map each CoClass to its Default Interface)
|
||||
// *********************************************************************//
|
||||
AccessibleStringGrid = IAccessibleStringGrid;
|
||||
AccessibleListBox = IAccessibleListBox;
|
||||
AccessibleTreeNode = IAccessibleTreeNode;
|
||||
AccessibleTreeView = IAccessibleTreeView;
|
||||
AccessibleRichEdit = IAccessibleRichEdit;
|
||||
|
||||
|
||||
// *********************************************************************//
|
||||
// Interface: ICPRSBroker
|
||||
|
@ -226,208 +194,8 @@ type
|
|||
var Data1: WideString; var Data2: WideString): WordBool; dispid 1;
|
||||
end;
|
||||
|
||||
// *********************************************************************//
|
||||
// Interface: IAccessibleStringGrid
|
||||
// Flags: (4416) Dual OleAutomation Dispatchable
|
||||
// GUID: {EFD768F7-59C0-48D9-889E-49EDF75488A6}
|
||||
// *********************************************************************//
|
||||
IAccessibleStringGrid = interface(IDispatch)
|
||||
['{EFD768F7-59C0-48D9-889E-49EDF75488A6}']
|
||||
end;
|
||||
|
||||
// *********************************************************************//
|
||||
// DispIntf: IAccessibleStringGridDisp
|
||||
// Flags: (4416) Dual OleAutomation Dispatchable
|
||||
// GUID: {EFD768F7-59C0-48D9-889E-49EDF75488A6}
|
||||
// *********************************************************************//
|
||||
IAccessibleStringGridDisp = dispinterface
|
||||
['{EFD768F7-59C0-48D9-889E-49EDF75488A6}']
|
||||
end;
|
||||
|
||||
// *********************************************************************//
|
||||
// Interface: IAccessibleListBox
|
||||
// Flags: (4416) Dual OleAutomation Dispatchable
|
||||
// GUID: {4B6A88F7-DCFE-4992-B5FC-565FDCB3829B}
|
||||
// *********************************************************************//
|
||||
IAccessibleListBox = interface(IDispatch)
|
||||
['{4B6A88F7-DCFE-4992-B5FC-565FDCB3829B}']
|
||||
end;
|
||||
|
||||
// *********************************************************************//
|
||||
// DispIntf: IAccessibleListBoxDisp
|
||||
// Flags: (4416) Dual OleAutomation Dispatchable
|
||||
// GUID: {4B6A88F7-DCFE-4992-B5FC-565FDCB3829B}
|
||||
// *********************************************************************//
|
||||
IAccessibleListBoxDisp = dispinterface
|
||||
['{4B6A88F7-DCFE-4992-B5FC-565FDCB3829B}']
|
||||
end;
|
||||
|
||||
// *********************************************************************//
|
||||
// Interface: IAccessibleTreeNode
|
||||
// Flags: (4416) Dual OleAutomation Dispatchable
|
||||
// GUID: {5974D1D8-0F49-45E5-AEFE-674A61F8771A}
|
||||
// *********************************************************************//
|
||||
IAccessibleTreeNode = interface(IDispatch)
|
||||
['{5974D1D8-0F49-45E5-AEFE-674A61F8771A}']
|
||||
end;
|
||||
|
||||
// *********************************************************************//
|
||||
// DispIntf: IAccessibleTreeNodeDisp
|
||||
// Flags: (4416) Dual OleAutomation Dispatchable
|
||||
// GUID: {5974D1D8-0F49-45E5-AEFE-674A61F8771A}
|
||||
// *********************************************************************//
|
||||
IAccessibleTreeNodeDisp = dispinterface
|
||||
['{5974D1D8-0F49-45E5-AEFE-674A61F8771A}']
|
||||
end;
|
||||
|
||||
// *********************************************************************//
|
||||
// Interface: IAccessibleTreeView
|
||||
// Flags: (4416) Dual OleAutomation Dispatchable
|
||||
// GUID: {06AA97AB-6D67-425C-B794-15FB8C62F870}
|
||||
// *********************************************************************//
|
||||
IAccessibleTreeView = interface(IDispatch)
|
||||
['{06AA97AB-6D67-425C-B794-15FB8C62F870}']
|
||||
end;
|
||||
|
||||
// *********************************************************************//
|
||||
// DispIntf: IAccessibleTreeViewDisp
|
||||
// Flags: (4416) Dual OleAutomation Dispatchable
|
||||
// GUID: {06AA97AB-6D67-425C-B794-15FB8C62F870}
|
||||
// *********************************************************************//
|
||||
IAccessibleTreeViewDisp = dispinterface
|
||||
['{06AA97AB-6D67-425C-B794-15FB8C62F870}']
|
||||
end;
|
||||
|
||||
// *********************************************************************//
|
||||
// Interface: IAccessibleRichEdit
|
||||
// Flags: (4416) Dual OleAutomation Dispatchable
|
||||
// GUID: {F2C380A5-C3DD-4AE8-81ED-C08C59E92962}
|
||||
// *********************************************************************//
|
||||
IAccessibleRichEdit = interface(IDispatch)
|
||||
['{F2C380A5-C3DD-4AE8-81ED-C08C59E92962}']
|
||||
end;
|
||||
|
||||
// *********************************************************************//
|
||||
// DispIntf: IAccessibleRichEditDisp
|
||||
// Flags: (4416) Dual OleAutomation Dispatchable
|
||||
// GUID: {F2C380A5-C3DD-4AE8-81ED-C08C59E92962}
|
||||
// *********************************************************************//
|
||||
IAccessibleRichEditDisp = dispinterface
|
||||
['{F2C380A5-C3DD-4AE8-81ED-C08C59E92962}']
|
||||
end;
|
||||
|
||||
// *********************************************************************//
|
||||
// The Class CoAccessibleStringGrid provides a Create and CreateRemote method to
|
||||
// create instances of the default interface IAccessibleStringGrid exposed by
|
||||
// the CoClass AccessibleStringGrid. The functions are intended to be used by
|
||||
// clients wishing to automate the CoClass objects exposed by the
|
||||
// server of this typelibrary.
|
||||
// *********************************************************************//
|
||||
CoAccessibleStringGrid = class
|
||||
class function Create: IAccessibleStringGrid;
|
||||
class function CreateRemote(const MachineName: string): IAccessibleStringGrid;
|
||||
end;
|
||||
|
||||
// *********************************************************************//
|
||||
// The Class CoAccessibleListBox provides a Create and CreateRemote method to
|
||||
// create instances of the default interface IAccessibleListBox exposed by
|
||||
// the CoClass AccessibleListBox. The functions are intended to be used by
|
||||
// clients wishing to automate the CoClass objects exposed by the
|
||||
// server of this typelibrary.
|
||||
// *********************************************************************//
|
||||
CoAccessibleListBox = class
|
||||
class function Create: IAccessibleListBox;
|
||||
class function CreateRemote(const MachineName: string): IAccessibleListBox;
|
||||
end;
|
||||
|
||||
// *********************************************************************//
|
||||
// The Class CoAccessibleTreeNode provides a Create and CreateRemote method to
|
||||
// create instances of the default interface IAccessibleTreeNode exposed by
|
||||
// the CoClass AccessibleTreeNode. The functions are intended to be used by
|
||||
// clients wishing to automate the CoClass objects exposed by the
|
||||
// server of this typelibrary.
|
||||
// *********************************************************************//
|
||||
CoAccessibleTreeNode = class
|
||||
class function Create: IAccessibleTreeNode;
|
||||
class function CreateRemote(const MachineName: string): IAccessibleTreeNode;
|
||||
end;
|
||||
|
||||
// *********************************************************************//
|
||||
// The Class CoAccessibleTreeView provides a Create and CreateRemote method to
|
||||
// create instances of the default interface IAccessibleTreeView exposed by
|
||||
// the CoClass AccessibleTreeView. The functions are intended to be used by
|
||||
// clients wishing to automate the CoClass objects exposed by the
|
||||
// server of this typelibrary.
|
||||
// *********************************************************************//
|
||||
CoAccessibleTreeView = class
|
||||
class function Create: IAccessibleTreeView;
|
||||
class function CreateRemote(const MachineName: string): IAccessibleTreeView;
|
||||
end;
|
||||
|
||||
// *********************************************************************//
|
||||
// The Class CoAccessibleRichEdit provides a Create and CreateRemote method to
|
||||
// create instances of the default interface IAccessibleRichEdit exposed by
|
||||
// the CoClass AccessibleRichEdit. The functions are intended to be used by
|
||||
// clients wishing to automate the CoClass objects exposed by the
|
||||
// server of this typelibrary.
|
||||
// *********************************************************************//
|
||||
CoAccessibleRichEdit = class
|
||||
class function Create: IAccessibleRichEdit;
|
||||
class function CreateRemote(const MachineName: string): IAccessibleRichEdit;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
uses ComObj;
|
||||
|
||||
class function CoAccessibleStringGrid.Create: IAccessibleStringGrid;
|
||||
begin
|
||||
Result := CreateComObject(CLASS_AccessibleStringGrid) as IAccessibleStringGrid;
|
||||
end;
|
||||
|
||||
class function CoAccessibleStringGrid.CreateRemote(const MachineName: string): IAccessibleStringGrid;
|
||||
begin
|
||||
Result := CreateRemoteComObject(MachineName, CLASS_AccessibleStringGrid) as IAccessibleStringGrid;
|
||||
end;
|
||||
|
||||
class function CoAccessibleListBox.Create: IAccessibleListBox;
|
||||
begin
|
||||
Result := CreateComObject(CLASS_AccessibleListBox) as IAccessibleListBox;
|
||||
end;
|
||||
|
||||
class function CoAccessibleListBox.CreateRemote(const MachineName: string): IAccessibleListBox;
|
||||
begin
|
||||
Result := CreateRemoteComObject(MachineName, CLASS_AccessibleListBox) as IAccessibleListBox;
|
||||
end;
|
||||
|
||||
class function CoAccessibleTreeNode.Create: IAccessibleTreeNode;
|
||||
begin
|
||||
Result := CreateComObject(CLASS_AccessibleTreeNode) as IAccessibleTreeNode;
|
||||
end;
|
||||
|
||||
class function CoAccessibleTreeNode.CreateRemote(const MachineName: string): IAccessibleTreeNode;
|
||||
begin
|
||||
Result := CreateRemoteComObject(MachineName, CLASS_AccessibleTreeNode) as IAccessibleTreeNode;
|
||||
end;
|
||||
|
||||
class function CoAccessibleTreeView.Create: IAccessibleTreeView;
|
||||
begin
|
||||
Result := CreateComObject(CLASS_AccessibleTreeView) as IAccessibleTreeView;
|
||||
end;
|
||||
|
||||
class function CoAccessibleTreeView.CreateRemote(const MachineName: string): IAccessibleTreeView;
|
||||
begin
|
||||
Result := CreateRemoteComObject(MachineName, CLASS_AccessibleTreeView) as IAccessibleTreeView;
|
||||
end;
|
||||
|
||||
class function CoAccessibleRichEdit.Create: IAccessibleRichEdit;
|
||||
begin
|
||||
Result := CreateComObject(CLASS_AccessibleRichEdit) as IAccessibleRichEdit;
|
||||
end;
|
||||
|
||||
class function CoAccessibleRichEdit.CreateRemote(const MachineName: string): IAccessibleRichEdit;
|
||||
begin
|
||||
Result := CreateRemoteComObject(MachineName, CLASS_AccessibleRichEdit) as IAccessibleRichEdit;
|
||||
end;
|
||||
|
||||
end.
|
||||
|
|
Binary file not shown.
Binary file not shown.
|
@ -0,0 +1,21 @@
|
|||
[Common Keys]
|
||||
F2=f2editTreeNode
|
||||
Control+Alt+NumPadSlash=ltLeftClickCell
|
||||
Control+Alt+NumPadStar=ltRightClickCell
|
||||
Control+Shift+Alt+NumPadSlash=ltLeftClickHeader
|
||||
Control+Shift+Alt+NumPadStar=ltRightClickHeader
|
||||
[Classic Laptop Keys]
|
||||
Control+Alt+8=ltLeftClickCell
|
||||
Control+Alt+9=ltRightClickCell
|
||||
Control+Shift+Alt+8=ltLeftClickHeader
|
||||
Control+Shift+Alt+9=ltRightClickHeader
|
||||
[Laptop Keys]
|
||||
Control+Alt+8=ltLeftClickCell
|
||||
Control+Alt+9=ltRightClickCell
|
||||
Control+Shift+Alt+8=ltLeftClickHeader
|
||||
Control+Shift+Alt+9=ltRightClickHeader
|
||||
[Kinesis keys]
|
||||
Control+Alt+I=ltLeftClickCell
|
||||
Control+Alt+O=ltRightClickCell
|
||||
Control+Shift+Alt+I=ltLeftClickHeader
|
||||
Control+Shift+Alt+O=ltRightClickHeader
|
|
@ -0,0 +1,6 @@
|
|||
use "VA508JAWS.jsb"
|
||||
void Function _Filler()
|
||||
; function needed here to force JAWS to load VA508JAWS script
|
||||
EndFunction
|
||||
|
||||
; Add Custom Scripts Here
|
|
@ -0,0 +1,56 @@
|
|||
;The below classes are defined in the default.jcf for JAWS 8 and 7.1 and thus are not defined below
|
||||
;TBitBtn=Button
|
||||
;TEdit=Edit
|
||||
;TRichEdit=Edit
|
||||
;TListbox=ListBox
|
||||
;TCombobox=ComboBox
|
||||
;TCheckbox=CheckBox
|
||||
;TRadioButton=RadioButton
|
||||
;TMemo=Edit
|
||||
;TRadioGroup=GroupBox
|
||||
;TGroupBox=GroupBox
|
||||
;TListView=ListView
|
||||
;TToolBar=ToolBar
|
||||
;TTreeView=TreeView
|
||||
;TButton=Button
|
||||
;TPageControl=TabControl
|
||||
;TGroupButton=RadioButton
|
||||
|
||||
[WindowClasses]
|
||||
TfrmSplash=Dialog
|
||||
TValueListEditor=ListBox
|
||||
TPanel=GroupBox
|
||||
TFlowPanel=GroupBox
|
||||
TGridPanel=GroupBox
|
||||
TFrame=GroupBox
|
||||
TInplaceEditList=Edit
|
||||
TMaskEdit=Edit
|
||||
TLabeledEdit=Edit
|
||||
TPageControl=TabControl
|
||||
TTabControl=TabControl
|
||||
TTrackBar=Slider
|
||||
TCheckListBox=ListBox
|
||||
TListBox=ListBox
|
||||
TToolbar=Toolbar
|
||||
TStatusBar=StatusBar
|
||||
TComboBoxEx=ComboBox
|
||||
TColorListBox=ListBox
|
||||
TColorBox=ComboBox
|
||||
TStaticText=StaticText
|
||||
TLabel=TStaticText
|
||||
[Options]
|
||||
SayNumericDates=0
|
||||
[OSM]
|
||||
IncludeGraphics=0
|
||||
[Braille translations]
|
||||
ControlType|State Check Box|checked=||<x>
|
||||
ControlType|State Check Box|not checked=||< >
|
||||
ControlType|State Three State Check Box|checked=||<x>
|
||||
ControlType|State Three State Check Box|not checked=||< >
|
||||
ControlType|State Three State Check Box|Question mark=||<?>
|
||||
ControlType|State Three State Check Box|Partially Checked=||<->
|
||||
ControlType|State Check List Box|Checked=|lbx|<x>
|
||||
ControlType|State Check List Box|Not Checked=|lbx|< >
|
||||
[ControlTypes]
|
||||
[BrailleClasses]
|
||||
Grid = 54
|
|
@ -0,0 +1,293 @@
|
|||
:function VA508Cast
|
||||
:Returns variant No Return Description
|
||||
:Synopsis Conversion functionality (cast of any type to any other type within reason)
|
||||
:Param variant/value No Description
|
||||
|
||||
:function getListType
|
||||
:Returns string
|
||||
:Synopsis returns the type of list such as extended selection, multi-selection, listview, or listbox
|
||||
:Param int
|
||||
|
||||
:function isSpecialFocus
|
||||
:Returns int
|
||||
:Synopsis returns true if we are in a menu, the jaws cursor, invisible cursor, or user cursor is active or if we are in an hj dialog
|
||||
:Param int
|
||||
|
||||
:function watchCount
|
||||
:Synopsis Used in Debugging
|
||||
:Param string
|
||||
|
||||
:function VA508SendMessage
|
||||
:Returns int success or failure
|
||||
:Synopsis Send message wrapper with common message id for communicating with dll
|
||||
:Param handle/Window handle of dll window
|
||||
:Param int/wParam wParam
|
||||
:Param int/lParam lParam
|
||||
|
||||
:function Get4KName
|
||||
:Returns string No Return Description
|
||||
:Synopsis Returns the window name up to 4k of the data window
|
||||
:Param handle/hWnd handle of the data window
|
||||
|
||||
:function VA508GetStringValue
|
||||
:Returns string Returns the data for a given var property such as a caption
|
||||
:Synopsis Returns the data for a given var property such as caption, usually called after getApplicationData has set the data
|
||||
:Param string/VarName the var to get
|
||||
|
||||
:function VA508GetApplicationData
|
||||
:Synopsis tell framework to set contents of data window so we can get that info using getStringValue
|
||||
:Param handle/hwnd Handle of window to query for
|
||||
:Param int/iQueryCode Query code
|
||||
|
||||
:function VA508ResetGlobals
|
||||
:Synopsis Clears out some global variables
|
||||
|
||||
:function VA508EnsureInitialized
|
||||
:Synopsis Makes sure the Script is working with the VA App
|
||||
:Description Before the script file tries to communicate with the VA application, it needs to make sure the VA application wants to try and communicate with it.
|
||||
|
||||
:function VA508cacheGetVal
|
||||
:Returns int No Return Description
|
||||
:Synopsis Get a property value from the cache.
|
||||
:Param int/iQueryCode No Description
|
||||
:Param string/byRef No Description
|
||||
|
||||
:function VA508CacheUpdate
|
||||
:Synopsis Update the property cache. Called only by VA508getComponentProp() and VA508 ResetGlobals
|
||||
:Param handle/hwnd Handle of the window to cache for, or 0 to clear the cache
|
||||
|
||||
:function VA508FieldNameFromQueryCode
|
||||
:Returns string No Return Description
|
||||
:Synopsis Return the framework field name corresponding to the given query code.
|
||||
:Param int/iQueryCode No Description
|
||||
|
||||
:function VA508QueryCodeFromFieldName
|
||||
:Returns int No Return Description
|
||||
:Synopsis Return the query code corresponding to the given framework field name.
|
||||
:Param string/sFieldName No Description
|
||||
|
||||
:function VA508GetComponentProp
|
||||
:Returns int 1 on success, 0 if the property is not found, -1 on error
|
||||
:Synopsis returns the requested property of a given window if one is available through the framework
|
||||
:Param handle/hWnd handle of control
|
||||
:Param string/sProp Name of property
|
||||
:Param int/iCacheHandling Whether to update cache, skip the cache, or just use the cache
|
||||
:Param string/byRef sVal The property value if found
|
||||
|
||||
:function VA508CacheSetVals
|
||||
:Synopsis Update the property cache when the framework sends an event indicating property changes.
|
||||
:Param handle/hwnd No Description
|
||||
:Param int/iDataStatus No Description
|
||||
:Param string/sCaption No Description
|
||||
:Param string/sValue No Description
|
||||
:Param string/sControlType No Description
|
||||
:Param string/sState No Description
|
||||
:Param string/sInstructions No Description
|
||||
:Param string/sItemInstructions No Description
|
||||
|
||||
:function VA508GetGridData
|
||||
:Returns int No Return Description
|
||||
:Synopsis Fills the VA508cacheGrid* globals.
|
||||
:Param variant/fromWhere No Description
|
||||
:Param int/dontCheck No Description
|
||||
|
||||
:function VA508SayData
|
||||
:Returns int No Return Description
|
||||
:Synopsis function for actually speaking data for control when needed
|
||||
:Param handle/hwnd handle of window
|
||||
|
||||
:function tvGetFocusItemExpandStateString
|
||||
:Returns string No Return Description
|
||||
:Synopsis Returns a string with open or closed representing the state of the currently focused tree view node
|
||||
:Param handle/hwnd No Description
|
||||
|
||||
:function bxTestNum
|
||||
:Synopsis used for debugging purposes
|
||||
:Param int/n No Description
|
||||
|
||||
:function autoCloseIfOpenCombo
|
||||
:Synopsis Automatically close a combo box if one is open when tab or shift+tab is pressed
|
||||
|
||||
:function VA508TranslateProps
|
||||
:Returns int No Return Description
|
||||
:Synopsis Handles custom translations of types and states for output.
|
||||
:Param string/sTable No Description
|
||||
:Param int/iQueryCode No Description
|
||||
:Param string/byRef No Description
|
||||
:Param string/byRef No Description
|
||||
|
||||
:function controlpropGet
|
||||
:Returns int No Return Description
|
||||
:Synopsis Handles all control property requests.
|
||||
:Param string/sOrigin No Description
|
||||
:Param string/whichProp No Description
|
||||
:Param string/byRef sVal
|
||||
:Param string
|
||||
|
||||
:function BraillePropHelper
|
||||
:Returns int No Return Description
|
||||
:Synopsis Logic for BrailleAddObject* functions to use.
|
||||
:Param string/whichProp No Description
|
||||
:Param int/nSubtype No Description
|
||||
|
||||
:function BrailleClassFound
|
||||
:Returns int
|
||||
:Synopsis returns true if there was a custom braille class reclass found in the jcf for a custom framework control type
|
||||
:Param string
|
||||
:Param int
|
||||
|
||||
:script f2editTreeNode
|
||||
:Synopsis Edits the current tree node's name if applicable
|
||||
:Description This command simulates a left click on the currently selected node of a Delphi treeView control, which can open the current node's name for editing. On any other control, the key pressed is passed through to the application.
|
||||
|
||||
:function VA508ChangeEvent
|
||||
:Synopsis called by framework dll to tell scripts when an event occurs that changes the property of the currently focused control
|
||||
:Param handle/hwnd No Description
|
||||
:Param int/iDataStatus No Description
|
||||
:Param string/sCaption, No Description
|
||||
:Param string/sValue, No Description
|
||||
:Param string/sControlType No Description
|
||||
:Param string/sState No Description
|
||||
:Param string/sInstructions No Description
|
||||
:Param string/sItemInstructions No Description
|
||||
|
||||
:function AnnounceProp
|
||||
:Synopsis announce a property if one was set by the changeEvent and it hasn't already been canceled
|
||||
:Param int
|
||||
:Param int
|
||||
:Param int
|
||||
|
||||
:function AnnounceEvent
|
||||
:Synopsis helper function that is scheduled from changeEvent for speaking changes in framework properties
|
||||
|
||||
:function ChangeDocumentWindow
|
||||
:Synopsis allows control tab to announce the correct tab when focus in on page tab control and style is set to button or flat button
|
||||
:Description allows control tab when pressed on a child object of a page tab to announce the change in page
|
||||
:Param int/direction No Description
|
||||
|
||||
:function getSelectedTab
|
||||
:Returns string No Return Description
|
||||
:Synopsis gets the selected tab from a TTabControl when a child control is in focus
|
||||
|
||||
:function SelectTab
|
||||
:Synopsis Used for TTabControl to activate a new tab using MSAA
|
||||
:Param int/direction No Description
|
||||
|
||||
:function ClearSuppressFocusChange
|
||||
:Synopsis resets the global variable that suppress focus changes from being announced
|
||||
|
||||
:function isSpinBox
|
||||
:Returns int No Return Description
|
||||
:Synopsis returns true if window with handle is a spinbox
|
||||
:Param handle/hwnd No Description
|
||||
|
||||
:function getValue
|
||||
:Returns string No Return Description
|
||||
:Synopsis get value for element from framework, falls back on getObjectValue()
|
||||
|
||||
:function SpeakCellUnit
|
||||
:Returns int No Return Description
|
||||
:Synopsis Speaks the aspects of a cell that are different from the last cell visited
|
||||
:Param string/str the direction we just moved
|
||||
|
||||
:function getCurrentCellHeadersData
|
||||
:Returns string No Return Description
|
||||
:Synopsis returns the full string of col number, row number, column name, row name, and cell data for the current table cell
|
||||
|
||||
:function UpdateBrailleClasses
|
||||
:Synopsis Called from autoStartEvent to load jcf settings into memory for braille reclassing
|
||||
:Returns int
|
||||
|
||||
:function UpdateControlTypes
|
||||
:Synopsis Called from autoStartEvent to load jcf settings into memory for custom control type reclassing
|
||||
:Returns int
|
||||
|
||||
:function ControlTypeFound
|
||||
:Returns int
|
||||
:Synopsis returns true of a new control type string is found in the jcf file to be spoken instead of the custom framework control type
|
||||
:Param string
|
||||
:Param string
|
||||
|
||||
:function ToggleGridSpeechMode
|
||||
:Returns string
|
||||
:Synopsis toggles whether table headers are announced or not
|
||||
:Param int
|
||||
|
||||
:function ToggleGridBrailleMode
|
||||
:Returns string
|
||||
:Synopsis toggles whether table headers are shown in Braille or not
|
||||
:Param int
|
||||
|
||||
:function getAccName
|
||||
:Returns string Returns an msaa directly using msaa rather than getObjectName()
|
||||
:Synopsis returns an accessible name depending on context
|
||||
|
||||
:function getAccValue
|
||||
:Returns string No Return Description
|
||||
:Synopsis returns an accessible value depending on context
|
||||
|
||||
:function getAccState
|
||||
:Returns string Returns an msaa state string that can be spoken via msaa directly rather than getObjectState()
|
||||
:Synopsis returns an accessible state depending on context
|
||||
|
||||
:function lt_stringCast
|
||||
:Returns string
|
||||
:Param variant
|
||||
|
||||
:function lt_stringSegmentWithMultiCharDelim
|
||||
:Returns string
|
||||
:Param string
|
||||
:Param string
|
||||
:Param int
|
||||
|
||||
:function lt_canTryLVCalls
|
||||
:Returns int
|
||||
|
||||
:function lt_getMSAARect
|
||||
:Returns int
|
||||
:Param object
|
||||
:Param int
|
||||
:Param int
|
||||
:Param int
|
||||
:Param int
|
||||
:Param int
|
||||
|
||||
:function lt_move
|
||||
:Returns int
|
||||
:Param string
|
||||
|
||||
:function lt_clearSuppressHighlight
|
||||
|
||||
:script moveToTopOfColumn
|
||||
:Returns undef
|
||||
|
||||
:script moveToBottomOfColumn
|
||||
:Returns undef
|
||||
|
||||
:script moveToStartOfRow
|
||||
:Returns undef
|
||||
|
||||
:script moveToEndOfRow
|
||||
:Returns undef
|
||||
|
||||
:script ltLeftClickCell
|
||||
:Synopsis Clicks the current cell with the left mouse button
|
||||
:Description This command simulates a left mouse click on the current cell
|
||||
|
||||
:script ltRightClickCell
|
||||
:Synopsis Clicks the current cell with the right mouse button
|
||||
:Description This command simulates a right mouse click on the current cell
|
||||
|
||||
:script ltLeftClickHeader
|
||||
:Synopsis Clicks the current cell's column header with the left mouse button
|
||||
:Description This command simulates a right mouse click on the current cell's column header
|
||||
|
||||
:script ltRightClickHeader
|
||||
:Synopsis Clicks the current cell's column header with the right mouse button
|
||||
:Description This command simulates a right mouse click on the current cell's column header
|
||||
|
||||
:script VA508SendCustomCommand
|
||||
:Synopsis Custom command for this application
|
||||
:Description This is a custom command for this application, implemented directly by the accessibility framework
|
||||
|
||||
|
File diff suppressed because it is too large
Load Diff
Binary file not shown.
Binary file not shown.
Binary file not shown.
|
@ -0,0 +1,99 @@
|
|||
inherited frmIVRoutes: TfrmIVRoutes
|
||||
Left = 0
|
||||
Top = 0
|
||||
Caption = 'Expanded Med Route List'
|
||||
ClientHeight = 339
|
||||
ClientWidth = 222
|
||||
Constraints.MinHeight = 360
|
||||
Constraints.MinWidth = 220
|
||||
Font.Name = 'Tahoma'
|
||||
OldCreateOrder = False
|
||||
OnCreate = FormCreate
|
||||
ExplicitWidth = 230
|
||||
ExplicitHeight = 366
|
||||
DesignSize = (
|
||||
222
|
||||
339)
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
object pnlTop: TPanel [0]
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 220
|
||||
Height = 249
|
||||
Anchors = [akLeft, akTop, akRight, akBottom]
|
||||
BevelOuter = bvNone
|
||||
TabOrder = 0
|
||||
object cboAllIVRoutes: TORComboBox
|
||||
Left = 24
|
||||
Top = 16
|
||||
Width = 161
|
||||
Height = 217
|
||||
Style = orcsSimple
|
||||
AutoSelect = True
|
||||
Color = clWindow
|
||||
DropDownCount = 8
|
||||
ItemHeight = 13
|
||||
ItemTipColor = clWindow
|
||||
ItemTipEnable = True
|
||||
ListItemsOnly = False
|
||||
LongList = False
|
||||
LookupPiece = 0
|
||||
MaxLength = 0
|
||||
Pieces = '2'
|
||||
Sorted = False
|
||||
SynonymChars = '<>'
|
||||
TabOrder = 0
|
||||
CharsNeedMatch = 1
|
||||
UniqueAutoComplete = True
|
||||
end
|
||||
end
|
||||
object pnlBottom: TORAutoPanel [1]
|
||||
Left = 0
|
||||
Top = 255
|
||||
Width = 218
|
||||
Height = 82
|
||||
BevelOuter = bvNone
|
||||
TabOrder = 1
|
||||
object BtnOK: TButton
|
||||
Left = 110
|
||||
Top = 24
|
||||
Width = 75
|
||||
Height = 25
|
||||
Caption = '&OK'
|
||||
Default = True
|
||||
TabOrder = 0
|
||||
OnClick = BtnOKClick
|
||||
end
|
||||
object btnCancel: TButton
|
||||
Left = 29
|
||||
Top = 24
|
||||
Width = 75
|
||||
Height = 25
|
||||
Caption = '&Cancel'
|
||||
TabOrder = 1
|
||||
OnClick = btnCancelClick
|
||||
end
|
||||
end
|
||||
inherited amgrMain: TVA508AccessibilityManager
|
||||
Data = (
|
||||
(
|
||||
'Component = pnlTop'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = cboAllIVRoutes'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = pnlBottom'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = BtnOK'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = btnCancel'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = frmIVRoutes'
|
||||
'Status = stsDefault'))
|
||||
end
|
||||
end
|
|
@ -0,0 +1,88 @@
|
|||
unit fIVRoutes;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, StdCtrls, ORCtrls, ExtCtrls, ORFn, rMisc, rODMeds, VA508AccessibilityManager, VAUtils, fAutoSz;
|
||||
|
||||
type
|
||||
TfrmIVRoutes = class(TfrmAutoSz)
|
||||
pnlTop: TPanel;
|
||||
cboAllIVRoutes: TORComboBox;
|
||||
pnlBottom: TORAutoPanel;
|
||||
BtnOK: TButton;
|
||||
btnCancel: TButton;
|
||||
procedure BtnOKClick(Sender: TObject);
|
||||
procedure btnCancelClick(Sender: TObject);
|
||||
procedure FormCreate(Sender: TObject);
|
||||
procedure FormDestroy(Sender: TObject);
|
||||
private
|
||||
{ Private declarations }
|
||||
|
||||
public
|
||||
{ Public declarations }
|
||||
end;
|
||||
|
||||
function ShowOtherRoutes(var Route: string): boolean;
|
||||
|
||||
var
|
||||
frmIVRoutes: TfrmIVRoutes;
|
||||
|
||||
implementation
|
||||
|
||||
{$R *.dfm}
|
||||
function ShowOtherRoutes(var Route: string): boolean;
|
||||
var
|
||||
idx: integer;
|
||||
begin
|
||||
Result := false;
|
||||
frmIVRoutes := TfrmIVRoutes.Create(Application);
|
||||
ResizeFormToFont(TForm(frmIVRoutes));
|
||||
SetFormPosition(frmIVRoutes);
|
||||
//LoadAllIVRoutes(frmIVRoutes.cboAllIVRoutes.Items);
|
||||
if frmIVRoutes.ShowModal = mrOK then
|
||||
begin
|
||||
idx := frmIVRoutes.cboAllIVRoutes.ItemIndex;
|
||||
if idx > -1 then
|
||||
begin
|
||||
Route := frmIVRoutes.cboAllIVRoutes.Items.Strings[idx];
|
||||
setPiece(Route,U,5,'1');
|
||||
end
|
||||
else Route := '';
|
||||
Result := True;
|
||||
end;
|
||||
frmIVRoutes.Free;
|
||||
end;
|
||||
{ TfrmIVRoutes }
|
||||
|
||||
procedure TfrmIVRoutes.btnCancelClick(Sender: TObject);
|
||||
begin
|
||||
frmIVRoutes.cboAllIVRoutes.ItemIndex := -1;
|
||||
modalResult := mrOK;
|
||||
end;
|
||||
|
||||
procedure TfrmIVRoutes.BtnOKClick(Sender: TObject);
|
||||
begin
|
||||
if frmIVRoutes.cboAllIVRoutes.ItemIndex = -1 then
|
||||
begin
|
||||
infoBox('A route from the list must be selected','Warning', MB_OK);
|
||||
Exit;
|
||||
end;
|
||||
modalResult := mrOK;
|
||||
end;
|
||||
|
||||
|
||||
procedure TfrmIVRoutes.FormCreate(Sender: TObject);
|
||||
begin
|
||||
frmIVRoutes := nil;
|
||||
LoadAllIVRoutes(cboAllIVRoutes.Items);
|
||||
end;
|
||||
|
||||
procedure TfrmIVRoutes.FormDestroy(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
frmIVRoutes := nil;
|
||||
end;
|
||||
|
||||
end.
|
|
@ -0,0 +1,4 @@
|
|||
frmMeds.hdrMedsIn=42,320,80,80,80
|
||||
frmMeds.hdrMedsNonVA=42,320,80,80
|
||||
frmMeds.hdrMedsOut=42,320,80,80,80,40
|
||||
frmOrders.hdrOrders=0,62,375,124,124,34,16,16,16,25
|
|
@ -2,10 +2,10 @@ object dmodShared: TdmodShared
|
|||
OldCreateOrder = False
|
||||
OnCreate = dmodSharedCreate
|
||||
OnDestroy = dmodSharedDestroy
|
||||
Left = 285
|
||||
Top = 161
|
||||
Left = 50
|
||||
Top = 159
|
||||
Height = 479
|
||||
Width = 741
|
||||
Width = 439
|
||||
object imgTemplates: TImageList
|
||||
BkColor = clWhite
|
||||
AllocBy = 6
|
||||
|
@ -1211,8 +1211,8 @@ object dmodShared: TdmodShared
|
|||
BkColor = clWhite
|
||||
AllocBy = 6
|
||||
Width = 20
|
||||
Left = 100
|
||||
Top = 16
|
||||
Left = 28
|
||||
Top = 80
|
||||
Bitmap = {
|
||||
494C010108000900040014001000FFFFFF00FF10FFFFFFFFFFFFFFFF424D3600
|
||||
000000000000360000002800000050000000300000000100200000000000003C
|
||||
|
@ -1720,8 +1720,8 @@ object dmodShared: TdmodShared
|
|||
000000000000}
|
||||
end
|
||||
object imgNotes: TImageList
|
||||
Left = 174
|
||||
Top = 16
|
||||
Left = 22
|
||||
Top = 144
|
||||
Bitmap = {
|
||||
494C01010F001300040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
|
||||
0000000000003600000028000000400000005000000001002000000000000050
|
||||
|
@ -2391,8 +2391,8 @@ object dmodShared: TdmodShared
|
|||
000000000000}
|
||||
end
|
||||
object imgImages: TImageList
|
||||
Left = 240
|
||||
Top = 18
|
||||
Left = 24
|
||||
Top = 202
|
||||
Bitmap = {
|
||||
494C010106000900040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
|
||||
0000000000003600000028000000400000003000000001002000000000000030
|
||||
|
@ -2799,8 +2799,8 @@ object dmodShared: TdmodShared
|
|||
end
|
||||
object imgReminders2: TImageList
|
||||
Width = 32
|
||||
Left = 104
|
||||
Top = 72
|
||||
Left = 200
|
||||
Top = 80
|
||||
Bitmap = {
|
||||
494C01010A000E00040020001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
|
||||
0000000000003600000028000000800000004000000001002000000000000080
|
||||
|
@ -3866,8 +3866,8 @@ object dmodShared: TdmodShared
|
|||
000000000000}
|
||||
end
|
||||
object imgConsults: TImageList
|
||||
Left = 320
|
||||
Top = 18
|
||||
Left = 24
|
||||
Top = 266
|
||||
Bitmap = {
|
||||
494C010109000E00040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
|
||||
0000000000003600000028000000400000004000000001002000000000000040
|
||||
|
@ -4405,8 +4405,8 @@ object dmodShared: TdmodShared
|
|||
000000000000}
|
||||
end
|
||||
object imgSurgery: TImageList
|
||||
Left = 389
|
||||
Top = 17
|
||||
Left = 29
|
||||
Top = 329
|
||||
Bitmap = {
|
||||
494C01010D000E00040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
|
||||
0000000000003600000028000000400000004000000001002000000000000040
|
||||
|
@ -4943,4 +4943,543 @@ object dmodShared: TdmodShared
|
|||
FFFF07FFF803F803FFFF9FFFFC03FC0300000000000000000000000000000000
|
||||
000000000000}
|
||||
end
|
||||
object imgLblReminders: TVA508ImageListLabeler
|
||||
Components = <>
|
||||
ImageList = imgReminders
|
||||
Labels = <
|
||||
item
|
||||
Caption = 'Reminder Category'
|
||||
ImageIndex = 0
|
||||
OverlayIndex = -1
|
||||
end
|
||||
item
|
||||
Caption = 'Reminder Category'
|
||||
ImageIndex = 1
|
||||
OverlayIndex = -1
|
||||
end
|
||||
item
|
||||
Caption = 'Due Reminder'
|
||||
ImageIndex = 2
|
||||
OverlayIndex = -1
|
||||
end
|
||||
item
|
||||
Caption = 'Applicable Reminder'
|
||||
ImageIndex = 3
|
||||
OverlayIndex = -1
|
||||
end
|
||||
item
|
||||
Caption = 'Not Applicable Reminder'
|
||||
ImageIndex = 4
|
||||
OverlayIndex = -1
|
||||
end
|
||||
item
|
||||
Caption = 'Unevaluated Reminder'
|
||||
ImageIndex = 5
|
||||
OverlayIndex = -1
|
||||
end
|
||||
item
|
||||
Caption = 'With Dialog'
|
||||
ImageIndex = 6
|
||||
OverlayIndex = 0
|
||||
end
|
||||
item
|
||||
Caption = 'With Processed Dialog'
|
||||
ImageIndex = 7
|
||||
OverlayIndex = 1
|
||||
end>
|
||||
Left = 112
|
||||
Top = 80
|
||||
end
|
||||
object imgLblHealthFactorLabels: TVA508ImageListLabeler
|
||||
Components = <>
|
||||
ImageList = imgTemplates
|
||||
Labels = <
|
||||
item
|
||||
Caption = 'Template Root'
|
||||
ImageIndex = 0
|
||||
OverlayIndex = -1
|
||||
end
|
||||
item
|
||||
Caption = 'Template Root'
|
||||
ImageIndex = 1
|
||||
OverlayIndex = -1
|
||||
end
|
||||
item
|
||||
Caption = 'Category'
|
||||
ImageIndex = 2
|
||||
OverlayIndex = -1
|
||||
end
|
||||
item
|
||||
Caption = 'Category'
|
||||
ImageIndex = 3
|
||||
OverlayIndex = -1
|
||||
end
|
||||
item
|
||||
Caption = 'Personal Template'
|
||||
ImageIndex = 4
|
||||
OverlayIndex = -1
|
||||
end
|
||||
item
|
||||
Caption = 'Group Template'
|
||||
ImageIndex = 5
|
||||
OverlayIndex = -1
|
||||
end
|
||||
item
|
||||
Caption = 'Group Template'
|
||||
ImageIndex = 6
|
||||
OverlayIndex = -1
|
||||
end
|
||||
item
|
||||
Caption = 'Personal Template *'
|
||||
ImageIndex = 7
|
||||
OverlayIndex = -1
|
||||
end
|
||||
item
|
||||
Caption = 'Group Template *'
|
||||
ImageIndex = 8
|
||||
OverlayIndex = -1
|
||||
end
|
||||
item
|
||||
Caption = 'Group Template *'
|
||||
ImageIndex = 9
|
||||
OverlayIndex = -1
|
||||
end
|
||||
item
|
||||
Caption = 'Shared Template'
|
||||
ImageIndex = 10
|
||||
OverlayIndex = -1
|
||||
end
|
||||
item
|
||||
Caption = 'Group Template'
|
||||
ImageIndex = 11
|
||||
OverlayIndex = -1
|
||||
end
|
||||
item
|
||||
Caption = 'Group Template'
|
||||
ImageIndex = 12
|
||||
OverlayIndex = -1
|
||||
end
|
||||
item
|
||||
Caption = 'Shared Template *'
|
||||
ImageIndex = 13
|
||||
OverlayIndex = -1
|
||||
end
|
||||
item
|
||||
Caption = 'Group Template *'
|
||||
ImageIndex = 14
|
||||
OverlayIndex = -1
|
||||
end
|
||||
item
|
||||
Caption = 'Group Template *'
|
||||
ImageIndex = 15
|
||||
OverlayIndex = -1
|
||||
end
|
||||
item
|
||||
Caption = 'Template Folder'
|
||||
ImageIndex = 16
|
||||
OverlayIndex = -1
|
||||
end
|
||||
item
|
||||
Caption = 'Template Folder'
|
||||
ImageIndex = 17
|
||||
OverlayIndex = -1
|
||||
end
|
||||
item
|
||||
Caption = 'Template Dialog'
|
||||
ImageIndex = 18
|
||||
OverlayIndex = -1
|
||||
end
|
||||
item
|
||||
Caption = 'Template Dialog'
|
||||
ImageIndex = 19
|
||||
OverlayIndex = -1
|
||||
end
|
||||
item
|
||||
Caption = 'Template Dialog *'
|
||||
ImageIndex = 20
|
||||
OverlayIndex = -1
|
||||
end
|
||||
item
|
||||
Caption = 'Template Dialog *'
|
||||
ImageIndex = 21
|
||||
OverlayIndex = -1
|
||||
end
|
||||
item
|
||||
Caption = 'Template Dialog'
|
||||
ImageIndex = 22
|
||||
OverlayIndex = -1
|
||||
end
|
||||
item
|
||||
Caption = 'Template Dialog'
|
||||
ImageIndex = 23
|
||||
OverlayIndex = -1
|
||||
end
|
||||
item
|
||||
Caption = 'Template Dialog *'
|
||||
ImageIndex = 24
|
||||
OverlayIndex = -1
|
||||
end
|
||||
item
|
||||
Caption = 'Template Dialog *'
|
||||
ImageIndex = 25
|
||||
OverlayIndex = -1
|
||||
end
|
||||
item
|
||||
Caption = 'Reminder Dialog'
|
||||
ImageIndex = 26
|
||||
OverlayIndex = -1
|
||||
end
|
||||
item
|
||||
Caption = 'Reminder Dialog'
|
||||
ImageIndex = 27
|
||||
OverlayIndex = -1
|
||||
end
|
||||
item
|
||||
Caption = 'COM Object Template'
|
||||
ImageIndex = 28
|
||||
OverlayIndex = -1
|
||||
end
|
||||
item
|
||||
Caption = 'COM Object Template not installed'
|
||||
ImageIndex = 29
|
||||
OverlayIndex = -1
|
||||
end>
|
||||
Left = 136
|
||||
Top = 16
|
||||
end
|
||||
object imgLblNotes: TVA508ImageListLabeler
|
||||
Components = <>
|
||||
ImageList = imgNotes
|
||||
Labels = <
|
||||
item
|
||||
Caption = 'Top Grouping'
|
||||
ImageIndex = 0
|
||||
OverlayIndex = -1
|
||||
end
|
||||
item
|
||||
Caption = 'Subgrouping'
|
||||
ImageIndex = 1
|
||||
OverlayIndex = -1
|
||||
end
|
||||
item
|
||||
Caption = 'Subgrouping'
|
||||
ImageIndex = 2
|
||||
OverlayIndex = -1
|
||||
end
|
||||
item
|
||||
Caption = 'Note'
|
||||
ImageIndex = 3
|
||||
OverlayIndex = -1
|
||||
end
|
||||
item
|
||||
Caption = 'Note with Addenda'
|
||||
ImageIndex = 4
|
||||
OverlayIndex = -1
|
||||
end
|
||||
item
|
||||
Caption = 'Interdisciplanary Note'
|
||||
ImageIndex = 5
|
||||
OverlayIndex = -1
|
||||
end
|
||||
item
|
||||
Caption = 'Interdisciplanary Note'
|
||||
ImageIndex = 6
|
||||
OverlayIndex = -1
|
||||
end
|
||||
item
|
||||
Caption = 'Interdisciplanary Note with Addenda'
|
||||
ImageIndex = 7
|
||||
OverlayIndex = -1
|
||||
end
|
||||
item
|
||||
Caption = 'Interdisciplanary Note with Addenda'
|
||||
ImageIndex = 8
|
||||
OverlayIndex = -1
|
||||
end
|
||||
item
|
||||
Caption = 'Interdisciplanary entry'
|
||||
ImageIndex = 9
|
||||
OverlayIndex = -1
|
||||
end
|
||||
item
|
||||
Caption = 'Interdisciplanary entry with addenda'
|
||||
ImageIndex = 10
|
||||
OverlayIndex = -1
|
||||
end
|
||||
item
|
||||
Caption = 'Addendum'
|
||||
ImageIndex = 11
|
||||
OverlayIndex = -1
|
||||
end
|
||||
item
|
||||
ImageIndex = 12
|
||||
OverlayIndex = -1
|
||||
end
|
||||
item
|
||||
ImageIndex = 13
|
||||
OverlayIndex = -1
|
||||
end
|
||||
item
|
||||
ImageIndex = 14
|
||||
OverlayIndex = -1
|
||||
end>
|
||||
Left = 120
|
||||
Top = 144
|
||||
end
|
||||
object imgLblImages: TVA508ImageListLabeler
|
||||
Components = <>
|
||||
ImageList = imgNotes
|
||||
Labels = <
|
||||
item
|
||||
Caption = 'Top Grouping'
|
||||
ImageIndex = 0
|
||||
OverlayIndex = -1
|
||||
end
|
||||
item
|
||||
Caption = 'Subgrouping'
|
||||
ImageIndex = 1
|
||||
OverlayIndex = -1
|
||||
end
|
||||
item
|
||||
Caption = 'Subgrouping'
|
||||
ImageIndex = 2
|
||||
OverlayIndex = -1
|
||||
end
|
||||
item
|
||||
Caption = 'Document'
|
||||
ImageIndex = 3
|
||||
OverlayIndex = -1
|
||||
end
|
||||
item
|
||||
Caption = 'Document with Addenda'
|
||||
ImageIndex = 4
|
||||
OverlayIndex = -1
|
||||
end
|
||||
item
|
||||
Caption = 'Folder'
|
||||
ImageIndex = 5
|
||||
OverlayIndex = -1
|
||||
end
|
||||
item
|
||||
Caption = 'Folder'
|
||||
ImageIndex = 6
|
||||
OverlayIndex = -1
|
||||
end
|
||||
item
|
||||
Caption = 'Folder Plus'
|
||||
ImageIndex = 7
|
||||
OverlayIndex = -1
|
||||
end
|
||||
item
|
||||
Caption = 'Folder Plus'
|
||||
ImageIndex = 8
|
||||
OverlayIndex = -1
|
||||
end
|
||||
item
|
||||
Caption = 'Entry'
|
||||
ImageIndex = 9
|
||||
OverlayIndex = -1
|
||||
end
|
||||
item
|
||||
Caption = 'Entry with Addenda'
|
||||
ImageIndex = 10
|
||||
OverlayIndex = -1
|
||||
end
|
||||
item
|
||||
Caption = 'Addendum'
|
||||
ImageIndex = 11
|
||||
OverlayIndex = -1
|
||||
end
|
||||
item
|
||||
ImageIndex = 12
|
||||
OverlayIndex = -1
|
||||
end
|
||||
item
|
||||
ImageIndex = 13
|
||||
OverlayIndex = -1
|
||||
end
|
||||
item
|
||||
ImageIndex = 14
|
||||
OverlayIndex = -1
|
||||
end>
|
||||
Left = 112
|
||||
Top = 208
|
||||
end
|
||||
object imgLblConsults: TVA508ImageListLabeler
|
||||
Components = <>
|
||||
ImageList = imgConsults
|
||||
Labels = <
|
||||
item
|
||||
Caption = 'Top Grouping'
|
||||
ImageIndex = 0
|
||||
OverlayIndex = -1
|
||||
end
|
||||
item
|
||||
Caption = 'Subgrouping'
|
||||
ImageIndex = 1
|
||||
OverlayIndex = -1
|
||||
end
|
||||
item
|
||||
Caption = 'Subgrouping'
|
||||
ImageIndex = 2
|
||||
OverlayIndex = -1
|
||||
end
|
||||
item
|
||||
Caption = 'Consult request'
|
||||
ImageIndex = 3
|
||||
OverlayIndex = -1
|
||||
end
|
||||
item
|
||||
ImageIndex = 4
|
||||
OverlayIndex = -1
|
||||
end
|
||||
item
|
||||
ImageIndex = 5
|
||||
OverlayIndex = -1
|
||||
end
|
||||
item
|
||||
Caption = 'Procedure Request'
|
||||
ImageIndex = 6
|
||||
OverlayIndex = -1
|
||||
end
|
||||
item
|
||||
Caption = 'Interfacility Consult Request'
|
||||
ImageIndex = 7
|
||||
OverlayIndex = -1
|
||||
end
|
||||
item
|
||||
Caption = 'Interfacility Procedure'
|
||||
ImageIndex = 8
|
||||
OverlayIndex = -1
|
||||
end>
|
||||
Left = 128
|
||||
Top = 272
|
||||
end
|
||||
object imgLblSurgery: TVA508ImageListLabeler
|
||||
Components = <>
|
||||
ImageList = imgSurgery
|
||||
Labels = <
|
||||
item
|
||||
ImageIndex = 0
|
||||
OverlayIndex = -1
|
||||
end
|
||||
item
|
||||
Caption = 'Top Grouping'
|
||||
ImageIndex = 1
|
||||
OverlayIndex = -1
|
||||
end
|
||||
item
|
||||
Caption = 'Subgrouping'
|
||||
ImageIndex = 2
|
||||
OverlayIndex = -1
|
||||
end
|
||||
item
|
||||
Caption = 'Subgrouping'
|
||||
ImageIndex = 3
|
||||
OverlayIndex = -1
|
||||
end
|
||||
item
|
||||
Caption = 'OR Case no attached reports'
|
||||
ImageIndex = 4
|
||||
OverlayIndex = -1
|
||||
end
|
||||
item
|
||||
Caption = 'OR case attached reports'
|
||||
ImageIndex = 5
|
||||
OverlayIndex = -1
|
||||
end
|
||||
item
|
||||
Caption = 'OR case attached reports'
|
||||
ImageIndex = 6
|
||||
OverlayIndex = -1
|
||||
end
|
||||
item
|
||||
Caption = 'Report'
|
||||
ImageIndex = 7
|
||||
OverlayIndex = -1
|
||||
end
|
||||
item
|
||||
Caption = 'Report with Addenda'
|
||||
ImageIndex = 8
|
||||
OverlayIndex = -1
|
||||
end
|
||||
item
|
||||
Caption = 'Addendum'
|
||||
ImageIndex = 9
|
||||
OverlayIndex = -1
|
||||
end
|
||||
item
|
||||
Caption = 'Non-OR case without attached reports'
|
||||
ImageIndex = 10
|
||||
OverlayIndex = -1
|
||||
end
|
||||
item
|
||||
Caption = 'Non-OR case with attached report'
|
||||
ImageIndex = 11
|
||||
OverlayIndex = -1
|
||||
end
|
||||
item
|
||||
Caption = 'Non-OR case with attached report'
|
||||
ImageIndex = 12
|
||||
OverlayIndex = -1
|
||||
end>
|
||||
Left = 120
|
||||
Top = 328
|
||||
end
|
||||
object imgLblReminders2: TVA508ImageListLabeler
|
||||
Components = <>
|
||||
ImageList = imgReminders2
|
||||
Labels = <
|
||||
item
|
||||
Caption = 'Reminder Due'
|
||||
ImageIndex = 0
|
||||
OverlayIndex = -1
|
||||
end
|
||||
item
|
||||
Caption = 'Reminder Due Check'
|
||||
ImageIndex = 1
|
||||
OverlayIndex = -1
|
||||
end
|
||||
item
|
||||
Caption = 'Reminder Applicable'
|
||||
ImageIndex = 2
|
||||
OverlayIndex = -1
|
||||
end
|
||||
item
|
||||
Caption = 'Reminder Applicable Check'
|
||||
ImageIndex = 3
|
||||
OverlayIndex = -1
|
||||
end
|
||||
item
|
||||
Caption = 'Reminder Not Applicable'
|
||||
ImageIndex = 4
|
||||
OverlayIndex = -1
|
||||
end
|
||||
item
|
||||
Caption = 'Reminder Not Applicable Check'
|
||||
ImageIndex = 5
|
||||
OverlayIndex = -1
|
||||
end
|
||||
item
|
||||
ImageIndex = 6
|
||||
OverlayIndex = -1
|
||||
end
|
||||
item
|
||||
Caption = 'Check'
|
||||
ImageIndex = 7
|
||||
OverlayIndex = -1
|
||||
end
|
||||
item
|
||||
Caption = 'Reminder Category'
|
||||
ImageIndex = 8
|
||||
OverlayIndex = -1
|
||||
end
|
||||
item
|
||||
Caption = 'Reminder Category Check'
|
||||
ImageIndex = 9
|
||||
OverlayIndex = -1
|
||||
end>
|
||||
Left = 288
|
||||
Top = 80
|
||||
end
|
||||
end
|
||||
|
|
|
@ -3,7 +3,8 @@ interface
|
|||
|
||||
uses
|
||||
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
|
||||
ComCtrls, ImgList, uTemplates, ORFn, ORNet, ExtCtrls, ORCtrls, Richedit;
|
||||
ComCtrls, ImgList, uTemplates, ORFn, ORNet, ExtCtrls, ORCtrls, Richedit,
|
||||
VA508ImageListLabeler;
|
||||
|
||||
type
|
||||
TdmodShared = class(TDataModule)
|
||||
|
@ -14,6 +15,13 @@ type
|
|||
imgReminders2: TImageList;
|
||||
imgConsults: TImageList;
|
||||
imgSurgery: TImageList;
|
||||
imgLblReminders: TVA508ImageListLabeler;
|
||||
imgLblHealthFactorLabels: TVA508ImageListLabeler;
|
||||
imgLblNotes: TVA508ImageListLabeler;
|
||||
imgLblImages: TVA508ImageListLabeler;
|
||||
imgLblConsults: TVA508ImageListLabeler;
|
||||
imgLblSurgery: TVA508ImageListLabeler;
|
||||
imgLblReminders2: TVA508ImageListLabeler;
|
||||
procedure dmodSharedCreate(Sender: TObject);
|
||||
procedure dmodSharedDestroy(Sender: TObject);
|
||||
private
|
||||
|
@ -66,7 +74,7 @@ const
|
|||
|
||||
implementation
|
||||
|
||||
uses fDrawers, rTemplates, uCore, uTemplateFields, uEventHooks;
|
||||
uses fDrawers, rTemplates, uCore, uTemplateFields, uEventHooks, VA508AccessibilityRouter;
|
||||
|
||||
{$R *.DFM}
|
||||
|
||||
|
@ -876,6 +884,9 @@ begin
|
|||
FindRichEditText(AReplaceDialog, ARichEdit);
|
||||
end;
|
||||
|
||||
initialization
|
||||
SpecifyFormIsNotADialog(TdmodShared);
|
||||
|
||||
end.
|
||||
|
||||
|
||||
|
|
|
@ -2,16 +2,18 @@ inherited frmARTAllergy: TfrmARTAllergy
|
|||
Tag = 1105
|
||||
Left = 339
|
||||
Top = 266
|
||||
Width = 561
|
||||
Height = 465
|
||||
Caption = 'Enter Allergy or Adverse Reaction'
|
||||
ClientHeight = 438
|
||||
ClientWidth = 553
|
||||
Position = poScreenCenter
|
||||
OnClose = FormClose
|
||||
OnCloseQuery = FormCloseQuery
|
||||
OnCreate = FormCreate
|
||||
ExplicitWidth = 561
|
||||
ExplicitHeight = 472
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
object pnlBase: TORAutoPanel
|
||||
object pnlBase: TORAutoPanel [0]
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 553
|
||||
|
@ -36,7 +38,7 @@ inherited frmARTAllergy: TfrmARTAllergy
|
|||
Top = 403
|
||||
Width = 72
|
||||
Height = 21
|
||||
Caption = 'OK'
|
||||
Caption = '&OK'
|
||||
TabOrder = 1
|
||||
OnClick = cmdOKClick
|
||||
end
|
||||
|
@ -46,7 +48,7 @@ inherited frmARTAllergy: TfrmARTAllergy
|
|||
Width = 72
|
||||
Height = 21
|
||||
Cancel = True
|
||||
Caption = 'Cancel'
|
||||
Caption = '&Cancel'
|
||||
TabOrder = 2
|
||||
OnClick = cmdCancelClick
|
||||
end
|
||||
|
@ -57,10 +59,9 @@ inherited frmARTAllergy: TfrmARTAllergy
|
|||
Height = 371
|
||||
ActivePage = tabGeneral
|
||||
MultiLine = True
|
||||
TabIndex = 0
|
||||
TabOrder = 0
|
||||
object tabGeneral: TTabSheet
|
||||
Caption = '&General'
|
||||
Caption = 'General'
|
||||
object lblAgent: TOROffsetLabel
|
||||
Left = 7
|
||||
Top = 44
|
||||
|
@ -185,7 +186,7 @@ inherited frmARTAllergy: TfrmARTAllergy
|
|||
Top = 3
|
||||
Width = 119
|
||||
Height = 17
|
||||
Caption = 'No Known Allergies'
|
||||
Caption = '&No Known Allergies'
|
||||
TabOrder = 0
|
||||
OnClick = ckNoKnownAllergiesClick
|
||||
end
|
||||
|
@ -194,7 +195,7 @@ inherited frmARTAllergy: TfrmARTAllergy
|
|||
Top = 24
|
||||
Width = 114
|
||||
Height = 21
|
||||
Caption = 'Active Allergies'
|
||||
Caption = '&Active Allergies'
|
||||
TabOrder = 1
|
||||
OnClick = btnCurrentClick
|
||||
end
|
||||
|
@ -222,8 +223,14 @@ inherited frmARTAllergy: TfrmARTAllergy
|
|||
Height = 21
|
||||
Style = orcsDropDown
|
||||
AutoSelect = True
|
||||
Color = clWindow
|
||||
Color = clBtnFace
|
||||
DropDownCount = 8
|
||||
Enabled = False
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clInactiveCaption
|
||||
Font.Height = -11
|
||||
Font.Name = 'MS Sans Serif'
|
||||
Font.Style = []
|
||||
ItemHeight = 13
|
||||
ItemTipColor = clWindow
|
||||
ItemTipEnable = True
|
||||
|
@ -231,6 +238,7 @@ inherited frmARTAllergy: TfrmARTAllergy
|
|||
LongList = True
|
||||
LookupPiece = 2
|
||||
MaxLength = 0
|
||||
ParentFont = False
|
||||
ParentShowHint = False
|
||||
Pieces = '2,3'
|
||||
ShowHint = False
|
||||
|
@ -258,7 +266,7 @@ inherited frmARTAllergy: TfrmARTAllergy
|
|||
Top = 307
|
||||
Width = 113
|
||||
Height = 17
|
||||
Caption = 'Marked On Chart'
|
||||
Caption = '&Marked On Chart'
|
||||
Checked = True
|
||||
State = cbChecked
|
||||
TabOrder = 18
|
||||
|
@ -270,7 +278,7 @@ inherited frmARTAllergy: TfrmARTAllergy
|
|||
Top = 307
|
||||
Width = 97
|
||||
Height = 17
|
||||
Caption = 'ID Band Marked'
|
||||
Caption = '&ID Band Marked'
|
||||
TabOrder = 17
|
||||
OnClick = ControlChange
|
||||
end
|
||||
|
@ -319,7 +327,7 @@ inherited frmARTAllergy: TfrmARTAllergy
|
|||
Top = 270
|
||||
Width = 62
|
||||
Height = 21
|
||||
Caption = 'Date/Time'
|
||||
Caption = '&Date/Time'
|
||||
TabOrder = 13
|
||||
OnClick = btnDateTimeClick
|
||||
end
|
||||
|
@ -328,7 +336,7 @@ inherited frmARTAllergy: TfrmARTAllergy
|
|||
Top = 270
|
||||
Width = 57
|
||||
Height = 21
|
||||
Caption = 'Remove'
|
||||
Caption = '&Remove'
|
||||
TabOrder = 14
|
||||
OnClick = btnRemoveClick
|
||||
end
|
||||
|
@ -340,8 +348,8 @@ inherited frmARTAllergy: TfrmARTAllergy
|
|||
Columns = 2
|
||||
Ctl3D = True
|
||||
Items.Strings = (
|
||||
'Observed'
|
||||
'Historical')
|
||||
'O&bserved'
|
||||
'&Historical')
|
||||
ParentCtl3D = False
|
||||
ParentShowHint = False
|
||||
ShowHint = True
|
||||
|
@ -387,7 +395,7 @@ inherited frmARTAllergy: TfrmARTAllergy
|
|||
Top = 96
|
||||
Width = 140
|
||||
Height = 21
|
||||
Caption = 'View Previous Observations'
|
||||
Caption = 'View &Previous Observations'
|
||||
TabOrder = 6
|
||||
OnClick = cmdPrevObsClick
|
||||
end
|
||||
|
@ -411,7 +419,7 @@ inherited frmARTAllergy: TfrmARTAllergy
|
|||
Top = 270
|
||||
Width = 157
|
||||
Height = 21
|
||||
Caption = 'View Previous Comments'
|
||||
Caption = '&View Previous Comments'
|
||||
TabOrder = 16
|
||||
OnClick = cmdPrevCmtsClick
|
||||
end
|
||||
|
@ -443,7 +451,7 @@ inherited frmARTAllergy: TfrmARTAllergy
|
|||
Top = 96
|
||||
Width = 21
|
||||
Height = 21
|
||||
Caption = '?'
|
||||
Caption = '&?'
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
|
@ -455,7 +463,7 @@ inherited frmARTAllergy: TfrmARTAllergy
|
|||
end
|
||||
end
|
||||
object tabVerify: TTabSheet
|
||||
Caption = '&Verify'
|
||||
Caption = 'Verify'
|
||||
ImageIndex = 3
|
||||
object lblVerifier: TOROffsetLabel
|
||||
Left = 99
|
||||
|
@ -484,7 +492,7 @@ inherited frmARTAllergy: TfrmARTAllergy
|
|||
Top = 18
|
||||
Width = 69
|
||||
Height = 17
|
||||
Caption = 'Verified'
|
||||
Caption = '&Verified'
|
||||
TabOrder = 0
|
||||
OnClick = ControlChange
|
||||
end
|
||||
|
@ -547,13 +555,14 @@ inherited frmARTAllergy: TfrmARTAllergy
|
|||
Font.Name = 'MS Sans Serif'
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
ExplicitWidth = 83
|
||||
end
|
||||
object ckEnteredInError: TCheckBox
|
||||
Left = 286
|
||||
Top = 5
|
||||
Width = 203
|
||||
Height = 17
|
||||
Caption = 'Mark this allergy as "Entered In Error"'
|
||||
Caption = '&Mark this allergy as "Entered In Error"'
|
||||
TabOrder = 0
|
||||
Visible = False
|
||||
OnClick = ControlChange
|
||||
|
@ -601,8 +610,110 @@ inherited frmARTAllergy: TfrmARTAllergy
|
|||
CharsNeedMatch = 1
|
||||
end
|
||||
end
|
||||
inherited amgrMain: TVA508AccessibilityManager
|
||||
Data = (
|
||||
(
|
||||
'Component = pnlBase'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = cmdOK'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = cmdCancel'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = pgAllergy'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = tabGeneral'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = ckNoKnownAllergies'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = btnCurrent'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = lstAllergy'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = cboOriginator'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = calOriginated'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = ckChartMarked'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = ckIDBand'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = cboSymptoms'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = lstSelectedSymptoms'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = btnDateTime'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = btnRemove'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = grpObsHist'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = cboSeverity'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = calObservedDate'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = cmdPrevObs'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = memComments'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = cmdPrevCmts'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = cboNatureOfReaction'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = btnSevHelp'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = tabVerify'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = ckVerified'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = cboVerifier'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = calVerifyDate'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = tabEnteredInError'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = ckEnteredInError'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = memErrCmts'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = cboAllergyType'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = frmARTAllergy'
|
||||
'Status = stsDefault'))
|
||||
end
|
||||
object dlgReactionDateTime: TORDateTimeDlg
|
||||
FMDateTime = 2981202
|
||||
FMDateTime = 2981202.000000000000000000
|
||||
DateOnly = False
|
||||
RequireTime = False
|
||||
Left = 5
|
||||
|
|
|
@ -5,7 +5,8 @@ interface
|
|||
uses
|
||||
SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
|
||||
Forms, Dialogs, StdCtrls, ORCtrls, ORfn, ExtCtrls, ComCtrls, uConst,
|
||||
Menus, ORDtTm, Buttons, fODBase, fAutoSz, fOMAction, rODAllergy;
|
||||
Menus, ORDtTm, Buttons, fODBase, fAutoSz, fOMAction, rODAllergy,
|
||||
VA508AccessibilityManager;
|
||||
|
||||
type
|
||||
TfrmARTAllergy = class(TfrmOMAction)
|
||||
|
@ -136,6 +137,7 @@ const
|
|||
TX_NO_FUTURE_DATES = 'Reaction dates in the future are not allowed.';
|
||||
TX_BAD_OBS_DATE = 'Observation date must be in the format m/d/y or m/y or y, or T-d.';
|
||||
TX_MISSING_OBS_DATE = 'Observation date is required for observed reactions.';
|
||||
TX_MISSING_OBS_HIST = 'You must select either OBSERVED or HISTORICAL for this reaction.';
|
||||
TX_BAD_VER_DATE = 'Verify date must be in the format m/d/y or m/y or y, or T-d.';
|
||||
TX_BAD_ORIG_DATE = 'Origination date must be in the format m/d/y or m/y or y, or T-d.';
|
||||
TX_NO_FUTURE_ORIG_DATES = 'An origination date in the future is not allowed.';
|
||||
|
@ -283,7 +285,7 @@ begin
|
|||
Defaults := TStringList.Create;
|
||||
StatusText('Loading Default Values');
|
||||
uUserCanVerify := FALSE; //HasSecurityKey('GMRA-ALLERGY VERIFY');
|
||||
Defaults.Assign(ODForAllergies);
|
||||
FastAssign(ODForAllergies, Defaults);
|
||||
StatusText('Initializing Long List');
|
||||
ExtractItems(cboSymptoms.Items, Defaults, 'Top Ten');
|
||||
cboSymptoms.InsertSeparator;
|
||||
|
@ -321,9 +323,14 @@ begin
|
|||
ExtractItems(cboSeverity.Items, Defaults, 'Severity');
|
||||
ExtractItems(cboNatureOfReaction.Items, Defaults, 'Nature of Reaction');
|
||||
lstAllergy.Items.Add('-1^Click button to search ---->');
|
||||
grpObsHist.ItemIndex := 1;
|
||||
grpObsHist.ItemIndex := -1; // CQ 11775 - v27.10 - RV (was '1')
|
||||
calObservedDate.Text := '';
|
||||
cboSeverity.ItemIndex := -1;
|
||||
cboSeverity.Visible := False;
|
||||
lblSeverity.Visible := False;
|
||||
btnSevHelp.Visible := False;
|
||||
calObservedDate.Visible := False;
|
||||
lblObservedDate.Visible := False;
|
||||
cboSymptoms.ItemIndex := -1;
|
||||
memComments.Clear;
|
||||
cmdPrevCmts.Visible := (uEditing and (OldRec.Comments <> nil) and (OldRec.Comments.Text <> ''));
|
||||
|
@ -400,7 +407,7 @@ begin
|
|||
lstAllergySelect(Self);
|
||||
cboAllergyType.SelectByID(Piece(AllergyType, U, 1));
|
||||
cboNatureOfReaction.SelectByID(Piece(NatureOfReaction, U, 1));
|
||||
lstSelectedSymptoms.Items.Assign(SignsSymptoms);
|
||||
FastAssign(SignsSymptoms, lstSelectedSymptoms.Items);
|
||||
calOriginated.FMDateTime := Originated;
|
||||
cboOriginator.InitLongList(OriginatorName);
|
||||
cboOriginator.SelectByIEN(Originator);
|
||||
|
@ -449,6 +456,8 @@ begin
|
|||
if lstAllergy.Items.Count = 0 then SetError(TX_NO_ALLERGY)
|
||||
else if (Length(lstAllergy.DisplayText[0]) = 0) or
|
||||
(Piece(lstAllergy.Items[0], U, 1) = '-1') then SetError(TX_NO_ALLERGY);
|
||||
if (grpObsHist.ItemIndex = -1) then
|
||||
SetError(TX_MISSING_OBS_HIST);
|
||||
if (grpObsHist.ItemIndex = 0) then
|
||||
begin
|
||||
if (lstSelectedSymptoms.Items.Count = 0) then SetError(TX_NO_SYMPTOMS);
|
||||
|
@ -558,7 +567,7 @@ procedure TfrmARTAllergy.ControlChange(Sender: TObject);
|
|||
var
|
||||
MyFMNow: TFMDateTime;
|
||||
i: integer;
|
||||
SourceGlobalRoot: string;
|
||||
SourceGlobalRoot, x: string;
|
||||
begin
|
||||
inherited;
|
||||
if Changing then Exit;
|
||||
|
@ -582,7 +591,7 @@ begin
|
|||
begin
|
||||
DateEnteredInError := MyFMNow; {***}
|
||||
UserEnteringInError := User.DUZ;
|
||||
with memErrCmts do if GetTextLen > 0 then ErrorComments.Assign(Lines);
|
||||
with memErrCmts do if GetTextLen > 0 then QuickCopy(memErrCmts, ErrorComments);
|
||||
end;
|
||||
end
|
||||
else
|
||||
|
@ -592,7 +601,12 @@ begin
|
|||
SourceGlobalRoot := Piece(Piece(Items[0], U, 3), ',', 1) + ',';
|
||||
if Pos('PSDRUG', SourceGlobalRoot) > 0 then
|
||||
SourceGlobalRoot := Piece(SourceGlobalRoot, '"', 1);
|
||||
CausativeAgent := Trim(Piece(DisplayText[0], '<', 1)) + U + Piece(Items[0], U, 1) + ';' + SourceGlobalRoot;
|
||||
x := Piece(Items[0], U, 2);
|
||||
if ((Pos('GMRD', SourceGlobalRoot) > 0) or (Pos('PSDRUG', SourceGlobalRoot) > 0))
|
||||
and (Pos('<', x) > 0) then
|
||||
x := Copy(x, 1, Length(Piece(x, '<', 1)) - 1);
|
||||
//x := Trim(Piece(x, '<', 1));
|
||||
CausativeAgent := x + U + Piece(Items[0], U, 1) + ';' + SourceGlobalRoot;
|
||||
with cboAllergyType do
|
||||
if ItemID <> '' then
|
||||
AllergyType := ItemID + U + Text;
|
||||
|
@ -644,7 +658,7 @@ begin
|
|||
Severity := '';
|
||||
with memComments do
|
||||
if GetTextLen > 0 then
|
||||
NewComments.Assign(Lines);
|
||||
QuickCopy(memComments, NewComments);
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
@ -676,9 +690,9 @@ begin
|
|||
inherited;
|
||||
AStringList := TStringList.Create;
|
||||
try
|
||||
AStringList.Assign(memComments.Lines);
|
||||
QuickCopy(memComments, AStringList);
|
||||
LimitStringLength(AStringList, 74);
|
||||
memComments.Lines.Assign(AstringList);
|
||||
QuickCopy(AstringList, memComments);
|
||||
ControlChange(Self);
|
||||
finally
|
||||
AStringList.Free;
|
||||
|
|
|
@ -1,15 +1,17 @@
|
|||
inherited frmARTFreeTextMsg: TfrmARTFreeTextMsg
|
||||
Left = 426
|
||||
Top = 266
|
||||
Width = 394
|
||||
Height = 359
|
||||
Caption = 'Enter Optional Comments'
|
||||
ClientHeight = 332
|
||||
ClientWidth = 386
|
||||
Constraints.MinHeight = 180
|
||||
Constraints.MinWidth = 394
|
||||
Position = poMainFormCenter
|
||||
ExplicitWidth = 394
|
||||
ExplicitHeight = 366
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
object pnlText: TORAutoPanel
|
||||
object pnlText: TORAutoPanel [0]
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 386
|
||||
|
@ -36,7 +38,7 @@ inherited frmARTFreeTextMsg: TfrmARTFreeTextMsg
|
|||
WordWrap = False
|
||||
end
|
||||
end
|
||||
object pnlButton: TORAutoPanel
|
||||
object pnlButton: TORAutoPanel [1]
|
||||
Left = 0
|
||||
Top = 294
|
||||
Width = 386
|
||||
|
@ -50,13 +52,13 @@ inherited frmARTFreeTextMsg: TfrmARTFreeTextMsg
|
|||
Top = 9
|
||||
Width = 75
|
||||
Height = 21
|
||||
Caption = 'Continue'
|
||||
Caption = '&Continue'
|
||||
Constraints.MinHeight = 21
|
||||
TabOrder = 0
|
||||
OnClick = cmdContinueClick
|
||||
end
|
||||
end
|
||||
object memFreeText: TCaptionRichEdit
|
||||
object memFreeText: TCaptionRichEdit [2]
|
||||
Left = 0
|
||||
Top = 133
|
||||
Width = 386
|
||||
|
@ -72,4 +74,22 @@ inherited frmARTFreeTextMsg: TfrmARTFreeTextMsg
|
|||
TabOrder = 1
|
||||
Caption = 'Additional comments:'
|
||||
end
|
||||
inherited amgrMain: TVA508AccessibilityManager
|
||||
Data = (
|
||||
(
|
||||
'Component = pnlText'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = pnlButton'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = cmdContinue'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = memFreeText'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = frmARTFreeTextMsg'
|
||||
'Status = stsDefault'))
|
||||
end
|
||||
end
|
||||
|
|
|
@ -4,7 +4,8 @@ interface
|
|||
|
||||
uses
|
||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, fAutoSz, StdCtrls, ComCtrls, ORFn, ExtCtrls, ORCtrls;
|
||||
Dialogs, fAutoSz, StdCtrls, ComCtrls, ORFn, ExtCtrls, ORCtrls,
|
||||
VA508AccessibilityManager;
|
||||
|
||||
type
|
||||
TfrmARTFreeTextMsg = class(TfrmAutoSz)
|
||||
|
@ -55,7 +56,7 @@ begin
|
|||
ActiveControl := memFreeText;
|
||||
frmARTFreeTextMsg.ShowModal;
|
||||
OKtoContinue := FContinue;
|
||||
AFreeTextComment.Assign(tmpList);
|
||||
FastAssign(tmpList, AFreeTextComment);
|
||||
end;
|
||||
finally
|
||||
tmpList.Free;
|
||||
|
|
|
@ -6,4 +6,10 @@ inherited frmAutoResize: TfrmAutoResize
|
|||
OnResize = FormResize
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
inherited amgrMain: TVA508AccessibilityManager
|
||||
Data = (
|
||||
(
|
||||
'Component = frmAutoResize'
|
||||
'Status = stsDefault'))
|
||||
end
|
||||
end
|
||||
|
|
|
@ -4,7 +4,7 @@ interface
|
|||
|
||||
uses
|
||||
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,
|
||||
fPage, ExtCtrls;
|
||||
fPage, ExtCtrls, VA508AccessibilityManager;
|
||||
|
||||
type
|
||||
TfrmAutoResize = class(TfrmPage)
|
||||
|
@ -21,6 +21,8 @@ var
|
|||
|
||||
implementation
|
||||
|
||||
uses VA508AccessibilityRouter;
|
||||
|
||||
{$R *.DFM}
|
||||
|
||||
type
|
||||
|
@ -93,4 +95,9 @@ begin
|
|||
FSizes.Free;
|
||||
end;
|
||||
|
||||
|
||||
initialization
|
||||
SpecifyFormIsNotADialog(TfrmAutoResize);
|
||||
|
||||
|
||||
end.
|
||||
|
|
Binary file not shown.
|
@ -1,28 +1,32 @@
|
|||
inherited frmAbout: TfrmAbout
|
||||
Left = 311
|
||||
Top = 55
|
||||
Left = 61
|
||||
Top = 137
|
||||
BorderIcons = [biSystemMenu]
|
||||
BorderStyle = bsDialog
|
||||
Caption = 'About CPRS'
|
||||
ClientHeight = 472
|
||||
ClientHeight = 487
|
||||
ClientWidth = 337
|
||||
Position = poScreenCenter
|
||||
OnCreate = FormCreate
|
||||
ExplicitLeft = 61
|
||||
ExplicitTop = 137
|
||||
ExplicitWidth = 345
|
||||
ExplicitHeight = 521
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
object bvlBottom: TBevel
|
||||
object bvlBottom: TBevel [0]
|
||||
Left = 6
|
||||
Top = 285
|
||||
Width = 326
|
||||
Height = 42
|
||||
Top = 288
|
||||
Width = 328
|
||||
Height = 47
|
||||
end
|
||||
object bvl508Disclaimer: TBevel
|
||||
object bvl508Disclaimer: TBevel [1]
|
||||
Left = 6
|
||||
Top = 337
|
||||
Top = 338
|
||||
Width = 326
|
||||
Height = 101
|
||||
Height = 121
|
||||
end
|
||||
object lblProductName: TStaticText
|
||||
object lblProductName: TStaticText [2]
|
||||
Left = 6
|
||||
Top = 197
|
||||
Width = 79
|
||||
|
@ -31,7 +35,7 @@ inherited frmAbout: TfrmAbout
|
|||
TabOrder = 1
|
||||
TabStop = True
|
||||
end
|
||||
object lblFileVersion: TStaticText
|
||||
object lblFileVersion: TStaticText [3]
|
||||
Left = 193
|
||||
Top = 197
|
||||
Width = 65
|
||||
|
@ -40,7 +44,7 @@ inherited frmAbout: TfrmAbout
|
|||
TabOrder = 2
|
||||
TabStop = True
|
||||
end
|
||||
object lblCompanyName: TStaticText
|
||||
object lblCompanyName: TStaticText [4]
|
||||
Left = 6
|
||||
Top = 214
|
||||
Width = 86
|
||||
|
@ -49,7 +53,7 @@ inherited frmAbout: TfrmAbout
|
|||
TabOrder = 3
|
||||
TabStop = True
|
||||
end
|
||||
object lblComments: TStaticText
|
||||
object lblComments: TStaticText [5]
|
||||
Left = 193
|
||||
Top = 232
|
||||
Width = 63
|
||||
|
@ -58,7 +62,7 @@ inherited frmAbout: TfrmAbout
|
|||
TabOrder = 5
|
||||
TabStop = True
|
||||
end
|
||||
object lblCRC: TStaticText
|
||||
object lblCRC: TStaticText [6]
|
||||
Left = 6
|
||||
Top = 266
|
||||
Width = 36
|
||||
|
@ -67,19 +71,20 @@ inherited frmAbout: TfrmAbout
|
|||
TabOrder = 8
|
||||
TabStop = True
|
||||
end
|
||||
object lblLegalCopyright: TMemo
|
||||
object lblLegalCopyright: TMemo [7]
|
||||
Left = 8
|
||||
Top = 288
|
||||
Top = 289
|
||||
Width = 322
|
||||
Height = 38
|
||||
Height = 44
|
||||
BorderStyle = bsNone
|
||||
Color = clBtnFace
|
||||
Lines.Strings = (
|
||||
'lblLegalCopyright')
|
||||
ReadOnly = True
|
||||
ScrollBars = ssVertical
|
||||
TabOrder = 9
|
||||
end
|
||||
object lblFileDescription: TStaticText
|
||||
object lblFileDescription: TStaticText [8]
|
||||
Left = 6
|
||||
Top = 249
|
||||
Width = 83
|
||||
|
@ -88,7 +93,7 @@ inherited frmAbout: TfrmAbout
|
|||
TabOrder = 6
|
||||
TabStop = True
|
||||
end
|
||||
object lblInternalName: TStaticText
|
||||
object lblInternalName: TStaticText [9]
|
||||
Left = 193
|
||||
Top = 249
|
||||
Width = 77
|
||||
|
@ -97,7 +102,7 @@ inherited frmAbout: TfrmAbout
|
|||
TabOrder = 7
|
||||
TabStop = True
|
||||
end
|
||||
object lblOriginalFileName: TStaticText
|
||||
object lblOriginalFileName: TStaticText [10]
|
||||
Left = 6
|
||||
Top = 232
|
||||
Width = 93
|
||||
|
@ -106,7 +111,7 @@ inherited frmAbout: TfrmAbout
|
|||
TabOrder = 4
|
||||
TabStop = True
|
||||
end
|
||||
object Panel1: TPanel
|
||||
object Panel1: TPanel [11]
|
||||
Left = 6
|
||||
Top = 6
|
||||
Width = 325
|
||||
|
@ -1649,9 +1654,9 @@ inherited frmAbout: TfrmAbout
|
|||
929293939393D4CF86CFD49392D1858A7C7B7B7B7B7B}
|
||||
end
|
||||
end
|
||||
object cmdOK: TButton
|
||||
Left = 259
|
||||
Top = 447
|
||||
object cmdOK: TButton [12]
|
||||
Left = 261
|
||||
Top = 466
|
||||
Width = 72
|
||||
Height = 21
|
||||
Anchors = [akRight, akBottom]
|
||||
|
@ -1661,30 +1666,68 @@ inherited frmAbout: TfrmAbout
|
|||
ModalResult = 1
|
||||
TabOrder = 11
|
||||
end
|
||||
object lbl508Notice: TMemo
|
||||
object lbl508Notice: TMemo [13]
|
||||
Left = 8
|
||||
Top = 340
|
||||
Width = 322
|
||||
Height = 97
|
||||
Top = 341
|
||||
Width = 327
|
||||
Height = 118
|
||||
BorderStyle = bsNone
|
||||
Color = clBtnFace
|
||||
Lines.Strings = (
|
||||
'VHA'#39's Office of Information, System Design & Development staff '
|
||||
'have made every effort during the design, development and '
|
||||
|
||||
'have made every effort during the design, development and testin' +
|
||||
'g '
|
||||
|
||||
'of this application to ensure full accessibility to all users in' +
|
||||
' '
|
||||
|
||||
'compliance with Section 508 of the Rehabilitation Act of 1973, a' +
|
||||
's '
|
||||
'amended. Please send any comments, questions or concerns '
|
||||
|
||||
'regarding the accessibility of this application to EMAIL ADDRESS' +
|
||||
': '
|
||||
'vhaoisddhdscprs508@med.va.gov')
|
||||
'testing of this application to ensure full accessibility to all ' +
|
||||
'users in '
|
||||
'compliance with Section 508 of the Rehabilitation Act of 1973, '
|
||||
'as amended. Please send any comments, questions or concerns '
|
||||
'regarding the accessibility of this application to '
|
||||
'EMAIL ADDRESS:vhaoihdisection508@va.gov')
|
||||
ReadOnly = True
|
||||
ScrollBars = ssVertical
|
||||
TabOrder = 10
|
||||
WantReturns = False
|
||||
end
|
||||
inherited amgrMain: TVA508AccessibilityManager
|
||||
Data = (
|
||||
(
|
||||
'Component = lblProductName'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = lblFileVersion'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = lblCompanyName'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = lblComments'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = lblCRC'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = lblLegalCopyright'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = lblFileDescription'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = lblInternalName'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = lblOriginalFileName'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = Panel1'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = cmdOK'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = lbl508Notice'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = frmAbout'
|
||||
'Status = stsDefault'))
|
||||
end
|
||||
end
|
||||
|
|
|
@ -4,7 +4,7 @@ interface
|
|||
|
||||
uses
|
||||
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
|
||||
fAutoSz, StdCtrls, ExtCtrls;
|
||||
fAutoSz, StdCtrls, ExtCtrls, VA508AccessibilityManager;
|
||||
|
||||
type
|
||||
TfrmAbout = class(TfrmAutoSz)
|
||||
|
@ -36,7 +36,7 @@ implementation
|
|||
|
||||
{$R *.DFM}
|
||||
|
||||
uses ORSystem, ORFn;
|
||||
uses VAUtils, ORFn;
|
||||
|
||||
procedure ShowAbout;
|
||||
var
|
||||
|
|
|
@ -1,46 +1,41 @@
|
|||
object frmActivateDeactive: TfrmActivateDeactive
|
||||
Left = 491
|
||||
Top = 376
|
||||
AutoScroll = False
|
||||
inherited frmActivateDeactive: TfrmActivateDeactive
|
||||
Left = 293
|
||||
Top = 317
|
||||
BorderIcons = []
|
||||
Caption = 'Renew Order'
|
||||
ClientHeight = 185
|
||||
ClientWidth = 353
|
||||
Color = clBtnFace
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'MS Sans Serif'
|
||||
Font.Style = []
|
||||
ClientWidth = 569
|
||||
OldCreateOrder = False
|
||||
ExplicitWidth = 320
|
||||
ExplicitHeight = 240
|
||||
DesignSize = (
|
||||
353
|
||||
569
|
||||
185)
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
object TActivate: TButton
|
||||
Left = 143
|
||||
Top = 160
|
||||
Width = 56
|
||||
object TActivate: TButton [0]
|
||||
Left = 206
|
||||
Top = 157
|
||||
Width = 106
|
||||
Height = 25
|
||||
Anchors = [akLeft, akTop, akRight, akBottom]
|
||||
Caption = 'No'
|
||||
Caption = 'DC Pending Order'
|
||||
TabOrder = 2
|
||||
OnClick = TActivateClick
|
||||
end
|
||||
object TDeactive: TButton
|
||||
Left = 63
|
||||
Top = 160
|
||||
Width = 56
|
||||
object TDeactive: TButton [1]
|
||||
Left = 132
|
||||
Top = 157
|
||||
Width = 63
|
||||
Height = 25
|
||||
Caption = 'Yes'
|
||||
Caption = 'DC BOTH'
|
||||
TabOrder = 1
|
||||
OnClick = TDeactiveClick
|
||||
end
|
||||
object Memo1: TMemo
|
||||
object Memo1: TMemo [2]
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 345
|
||||
Width = 569
|
||||
Height = 145
|
||||
BorderStyle = bsNone
|
||||
Color = clBtnFace
|
||||
|
@ -50,13 +45,31 @@ object frmActivateDeactive: TfrmActivateDeactive
|
|||
ScrollBars = ssVertical
|
||||
TabOrder = 0
|
||||
end
|
||||
object TCancel: TButton
|
||||
Left = 225
|
||||
Top = 160
|
||||
Width = 56
|
||||
object TCancel: TButton [3]
|
||||
Left = 324
|
||||
Top = 157
|
||||
Width = 137
|
||||
Height = 25
|
||||
Caption = 'Cancel'
|
||||
Caption = 'Cancel-No Action Taken'
|
||||
TabOrder = 3
|
||||
OnClick = TCancelClick
|
||||
end
|
||||
inherited amgrMain: TVA508AccessibilityManager
|
||||
Data = (
|
||||
(
|
||||
'Component = TActivate'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = TDeactive'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = Memo1'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = TCancel'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = frmActivateDeactive'
|
||||
'Status = stsDefault'))
|
||||
end
|
||||
end
|
||||
|
|
|
@ -5,7 +5,7 @@ interface
|
|||
uses
|
||||
Windows, Messages, SysUtils, StrUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, fAutoSz, StdCtrls, ExtCtrls, ORCtrls,ORFn, rCore, uCore, oRNet, Math, fOrders, ORClasses, rOrders,
|
||||
fMeds, rMeds;
|
||||
fMeds, rMeds, VA508AccessibilityManager;
|
||||
|
||||
type
|
||||
TfrmActivateDeactive = class(TfrmAutoSz)
|
||||
|
@ -19,6 +19,7 @@ type
|
|||
private
|
||||
{ Private declarations }
|
||||
procedure GetOriginalOrders(OrderID: TStringList; var OriginalOrder: TORStringList);
|
||||
procedure DCOriginalOrder(OrderID: string);
|
||||
procedure BuildForm(Str1: String);
|
||||
function PromptForm(Text: String): String;
|
||||
public
|
||||
|
@ -46,12 +47,12 @@ var
|
|||
begin
|
||||
with frmActivateDeactive do
|
||||
begin
|
||||
str := 'This order ' + str1 +' is currently in a pending status. ';
|
||||
str := str + CRLF + 'If this order is discontinued, the original order status will be changed to active, unless it is discontinued.';
|
||||
str := 'This order is in a pending status. If this pending order is discontinued, the original order will still be active.';
|
||||
str := str + CRLF + CRLF + str1;
|
||||
str := str + CRLF + CRLF + 'Click:';
|
||||
str := str + CRLF + ' "Yes" to discontinue the original order';
|
||||
str := str + CRLF + ' "No" to change the status to active';
|
||||
str := str + CRLF + ' "Cancel" to stop the discontinue process for this order';
|
||||
str := str + CRLF + ' "DC BOTH" to discontinue both orders ';
|
||||
str := str + CRLF + ' "DC Pending Order" to discontinue only the pending order and return the original order back to an active status ';
|
||||
str := str + CRLF + ' "Cancel - No Action Taken" to stop the discontinue process ';
|
||||
Memo1.ReadOnly := False;
|
||||
Memo1.Text := str;
|
||||
Memo1.ReadOnly := True;
|
||||
|
@ -63,10 +64,10 @@ end;
|
|||
|
||||
procedure TfrmActivateDeactive.fActivateDeactive(OrderID: TStringList);
|
||||
var
|
||||
i,j,Pos: integer;
|
||||
i,Pos: integer;
|
||||
tmpArr: TORStringList;
|
||||
ActDeact: string;
|
||||
AnOrder,AnOrder1: TOrder;
|
||||
AnOrder: TOrder;
|
||||
begin
|
||||
//called from order tab
|
||||
tmpArr := TORStringList.Create;
|
||||
|
@ -78,15 +79,8 @@ begin
|
|||
if Pos > -1 then
|
||||
begin
|
||||
ActDeact := PromptForm(AnOrder.Text);
|
||||
if ActDeact = 'D' then
|
||||
begin
|
||||
for j := 0 to forders.frmOrders.lstOrders.Items.Count-1 do
|
||||
begin
|
||||
AnOrder1 := TOrder(forders.frmOrders.lstOrders.Items.Objects[j]);
|
||||
if AnOrder1.ID = Piece(tmpArr.Strings[Pos],U,2) then
|
||||
forders.frmOrders.lstOrders.Selected[j] := True;
|
||||
end;
|
||||
end;
|
||||
if ActDeact = 'D' then AnOrder.DCOriginalOrder := True;
|
||||
if ActDeact = 'A' then AnOrder.DCOriginalOrder := False;
|
||||
if ActDeact = 'C' then Selected[i] := False;
|
||||
end;
|
||||
end;
|
||||
|
@ -94,41 +88,31 @@ end;
|
|||
|
||||
procedure TfrmActivateDeactive.fActivateDeactive(OrderID: TStringList; AList: TListBox);
|
||||
var
|
||||
i,j,Pos: integer;
|
||||
i,Pos: integer;
|
||||
tmpArr: TORStringList;
|
||||
ActDeact: String;
|
||||
AMed,AMed1: TMedListRec;
|
||||
AMed: TMedListRec;
|
||||
AnOrder: TOrder;
|
||||
begin
|
||||
//called from Med tab
|
||||
tmpArr := TORStringList.Create;
|
||||
GetOriginalOrders(OrderID,tmpArr);
|
||||
with AList do for i := 0 to items.Count-1 do if Selected[i] then
|
||||
AnOrder := TOrder.Create;
|
||||
with AList do for i := 0 to items.Count-1 do if Selected[i] then
|
||||
begin
|
||||
AMed := TMedListRec(Items.Objects[i]);
|
||||
if AMed = nil then Continue;
|
||||
Pos := tmpArr.IndexOfPiece(AMed.OrderID,U,1);
|
||||
if Pos > -1 then
|
||||
begin
|
||||
ActDeact := PromptForm(Alist.Items.Strings[i]);
|
||||
if ActDeact = 'D' then
|
||||
begin
|
||||
for j := 0 to Alist.Items.Count-1 do
|
||||
begin
|
||||
AMed1 := TMedListRec(Alist.Items.Objects[j]);
|
||||
if AMed1.OrderID = Piece(tmpArr.Strings[Pos],U,2) then
|
||||
begin
|
||||
Alist.Selected[j] := True;
|
||||
break;
|
||||
end;
|
||||
//some med orders may not have an action defined tends to be renew order of orders that were renew from another
|
||||
//order and outpatient orders
|
||||
if (AMed1.OrderID = Piece(Piece(tmpArr.Strings[Pos],U,2),';',1)) then
|
||||
begin
|
||||
Alist.Selected[j] := True;
|
||||
break;
|
||||
end;
|
||||
|
||||
end;
|
||||
AnOrder := GetOrderByIFN(Piece(tmpArr.Strings[Pos],U,1));
|
||||
DCOriginalOrder(AnOrder.ID);
|
||||
//AnOrder.DCOriginalOrder := True;
|
||||
end;
|
||||
if ActDeact = 'A' then AnOrder.DCOriginalOrder := False;
|
||||
if ActDeact = 'C' then Selected[i] := False;
|
||||
end;
|
||||
end;
|
||||
|
@ -179,4 +163,9 @@ begin
|
|||
frmActivateDeactive.Close;
|
||||
end;
|
||||
|
||||
procedure TfrmActivateDeactive.DCOriginalOrder(OrderID: string);
|
||||
begin
|
||||
CallV('ORWDX1 DCORIG', [OrderID]);
|
||||
end;
|
||||
|
||||
end.
|
||||
|
|
|
@ -1,34 +1,30 @@
|
|||
object frmAddlSigners: TfrmAddlSigners
|
||||
inherited frmAddlSigners: TfrmAddlSigners
|
||||
Left = 275
|
||||
Top = 164
|
||||
BorderStyle = bsDialog
|
||||
Caption = 'Identify Additional Signers'
|
||||
ClientHeight = 362
|
||||
ClientWidth = 403
|
||||
Color = clBtnFace
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'MS Sans Serif'
|
||||
Font.Style = []
|
||||
ClientHeight = 364
|
||||
ClientWidth = 443
|
||||
OldCreateOrder = True
|
||||
Position = poScreenCenter
|
||||
OnCreate = FormCreate
|
||||
OnDestroy = FormDestroy
|
||||
ExplicitWidth = 449
|
||||
ExplicitHeight = 396
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
object pnlBase: TPanel
|
||||
object pnlBase: TPanel [0]
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 403
|
||||
Height = 362
|
||||
Width = 443
|
||||
Height = 364
|
||||
Align = alClient
|
||||
BevelOuter = bvNone
|
||||
TabOrder = 0
|
||||
object pnlButtons: TORAutoPanel
|
||||
Left = 0
|
||||
Top = 309
|
||||
Width = 403
|
||||
Top = 311
|
||||
Width = 443
|
||||
Height = 53
|
||||
Align = alBottom
|
||||
BevelOuter = bvNone
|
||||
|
@ -38,7 +34,7 @@ object frmAddlSigners: TfrmAddlSigners
|
|||
Top = 14
|
||||
Width = 75
|
||||
Height = 25
|
||||
Caption = 'OK'
|
||||
Caption = '&OK'
|
||||
TabOrder = 0
|
||||
OnClick = cmdOKClick
|
||||
end
|
||||
|
@ -48,7 +44,7 @@ object frmAddlSigners: TfrmAddlSigners
|
|||
Width = 75
|
||||
Height = 25
|
||||
Cancel = True
|
||||
Caption = 'Cancel'
|
||||
Caption = '&Cancel'
|
||||
TabOrder = 1
|
||||
OnClick = cmdCancelClick
|
||||
end
|
||||
|
@ -56,8 +52,8 @@ object frmAddlSigners: TfrmAddlSigners
|
|||
object pnlAdditional: TORAutoPanel
|
||||
Left = 0
|
||||
Top = 70
|
||||
Width = 403
|
||||
Height = 239
|
||||
Width = 443
|
||||
Height = 241
|
||||
Align = alClient
|
||||
TabOrder = 1
|
||||
object SrcLabel: TLabel
|
||||
|
@ -69,8 +65,8 @@ object frmAddlSigners: TfrmAddlSigners
|
|||
Caption = 'Select or enter additional signers'
|
||||
end
|
||||
object DstLabel: TLabel
|
||||
Left = 214
|
||||
Top = 16
|
||||
Left = 266
|
||||
Top = 15
|
||||
Width = 145
|
||||
Height = 16
|
||||
AutoSize = False
|
||||
|
@ -98,6 +94,7 @@ object frmAddlSigners: TfrmAddlSigners
|
|||
SynonymChars = '<>'
|
||||
TabOrder = 0
|
||||
TabStop = True
|
||||
OnChange = cboSrcListChange
|
||||
OnClick = cboSrcListClick
|
||||
OnKeyDown = cboSrcListKeyDown
|
||||
OnMouseClick = cboSrcListMouseClick
|
||||
|
@ -105,36 +102,58 @@ object frmAddlSigners: TfrmAddlSigners
|
|||
CharsNeedMatch = 1
|
||||
end
|
||||
object DstList: TORListBox
|
||||
Left = 213
|
||||
Top = 33
|
||||
Width = 174
|
||||
Left = 266
|
||||
Top = 37
|
||||
Width = 170
|
||||
Height = 185
|
||||
ItemHeight = 13
|
||||
MultiSelect = True
|
||||
ParentShowHint = False
|
||||
ShowHint = True
|
||||
TabOrder = 1
|
||||
OnClick = DstListClick
|
||||
Sorted = True
|
||||
TabOrder = 2
|
||||
OnClick = DstListChange
|
||||
Caption = 'Current additional signers'
|
||||
ItemTipColor = clWindow
|
||||
LongList = False
|
||||
Pieces = '2'
|
||||
OnChange = DstListChange
|
||||
end
|
||||
object cmdRemove: TButton
|
||||
Left = 264
|
||||
Top = 221
|
||||
Width = 75
|
||||
object btnRemoveSigners: TButton
|
||||
Left = 189
|
||||
Top = 108
|
||||
Width = 71
|
||||
Height = 25
|
||||
Caption = 'Remove'
|
||||
TabOrder = 2
|
||||
Visible = False
|
||||
OnClick = cmdRemoveClick
|
||||
Caption = '&Remove'
|
||||
Enabled = False
|
||||
TabOrder = 3
|
||||
OnClick = btnRemoveSignersClick
|
||||
end
|
||||
object btnAddSigners: TButton
|
||||
Left = 189
|
||||
Top = 77
|
||||
Width = 71
|
||||
Height = 25
|
||||
Caption = '&Add'
|
||||
Enabled = False
|
||||
TabOrder = 1
|
||||
OnClick = btnAddSignersClick
|
||||
end
|
||||
object btnRemoveAllSigners: TButton
|
||||
Left = 189
|
||||
Top = 139
|
||||
Width = 71
|
||||
Height = 25
|
||||
Caption = 'R&emove All'
|
||||
Enabled = False
|
||||
TabOrder = 4
|
||||
OnClick = btnRemoveAllSignersClick
|
||||
end
|
||||
end
|
||||
object pnlTop: TORAutoPanel
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 403
|
||||
Width = 443
|
||||
Height = 70
|
||||
Align = alTop
|
||||
BevelOuter = bvNone
|
||||
|
@ -151,8 +170,8 @@ object frmAddlSigners: TfrmAddlSigners
|
|||
WordWrap = False
|
||||
end
|
||||
object lblCosigner: TOROffsetLabel
|
||||
Left = 213
|
||||
Top = 10
|
||||
Left = 246
|
||||
Top = 6
|
||||
Width = 155
|
||||
Height = 15
|
||||
Caption = 'Expected Cosigner (not editable)'
|
||||
|
@ -162,8 +181,8 @@ object frmAddlSigners: TfrmAddlSigners
|
|||
WordWrap = False
|
||||
end
|
||||
object cboCosigner: TORComboBox
|
||||
Left = 214
|
||||
Top = 26
|
||||
Left = 246
|
||||
Top = 27
|
||||
Width = 174
|
||||
Height = 21
|
||||
Style = orcsDropDown
|
||||
|
@ -203,4 +222,49 @@ object frmAddlSigners: TfrmAddlSigners
|
|||
end
|
||||
end
|
||||
end
|
||||
inherited amgrMain: TVA508AccessibilityManager
|
||||
Data = (
|
||||
(
|
||||
'Component = pnlBase'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = pnlButtons'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = cmdOK'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = cmdCancel'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = pnlAdditional'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = cboSrcList'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = DstList'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = btnRemoveSigners'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = btnAddSigners'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = pnlTop'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = cboCosigner'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = txtAuthor'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = frmAddlSigners'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = btnRemoveAllSigners'
|
||||
'Status = stsDefault'))
|
||||
end
|
||||
end
|
||||
|
|
|
@ -3,10 +3,11 @@ unit fAddlSigners;
|
|||
interface
|
||||
|
||||
uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,
|
||||
Buttons, ORCtrls, ORfn, ExtCtrls, FNoteProps,Dialogs;
|
||||
Buttons, ORCtrls, ORfn, ExtCtrls, FNoteProps, Dialogs, fBase508Form,
|
||||
VA508AccessibilityManager;
|
||||
|
||||
type
|
||||
TfrmAddlSigners = class(TForm)
|
||||
TfrmAddlSigners = class(TfrmBase508Form)
|
||||
cmdOK: TButton;
|
||||
cmdCancel: TButton;
|
||||
cboSrcList: TORComboBox;
|
||||
|
@ -14,7 +15,7 @@ type
|
|||
SrcLabel: TLabel;
|
||||
DstLabel: TLabel;
|
||||
pnlBase: TPanel;
|
||||
cmdRemove: TButton;
|
||||
btnRemoveSigners: TButton;
|
||||
lblAuthor: TOROffsetLabel;
|
||||
cboCosigner: TORComboBox;
|
||||
lblCosigner: TOROffsetLabel;
|
||||
|
@ -22,22 +23,27 @@ type
|
|||
pnlAdditional: TORAutoPanel;
|
||||
pnlButtons: TORAutoPanel;
|
||||
pnlTop: TORAutoPanel;
|
||||
btnAddSigners: TButton;
|
||||
btnRemoveAllSigners: TButton;
|
||||
procedure btnAddSignersClick(Sender: TObject);
|
||||
procedure NewPersonNeedData(Sender: TObject; const StartFrom: String;
|
||||
Direction, InsertAt: Integer);
|
||||
procedure cmdOKClick(Sender: TObject);
|
||||
procedure cmdCancelClick(Sender: TObject);
|
||||
procedure cboSrcListMouseClick(Sender: TObject);
|
||||
procedure cmdRemoveClick(Sender: TObject);
|
||||
procedure btnRemoveSignersClick(Sender: TObject);
|
||||
procedure FormCreate(Sender: TObject);
|
||||
procedure FormDestroy(Sender: TObject);
|
||||
procedure cboCosignerChange(Sender: TObject);
|
||||
procedure DstListClick(Sender: TObject);
|
||||
procedure cboSrcListKeyDown(Sender: TObject; var Key: Word;
|
||||
Shift: TShiftState);
|
||||
procedure cboCosignerNeedData(Sender: TObject; const StartFrom: String;
|
||||
Direction, InsertAt: Integer);
|
||||
procedure cboCosignerExit(Sender: TObject);
|
||||
procedure cboSrcListClick(Sender: TObject);
|
||||
procedure DstListChange(Sender: TObject);
|
||||
procedure btnRemoveAllSignersClick(Sender: TObject);
|
||||
procedure cboSrcListChange(Sender: TObject);
|
||||
private
|
||||
FSigners: TStringList ;
|
||||
FCosigner: int64;
|
||||
|
@ -49,6 +55,7 @@ type
|
|||
FToday: string;
|
||||
FTabID: integer;
|
||||
function CosignerOK: Boolean;
|
||||
|
||||
end;
|
||||
|
||||
TSignerList = record
|
||||
|
@ -70,7 +77,7 @@ implementation
|
|||
{$R *.DFM}
|
||||
|
||||
uses
|
||||
rCore, uCore, rTIU, uConst, rPCE;
|
||||
rCore, uCore, rTIU, uConst, rPCE, fDCSumm;
|
||||
|
||||
const
|
||||
TX_SIGNER_CAP = 'Error adding signers';
|
||||
|
@ -98,7 +105,7 @@ begin
|
|||
FSigAction := SigAction;
|
||||
FNoteIEN := NoteIEN;
|
||||
FRefDate := ARefDate;
|
||||
FExclusions.Assign(Exclusions);
|
||||
FastAssign(Exclusions, FExclusions);
|
||||
FToday := FloatToStr(FMToday);
|
||||
if FSigAction = SG_COSIGNER then
|
||||
begin
|
||||
|
@ -120,7 +127,10 @@ begin
|
|||
cboCosigner.ItemIndex := 0;
|
||||
end
|
||||
else
|
||||
begin
|
||||
DstList.Items.Add(Strings[i]);
|
||||
btnRemoveAllSigners.Enabled := DstList.Items.Count > 0;
|
||||
end;
|
||||
end;
|
||||
|
||||
if (SigAction = SG_COSIGNER) or (SigAction = SG_BOTH) then
|
||||
|
@ -138,7 +148,7 @@ begin
|
|||
with SignerList do
|
||||
begin
|
||||
Signers := TStringList.Create;
|
||||
Signers.Assign(FSigners);
|
||||
FastAssign(FSigners, Signers);
|
||||
Cosigner := FCosigner;
|
||||
Changed := FChanged ;
|
||||
end ;
|
||||
|
@ -196,10 +206,19 @@ begin
|
|||
Exit;
|
||||
end;
|
||||
DstList.Items.Add(cboSrcList.Items[cboSrcList.Itemindex]) ;
|
||||
cboSrcList.SelectByID(cboSrcList.ItemID);
|
||||
btnRemoveSigners.Enabled := DstList.SelCount > 0;
|
||||
btnRemoveAllSigners.Enabled := DstList.Items.Count > 0;
|
||||
|
||||
end;
|
||||
|
||||
procedure TfrmAddlSigners.cmdRemoveClick(Sender: TObject);
|
||||
procedure TfrmAddlSigners.btnRemoveAllSignersClick(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
DstList.SelectAll;
|
||||
btnRemoveSignersClick(self);
|
||||
end;
|
||||
|
||||
procedure TfrmAddlSigners.btnRemoveSignersClick(Sender: TObject);
|
||||
var
|
||||
i,j: integer;
|
||||
begin
|
||||
|
@ -217,25 +236,35 @@ begin
|
|||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmAddlSigners.btnAddSignersClick(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
cboSrcListMouseClick(btnAddSigners);
|
||||
end;
|
||||
|
||||
procedure TfrmAddlSigners.cboCosignerChange(Sender: TObject);
|
||||
var
|
||||
i: integer;
|
||||
begin
|
||||
if UserInactive(cboCosigner.ItemID) then
|
||||
if (InfoBox(fNoteProps.TX_USER_INACTIVE, TC_INACTIVE_USER, MB_OKCANCEL)= IDCANCEL) then exit;
|
||||
if not CosignerOK then Exit;
|
||||
i := DstList.SelectByID(cboCosigner.ItemID);
|
||||
if i > -1 then
|
||||
with cboCosigner do
|
||||
begin
|
||||
if UserInactive(ItemID) then
|
||||
if (InfoBox(fNoteProps.TX_USER_INACTIVE, TC_INACTIVE_USER, MB_OKCANCEL)= IDCANCEL) then exit;
|
||||
if not CosignerOK then Exit;
|
||||
i := DstList.SelectByID(ItemID);
|
||||
if i > -1 then
|
||||
begin
|
||||
DstList.Items.Delete(i);
|
||||
FSigners.Add(ORFn.Pieces(cboCosigner.Items[cboCosigner.ItemIndex], U, 1, 2) + '^REMOVE');
|
||||
FSigners.Add(ORFn.Pieces(Items[ItemIndex], U, 1, 2) + '^REMOVE');
|
||||
end;
|
||||
for i := 0 to FExclusions.Count - 1 do
|
||||
if (Piece(FExclusions.Strings[i],U,3) = 'Expected Cosigner') then
|
||||
FExclusions.Strings[i] := ORFn.Pieces(Items[ItemIndex], U, 1, 2) + '^Expected Cosigner';
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmAddlSigners.FormCreate(Sender: TObject);
|
||||
begin
|
||||
cboCosigner.Color := ReadOnlyColor;
|
||||
txtAuthor.Color := ReadOnlyColor;
|
||||
FSigners := TStringList.Create;
|
||||
FExclusions := TStringList.Create;
|
||||
end;
|
||||
|
@ -246,9 +275,18 @@ begin
|
|||
FExclusions.Free;
|
||||
end;
|
||||
|
||||
procedure TfrmAddlSigners.DstListClick(Sender: TObject);
|
||||
procedure TfrmAddlSigners.DstListChange(Sender: TObject);
|
||||
begin
|
||||
if DstList.ItemIndex > -1 then cmdRemoveClick(Self);
|
||||
inherited;
|
||||
if DstList.SelCount = 1 then
|
||||
if Piece(DstList.Items[0], '^', 1) = '' then
|
||||
begin
|
||||
btnRemoveSigners.Enabled := false;
|
||||
btnRemoveAllSigners.Enabled := false;
|
||||
exit;
|
||||
end;
|
||||
btnRemoveSigners.Enabled := DstList.SelCount > 0;
|
||||
btnRemoveAllSigners.Enabled := DstList.Items.Count > 0;
|
||||
end;
|
||||
|
||||
procedure TfrmAddlSigners.cboSrcListKeyDown(Sender: TObject; var Key: Word;
|
||||
|
@ -293,7 +331,11 @@ begin
|
|||
case FTabID of
|
||||
CT_NOTES: TORComboBox(Sender).ForDataUse(SubSetOfUsersWithClass(StartFrom, Direction, FToday));
|
||||
CT_CONSULTS: TORComboBox(Sender).ForDataUse(SubSetOfUsersWithClass(StartFrom, Direction, FToday));
|
||||
CT_DCSUMM: TORComboBox(Sender).ForDataUse(SubSetOfProviders(StartFrom, Direction));
|
||||
//CQ #17218 - Updated to properly filter co-signers - JCS
|
||||
//CT_DCSUMM: TORComboBox(Sender).ForDataUse(SubSetOfProviders(StartFrom, Direction));
|
||||
CT_DCSUMM: (Sender as TORComboBox).ForDataUse(SubSetOfCosigners(StartFrom, Direction,
|
||||
FMToday, 0, frmDCSumm.lstSumms.ItemIEN));
|
||||
|
||||
end;
|
||||
end;
|
||||
|
||||
|
@ -302,12 +344,16 @@ begin
|
|||
with cboCosigner do if Text = '' then ItemIndex := -1;
|
||||
end;
|
||||
|
||||
procedure TfrmAddlSigners.cboSrcListClick(Sender: TObject);
|
||||
var UserEIN:string;
|
||||
procedure TfrmAddlSigners.cboSrcListChange(Sender: TObject);
|
||||
begin
|
||||
UserEIN := Piece(cboSrcList.Items[cboSrcList.Itemindex],U,1);
|
||||
if UserInactive(UserEIN) then
|
||||
if (InfoBox(fNoteProps.TX_USER_INACTIVE, TC_INACTIVE_USER, MB_OKCANCEL)= IDCANCEL) then exit;
|
||||
inherited;
|
||||
btnAddSigners.Enabled := CboSrcList.ItemIndex > -1;
|
||||
end;
|
||||
|
||||
procedure TfrmAddlSigners.cboSrcListClick(Sender: TObject);
|
||||
begin
|
||||
if UserInactive(cboSrcList.ItemID) then
|
||||
if (InfoBox(fNoteProps.TX_USER_INACTIVE, TC_INACTIVE_USER, MB_OKCANCEL)= IDCANCEL) then exit;
|
||||
|
||||
end;
|
||||
|
||||
|
|
|
@ -1,25 +1,21 @@
|
|||
object frmAlertForward: TfrmAlertForward
|
||||
inherited frmAlertForward: TfrmAlertForward
|
||||
Left = 297
|
||||
Top = 206
|
||||
BorderStyle = bsDialog
|
||||
Caption = 'Forward Alert'
|
||||
ClientHeight = 381
|
||||
ClientWidth = 354
|
||||
Color = clBtnFace
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'MS Sans Serif'
|
||||
Font.Style = []
|
||||
ClientWidth = 387
|
||||
OldCreateOrder = True
|
||||
Position = poScreenCenter
|
||||
OnCreate = FormCreate
|
||||
ExplicitWidth = 393
|
||||
ExplicitHeight = 406
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
object pnlBase: TORAutoPanel
|
||||
object pnlBase: TORAutoPanel [0]
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 354
|
||||
Width = 387
|
||||
Height = 381
|
||||
Align = alClient
|
||||
BevelOuter = bvNone
|
||||
|
@ -27,57 +23,53 @@ object frmAlertForward: TfrmAlertForward
|
|||
object SrcLabel: TLabel
|
||||
Left = 12
|
||||
Top = 120
|
||||
Width = 133
|
||||
Width = 144
|
||||
Height = 30
|
||||
AutoSize = False
|
||||
Caption = 'Select one or more names to receive forwarded alert'
|
||||
WordWrap = True
|
||||
end
|
||||
object DstLabel: TLabel
|
||||
Left = 196
|
||||
Top = 134
|
||||
Left = 231
|
||||
Top = 133
|
||||
Width = 145
|
||||
Height = 16
|
||||
AutoSize = False
|
||||
Caption = 'Currently selected recipients'
|
||||
end
|
||||
object Label1: TLabel
|
||||
Left = 8
|
||||
Top = 48
|
||||
Left = 12
|
||||
Top = 47
|
||||
Width = 44
|
||||
Height = 13
|
||||
Caption = 'Comment'
|
||||
end
|
||||
object cmdOK: TButton
|
||||
Left = 185
|
||||
Top = 346
|
||||
Left = 105
|
||||
Top = 349
|
||||
Width = 75
|
||||
Height = 25
|
||||
Caption = 'OK'
|
||||
Default = True
|
||||
ModalResult = 1
|
||||
TabOrder = 4
|
||||
Caption = '&OK'
|
||||
TabOrder = 7
|
||||
OnClick = cmdOKClick
|
||||
end
|
||||
object cmdCancel: TButton
|
||||
Left = 265
|
||||
Top = 346
|
||||
Left = 193
|
||||
Top = 349
|
||||
Width = 75
|
||||
Height = 25
|
||||
Cancel = True
|
||||
Caption = 'Cancel'
|
||||
ModalResult = 2
|
||||
TabOrder = 5
|
||||
Caption = '&Cancel'
|
||||
TabOrder = 8
|
||||
OnClick = cmdCancelClick
|
||||
end
|
||||
object cboSrcList: TORComboBox
|
||||
Left = 12
|
||||
Top = 150
|
||||
Top = 156
|
||||
Width = 144
|
||||
Height = 185
|
||||
Style = orcsSimple
|
||||
AutoSelect = True
|
||||
Caption = 'Select or enter name'
|
||||
Color = clWindow
|
||||
DropDownCount = 8
|
||||
ItemHeight = 13
|
||||
|
@ -85,53 +77,124 @@ object frmAlertForward: TfrmAlertForward
|
|||
ItemTipEnable = True
|
||||
ListItemsOnly = True
|
||||
LongList = True
|
||||
LookupPiece = 0
|
||||
MaxLength = 0
|
||||
Pieces = '2,3'
|
||||
Sorted = False
|
||||
SynonymChars = '<>'
|
||||
TabOrder = 2
|
||||
OnChange = cboSrcListChange
|
||||
OnKeyDown = cboSrcListKeyDown
|
||||
OnMouseClick = cboSrcListMouseClick
|
||||
OnNeedData = cboSrcListNeedData
|
||||
CharsNeedMatch = 1
|
||||
end
|
||||
object DstList: TORListBox
|
||||
Left = 196
|
||||
Top = 150
|
||||
Left = 231
|
||||
Top = 155
|
||||
Width = 144
|
||||
Height = 185
|
||||
ItemHeight = 13
|
||||
MultiSelect = True
|
||||
ParentShowHint = False
|
||||
ShowHint = True
|
||||
TabOrder = 3
|
||||
OnClick = DstListClick
|
||||
OnKeyDown = DstListKeyDown
|
||||
TabOrder = 4
|
||||
OnClick = DstListChange
|
||||
Caption = 'Currently selected recipients'
|
||||
ItemTipColor = clWindow
|
||||
LongList = False
|
||||
Pieces = '2'
|
||||
OnChange = DstListChange
|
||||
end
|
||||
object memAlert: TMemo
|
||||
Left = 8
|
||||
Top = 16
|
||||
Width = 337
|
||||
Height = 25
|
||||
Left = 12
|
||||
Top = 8
|
||||
Width = 363
|
||||
Height = 33
|
||||
TabStop = False
|
||||
Color = clBtnFace
|
||||
Lines.Strings = (
|
||||
'memAlert')
|
||||
ReadOnly = True
|
||||
TabOrder = 1
|
||||
TabOrder = 0
|
||||
WantReturns = False
|
||||
end
|
||||
object memComment: TMemo
|
||||
Left = 8
|
||||
Left = 12
|
||||
Top = 64
|
||||
Width = 337
|
||||
Width = 363
|
||||
Height = 49
|
||||
MaxLength = 180
|
||||
ScrollBars = ssVertical
|
||||
TabOrder = 0
|
||||
TabOrder = 1
|
||||
end
|
||||
object btnAddAlert: TButton
|
||||
Left = 162
|
||||
Top = 200
|
||||
Width = 63
|
||||
Height = 25
|
||||
Caption = '&Add'
|
||||
TabOrder = 3
|
||||
OnClick = btnAddAlertClick
|
||||
end
|
||||
object btnRemoveAlertFwrd: TButton
|
||||
Left = 162
|
||||
Top = 231
|
||||
Width = 63
|
||||
Height = 25
|
||||
Caption = '&Remove'
|
||||
Enabled = False
|
||||
TabOrder = 5
|
||||
OnClick = btnRemoveAlertFwrdClick
|
||||
end
|
||||
object btnRemoveAllAlertFwrd: TButton
|
||||
Left = 162
|
||||
Top = 262
|
||||
Width = 63
|
||||
Height = 25
|
||||
Caption = 'R&emove All'
|
||||
Enabled = False
|
||||
TabOrder = 6
|
||||
OnClick = btnRemoveAllAlertFwrdClick
|
||||
end
|
||||
end
|
||||
inherited amgrMain: TVA508AccessibilityManager
|
||||
Left = 56
|
||||
Top = 72
|
||||
Data = (
|
||||
(
|
||||
'Component = pnlBase'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = cmdOK'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = cmdCancel'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = cboSrcList'
|
||||
'Label = SrcLabel'
|
||||
'Status = stsOK')
|
||||
(
|
||||
'Component = DstList'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = memAlert'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = memComment'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = btnAddAlert'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = btnRemoveAlertFwrd'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = frmAlertForward'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = btnRemoveAllAlertFwrd'
|
||||
'Status = stsDefault'))
|
||||
end
|
||||
end
|
||||
|
|
|
@ -3,10 +3,11 @@ unit fAlertForward;
|
|||
interface
|
||||
|
||||
uses Windows, Messages, SysUtils, Classes, Graphics, Forms, Controls,
|
||||
Dialogs, StdCtrls, Buttons, ORCtrls, ORfn, ExtCtrls, fAutoSz, ComCtrls;
|
||||
Dialogs, StdCtrls, Buttons, ORCtrls, ORfn, ExtCtrls, fAutoSz, ComCtrls, fBase508Form,
|
||||
VA508AccessibilityManager;
|
||||
|
||||
type
|
||||
TfrmAlertForward = class(TForm)
|
||||
TfrmAlertForward = class(TfrmBase508Form)
|
||||
cmdOK: TButton;
|
||||
cmdCancel: TButton;
|
||||
cboSrcList: TORComboBox;
|
||||
|
@ -17,25 +18,37 @@ type
|
|||
memAlert: TMemo;
|
||||
Label1: TLabel;
|
||||
memComment: TMemo;
|
||||
btnAddAlert: TButton;
|
||||
btnRemoveAlertFwrd: TButton;
|
||||
btnRemoveAllAlertFwrd: TButton;
|
||||
procedure btnRemoveAlertFwrdClick(Sender: TObject);
|
||||
procedure btnAddAlertClick(Sender: TObject);
|
||||
procedure cboSrcListNeedData(Sender: TObject; const StartFrom: String;
|
||||
Direction, InsertAt: Integer);
|
||||
procedure cmdOKClick(Sender: TObject);
|
||||
procedure cmdCancelClick(Sender: TObject);
|
||||
procedure cboSrcListKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
|
||||
procedure DstListClick(Sender: TObject);
|
||||
procedure cboSrcListMouseClick(Sender: TObject);
|
||||
procedure FormCreate(Sender: TObject);
|
||||
procedure DstListKeyDown(Sender: TObject; var Key: Word;
|
||||
Shift: TShiftState);
|
||||
end;
|
||||
procedure cboSrcListChange(Sender: TObject);
|
||||
procedure DstListChange(Sender: TObject);
|
||||
procedure btnRemoveAllAlertFwrdClick(Sender: TObject);
|
||||
private
|
||||
RemovingAll: boolean;
|
||||
end;
|
||||
|
||||
function ForwardAlertTo(Alert: String): Boolean;
|
||||
|
||||
|
||||
implementation
|
||||
|
||||
{$R *.DFM}
|
||||
|
||||
uses rCore, uCore;
|
||||
uses rCore, uCore, VA508AccessibilityRouter;
|
||||
|
||||
const
|
||||
TX_DUP_RECIP = 'You have already selected that recipient.';
|
||||
TX_RECIP_CAP = 'Error adding recipient';
|
||||
|
||||
var XQAID: string;
|
||||
|
||||
|
@ -61,6 +74,8 @@ end;
|
|||
procedure TfrmAlertForward.FormCreate(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
if ScreenReaderSystemActive then
|
||||
memAlert.TabStop := TRUE;
|
||||
cboSrcList.InitLongList('');
|
||||
end;
|
||||
|
||||
|
@ -80,7 +95,7 @@ var
|
|||
i: integer ;
|
||||
Recip: string;
|
||||
begin
|
||||
if DstList.Items.Count = 0 then Exit;
|
||||
|
||||
for i := 0 to DstList.Items.Count-1 do
|
||||
begin
|
||||
Recip := Piece(DstList.Items[i], U, 1);
|
||||
|
@ -90,29 +105,94 @@ begin
|
|||
Close;
|
||||
end;
|
||||
|
||||
procedure TfrmAlertForward.DstListClick(Sender: TObject);
|
||||
procedure TfrmAlertForward.DstListChange(Sender: TObject);
|
||||
var
|
||||
HasFocus: boolean;
|
||||
begin
|
||||
if DstList.ItemIndex = -1 then Exit;
|
||||
DstList.Items.Delete(DstList.ItemIndex);
|
||||
inherited;
|
||||
if DstList.SelCount = 1 then
|
||||
if Piece(DstList.Items[0], '^', 1) = '' then
|
||||
begin
|
||||
btnRemoveAlertFwrd.Enabled := false;
|
||||
btnRemoveAllAlertFwrd.Enabled := false;
|
||||
exit;
|
||||
end;
|
||||
HasFocus := btnRemoveAlertFwrd.Focused;
|
||||
if Not HasFocus then
|
||||
HasFocus := btnRemoveAllAlertFwrd.Focused;
|
||||
btnRemoveAlertFwrd.Enabled := DstList.SelCount > 0;
|
||||
btnRemoveAllAlertFwrd.Enabled := DstList.Items.Count > 0;
|
||||
if HasFocus and (DstList.SelCount = 0) then
|
||||
btnAddAlert.SetFocus;
|
||||
end;
|
||||
|
||||
procedure TfrmAlertForward.btnAddAlertClick(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
cboSrcListMouseClick(btnAddAlert);
|
||||
end;
|
||||
|
||||
procedure TfrmAlertForward.btnRemoveAlertFwrdClick(Sender: TObject);
|
||||
var
|
||||
i: integer;
|
||||
begin
|
||||
with DstList do
|
||||
begin
|
||||
if ItemIndex = -1 then exit ;
|
||||
for i := Items.Count-1 downto 0 do
|
||||
if Selected[i] then
|
||||
begin
|
||||
if ScreenReaderSystemActive and (not RemovingAll) then
|
||||
GetScreenReader.Speak(Piece(DstList.Items[i],U,2) +
|
||||
' Removed from ' + DstLabel.Caption);
|
||||
Items.Delete(i) ;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmAlertForward.btnRemoveAllAlertFwrdClick(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
DstList.SelectAll;
|
||||
RemovingAll := TRUE;
|
||||
try
|
||||
btnRemoveAlertFwrdClick(self);
|
||||
if ScreenReaderSystemActive then
|
||||
GetScreenReader.Speak(DstLabel.Caption + ' Cleared');
|
||||
finally
|
||||
RemovingAll := FALSE;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmAlertForward.cboSrcListChange(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
btnAddAlert.Enabled := CboSrcList.ItemIndex > -1;
|
||||
end;
|
||||
|
||||
procedure TfrmAlertForward.cboSrcListKeyDown(Sender: TObject; var Key: Word;
|
||||
Shift: TShiftState);
|
||||
begin
|
||||
if Key = VK_SPACE then cboSrcListMouseClick(Self);
|
||||
if Key = VK_RETURN then
|
||||
begin
|
||||
cboSrcListMouseClick(Self);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmAlertForward.cboSrcListMouseClick(Sender: TObject);
|
||||
begin
|
||||
if cboSrcList.ItemIndex = -1 then Exit;
|
||||
if DstList.SelectByID(cboSrcList.ItemID) = -1 then
|
||||
DstList.Items.Add(cboSrcList.Items[cboSrcList.Itemindex]);
|
||||
end;
|
||||
|
||||
procedure TfrmAlertForward.DstListKeyDown(Sender: TObject; var Key: Word;
|
||||
Shift: TShiftState);
|
||||
begin
|
||||
if Key = VK_SPACE then DstListClick(Self);
|
||||
if cboSrcList.ItemIndex = -1 then exit;
|
||||
if (DstList.SelectByID(cboSrcList.ItemID) <> -1) then
|
||||
begin
|
||||
InfoBox(TX_DUP_RECIP, TX_RECIP_CAP, MB_OK or MB_ICONWARNING);
|
||||
Exit;
|
||||
end;
|
||||
DstList.Items.Add(cboSrcList.Items[cboSrcList.Itemindex]);
|
||||
if ScreenReaderSystemActive then
|
||||
GetScreenReader.Speak(Piece(cboSrcList.Items[cboSrcList.Itemindex],U,2) +
|
||||
' Added to ' + DstLabel.Caption);
|
||||
btnRemoveAlertFwrd.Enabled := DstList.SelCount > 0;
|
||||
btnRemoveAllAlertFwrd.Enabled := DstList.Items.Count > 0;
|
||||
end;
|
||||
|
||||
end.
|
||||
|
|
|
@ -1,57 +1,89 @@
|
|||
inherited frmAllgyBox: TfrmAllgyBox
|
||||
Left = 487
|
||||
Top = 242
|
||||
Width = 457
|
||||
Caption = 'frmAllgyBox'
|
||||
ClientWidth = 449
|
||||
Constraints.MinWidth = 457
|
||||
Position = poMainFormCenter
|
||||
ExplicitWidth = 457
|
||||
ExplicitHeight = 355
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
inherited memReport: TRichEdit
|
||||
Width = 449
|
||||
ExplicitWidth = 449
|
||||
end
|
||||
inherited pnlButton: TPanel
|
||||
Width = 449
|
||||
ExplicitWidth = 449
|
||||
inherited cmdPrint: TButton
|
||||
Left = 293
|
||||
Top = 3
|
||||
Anchors = [akTop, akRight]
|
||||
Caption = '&Print'
|
||||
TabOrder = 3
|
||||
ExplicitLeft = 293
|
||||
end
|
||||
inherited cmdClose: TButton
|
||||
Left = 373
|
||||
Top = 3
|
||||
Anchors = [akTop, akRight]
|
||||
Caption = '&Close'
|
||||
TabOrder = 4
|
||||
ExplicitLeft = 373
|
||||
end
|
||||
object cmdEdit: TButton
|
||||
Left = 98
|
||||
Top = 3
|
||||
Top = 0
|
||||
Width = 90
|
||||
Height = 21
|
||||
Anchors = [akTop, akRight]
|
||||
Caption = 'Edit'
|
||||
Caption = 'E&dit'
|
||||
TabOrder = 1
|
||||
Visible = False
|
||||
OnClick = cmdEditClick
|
||||
end
|
||||
object cmdAdd: TButton
|
||||
Left = 2
|
||||
Top = 3
|
||||
Top = 0
|
||||
Width = 90
|
||||
Height = 21
|
||||
Anchors = [akTop, akRight]
|
||||
Caption = 'Add New'
|
||||
Caption = '&Add New'
|
||||
TabOrder = 0
|
||||
OnClick = cmdAddClick
|
||||
end
|
||||
object cmdInError: TButton
|
||||
Left = 195
|
||||
Top = 3
|
||||
Top = 0
|
||||
Width = 90
|
||||
Height = 21
|
||||
Anchors = [akTop, akRight]
|
||||
Caption = 'Entered in Error'
|
||||
Caption = '&Entered in Error'
|
||||
TabOrder = 2
|
||||
OnClick = cmdInErrorClick
|
||||
end
|
||||
end
|
||||
inherited amgrMain: TVA508AccessibilityManager
|
||||
Data = (
|
||||
(
|
||||
'Component = cmdEdit'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = cmdAdd'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = cmdInError'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = memReport'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = pnlButton'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = cmdPrint'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = cmdClose'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = frmAllgyBox'
|
||||
'Status = stsDefault'))
|
||||
end
|
||||
end
|
||||
|
|
|
@ -4,7 +4,8 @@ interface
|
|||
|
||||
uses
|
||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, fRptBox, StdCtrls, ExtCtrls, ComCtrls, fARTAllgy, ORFn;
|
||||
Dialogs, fRptBox, StdCtrls, ExtCtrls, ComCtrls, fARTAllgy, ORFn,
|
||||
VA508AccessibilityManager;
|
||||
|
||||
type
|
||||
TfrmAllgyBox = class(TfrmReportBox)
|
||||
|
@ -79,10 +80,22 @@ begin
|
|||
ForceInsideWorkArea(Rect);
|
||||
BoundsRect := Rect;
|
||||
ResizeAnchoredFormToFont(Result);
|
||||
|
||||
//CQ6889 - force Print & Close buttons to bottom right of form regardless of selected font size
|
||||
cmdClose.Left := (pnlButton.Left+pnlButton.Width)-cmdClose.Width;
|
||||
cmdPrint.Left := (cmdClose.Left-cmdPrint.Width) - 1;
|
||||
//end CQ6889
|
||||
|
||||
Constraints.MinWidth := cmdAdd.Width + cmdEdit.Width + cmdInError.Width + cmdPrint.Width + cmdClose.Width + 20;
|
||||
Constraints.MinHeight := 2*pnlButton.Height + memReport.Height;
|
||||
cmdAdd.Left := 1;
|
||||
cmdEdit.Left := (cmdAdd.Left + cmdAdd.Width) + 1;
|
||||
cmdInError.Left := (cmdEdit.Left + cmdEdit.Width) + 1;
|
||||
|
||||
SetLength(BtnLeft, k);
|
||||
for j := 0 to k - 1 do
|
||||
BtnLeft[j] := pnlButton.Width - BtnArray[j].Width - BtnRight[j];
|
||||
memReport.Lines.Assign(ReportText);
|
||||
QuickCopy(ReportText, memReport);
|
||||
for i := 1 to Length(ReportTitle) do if ReportTitle[i] = #9 then ReportTitle[i] := ' ';
|
||||
Caption := ReportTitle;
|
||||
memReport.SelStart := 0;
|
||||
|
@ -157,7 +170,7 @@ end;
|
|||
procedure TfrmAllgyBox.RefreshText;
|
||||
begin
|
||||
memReport.Clear;
|
||||
memReport.Lines.Assign(DetailAllergy(FAllergyIEN));
|
||||
QuickCopy(DetailAllergy(FAllergyIEN), memReport);
|
||||
end;
|
||||
|
||||
end.
|
||||
|
|
|
@ -8,9 +8,13 @@ inherited frmAllgyFind: TfrmAllgyFind
|
|||
ClientWidth = 445
|
||||
Position = poScreenCenter
|
||||
OnCreate = FormCreate
|
||||
ExplicitLeft = 408
|
||||
ExplicitTop = 234
|
||||
ExplicitWidth = 453
|
||||
ExplicitHeight = 506
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
object lblSearch: TLabel
|
||||
object lblSearch: TLabel [0]
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 445
|
||||
|
@ -26,7 +30,7 @@ inherited frmAllgyFind: TfrmAllgyFind
|
|||
ParentFont = False
|
||||
Layout = tlBottom
|
||||
end
|
||||
object lblSelect: TLabel
|
||||
object lblSelect: TLabel [1]
|
||||
Left = 5
|
||||
Top = 124
|
||||
Width = 152
|
||||
|
@ -34,7 +38,7 @@ inherited frmAllgyFind: TfrmAllgyFind
|
|||
Caption = 'Select one of the following items'
|
||||
Visible = False
|
||||
end
|
||||
object lblDetail: TLabel
|
||||
object lblDetail: TLabel [2]
|
||||
Left = 0
|
||||
Top = 25
|
||||
Width = 445
|
||||
|
@ -48,14 +52,14 @@ inherited frmAllgyFind: TfrmAllgyFind
|
|||
Layout = tlBottom
|
||||
WordWrap = True
|
||||
end
|
||||
object lblSearchCaption: TLabel
|
||||
object lblSearchCaption: TLabel [3]
|
||||
Left = 6
|
||||
Top = 73
|
||||
Width = 52
|
||||
Height = 13
|
||||
Caption = 'Search for:'
|
||||
end
|
||||
object txtSearch: TCaptionEdit
|
||||
object txtSearch: TCaptionEdit [4]
|
||||
Left = 4
|
||||
Top = 88
|
||||
Width = 331
|
||||
|
@ -66,36 +70,36 @@ inherited frmAllgyFind: TfrmAllgyFind
|
|||
'Enter causative agent for Allergy or Adverse Drug Reaction (Ente' +
|
||||
'r at least 3 characters)'
|
||||
end
|
||||
object cmdSearch: TButton
|
||||
object cmdSearch: TButton [5]
|
||||
Left = 362
|
||||
Top = 88
|
||||
Width = 75
|
||||
Height = 21
|
||||
Caption = 'Search'
|
||||
Caption = '&Search'
|
||||
Default = True
|
||||
TabOrder = 1
|
||||
OnClick = cmdSearchClick
|
||||
end
|
||||
object cmdOK: TButton
|
||||
object cmdOK: TButton [6]
|
||||
Left = 263
|
||||
Top = 422
|
||||
Width = 75
|
||||
Height = 22
|
||||
Caption = 'OK'
|
||||
Caption = '&OK'
|
||||
TabOrder = 4
|
||||
OnClick = cmdOKClick
|
||||
end
|
||||
object cmdCancel: TButton
|
||||
object cmdCancel: TButton [7]
|
||||
Left = 345
|
||||
Top = 422
|
||||
Width = 75
|
||||
Height = 22
|
||||
Cancel = True
|
||||
Caption = 'Cancel'
|
||||
Caption = '&Cancel'
|
||||
TabOrder = 5
|
||||
OnClick = cmdCancelClick
|
||||
end
|
||||
object stsFound: TStatusBar
|
||||
object stsFound: TStatusBar [8]
|
||||
Left = 0
|
||||
Top = 453
|
||||
Width = 445
|
||||
|
@ -103,16 +107,16 @@ inherited frmAllgyFind: TfrmAllgyFind
|
|||
Panels = <>
|
||||
SimplePanel = True
|
||||
end
|
||||
object ckNoKnownAllergies: TCheckBox
|
||||
object ckNoKnownAllergies: TCheckBox [9]
|
||||
Left = 320
|
||||
Top = 118
|
||||
Width = 119
|
||||
Height = 17
|
||||
Caption = 'No Known Allergies'
|
||||
Caption = '&No Known Allergies'
|
||||
TabOrder = 3
|
||||
OnClick = ckNoKnownAllergiesClick
|
||||
end
|
||||
object tvAgent: TORTreeView
|
||||
object tvAgent: TORTreeView [10]
|
||||
Left = 2
|
||||
Top = 138
|
||||
Width = 437
|
||||
|
@ -126,6 +130,33 @@ inherited frmAllgyFind: TfrmAllgyFind
|
|||
Caption = 'Select from one of the following items'
|
||||
NodePiece = 0
|
||||
end
|
||||
inherited amgrMain: TVA508AccessibilityManager
|
||||
Data = (
|
||||
(
|
||||
'Component = txtSearch'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = cmdSearch'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = cmdOK'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = cmdCancel'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = stsFound'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = ckNoKnownAllergies'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = tvAgent'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = frmAllgyFind'
|
||||
'Status = stsDefault'))
|
||||
end
|
||||
object imTree: TImageList
|
||||
Left = 396
|
||||
Top = 150
|
||||
|
@ -269,4 +300,28 @@ inherited frmAllgyFind: TfrmAllgyFind
|
|||
FFFFFFF8FFFF0000FFFFFFFFFFFF000000000000000000000000000000000000
|
||||
000000000000}
|
||||
end
|
||||
object imgLblAllgyFindTree: TVA508ImageListLabeler
|
||||
Components = <
|
||||
item
|
||||
Component = tvAgent
|
||||
end>
|
||||
ImageList = imTree
|
||||
Labels = <
|
||||
item
|
||||
ImageIndex = 0
|
||||
OverlayIndex = -1
|
||||
end
|
||||
item
|
||||
Caption = 'Check'
|
||||
ImageIndex = 1
|
||||
OverlayIndex = -1
|
||||
end
|
||||
item
|
||||
Caption = 'Greyed X and Exclaimation'
|
||||
ImageIndex = 2
|
||||
OverlayIndex = -1
|
||||
end>
|
||||
Left = 400
|
||||
Top = 192
|
||||
end
|
||||
end
|
||||
|
|
|
@ -4,7 +4,8 @@ interface
|
|||
|
||||
uses
|
||||
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
|
||||
fAutoSz, StdCtrls, ORFn, ORCtrls, ComCtrls, ImgList;
|
||||
fAutoSz, StdCtrls, ORFn, ORCtrls, ComCtrls, ImgList, VA508AccessibilityManager,
|
||||
VA508ImageListLabeler;
|
||||
|
||||
type
|
||||
TfrmAllgyFind = class(TfrmAutoSz)
|
||||
|
@ -20,6 +21,7 @@ type
|
|||
imTree: TImageList;
|
||||
lblDetail: TLabel;
|
||||
lblSearchCaption: TLabel;
|
||||
imgLblAllgyFindTree: TVA508ImageListLabeler;
|
||||
procedure cmdSearchClick(Sender: TObject);
|
||||
procedure cmdCancelClick(Sender: TObject);
|
||||
procedure FormCreate(Sender: TObject);
|
||||
|
@ -132,7 +134,7 @@ begin
|
|||
AList := TStringList.Create;
|
||||
try
|
||||
if tvAgent.Items <> nil then tvAgent.Items.Clear;
|
||||
AList.Assign(SearchForAllergies(UpperCase(txtSearch.Text)));
|
||||
FastAssign(SearchForAllergies(UpperCase(txtSearch.Text)), AList);
|
||||
uFileCount := 0;
|
||||
for i := 0 to AList.Count - 1 do
|
||||
if Piece(AList[i], U, 5) = 'TOP' then uFileCount := uFileCount + 1;
|
||||
|
@ -203,7 +205,7 @@ end;
|
|||
|
||||
procedure TfrmAllgyFind.cmdOKClick(Sender: TObject);
|
||||
var
|
||||
x: string;
|
||||
x, AGlobal: string;
|
||||
tmpList: TStringList;
|
||||
OKtoContinue: boolean ;
|
||||
begin
|
||||
|
@ -271,7 +273,10 @@ begin
|
|||
begin
|
||||
FAllergy := TORTreeNode(tvAgent.Selected).StringData;
|
||||
x := Piece(FAllergy, U, 2);
|
||||
x := Trim(Piece(x, '<', 1));
|
||||
AGlobal := Piece(FAllergy, U, 3);
|
||||
if ((Pos('GMRD', AGlobal) > 0) or (Pos('PSDRUG', AGlobal) > 0)) and (Pos('<', x) > 0) then
|
||||
//x := Trim(Piece(x, '<', 1));
|
||||
x := Copy(x, 1, Length(Piece(x, '<', 1)) - 1);
|
||||
SetPiece(FAllergy, U, 2, x);
|
||||
Close;
|
||||
end;
|
||||
|
|
Binary file not shown.
|
@ -1,20 +1,22 @@
|
|||
object frmAutoSz: TfrmAutoSz
|
||||
Left = 182
|
||||
inherited frmAutoSz: TfrmAutoSz
|
||||
Left = 226
|
||||
Top = 373
|
||||
Width = 435
|
||||
Height = 300
|
||||
HorzScrollBar.Visible = False
|
||||
VertScrollBar.Visible = False
|
||||
Caption = 'frmAutoSz'
|
||||
Color = clBtnFace
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'MS Sans Serif'
|
||||
Font.Style = []
|
||||
ClientHeight = 273
|
||||
ClientWidth = 427
|
||||
OldCreateOrder = True
|
||||
OnDestroy = FormDestroy
|
||||
OnResize = FormResize
|
||||
ExplicitWidth = 435
|
||||
ExplicitHeight = 300
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
inherited amgrMain: TVA508AccessibilityManager
|
||||
Data = (
|
||||
(
|
||||
'Component = frmAutoSz'
|
||||
'Status = stsDefault'))
|
||||
end
|
||||
end
|
||||
|
|
|
@ -6,19 +6,20 @@ unit fAutoSz;
|
|||
interface
|
||||
|
||||
uses
|
||||
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;
|
||||
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, fBase508Form,
|
||||
VA508AccessibilityManager;
|
||||
|
||||
type
|
||||
TfrmAutoSz = class(TForm)
|
||||
TfrmAutoSz = class(TfrmBase508Form)
|
||||
procedure FormResize(Sender: TObject);
|
||||
procedure FormDestroy(Sender: TObject);
|
||||
private
|
||||
FSizes: TList;
|
||||
FAutoSizeDisabled: Boolean;
|
||||
protected
|
||||
procedure Loaded; override;
|
||||
property AutoSizeDisabled: Boolean read FAutoSizeDisabled write FAutoSizeDisabled;
|
||||
public
|
||||
procedure Loaded; override;
|
||||
end;
|
||||
|
||||
var
|
||||
|
@ -29,7 +30,7 @@ implementation
|
|||
{$R *.DFM}
|
||||
|
||||
uses
|
||||
ORfn;
|
||||
ORfn, VA508AccessibilityRouter;
|
||||
type
|
||||
TSizeRatio = class // records relative sizes and positions for resizing logic
|
||||
FControl: TControl;
|
||||
|
@ -121,4 +122,8 @@ begin
|
|||
FSizes.Free;
|
||||
end;
|
||||
|
||||
initialization
|
||||
SpecifyFormIsNotADialog(TfrmAutoSz);
|
||||
|
||||
|
||||
end.
|
||||
|
|
|
@ -0,0 +1,24 @@
|
|||
object frmBase508Form: TfrmBase508Form
|
||||
Left = 194
|
||||
Top = 109
|
||||
Caption = 'frmBase508Form'
|
||||
ClientHeight = 135
|
||||
ClientWidth = 197
|
||||
Color = clBtnFace
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'MS Sans Serif'
|
||||
Font.Style = []
|
||||
KeyPreview = True
|
||||
OldCreateOrder = False
|
||||
OnKeyDown = FormKeyDown
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
object amgrMain: TVA508AccessibilityManager
|
||||
Data = (
|
||||
(
|
||||
'Component = frmBase508Form'
|
||||
'Status = stsDefault'))
|
||||
end
|
||||
end
|
|
@ -0,0 +1,283 @@
|
|||
unit fBase508Form;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, StdCtrls, ExtCtrls, VA508AccessibilityManager, OR2006Compatibility, uConst;
|
||||
|
||||
type
|
||||
TAccessibilityAction = (aaColorConversion, aaTitleBarHeightAdjustment,
|
||||
aaFixTabStopArrowNavigationBug);
|
||||
TAccessibilityActions = set of TAccessibilityAction;
|
||||
|
||||
TfrmBase508Form = class(Tfrm2006Compatibility)
|
||||
amgrMain: TVA508AccessibilityManager;
|
||||
procedure FormKeyDown(Sender: TObject; var Key: Word;
|
||||
Shift: TShiftState);
|
||||
private
|
||||
FLoadedCalled: boolean;
|
||||
FDefaultButton: TButton;
|
||||
FActions: TAccessibilityActions;
|
||||
FUnfocusableControlPtr: TMethod;
|
||||
procedure AdjustForTitleBarHeightChanges;
|
||||
function GetDefaultButton(OwnerComponent: TComponent) : TButton;
|
||||
procedure ClickDefaultButton;
|
||||
procedure SetDefaultButton(const Value: TButton);
|
||||
procedure ModifyUnfocusableControl(Control: TWinControl; Attach: boolean);
|
||||
procedure UM508(var Message: TMessage); message UM_508;
|
||||
protected
|
||||
procedure Activate; override;
|
||||
procedure Loaded; override;
|
||||
procedure SetParent(AParent: TWinControl); override;
|
||||
procedure Notification(AComponent: TComponent;
|
||||
Operation: TOperation); override;
|
||||
procedure UpdateAccessabilityActions(var Actions: TAccessibilityActions); virtual;
|
||||
public
|
||||
constructor Create(AOwner: TComponent); override;
|
||||
property DefaultButton : TButton read FDefaultButton write SetDefaultButton;
|
||||
end;
|
||||
|
||||
var
|
||||
Last508KeyCode: LongInt = 0;
|
||||
|
||||
procedure UnfocusableControlEnter(Self, Sender: TObject);
|
||||
|
||||
implementation
|
||||
|
||||
uses ORFn, VA508AccessibilityRouter, VAUtils;
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
const
|
||||
MSG_508_CODE_TITLE_BAR = 1;
|
||||
|
||||
type
|
||||
TFriendWinControl = class(TWinControl);
|
||||
|
||||
procedure UnfocusableControlEnter(Self, Sender: TObject);
|
||||
var
|
||||
ctrl: TWinControl;
|
||||
begin
|
||||
if (Last508KeyCode = VK_UP) or (Last508KeyCode = VK_LEFT) then
|
||||
begin
|
||||
ctrl := TWinControl(Sender);
|
||||
ctrl := TFriendWinControl(ctrl.Parent).FindNextControl(ctrl, FALSE, TRUE, FALSE);
|
||||
if assigned(ctrl) and (ctrl <> Sender) then
|
||||
ctrl.SetFocus;
|
||||
Last508KeyCode := 0;
|
||||
end
|
||||
else
|
||||
if (Last508KeyCode = VK_DOWN) or (Last508KeyCode = VK_RIGHT) then
|
||||
begin
|
||||
keybd_event(VK_TAB,0,0,0);
|
||||
keybd_event(VK_TAB,0,KEYEVENTF_KEYUP,0);
|
||||
Last508KeyCode := 0;
|
||||
end;
|
||||
end;
|
||||
|
||||
{ TfrmBase508Form }
|
||||
|
||||
// All forms in CPRS should be a descendant of this form, even those that are programatically
|
||||
// made children of other forms.
|
||||
procedure TfrmBase508Form.Activate;
|
||||
begin
|
||||
Last508KeyCode := 0;
|
||||
inherited;
|
||||
end;
|
||||
|
||||
procedure TfrmBase508Form.AdjustForTitleBarHeightChanges;
|
||||
var
|
||||
OldResize: TNotifyEvent;
|
||||
begin
|
||||
if parent <> nil then exit;
|
||||
OldResize := OnResize;
|
||||
try
|
||||
OnResize := nil;
|
||||
AdjustForWindowsXPStyleTitleBar(Self);
|
||||
finally
|
||||
OnResize := OldResize;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmBase508Form.FormKeyDown(Sender: TObject; var Key: Word;
|
||||
Shift: TShiftState);
|
||||
begin
|
||||
if (Key = VK_RETURN) and (ssCtrl in Shift) then begin
|
||||
ClickDefaultButton;
|
||||
Key := 0;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmBase508Form.Notification(AComponent: TComponent;
|
||||
Operation: TOperation);
|
||||
begin
|
||||
inherited Notification(AComponent, Operation);
|
||||
if FLoadedCalled and (aaFixTabStopArrowNavigationBug in FActions) and (AComponent is TWinControl) then
|
||||
begin
|
||||
ModifyUnfocusableControl(TWinControl(AComponent), Operation = opInsert);
|
||||
end;
|
||||
end;
|
||||
|
||||
function TfrmBase508Form.GetDefaultButton(ownerComponent: TComponent): TButton;
|
||||
var
|
||||
i : integer;
|
||||
begin
|
||||
Result := nil;
|
||||
with ownerComponent do begin
|
||||
for i := 0 to ComponentCount - 1 do begin
|
||||
if Components[i] is TButton then begin
|
||||
if TButton(Components[i]).Default then
|
||||
Result := TButton(Components[i]);
|
||||
end
|
||||
else if Components[i] is TFrame then
|
||||
Result := GetDefaultButton(Components[i]);
|
||||
if Assigned(Result) then
|
||||
Break;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmBase508Form.Loaded;
|
||||
begin
|
||||
inherited Loaded;
|
||||
FLoadedCalled := TRUE;
|
||||
end;
|
||||
|
||||
procedure TfrmBase508Form.ModifyUnfocusableControl(Control: TWinControl; Attach: boolean);
|
||||
var
|
||||
wc: TFriendWinControl;
|
||||
begin
|
||||
if (Control is TPanel) or (Control is TCustomGroupBox) then
|
||||
begin
|
||||
wc := TFriendWinControl(Control);
|
||||
if not wc.TabStop then
|
||||
begin
|
||||
if not assigned(wc.OnEnter) then
|
||||
begin
|
||||
if Attach then
|
||||
wc.OnEnter := TNotifyEvent(FUnfocusableControlPtr);
|
||||
end
|
||||
else
|
||||
begin
|
||||
if (not Attach) and (TMethod(wc.OnEnter).Code = FUnfocusableControlPtr.Code) then
|
||||
wc.OnEnter := nil;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmBase508Form.SetDefaultButton(const Value: TButton);
|
||||
begin
|
||||
FDefaultButton := Value;
|
||||
end;
|
||||
|
||||
procedure TfrmBase508Form.SetParent(AParent: TWinControl);
|
||||
begin
|
||||
inherited SetParent(AParent);
|
||||
if assigned(AParent) then
|
||||
AutoScroll := False;
|
||||
end;
|
||||
|
||||
// to prevent a 508 feature from taking place, remove that feature's flag form the Actions set
|
||||
// in an override of the UpdateAccessabilityActions proc.
|
||||
procedure TfrmBase508Form.UM508(var Message: TMessage);
|
||||
begin
|
||||
case Message.WParam of
|
||||
MSG_508_CODE_TITLE_BAR: AdjustForTitleBarHeightChanges;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmBase508Form.UpdateAccessabilityActions(var Actions: TAccessibilityActions);
|
||||
begin
|
||||
end;
|
||||
|
||||
type
|
||||
TExposedBtn = class(TButton);
|
||||
|
||||
procedure TfrmBase508Form.ClickDefaultButton;
|
||||
var
|
||||
tempDefaultBtn: TButton;
|
||||
begin
|
||||
if Assigned(DefaultButton) then
|
||||
tempDefaultBtn := DefaultButton
|
||||
else
|
||||
tempDefaultBtn := GetDefaultButton(Self);
|
||||
if Assigned(tempDefaultBtn) then
|
||||
if tempDefaultBtn.Visible then
|
||||
TExposedBtn(tempDefaultBtn).Click;
|
||||
end;
|
||||
|
||||
constructor TfrmBase508Form.Create(AOwner: TComponent);
|
||||
|
||||
procedure AdjustControls(Control: TWinControl);
|
||||
var
|
||||
i: integer;
|
||||
wc: TWinControl;
|
||||
begin
|
||||
for I := 0 to Control.ControlCount-1 do
|
||||
begin
|
||||
if Control.Controls[i] is TWinControl then
|
||||
begin
|
||||
wc := TWinControl(Control.Controls[i]);
|
||||
if not wc.TabStop then
|
||||
ModifyUnfocusableControl(wc, TRUE);
|
||||
AdjustControls(wc);
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
begin
|
||||
inherited Create(AOwner);
|
||||
if not assigned(Parent) then
|
||||
AutoScroll := True;
|
||||
FActions := [aaColorConversion, aaTitleBarHeightAdjustment, aaFixTabStopArrowNavigationBug];
|
||||
UpdateAccessabilityActions(FActions);
|
||||
if aaColorConversion in FActions then
|
||||
UpdateColorsFor508Compliance(Self);
|
||||
|
||||
if aaTitleBarHeightAdjustment in FActions then
|
||||
PostMessage(Handle, UM_508, MSG_508_CODE_TITLE_BAR, 0);
|
||||
|
||||
if aaFixTabStopArrowNavigationBug in FActions then
|
||||
begin
|
||||
FUnfocusableControlPtr.Code := @UnfocusableControlEnter;
|
||||
FUnfocusableControlPtr.Data := nil;
|
||||
AdjustControls(Self);
|
||||
end;
|
||||
Last508KeyCode := 0;
|
||||
end;
|
||||
|
||||
const
|
||||
KEY_MASK = $20000000; // ignore Alt keys
|
||||
var
|
||||
KeyMonitorHook: HHOOK;
|
||||
MouseMonitorHook: HHOOK;
|
||||
|
||||
function KeyMonitorProc(Code: Integer; wParam: WPARAM; lParam: LPARAM): LRESULT; StdCall;
|
||||
begin
|
||||
if (code = HC_ACTION) and ((lParam and KEY_MASK) = 0) then
|
||||
Last508KeyCode := wParam;
|
||||
Result := CallNextHookEx(KeyMonitorHook, Code, wParam, lParam);
|
||||
end;
|
||||
|
||||
// if mouse click clear last key code
|
||||
function MouseMonitorProc(Code: Integer; wParam: WPARAM; lParam: LPARAM): LRESULT; StdCall;
|
||||
begin
|
||||
if (Code = HC_ACTION) and (wParam > WM_MOUSEFIRST) and (wParam <= WM_MOUSELAST) then
|
||||
Last508KeyCode := 0;
|
||||
Result := CallNextHookEx(MouseMonitorHook, Code, wParam, lParam);
|
||||
end;
|
||||
|
||||
initialization
|
||||
KeyMonitorHook := SetWindowsHookEx(WH_KEYBOARD, KeyMonitorProc, 0, GetCurrentThreadID);
|
||||
MouseMonitorHook := SetWindowsHookEx(WH_MOUSE, MouseMonitorProc, 0, GetCurrentThreadID);
|
||||
|
||||
SpecifyFormIsNotADialog(TfrmBase508Form);
|
||||
SpecifyFormIsNotADialog(Tfrm2006Compatibility);
|
||||
|
||||
finalization
|
||||
UnhookWindowsHookEx(KeyMonitorHook);
|
||||
UnhookWindowsHookEx(MouseMonitorHook);
|
||||
|
||||
end.
|
|
@ -1,13 +1,15 @@
|
|||
inherited frmClinicWardMeds: TfrmClinicWardMeds
|
||||
Left = 523
|
||||
Top = 389
|
||||
Width = 306
|
||||
Height = 122
|
||||
BorderIcons = []
|
||||
Caption = 'Patient Location'
|
||||
ClientHeight = 95
|
||||
ClientWidth = 298
|
||||
ExplicitWidth = 306
|
||||
ExplicitHeight = 122
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
object stxtLine3: TStaticText
|
||||
object stxtLine3: TStaticText [0]
|
||||
Left = 16
|
||||
Top = 35
|
||||
Width = 29
|
||||
|
@ -15,7 +17,7 @@ inherited frmClinicWardMeds: TfrmClinicWardMeds
|
|||
Caption = 'line 3'
|
||||
TabOrder = 0
|
||||
end
|
||||
object stxtLine2: TStaticText
|
||||
object stxtLine2: TStaticText [1]
|
||||
Left = 16
|
||||
Top = 20
|
||||
Width = 29
|
||||
|
@ -23,7 +25,7 @@ inherited frmClinicWardMeds: TfrmClinicWardMeds
|
|||
Caption = 'line 2'
|
||||
TabOrder = 1
|
||||
end
|
||||
object stxtLine1: TStaticText
|
||||
object stxtLine1: TStaticText [2]
|
||||
Left = 16
|
||||
Top = 5
|
||||
Width = 29
|
||||
|
@ -31,7 +33,7 @@ inherited frmClinicWardMeds: TfrmClinicWardMeds
|
|||
Caption = 'line 1'
|
||||
TabOrder = 2
|
||||
end
|
||||
object btnClinic: TButton
|
||||
object btnClinic: TButton [3]
|
||||
Left = 31
|
||||
Top = 62
|
||||
Width = 58
|
||||
|
@ -42,7 +44,7 @@ inherited frmClinicWardMeds: TfrmClinicWardMeds
|
|||
TabOrder = 3
|
||||
OnClick = btnClinicClick
|
||||
end
|
||||
object btnWard: TButton
|
||||
object btnWard: TButton [4]
|
||||
Left = 159
|
||||
Top = 62
|
||||
Width = 58
|
||||
|
@ -51,4 +53,25 @@ inherited frmClinicWardMeds: TfrmClinicWardMeds
|
|||
TabOrder = 4
|
||||
OnClick = btnWardClick
|
||||
end
|
||||
inherited amgrMain: TVA508AccessibilityManager
|
||||
Data = (
|
||||
(
|
||||
'Component = stxtLine3'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = stxtLine2'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = stxtLine1'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = btnClinic'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = btnWard'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = frmClinicWardMeds'
|
||||
'Status = stsDefault'))
|
||||
end
|
||||
end
|
||||
|
|
|
@ -4,7 +4,8 @@ interface
|
|||
|
||||
uses
|
||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, fAutoSz, StdCtrls, ExtCtrls, ORCtrls,ORFn, rCore, uCore, oRNet, Math;
|
||||
Dialogs, fAutoSz, StdCtrls, ExtCtrls, ORCtrls,ORFn, rCore, uCore, oRNet, Math,
|
||||
VA508AccessibilityManager;
|
||||
|
||||
type
|
||||
TfrmClinicWardMeds = class(TfrmAutoSz)
|
||||
|
@ -176,9 +177,10 @@ end;
|
|||
|
||||
procedure TfrmClinicWardMeds.rpcChangeOrderLocation(pOrderList:TStringList);
|
||||
begin
|
||||
// OrderIEN^Location -- used to alter location if ward is selected.
|
||||
// OrderIEN^Location^1 -- used to alter location if ward is selected RPC expected third value to determine if
|
||||
//order is an IMO order. If it is being called from here assumed IMO order.
|
||||
|
||||
CallV('ORWDX CHANGE',[pOrderList, Patient.DFN]);
|
||||
CallV('ORWDX CHANGE',[pOrderList, Patient.DFN, '1']);
|
||||
end;
|
||||
|
||||
function TfrmClinicWardMeds.rpcIsPatientOnWard(Patient: string): boolean;
|
||||
|
|
Binary file not shown.
|
@ -1,5 +1,5 @@
|
|||
inherited frmCover: TfrmCover
|
||||
Left = 206
|
||||
Left = 256
|
||||
Top = 280
|
||||
HelpContext = 1000
|
||||
BorderIcons = []
|
||||
|
@ -8,18 +8,18 @@ inherited frmCover: TfrmCover
|
|||
OnDestroy = FormDestroy
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
object pnlBase: TPanel
|
||||
object pnlBase: TPanel [1]
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 640
|
||||
Height = 349
|
||||
Height = 356
|
||||
Align = alClient
|
||||
BevelOuter = bvNone
|
||||
Constraints.MinHeight = 10
|
||||
TabOrder = 0
|
||||
object sptBottom: TSplitter
|
||||
Left = 0
|
||||
Top = 230
|
||||
Top = 237
|
||||
Width = 640
|
||||
Height = 5
|
||||
Cursor = crVSplit
|
||||
|
@ -31,7 +31,7 @@ inherited frmCover: TfrmCover
|
|||
Left = 0
|
||||
Top = 0
|
||||
Width = 640
|
||||
Height = 230
|
||||
Height = 237
|
||||
Align = alClient
|
||||
BevelOuter = bvNone
|
||||
TabOrder = 0
|
||||
|
@ -267,7 +267,7 @@ inherited frmCover: TfrmCover
|
|||
Left = 0
|
||||
Top = 125
|
||||
Width = 640
|
||||
Height = 105
|
||||
Height = 112
|
||||
Align = alClient
|
||||
BevelOuter = bvNone
|
||||
TabOrder = 1
|
||||
|
@ -275,7 +275,7 @@ inherited frmCover: TfrmCover
|
|||
Left = 318
|
||||
Top = 0
|
||||
Width = 5
|
||||
Height = 105
|
||||
Height = 112
|
||||
Constraints.MinWidth = 5
|
||||
OnCanResize = spt_3CanResize
|
||||
end
|
||||
|
@ -283,7 +283,7 @@ inherited frmCover: TfrmCover
|
|||
Left = 0
|
||||
Top = 0
|
||||
Width = 318
|
||||
Height = 105
|
||||
Height = 112
|
||||
Align = alLeft
|
||||
BevelOuter = bvNone
|
||||
TabOrder = 0
|
||||
|
@ -305,7 +305,7 @@ inherited frmCover: TfrmCover
|
|||
Left = 0
|
||||
Top = 13
|
||||
Width = 318
|
||||
Height = 92
|
||||
Height = 99
|
||||
Align = alClient
|
||||
Ctl3D = True
|
||||
ItemHeight = 13
|
||||
|
@ -324,7 +324,7 @@ inherited frmCover: TfrmCover
|
|||
Left = 323
|
||||
Top = 0
|
||||
Width = 317
|
||||
Height = 105
|
||||
Height = 112
|
||||
Align = alClient
|
||||
BevelOuter = bvNone
|
||||
TabOrder = 1
|
||||
|
@ -346,7 +346,7 @@ inherited frmCover: TfrmCover
|
|||
Left = 0
|
||||
Top = 13
|
||||
Width = 317
|
||||
Height = 92
|
||||
Height = 99
|
||||
Align = alClient
|
||||
Ctl3D = True
|
||||
ItemHeight = 13
|
||||
|
@ -365,7 +365,7 @@ inherited frmCover: TfrmCover
|
|||
end
|
||||
object pnlBottom: TPanel
|
||||
Left = 0
|
||||
Top = 235
|
||||
Top = 242
|
||||
Width = 640
|
||||
Height = 114
|
||||
Align = alBottom
|
||||
|
@ -520,6 +520,87 @@ inherited frmCover: TfrmCover
|
|||
end
|
||||
end
|
||||
end
|
||||
inherited amgrMain: TVA508AccessibilityManager
|
||||
Data = (
|
||||
(
|
||||
'Component = pnlBase'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = pnlNotTheBottom'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = pnlTop'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = pnl_not3'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = pnl_1'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = lst_1'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = pnl_2'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = lst_2'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = pnl_3'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = pnlFlag'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = lstFlag'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = lst_3'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = pnlMiddle'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = pnl_4'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = lst_4'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = pnl_5'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = lst_5'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = pnlBottom'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = pnl_not8'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = pnl_6'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = lst_6'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = pnl_7'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = lst_7'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = pnl_8'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = lst_8'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = frmCover'
|
||||
'Status = stsDefault'))
|
||||
end
|
||||
object timPoll: TTimer
|
||||
Enabled = False
|
||||
Interval = 2600
|
||||
|
|
|
@ -4,7 +4,8 @@ interface
|
|||
|
||||
uses
|
||||
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
|
||||
fPage, StdCtrls, ORCtrls, ExtCtrls, rOrders, ORClasses, Menus, rCover, fAllgyBox; {REV}
|
||||
fPage, StdCtrls, ORCtrls, ExtCtrls, rOrders, ORClasses, Menus, rCover, fAllgyBox,
|
||||
VA508AccessibilityManager, fBase508Form; {REV}
|
||||
|
||||
type
|
||||
TfrmCover = class(TfrmPage)
|
||||
|
@ -120,7 +121,8 @@ implementation
|
|||
{$R *.DFM}
|
||||
|
||||
uses ORNet, ORFn, fRptBox, fVitals, fvit, fFrame, uCore, TRPCB, uConst, uInit,
|
||||
uReminders, rReminders, fARTAllgy, uOrPtf, fPatientFlagMulti, rODAllergy, rMisc;
|
||||
uReminders, rReminders, fARTAllgy, uOrPtf, fPatientFlagMulti, rODAllergy, rMisc,
|
||||
VA508AccessibilityRouter;
|
||||
|
||||
const
|
||||
TAG_PROB = 10;
|
||||
|
@ -279,7 +281,8 @@ begin
|
|||
FCoverList.CVlbl(i).Caption := aName;
|
||||
FCoverList.CVlst(i).Caption := aName;
|
||||
if Length(aTabPos) > 0 then FCoverList.CVlst(i).TabPositions := aTabPos;
|
||||
if Length(aTextColor) > 0 then FCoverList.CVlst(i).Font.Color := StringToColor(aTextColor);
|
||||
if Length(aTextColor) > 0 then FCoverList.CVlst(i).Font.Color :=
|
||||
Get508CompliantColor(StringToColor(aTextColor));
|
||||
if Length(aPiece) > 0 then FCoverList.CVlst(i).Pieces := aPiece;
|
||||
FCoverList.CVlst(i).Tag := StrToInt(aID);
|
||||
if(aID <> RemID) then
|
||||
|
@ -441,9 +444,9 @@ begin
|
|||
TAG_VITL:
|
||||
if ItemID <> '' then
|
||||
begin
|
||||
frmFrame.VitalsDLLActive := True;
|
||||
// frmFrame.DLLActive := True;
|
||||
SelectVitals(Piece(DisplayText[ItemIndex],Char(9),1)); //Char(9) = Tab Character
|
||||
frmFrame.VitalsDLLActive := False;
|
||||
// frmFrame.DLLActive := False;
|
||||
ClearPtData;
|
||||
DisplayPage;
|
||||
end;
|
||||
|
@ -516,12 +519,12 @@ begin
|
|||
try
|
||||
ReminderSL.Add(RemUnchanged);
|
||||
ListAllBackGround(Done, ProbSL, PostSL, MedsSL, ReminderSL, LabsSL, VitSL, VisitSL, uIPAddress, frmFrame.Handle);
|
||||
if (iProb > -1) and (ProbSL.Count > 0) then (Components[iProb] as TORListBox).Items.Assign(ProbSL);
|
||||
if (iPost > -1) and (PostSL.Count > 0) then (Components[iPost] as TORListBox).Items.Assign(PostSL);
|
||||
if (iMeds > -1) and (MedsSL.Count > 0) then (Components[iMeds] as TORListBox).Items.Assign(MedsSL);
|
||||
if (iLabs > -1) and (LabsSL.Count > 0) then (Components[iLabs] as TORListBox).Items.Assign(LabsSL);
|
||||
if (iVit > -1) and (VitSL.Count > 0) then (Components[iVit] as TORListBox).Items.Assign(VitSL);
|
||||
if (iVisit > -1) and (VisitSL.Count > 0) then (Components[iVisit] as TORListBox).Items.Assign(VisitSL);
|
||||
if (iProb > -1) and (ProbSL.Count > 0) then FastAssign(ProbSL, (Components[iProb] as TORListBox).Items);
|
||||
if (iPost > -1) and (PostSL.Count > 0) then FastAssign(PostSL, (Components[iPost] as TORListBox).Items);
|
||||
if (iMeds > -1) and (MedsSL.Count > 0) then FastAssign(MedsSL, (Components[iMeds] as TORListBox).Items);
|
||||
if (iLabs > -1) and (LabsSL.Count > 0) then FastAssign(LabsSL, (Components[iLabs] as TORListBox).Items);
|
||||
if (iVit > -1) and (VitSL.Count > 0) then FastAssign(VitSL, (Components[iVit] as TORListBox).Items);
|
||||
if (iVisit > -1) and (VisitSL.Count > 0) then FastAssign(VisitSL, (Components[iVisit] as TORListBox).Items);
|
||||
// since this RPC is connected to a timer, clear the results each time to make sure that
|
||||
// the results aren't passed to another RPC in the case that there is an error
|
||||
RPCBrokerV.ClearResults := True;
|
||||
|
@ -545,13 +548,13 @@ begin
|
|||
else
|
||||
begin
|
||||
ListAllBackGround(Done, ProbSL, PostSL, MedsSL, RemSL, LabsSL, VitSL, VisitSL, uIPAddress, frmFrame.Handle);
|
||||
if (iProb > -1) and (ProbSL.Count > 0) then (Components[iProb] as TORListBox).Items.Assign(ProbSL);
|
||||
if (iPost > -1) and (PostSL.Count > 0) then (Components[iPost] as TORListBox).Items.Assign(PostSL);
|
||||
if (iMeds > -1) and (MedsSL.Count > 0) then (Components[iMeds] as TORListBox).Items.Assign(MedsSL);
|
||||
if (iRem > -1) and (RemSL.Count > 0) then (Components[iRem] as TORListBox).Items.Assign(RemSL);
|
||||
if (iLabs > -1) and (LabsSL.Count > 0) then (Components[iLabs] as TORListBox).Items.Assign(LabsSL);
|
||||
if (iVit > -1) and (VitSL.Count > 0) then (Components[iVit] as TORListBox).Items.Assign(VitSL);
|
||||
if (iVisit > -1) and (VisitSL.Count > 0) then (Components[iVisit] as TORListBox).Items.Assign(VisitSL);
|
||||
if (iProb > -1) and (ProbSL.Count > 0) then FastAssign(ProbSL, (Components[iProb] as TORListBox).Items);
|
||||
if (iPost > -1) and (PostSL.Count > 0) then FastAssign(PostSL, (Components[iPost] as TORListBox).Items);
|
||||
if (iMeds > -1) and (MedsSL.Count > 0) then FastAssign(MedsSL, (Components[iMeds] as TORListBox).Items);
|
||||
if (iRem > -1) and (RemSL.Count > 0) then FastAssign(RemSL, (Components[iRem] as TORListBox).Items);
|
||||
if (iLabs > -1) and (LabsSL.Count > 0) then FastAssign(LabsSL, (Components[iLabs] as TORListBox).Items);
|
||||
if (iVit > -1) and (VitSL.Count > 0) then FastAssign(VitSL, (Components[iVit] as TORListBox).Items);
|
||||
if (iVisit > -1) and (VisitSL.Count > 0) then FastAssign(VisitSL, (Components[iVisit] as TORListBox).Items);
|
||||
// since this RPC is connected to a timer, clear the results each time to make sure that
|
||||
// the results aren't passed to another RPC in the case that there is an error
|
||||
RPCBrokerV.ClearResults := True;
|
||||
|
@ -689,8 +692,6 @@ begin
|
|||
FCoverList.Add(pnl_6, lbl_6, lst_6);
|
||||
FCoverList.Add(pnl_7, lbl_7, lst_7);
|
||||
FCoverList.Add(pnl_8, lbl_8, lst_8);
|
||||
if ColorToRGB(clWindowText) <> ColorToRGB(clBlack) then
|
||||
lst_3.Font.Color := clWindowText;
|
||||
end;
|
||||
|
||||
procedure TfrmCover.FormDestroy(Sender: TObject);
|
||||
|
@ -843,7 +844,8 @@ begin
|
|||
if Length(aTextColor) > 0 then aTextColor := 'cl' + aTextColor;
|
||||
// Assign properties to components
|
||||
if Length(aTabPos) > 0 then (popMenuAllergies.PopupComponent as TORListBox).TabPositions := aTabPos;
|
||||
if Length(aTextColor) > 0 then (popMenuAllergies.PopupComponent as TORListBox).Font.Color := StringToColor(aTextColor);
|
||||
if Length(aTextColor) > 0 then (popMenuAllergies.PopupComponent as TORListBox).Font.Color :=
|
||||
Get508CompliantColor(StringToColor(aTextColor));
|
||||
if Length(aPiece) > 0 then (popMenuAllergies.PopupComponent as TORListBox).Pieces := aPiece;
|
||||
(popMenuAllergies.PopupComponent as TORListBox).Tag := StrToInt(aID);
|
||||
LoadList(aStatus, (popMenuAllergies.PopupComponent as TORListBox), aRpc, bCase, bInvert, iDatePiece, aDateFormat, aParam1, aID, aDetail);
|
||||
|
@ -868,13 +870,14 @@ procedure TfrmCover.GetPatientFlag;
|
|||
begin
|
||||
pnlFlag.Visible := HasFlag;
|
||||
sptFlag.Visible := HasFlag;
|
||||
lstFlag.Items.Assign(FlagList);
|
||||
FastAssign(FlagList, lstFlag.Items);
|
||||
end;
|
||||
|
||||
procedure TfrmCover.lstFlagClick(Sender: TObject);
|
||||
begin
|
||||
if lstFlag.ItemIndex >= 0 then
|
||||
ShowFlags(lstFlag.ItemID);
|
||||
lstFlag.ItemIndex := -1;
|
||||
end;
|
||||
|
||||
procedure TfrmCover.lstFlagKeyDown(Sender: TObject; var Key: Word;
|
||||
|
@ -892,7 +895,6 @@ const
|
|||
//var
|
||||
// PtIsVAA: boolean;
|
||||
// PtIsMHV: boolean;
|
||||
|
||||
begin
|
||||
//VAA & MHV
|
||||
PtIsVAA := false;
|
||||
|
@ -903,14 +905,13 @@ begin
|
|||
VAA_DFN := Patient.DFN;
|
||||
tCallV(VAAFlag, 'ORVAA VAA', [VAA_DFN]);
|
||||
tCallV(MHVFlag, 'ORWMHV MHV', [VAA_DFN]);
|
||||
|
||||
if VAAFlag[0] <> '0' then
|
||||
begin
|
||||
PtIsVAA := true;
|
||||
|
||||
with frmFrame do
|
||||
begin
|
||||
laVAA2.Caption := Piece(VAAFlag[0], '^', 0);
|
||||
laVAA2.Caption := Piece(VAAFlag[0], '^', 1);
|
||||
laVAA2.Hint := Piece(VAAFlag[0], '^', 2); //CQ7626 was piece '6'
|
||||
end;
|
||||
end
|
||||
|
@ -982,6 +983,7 @@ begin
|
|||
laVAA2.Top := paVAA.Top;
|
||||
paVAA.Height := pnlPrimaryCare.Height-2;
|
||||
laVAA2.Height := paVAA.ClientHeight - 1;
|
||||
laVAA2.Width := paVAA.Width - 1;
|
||||
laVAA2.Visible := true;
|
||||
laMHV.Visible := false;
|
||||
|
||||
|
@ -992,6 +994,7 @@ begin
|
|||
end;
|
||||
|
||||
initialization
|
||||
SpecifyFormIsNotADialog(TfrmCover);
|
||||
|
||||
finalization
|
||||
if Assigned(fCover.VAAFlag) then fCover.VAAFlag.Free; //VAA
|
||||
|
|
|
@ -1,28 +1,37 @@
|
|||
inherited frmDCSumm: TfrmDCSumm
|
||||
Left = 488
|
||||
Top = 83
|
||||
Width = 687
|
||||
Height = 409
|
||||
Left = 1291
|
||||
Top = 197
|
||||
HelpContext = 7000
|
||||
Caption = 'Discharge Summary Page'
|
||||
ClientHeight = 382
|
||||
ClientWidth = 679
|
||||
HelpFile = 'overvw'
|
||||
Menu = mnuSumms
|
||||
OnDestroy = FormDestroy
|
||||
ExplicitWidth = 687
|
||||
ExplicitHeight = 428
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
inherited shpPageBottom: TShape
|
||||
Top = 358
|
||||
Top = 377
|
||||
Width = 679
|
||||
ExplicitTop = 358
|
||||
ExplicitWidth = 679
|
||||
end
|
||||
inherited sptHorz: TSplitter
|
||||
Left = 64
|
||||
Width = 3
|
||||
Height = 358
|
||||
Height = 377
|
||||
OnCanResize = sptHorzCanResize
|
||||
ExplicitLeft = 64
|
||||
ExplicitWidth = 3
|
||||
ExplicitHeight = 358
|
||||
end
|
||||
inherited pnlLeft: TPanel
|
||||
Width = 64
|
||||
Height = 358
|
||||
Height = 377
|
||||
ExplicitWidth = 64
|
||||
ExplicitHeight = 377
|
||||
object lblSumms: TOROffsetLabel
|
||||
Left = 0
|
||||
Top = 0
|
||||
|
@ -39,49 +48,51 @@ inherited frmDCSumm: TfrmDCSumm
|
|||
end
|
||||
object lblSpace1: TLabel
|
||||
Left = 0
|
||||
Top = 334
|
||||
Top = 353
|
||||
Width = 64
|
||||
Height = 3
|
||||
Align = alBottom
|
||||
AutoSize = False
|
||||
Caption = ' '
|
||||
ExplicitTop = 334
|
||||
end
|
||||
object cmdNewSumm: TORAlignButton
|
||||
Left = 0
|
||||
Top = 313
|
||||
Top = 332
|
||||
Width = 64
|
||||
Height = 21
|
||||
Align = alBottom
|
||||
Caption = 'New Summary'
|
||||
TabOrder = 1
|
||||
OnClick = cmdNewSummClick
|
||||
Align = alBottom
|
||||
end
|
||||
object cmdPCE: TORAlignButton
|
||||
Left = 0
|
||||
Top = 337
|
||||
Top = 356
|
||||
Width = 64
|
||||
Height = 21
|
||||
Align = alBottom
|
||||
Caption = 'Encounter'
|
||||
TabOrder = 2
|
||||
Visible = False
|
||||
OnClick = cmdPCEClick
|
||||
Align = alBottom
|
||||
end
|
||||
object pnlDrawers: TPanel
|
||||
Left = 0
|
||||
Top = 19
|
||||
Width = 64
|
||||
Height = 294
|
||||
Height = 313
|
||||
Align = alClient
|
||||
BevelOuter = bvNone
|
||||
TabOrder = 0
|
||||
object splDrawers: TSplitter
|
||||
Left = 0
|
||||
Top = 291
|
||||
Top = 310
|
||||
Width = 64
|
||||
Height = 3
|
||||
Cursor = crVSplit
|
||||
Align = alBottom
|
||||
ExplicitTop = 291
|
||||
end
|
||||
object lstSumms: TORListBox
|
||||
Left = 0
|
||||
|
@ -107,19 +118,19 @@ inherited frmDCSumm: TfrmDCSumm
|
|||
Left = 0
|
||||
Top = 0
|
||||
Width = 64
|
||||
Height = 291
|
||||
Height = 310
|
||||
Align = alClient
|
||||
Constraints.MinWidth = 30
|
||||
HideSelection = False
|
||||
Images = dmodShared.imgNotes
|
||||
Indent = 19
|
||||
PopupMenu = popSummList
|
||||
ReadOnly = True
|
||||
StateImages = dmodShared.imgImages
|
||||
TabOrder = 1
|
||||
OnAddition = tvSummsAddition
|
||||
OnChange = tvSummsChange
|
||||
OnClick = tvSummsClick
|
||||
OnCollapsed = tvSummsCollapsed
|
||||
OnDeletion = tvSummsDeletion
|
||||
OnDragDrop = tvSummsDragDrop
|
||||
OnDragOver = tvSummsDragOver
|
||||
OnExpanded = tvSummsExpanded
|
||||
|
@ -133,18 +144,22 @@ inherited frmDCSumm: TfrmDCSumm
|
|||
inherited pnlRight: TPanel
|
||||
Left = 67
|
||||
Width = 612
|
||||
Height = 358
|
||||
Height = 377
|
||||
ExplicitLeft = 67
|
||||
ExplicitWidth = 612
|
||||
ExplicitHeight = 377
|
||||
object sptVert: TSplitter
|
||||
Left = 0
|
||||
Top = 309
|
||||
Top = 328
|
||||
Width = 612
|
||||
Height = 4
|
||||
Cursor = crVSplit
|
||||
Align = alBottom
|
||||
ExplicitTop = 309
|
||||
end
|
||||
object memPCEShow: TRichEdit
|
||||
Left = 0
|
||||
Top = 313
|
||||
Top = 332
|
||||
Width = 612
|
||||
Height = 45
|
||||
Align = alBottom
|
||||
|
@ -162,7 +177,7 @@ inherited frmDCSumm: TfrmDCSumm
|
|||
Left = 0
|
||||
Top = 0
|
||||
Width = 612
|
||||
Height = 309
|
||||
Height = 328
|
||||
Align = alClient
|
||||
BevelOuter = bvNone
|
||||
TabOrder = 1
|
||||
|
@ -172,7 +187,7 @@ inherited frmDCSumm: TfrmDCSumm
|
|||
Left = 0
|
||||
Top = 52
|
||||
Width = 612
|
||||
Height = 257
|
||||
Height = 276
|
||||
Align = alClient
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
|
@ -301,7 +316,7 @@ inherited frmDCSumm: TfrmDCSumm
|
|||
Left = 0
|
||||
Top = 0
|
||||
Width = 612
|
||||
Height = 309
|
||||
Height = 328
|
||||
Align = alClient
|
||||
BevelOuter = bvNone
|
||||
TabOrder = 0
|
||||
|
@ -338,7 +353,7 @@ inherited frmDCSumm: TfrmDCSumm
|
|||
Left = 0
|
||||
Top = 116
|
||||
Width = 612
|
||||
Height = 193
|
||||
Height = 212
|
||||
Align = alClient
|
||||
Color = clCream
|
||||
Ctl3D = True
|
||||
|
@ -400,6 +415,8 @@ inherited frmDCSumm: TfrmDCSumm
|
|||
HideSelection = False
|
||||
ReadOnly = True
|
||||
RowSelect = True
|
||||
SmallImages = dmodShared.imgNotes
|
||||
StateImages = dmodShared.imgImages
|
||||
TabOrder = 1
|
||||
ViewStyle = vsReport
|
||||
Visible = False
|
||||
|
@ -411,6 +428,75 @@ inherited frmDCSumm: TfrmDCSumm
|
|||
end
|
||||
end
|
||||
end
|
||||
inherited amgrMain: TVA508AccessibilityManager
|
||||
Data = (
|
||||
(
|
||||
'Component = cmdNewSumm'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = cmdPCE'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = pnlDrawers'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = lstSumms'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = tvSumms'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = memPCEShow'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = pnlWrite'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = memNewSumm'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = pnlFields'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = lblNewTitle'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = lblVisit'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = lblRefDate'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = lblCosigner'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = lblDictator'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = lblDischarge'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = cmdChange'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = pnlRead'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = memSumm'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = lvSumms'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = pnlLeft'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = pnlRight'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = frmDCSumm'
|
||||
'Status = stsDefault'))
|
||||
end
|
||||
object mnuSumms: TMainMenu
|
||||
Left = 596
|
||||
Top = 305
|
||||
|
@ -899,4 +985,30 @@ inherited frmDCSumm: TfrmDCSumm
|
|||
Left = 409
|
||||
Top = 313
|
||||
end
|
||||
object imgLblNotes: TVA508ImageListLabeler
|
||||
Components = <
|
||||
item
|
||||
Component = lvSumms
|
||||
end
|
||||
item
|
||||
Component = tvSumms
|
||||
end>
|
||||
Labels = <>
|
||||
RemoteLabeler = dmodShared.imgLblNotes
|
||||
Left = 16
|
||||
Top = 171
|
||||
end
|
||||
object imgLblImages: TVA508ImageListLabeler
|
||||
Components = <
|
||||
item
|
||||
Component = lvSumms
|
||||
end
|
||||
item
|
||||
Component = tvSumms
|
||||
end>
|
||||
Labels = <>
|
||||
RemoteLabeler = dmodShared.imgLblImages
|
||||
Left = 16
|
||||
Top = 203
|
||||
end
|
||||
end
|
||||
|
|
|
@ -6,7 +6,8 @@ interface
|
|||
uses
|
||||
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
|
||||
fHSplit, StdCtrls, ExtCtrls, Menus, ComCtrls, ORCtrls, ORFn, uConst, ORDtTm,
|
||||
uPCE, ORClasses, fDrawers, rDCSumm, uDocTree, uDCSumm, uTIU, fPrintList;
|
||||
uPCE, ORClasses, fDrawers, rDCSumm, uDocTree, uDCSumm, uTIU, fPrintList,
|
||||
VA508AccessibilityManager, fBase508Form, VA508ImageListLabeler;
|
||||
|
||||
type
|
||||
TfrmDCSumm = class(TfrmHSplit)
|
||||
|
@ -143,6 +144,8 @@ type
|
|||
mnuViewReminders: TMenuItem;
|
||||
mnuViewRemoteData: TMenuItem;
|
||||
mnuViewPostings: TMenuItem;
|
||||
imgLblNotes: TVA508ImageListLabeler;
|
||||
imgLblImages: TVA508ImageListLabeler;
|
||||
procedure mnuChartTabClick(Sender: TObject);
|
||||
procedure lstSummsClick(Sender: TObject);
|
||||
procedure pnlRightResize(Sender: TObject);
|
||||
|
@ -218,8 +221,6 @@ type
|
|||
procedure sptHorzCanResize(Sender: TObject; var NewSize: Integer; var Accept: Boolean);
|
||||
procedure popSummMemoPreviewClick(Sender: TObject);
|
||||
procedure popSummMemoInsTemplateClick(Sender: TObject);
|
||||
procedure tvSummsAddition(Sender: TObject; Node: TTreeNode);
|
||||
procedure tvSummsDeletion(Sender: TObject; Node: TTreeNode);
|
||||
procedure ViewInfo(Sender: TObject);
|
||||
procedure mnuViewInformationClick(Sender: TObject);
|
||||
private
|
||||
|
@ -291,7 +292,7 @@ uses fFrame, fVisit, fEncnt, rCore, uCore, fNoteBA, fNoteBD, fSignItem, fEncount
|
|||
rPCE, Clipbrd, fNotePrt, fAddlSigners, fNoteDR, uSpell, rVitals, fTIUView,
|
||||
fTemplateEditor, rTIU, fDCSummProps, fNotesBP, fTemplateFieldEditor, uTemplates,
|
||||
fReminderDialog, dShared, rTemplates, fIconLegend, fNoteIDParents,
|
||||
uAccessibleTreeView, uAccessibleTreeNode, fTemplateDialog;
|
||||
fTemplateDialog, uVA508CPRSCompatibility, VA508AccessibilityRouter;
|
||||
|
||||
const
|
||||
NA_CREATE = 0; // New Summ action - create new Summ
|
||||
|
@ -538,26 +539,21 @@ begin
|
|||
end;
|
||||
end;
|
||||
|
||||
{for printing multiple notes}
|
||||
procedure TfrmDCSumm.RequestMultiplePrint(AForm: TfrmPrintList);
|
||||
var
|
||||
NoteIEN: int64;
|
||||
i: integer;
|
||||
begin
|
||||
with AForm.lbIDParents do
|
||||
for i := 0 to Items.Count - 1 do
|
||||
if Selected[i] then
|
||||
begin
|
||||
for i := 0 to Items.Count - 1 do
|
||||
begin
|
||||
if Selected[i] then
|
||||
begin
|
||||
NoteIEN := StrToInt64def(Piece(TStringList(Items.Objects[i])[0],U,1),0);
|
||||
if NoteIEN > 0 then PrintNote(NoteIEN, MakeDCSummDisplayText(TStringList(Items.Objects[i])[0]), TRUE) else
|
||||
begin
|
||||
if ItemIEN = 0 then InfoBox(TX_NO_NOTE, TX_NOSUMM_CAP, MB_OK);
|
||||
if ItemIEN < 0 then InfoBox(TX_NOPRT_NEW, TX_NOPRT_NEW_CAP, MB_OK);
|
||||
end;
|
||||
end; {if selected}
|
||||
end; {for}
|
||||
end {with}
|
||||
NoteIEN := StrToInt64def(Piece(Items[i], U, 1), 0);
|
||||
if NoteIEN > 0 then PrintNote(NoteIEN, DisplayText[i], TRUE)
|
||||
else if NoteIEN = 0 then InfoBox(TX_NO_NOTE, TX_NOSUMM_CAP, MB_OK)
|
||||
else InfoBox(TX_NOPRT_NEW, TX_NOPRT_NEW_CAP, MB_OK);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmDCSumm.SetFontSize(NewFontSize: Integer);
|
||||
|
@ -841,7 +837,7 @@ begin
|
|||
begin
|
||||
DocInfo := MakeXMLParamTIU(IntToStr(CreatedSumm.IEN), FEditDCSumm);
|
||||
ExecuteTemplateOrBoilerPlate(TmpBoilerPlate, FEditDCSumm.Title, ltTitle, Self, 'Title: ' + FEditDCSumm.TitleName, DocInfo);
|
||||
memNewSumm.Lines.Assign(TmpBoilerPlate);
|
||||
QuickCopyWith508Msg(TmpBoilerPlate, memNewSumm);
|
||||
TmpBoilerPlate.Free;
|
||||
end;
|
||||
if EnableAutosave then // Don't enable autosave until after dialog fields have been resolved
|
||||
|
@ -1110,6 +1106,8 @@ end;
|
|||
|
||||
procedure TfrmDCSumm.lstSummsClick(Sender: TObject);
|
||||
{ loads the text for the selected Summ or displays the editing panel for the selected Summ }
|
||||
var
|
||||
x: string;
|
||||
begin
|
||||
inherited;
|
||||
with lstSumms do if ItemIndex = -1 then Exit
|
||||
|
@ -1143,7 +1141,9 @@ begin
|
|||
pnlRight.Refresh;
|
||||
memNewSumm.Repaint;
|
||||
memSumm.Repaint;
|
||||
NotifyOtherApps(NAE_REPORT, 'TIU^' + lstSumms.ItemID);
|
||||
x := 'TIU^' + lstSumms.ItemID;
|
||||
SetPiece(x, U, 10, Piece(lstSumms.Items[lstSumms.ItemIndex], U, 11));
|
||||
NotifyOtherApps(NAE_REPORT, x);
|
||||
end;
|
||||
|
||||
procedure TfrmDCSumm.cmdNewSummClick(Sender: TObject);
|
||||
|
@ -1968,9 +1968,6 @@ procedure TfrmDCSumm.FormCreate(Sender: TObject);
|
|||
begin
|
||||
inherited;
|
||||
PageID := CT_DCSUMM;
|
||||
memSumm.Color := ReadOnlyColor;
|
||||
memPCEShow.Color := ReadOnlyColor;
|
||||
lblNewTitle.Color := ReadOnlyColor;
|
||||
FDischargeDate := FMNow;
|
||||
EditingIndex := -1;
|
||||
FEditDCSumm.LastCosigner := 0;
|
||||
|
@ -1981,13 +1978,8 @@ begin
|
|||
frmDrawers.RichEditControl := memNewSumm;
|
||||
frmDrawers.Splitter := splDrawers;
|
||||
frmDrawers.DefTempPiece := 3;
|
||||
tvSumms.Images := dmodShared.imgNotes;
|
||||
tvSumms.StateImages := dmodShared.imgImages;
|
||||
lvSumms.StateImages := dmodShared.imgImages;
|
||||
lvSumms.SmallImages := dmodShared.imgNotes;
|
||||
FImageFlag := TBitmap.Create;
|
||||
FDocList := TStringList.Create;
|
||||
TAccessibleTreeView.WrapControl(tvSumms);
|
||||
end;
|
||||
|
||||
procedure TfrmDCSumm.mnuViewDetailClick(Sender: TObject);
|
||||
|
@ -2314,7 +2306,6 @@ end;
|
|||
|
||||
procedure TfrmDCSumm.FormDestroy(Sender: TObject);
|
||||
begin
|
||||
TAccessibleTreeView.UnwrapControl(tvSumms);
|
||||
FImageFlag.Free;
|
||||
FDocList.Free;
|
||||
KillDocTreeObjects(tvSumms);
|
||||
|
@ -2353,16 +2344,16 @@ begin
|
|||
if Title <= 0 then Result := True;
|
||||
if Dictator <= 0 then Result := True;
|
||||
if AdmitDateTime <= 0 then Result := True;
|
||||
if DischargeDateTime > 0 then
|
||||
ADateTime := DischargeDateTime
|
||||
else
|
||||
ADateTime := DictDateTime;
|
||||
if (DocType = TYP_ADDENDUM) then
|
||||
begin
|
||||
if AskCosignerForDocument(Addend, Dictator) and (Cosigner <= 0) then Result := True;
|
||||
if AskCosignerForDocument(Addend, Dictator, ADateTime) and (Cosigner <= 0) then Result := True;
|
||||
end else
|
||||
begin
|
||||
if Title > 0 then CurTitle := Title else CurTitle := DocType;
|
||||
if DischargeDateTime > 0 then
|
||||
ADateTime := DischargeDateTime
|
||||
else
|
||||
ADateTime := DictDateTime;
|
||||
if AskCosignerForTitle(CurTitle, Dictator, ADateTime) and (Cosigner <= 0) then Result := True;
|
||||
end;
|
||||
end;
|
||||
|
@ -2403,6 +2394,7 @@ procedure TfrmDCSumm.DoAutoSave(Suppress: integer = 1);
|
|||
var
|
||||
ErrMsg: string;
|
||||
begin
|
||||
if fFrame.frmFrame.DLLActive = True then Exit;
|
||||
if (EditingIndex > -1) and FChanged then
|
||||
begin
|
||||
StatusText('Autosaving note...');
|
||||
|
@ -2500,7 +2492,7 @@ var
|
|||
procedure AssignBoilerText;
|
||||
begin
|
||||
ExecuteTemplateOrBoilerPlate(BoilerText, FEditDCSumm.Title, ltTitle, Self, 'Title: ' + FEditDCSumm.TitleName, DocInfo);
|
||||
memNewSumm.Lines.Assign(BoilerText);
|
||||
QuickCopyWith508Msg(BoilerText, memNewSumm);
|
||||
FChanged := False;
|
||||
end;
|
||||
|
||||
|
@ -2522,7 +2514,7 @@ begin
|
|||
0: { do nothing } ; // ignore
|
||||
1: begin
|
||||
ExecuteTemplateOrBoilerPlate(BoilerText, FEditDCSumm.Title, ltTitle, Self, 'Title: ' + FEditDCSumm.TitleName, DocInfo);
|
||||
memNewSumm.Lines.AddStrings(BoilerText); // append
|
||||
QuickAddWith508Msg(BoilerText, memNewSumm); // append
|
||||
end;
|
||||
2: AssignBoilerText // replace
|
||||
end;
|
||||
|
@ -2681,7 +2673,7 @@ begin
|
|||
begin
|
||||
uChanging := True;
|
||||
Items.BeginUpdate;
|
||||
lstSumms.Items.AddStrings(DocList);
|
||||
FastAddStrings(DocList, lstSumms.Items);
|
||||
BuildDocumentTree(DocList, '0', Tree, nil, FCurrentContext, CT_DCSUMM);
|
||||
Items.EndUpdate;
|
||||
uChanging := False;
|
||||
|
@ -3232,18 +3224,6 @@ begin
|
|||
frmDrawers.mnuInsertTemplateClick(Sender);
|
||||
end;
|
||||
|
||||
procedure TfrmDCSumm.tvSummsAddition(Sender: TObject; Node: TTreeNode);
|
||||
begin
|
||||
inherited;
|
||||
TAccessibleTreeNode.WrapControl(Node as TORTreeNode);
|
||||
end;
|
||||
|
||||
procedure TfrmDCSumm.tvSummsDeletion(Sender: TObject; Node: TTreeNode);
|
||||
begin
|
||||
TAccessibleTreeNode.UnwrapControl(Node as TORTreeNode);
|
||||
inherited;
|
||||
end;
|
||||
|
||||
|
||||
{Returns True & Displays a Message if Currently No D/C Summary is Selected,
|
||||
Otherwise returns false and does not display a message.}
|
||||
|
@ -3279,6 +3259,7 @@ begin
|
|||
end;
|
||||
|
||||
initialization
|
||||
SpecifyFormIsNotADialog(TfrmDCSumm);
|
||||
uPCEEdit := TPCEData.Create;
|
||||
uPCEShow := TPCEData.Create;
|
||||
|
||||
|
|
|
@ -1,31 +1,25 @@
|
|||
object frmDCSummProperties: TfrmDCSummProperties
|
||||
inherited frmDCSummProperties: TfrmDCSummProperties
|
||||
Left = 298
|
||||
Top = 186
|
||||
AutoScroll = False
|
||||
BorderIcons = []
|
||||
Caption = 'Discharge Summary Properties'
|
||||
ClientHeight = 437
|
||||
ClientWidth = 498
|
||||
Color = clBtnFace
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'MS Sans Serif'
|
||||
Font.Style = []
|
||||
OldCreateOrder = False
|
||||
Position = poScreenCenter
|
||||
OnClose = FormClose
|
||||
OnShow = FormShow
|
||||
ExplicitWidth = 506
|
||||
ExplicitHeight = 471
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
object bvlConsult: TBevel
|
||||
object bvlConsult: TBevel [0]
|
||||
Tag = 1
|
||||
Left = 6
|
||||
Top = 119
|
||||
Width = 483
|
||||
Height = 2
|
||||
end
|
||||
object pnlFields: TORAutoPanel
|
||||
object pnlFields: TORAutoPanel [1]
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 498
|
||||
|
@ -88,6 +82,7 @@ object frmDCSummProperties: TfrmDCSummProperties
|
|||
Sorted = False
|
||||
SynonymChars = '<>'
|
||||
TabOrder = 0
|
||||
OnChange = cboNewTitleChange
|
||||
OnDblClick = cboNewTitleDblClick
|
||||
OnDropDownClose = cboNewTitleDropDownClose
|
||||
OnEnter = cboNewTitleEnter
|
||||
|
@ -183,7 +178,7 @@ object frmDCSummProperties: TfrmDCSummProperties
|
|||
OnClick = cmdCancelClick
|
||||
end
|
||||
end
|
||||
object pnlTranscription: TORAutoPanel
|
||||
object pnlTranscription: TORAutoPanel [2]
|
||||
Left = 0
|
||||
Top = 218
|
||||
Width = 498
|
||||
|
@ -258,7 +253,7 @@ object frmDCSummProperties: TfrmDCSummProperties
|
|||
CharsNeedMatch = 1
|
||||
end
|
||||
end
|
||||
object pnlAdmissions: TORAutoPanel
|
||||
object pnlAdmissions: TORAutoPanel [3]
|
||||
Left = 0
|
||||
Top = 327
|
||||
Width = 498
|
||||
|
@ -286,7 +281,7 @@ object frmDCSummProperties: TfrmDCSummProperties
|
|||
OnChange = lstAdmissionsChange
|
||||
end
|
||||
end
|
||||
object pnlLabels: TORAutoPanel
|
||||
object pnlLabels: TORAutoPanel [4]
|
||||
Left = 0
|
||||
Top = 281
|
||||
Width = 498
|
||||
|
@ -354,4 +349,55 @@ object frmDCSummProperties: TfrmDCSummProperties
|
|||
TabOrder = 1
|
||||
end
|
||||
end
|
||||
inherited amgrMain: TVA508AccessibilityManager
|
||||
Data = (
|
||||
(
|
||||
'Component = pnlFields'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = cboNewTitle'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = calSumm'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = cboAuthor'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = cboAttending'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = cmdOK'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = cmdCancel'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = pnlTranscription'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = cboTranscriptionist'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = cboUrgency'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = pnlAdmissions'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = lstAdmissions'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = pnlLabels'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = lblDCSumm1'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = lblDCSumm2'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = frmDCSummProperties'
|
||||
'Status = stsDefault'))
|
||||
end
|
||||
end
|
||||
|
|
|
@ -4,10 +4,11 @@ interface
|
|||
|
||||
uses
|
||||
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
|
||||
StdCtrls, ORDtTm, ORCtrls, ExtCtrls, uConst, rTIU, rDCSumm, uDocTree, uDCSumm, uTIU;
|
||||
StdCtrls, ORDtTm, ORCtrls, ExtCtrls, uConst, rTIU, rDCSumm, uDocTree, uDCSumm,
|
||||
uTIU, fBase508Form, VA508AccessibilityManager;
|
||||
|
||||
type
|
||||
TfrmDCSummProperties = class(TForm)
|
||||
TfrmDCSummProperties = class(TfrmBase508Form)
|
||||
bvlConsult: TBevel;
|
||||
pnlFields: TORAutoPanel;
|
||||
lblNewTitle: TLabel;
|
||||
|
@ -54,6 +55,7 @@ type
|
|||
procedure lstAdmissionsChange(Sender: TObject);
|
||||
procedure cboNewTitleDblClick(Sender: TObject);
|
||||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
procedure cboNewTitleChange(Sender: TObject);
|
||||
private
|
||||
FCosignIEN: Int64; // store cosigner that was passed in
|
||||
FCosignName: string; // store cosigner that was passed in
|
||||
|
@ -135,7 +137,7 @@ begin
|
|||
Height := Height - pnlTranscription.Height;
|
||||
Top := Top - pnlTranscription.Height;
|
||||
end;
|
||||
Height := Height - pnlAdmissions.Height - pnlLabels.Height;
|
||||
// Height := Height - pnlAdmissions.Height - pnlLabels.Height;
|
||||
if ASumm.DocType <> TYP_ADDENDUM then
|
||||
begin
|
||||
cboNewTitle.InitLongList('');
|
||||
|
@ -148,15 +150,13 @@ begin
|
|||
then cboNewTitle.SetExactByIEN(ASumm.Title, ASumm.TitleName);
|
||||
cboAuthor.InitLongList(ASumm.DictatorName);
|
||||
if ASumm.Dictator > 0 then cboAuthor.SelectByIEN(ASumm.Dictator);
|
||||
cboUrgency.Items.Assign(LoadDCUrgencies);
|
||||
FastAssign(LoadDCUrgencies, cboUrgency.Items);
|
||||
cboUrgency.SelectByID('R');
|
||||
if Asumm.Attending = 0 then
|
||||
begin
|
||||
ASumm.Attending := FLastCosigner;
|
||||
ASumm.AttendingName := FLastCosignerName;
|
||||
end;
|
||||
cboAttending.InitLongList(ASumm.AttendingName);
|
||||
if ASumm.Attending > 0 then cboAttending.SelectByIEN(ASumm.Attending);
|
||||
calSumm.FMDateTime := ASumm.DictDateTime;
|
||||
if FShowAdmissions then ShowAdmissionList;
|
||||
FAddend := ASumm.Addend;
|
||||
|
@ -164,6 +164,8 @@ begin
|
|||
FLastCosigner := ASumm.LastCosigner;
|
||||
FLastCosignerName := ASumm.LastCosignerName;
|
||||
FEditIEN := 0;
|
||||
cboAttending.InitLongList(ASumm.AttendingName);
|
||||
if ASumm.Attending > 0 then cboAttending.SelectByIEN(ASumm.Attending);
|
||||
// restrict edit of title if addendum
|
||||
if FDocType = TYP_ADDENDUM then
|
||||
begin
|
||||
|
@ -211,7 +213,7 @@ begin
|
|||
x := GetTIUListItem(FEditIEN);
|
||||
ListBoxItem := x;
|
||||
if Lines = nil then Lines := TStringList.Create;
|
||||
Lines.Assign(EditLines);
|
||||
FastAssign(EditLines, Lines);
|
||||
end
|
||||
else
|
||||
begin
|
||||
|
@ -319,7 +321,7 @@ begin
|
|||
SetCosignerRequired;
|
||||
if FShowAdmissions and (not pnlAdmissions.Visible) then
|
||||
begin
|
||||
Height := Height + pnlAdmissions.Height + pnlLabels.Height;
|
||||
// Height := Height + pnlAdmissions.Height + pnlLabels.Height;
|
||||
pnlAdmissions.Visible := True;
|
||||
pnlLabels.Visible := True;
|
||||
end;
|
||||
|
@ -341,9 +343,20 @@ end;
|
|||
|
||||
procedure TfrmDCSummProperties.cboAttendingNeedData(Sender: TObject; const StartFrom: String;
|
||||
Direction, InsertAt: Integer);
|
||||
begin // changed in v15.2, per BRX-1100-10981
|
||||
var TitleIEN: Int64;
|
||||
begin
|
||||
// (Sender as TORComboBox).ForDataUse(SubSetOfPersons(StartFrom, Direction));
|
||||
(Sender as TORComboBox).ForDataUse(SubSetOfProviders(StartFrom, Direction));
|
||||
|
||||
// CQ#11666
|
||||
// (Sender as TORComboBox).ForDataUse(SubSetOfCosigners(StartFrom, Direction,
|
||||
// FMToday, cboNewTitle.ItemIEN, FDocType));
|
||||
|
||||
// CQ #17218 - Updated to properly filter co-signers - JCS
|
||||
TitleIEN := cboNewTitle.ItemIEN;
|
||||
if TitleIEN = 0 then TitleIEN := FDocType;
|
||||
|
||||
(Sender as TORComboBox).ForDataUse(SubSetOfCosigners(StartFrom, Direction,
|
||||
FMToday, TitleIEN, 0));
|
||||
end;
|
||||
|
||||
procedure TfrmDCSummProperties.cboAuthorEnter(Sender: TObject);
|
||||
|
@ -366,8 +379,16 @@ procedure TfrmDCSummProperties.cboAttendingExit(Sender: TObject);
|
|||
{ make sure FCosign fields stay up to date in case SetCosigner gets called again }
|
||||
begin
|
||||
with cboAttending do if Text = '' then ItemIndex := -1;
|
||||
FCosignIEN := cboAttending.ItemIEN;
|
||||
FCosignName := Piece(cboAttending.Items[cboAttending.ItemIndex], U, 2);
|
||||
if cboAttending.ItemIndex < 0 then
|
||||
begin
|
||||
FCosignIEN := 0;
|
||||
FCosignName := '';
|
||||
end
|
||||
else
|
||||
begin
|
||||
FCosignIEN := cboAttending.ItemIEN;
|
||||
FCosignName := Piece(cboAttending.Items[cboAttending.ItemIndex], U, 2);
|
||||
end;
|
||||
end;
|
||||
|
||||
{ Command Button events }
|
||||
|
@ -389,9 +410,18 @@ begin
|
|||
if calSumm.IsValid and (calSumm.FMDateTime > FMNow) then ErrMsg := ErrMsg + TX_NO_FUTURE;
|
||||
if cboAttending.Visible and (cboAttending.ItemIEN = 0) then ErrMsg := ErrMsg + TX_REQ_COSIGNER;
|
||||
//if cboAttending.ItemIEN = User.DUZ then ErrMsg := TX_COS_SELF;
|
||||
if (cboAttending.ItemIEN > 0) and not IsUserAProvider(cboAttending.ItemIEN, FMNow) then
|
||||
//if (cboAttending.ItemIEN > 0) and not CanCosign(cboNewTitle.ItemIEN, FDocType, cboAttending.ItemIEN) then
|
||||
ErrMsg := cboAttending.Text + TX_COS_AUTH;
|
||||
|
||||
// --------------------------------- REPLACED THIS BLOCK IN V27.37-----------------------------------------------
|
||||
/// if (cboAttending.ItemIEN > 0) and not IsUserAProvider(cboAttending.ItemIEN, FMNow) then
|
||||
// //if (cboAttending.ItemIEN > 0) and not CanCosign(cboNewTitle.ItemIEN, FDocType, cboAttending.ItemIEN) then
|
||||
// ErrMsg := cboAttending.Text + TX_COS_AUTH;
|
||||
// ------------------------------------ NEW CODE FOLLOWS --------------------------------------------------------
|
||||
if (cboAttending.ItemIEN > 0) then
|
||||
if ((not IsUserAUSRProvider(cboAttending.ItemIEN, FMNow)) or
|
||||
(not CanCosign(cboNewTitle.ItemIEN, FDocType, cboAttending.ItemIEN, calSumm.FMDateTime))) then
|
||||
ErrMsg := cboAttending.Text + TX_COS_AUTH;
|
||||
// -----------------------------------END OF NEW REPLACEMENT CODE -----------------------------------------------
|
||||
|
||||
if pnlAdmissions.Visible then
|
||||
with lstAdmissions do
|
||||
begin
|
||||
|
@ -472,7 +502,7 @@ begin
|
|||
if AnEditSumm.Title > 0 then cboNewTitle.SelectByIEN(AnEditSumm.Title);
|
||||
cboAuthor.InitLongList(AnEditSumm.DictatorName);
|
||||
if AnEditSumm.Dictator > 0 then cboAuthor.SelectByIEN(AnEditSumm.Dictator);
|
||||
cboUrgency.Items.Assign(LoadDCUrgencies);
|
||||
FastAssign(LoadDCUrgencies, cboUrgency.Items);
|
||||
cboUrgency.SelectByID('R');
|
||||
cboAttending.InitLongList(AnEditSumm.AttendingName);
|
||||
if AnEditSumm.Attending > 0 then cboAttending.SelectByIEN(AnEditSumm.Attending);
|
||||
|
@ -508,6 +538,30 @@ begin
|
|||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmDCSummProperties.cboNewTitleChange(Sender: TObject);
|
||||
var
|
||||
IEN: Int64;
|
||||
name: string;
|
||||
Index: Integer;
|
||||
|
||||
begin
|
||||
inherited;
|
||||
index := cboAttending.ItemIndex;
|
||||
if index >= 0 then
|
||||
begin
|
||||
IEN := cboAttending.ItemIEN;
|
||||
name := cboAttending.DisplayText[index];
|
||||
end
|
||||
else
|
||||
begin
|
||||
name := '';
|
||||
IEN := 0;
|
||||
end;
|
||||
cboAttending.InitLongList(name);
|
||||
if index >= 0 then
|
||||
cboAttending.SelectByIEN(IEN);
|
||||
end;
|
||||
|
||||
procedure TfrmDCSummProperties.cboNewTitleDblClick(Sender: TObject);
|
||||
begin
|
||||
cmdOKClick(Self);
|
||||
|
|
|
@ -1,28 +1,30 @@
|
|||
inherited frmDateRange: TfrmDateRange
|
||||
Left = 460
|
||||
Top = 262
|
||||
Width = 282
|
||||
Height = 159
|
||||
Caption = 'Date Range'
|
||||
ClientHeight = 132
|
||||
ClientWidth = 274
|
||||
Position = poScreenCenter
|
||||
OnCreate = FormCreate
|
||||
ExplicitWidth = 282
|
||||
ExplicitHeight = 159
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
object lblStart: TLabel
|
||||
object lblStart: TLabel [0]
|
||||
Left = 8
|
||||
Top = 44
|
||||
Width = 53
|
||||
Height = 13
|
||||
Caption = 'Begin Date'
|
||||
end
|
||||
object lblStop: TLabel
|
||||
object lblStop: TLabel [1]
|
||||
Left = 145
|
||||
Top = 44
|
||||
Width = 45
|
||||
Height = 13
|
||||
Caption = 'End Date'
|
||||
end
|
||||
object lblInstruct: TOROffsetLabel
|
||||
object lblInstruct: TOROffsetLabel [2]
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 274
|
||||
|
@ -34,7 +36,7 @@ inherited frmDateRange: TfrmDateRange
|
|||
VertOffset = 8
|
||||
WordWrap = True
|
||||
end
|
||||
object txtStart: TORDateBox
|
||||
object txtStart: TORDateBox [3]
|
||||
Left = 8
|
||||
Top = 58
|
||||
Width = 121
|
||||
|
@ -44,7 +46,7 @@ inherited frmDateRange: TfrmDateRange
|
|||
RequireTime = False
|
||||
Caption = 'Begin Date'
|
||||
end
|
||||
object txtStop: TORDateBox
|
||||
object txtStop: TORDateBox [4]
|
||||
Left = 145
|
||||
Top = 58
|
||||
Width = 121
|
||||
|
@ -54,7 +56,7 @@ inherited frmDateRange: TfrmDateRange
|
|||
RequireTime = False
|
||||
Caption = 'End Date'
|
||||
end
|
||||
object cmdOK: TButton
|
||||
object cmdOK: TButton [5]
|
||||
Left = 114
|
||||
Top = 103
|
||||
Width = 72
|
||||
|
@ -64,7 +66,7 @@ inherited frmDateRange: TfrmDateRange
|
|||
TabOrder = 2
|
||||
OnClick = cmdOKClick
|
||||
end
|
||||
object cmdCancel: TButton
|
||||
object cmdCancel: TButton [6]
|
||||
Left = 194
|
||||
Top = 103
|
||||
Width = 72
|
||||
|
@ -74,4 +76,22 @@ inherited frmDateRange: TfrmDateRange
|
|||
TabOrder = 3
|
||||
OnClick = cmdCancelClick
|
||||
end
|
||||
inherited amgrMain: TVA508AccessibilityManager
|
||||
Data = (
|
||||
(
|
||||
'Component = txtStart'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = txtStop'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = cmdOK'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = cmdCancel'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = frmDateRange'
|
||||
'Status = stsDefault'))
|
||||
end
|
||||
end
|
||||
|
|
|
@ -4,7 +4,7 @@ interface
|
|||
|
||||
uses
|
||||
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
|
||||
fAutoSz, ORCtrls, StdCtrls, ORFn, ORDtTm;
|
||||
fAutoSz, ORCtrls, StdCtrls, ORFn, ORDtTm, VA508AccessibilityManager;
|
||||
|
||||
type
|
||||
TfrmDateRange = class(TfrmAutoSz)
|
||||
|
|
|
@ -1,21 +1,14 @@
|
|||
object frmDefaultEvent: TfrmDefaultEvent
|
||||
inherited frmDefaultEvent: TfrmDefaultEvent
|
||||
Left = 311
|
||||
Top = 193
|
||||
BorderStyle = bsSingle
|
||||
Caption = 'Set/Change Default Release Event'
|
||||
ClientHeight = 317
|
||||
ClientWidth = 394
|
||||
Color = clBtnFace
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'MS Sans Serif'
|
||||
Font.Style = []
|
||||
OldCreateOrder = False
|
||||
OnCreate = FormCreate
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
object pnlTop: TPanel
|
||||
object pnlTop: TPanel [0]
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 394
|
||||
|
@ -25,8 +18,8 @@ object frmDefaultEvent: TfrmDefaultEvent
|
|||
object lblCaption: TLabel
|
||||
Left = 1
|
||||
Top = 1
|
||||
Width = 392
|
||||
Height = 23
|
||||
Width = 363
|
||||
Height = 13
|
||||
Align = alClient
|
||||
Caption =
|
||||
' Select an event from the following list as your personal defaul' +
|
||||
|
@ -34,7 +27,7 @@ object frmDefaultEvent: TfrmDefaultEvent
|
|||
WordWrap = True
|
||||
end
|
||||
end
|
||||
object cboEvents: TORComboBox
|
||||
object cboEvents: TORComboBox [1]
|
||||
Left = 0
|
||||
Top = 25
|
||||
Width = 394
|
||||
|
@ -52,6 +45,7 @@ object frmDefaultEvent: TfrmDefaultEvent
|
|||
ItemTipEnable = True
|
||||
ListItemsOnly = True
|
||||
LongList = False
|
||||
LookupPiece = 0
|
||||
MaxLength = 0
|
||||
ParentShowHint = False
|
||||
Pieces = '9'
|
||||
|
@ -60,8 +54,9 @@ object frmDefaultEvent: TfrmDefaultEvent
|
|||
SynonymChars = '<>'
|
||||
TabOrder = 1
|
||||
CheckEntireLine = True
|
||||
CharsNeedMatch = 1
|
||||
end
|
||||
object pnlBottom: TPanel
|
||||
object pnlBottom: TPanel [2]
|
||||
Left = 0
|
||||
Top = 286
|
||||
Width = 394
|
||||
|
@ -88,4 +83,25 @@ object frmDefaultEvent: TfrmDefaultEvent
|
|||
OnClick = btnCancelClick
|
||||
end
|
||||
end
|
||||
inherited amgrMain: TVA508AccessibilityManager
|
||||
Data = (
|
||||
(
|
||||
'Component = pnlTop'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = cboEvents'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = pnlBottom'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = btnOK'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = btnCancel'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = frmDefaultEvent'
|
||||
'Status = stsDefault'))
|
||||
end
|
||||
end
|
||||
|
|
|
@ -4,10 +4,11 @@ interface
|
|||
|
||||
uses
|
||||
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
|
||||
StdCtrls, ORCtrls, ExtCtrls, rOrders, ORFn, uCore;
|
||||
StdCtrls, ORCtrls, ExtCtrls, rOrders, ORFn, uCore, fBase508Form,
|
||||
VA508AccessibilityManager;
|
||||
|
||||
type
|
||||
TfrmDefaultEvent = class(TForm)
|
||||
TfrmDefaultEvent = class(TfrmBase508Form)
|
||||
pnlTop: TPanel;
|
||||
lblCaption: TLabel;
|
||||
cboEvents: TORComboBox;
|
||||
|
@ -33,6 +34,8 @@ var
|
|||
|
||||
implementation
|
||||
|
||||
uses VAUtils;
|
||||
|
||||
{$R *.DFM}
|
||||
|
||||
function ExcueteDefaultEvntSetting: string;
|
||||
|
@ -90,7 +93,7 @@ var
|
|||
begin
|
||||
if cboEvents.ItemIndex < 0 then
|
||||
begin
|
||||
ShowMessage('You have to select an event first!');
|
||||
ShowMsg('You have to select an event first!');
|
||||
Exit;
|
||||
end;
|
||||
if (Piece(cboEvents.Items[cboEvents.ItemIndex],'^',1) <> FPreDefaultEvtID) and ( Length(FPreDefaultEvtID)>0 )then
|
||||
|
@ -100,9 +103,9 @@ begin
|
|||
errMsg := '';
|
||||
SetDefaultEvent(errMsg, Piece(cboEvents.Items[cboEvents.ItemIndex],'^',1));
|
||||
if length(errMsg)>0 then
|
||||
ShowMessage(errMsg)
|
||||
ShowMsg(errMsg)
|
||||
else
|
||||
ShowMessage('The default release event "' + cboEvents.Text + '" has been set successfully!');
|
||||
ShowMsg('The default release event "' + cboEvents.Text + '" has been set successfully!');
|
||||
FDefaultEvtName := cboEvents.Text;
|
||||
OKPressed := True;
|
||||
Close;
|
||||
|
@ -115,9 +118,9 @@ begin
|
|||
errMsg := '';
|
||||
SetDefaultEvent(errMsg, Piece(cboEvents.Items[cboEvents.ItemIndex],'^',1));
|
||||
if length(errMsg)>0 then
|
||||
ShowMessage(errMsg)
|
||||
ShowMsg(errMsg)
|
||||
else
|
||||
ShowMessage('The default release event "' + cboEvents.Text + '" has been set successfully!');
|
||||
ShowMsg('The default release event "' + cboEvents.Text + '" has been set successfully!');
|
||||
FDefaultEvtName := cboEvents.Text;
|
||||
OKPressed := True;
|
||||
Close;
|
||||
|
|
|
@ -1,29 +1,17 @@
|
|||
object frmDeviceSelect: TfrmDeviceSelect
|
||||
inherited frmDeviceSelect: TfrmDeviceSelect
|
||||
Left = 378
|
||||
Top = 340
|
||||
AutoScroll = False
|
||||
Caption = 'Orders Print Device Selection'
|
||||
ClientHeight = 235
|
||||
ClientWidth = 415
|
||||
Color = clBtnFace
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'MS Sans Serif'
|
||||
Font.Style = []
|
||||
OldCreateOrder = True
|
||||
Position = poScreenCenter
|
||||
OnClose = FormClose
|
||||
OnShow = FormShow
|
||||
OnCreate = FormCreate
|
||||
ExplicitWidth = 423
|
||||
ExplicitHeight = 262
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
object lblPrintTo: TLabel
|
||||
Left = 8
|
||||
Top = 276
|
||||
Width = 3
|
||||
Height = 13
|
||||
end
|
||||
object grpDevice: TGroupBox
|
||||
object grpDevice: TGroupBox [0]
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 415
|
||||
|
@ -58,6 +46,7 @@ object frmDeviceSelect: TfrmDeviceSelect
|
|||
TabOrder = 0
|
||||
OnChange = cboDeviceChange
|
||||
OnNeedData = cboDeviceNeedData
|
||||
CharsNeedMatch = 1
|
||||
end
|
||||
object pnlGBBottom: TPanel
|
||||
Left = 2
|
||||
|
@ -103,7 +92,7 @@ object frmDeviceSelect: TfrmDeviceSelect
|
|||
end
|
||||
end
|
||||
end
|
||||
object pnlBottom: TPanel
|
||||
object pnlBottom: TPanel [1]
|
||||
Left = 0
|
||||
Top = 194
|
||||
Width = 415
|
||||
|
@ -140,4 +129,37 @@ object frmDeviceSelect: TfrmDeviceSelect
|
|||
TabOrder = 2
|
||||
end
|
||||
end
|
||||
inherited amgrMain: TVA508AccessibilityManager
|
||||
Data = (
|
||||
(
|
||||
'Component = grpDevice'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = cboDevice'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = pnlGBBottom'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = txtRightMargin'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = txtPageLength'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = pnlBottom'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = cmdOK'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = cmdCancel'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = chkDefault'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = frmDeviceSelect'
|
||||
'Status = stsDefault'))
|
||||
end
|
||||
end
|
||||
|
|
|
@ -4,7 +4,7 @@ interface
|
|||
|
||||
uses
|
||||
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
|
||||
StdCtrls, fAutoSz, ORCtrls, ORNet, Mask, ExtCtrls;
|
||||
StdCtrls, fAutoSz, ORCtrls, ORNet, Mask, ExtCtrls, VA508AccessibilityManager;
|
||||
|
||||
type
|
||||
TfrmDeviceSelect = class(TfrmAutoSz)
|
||||
|
@ -24,8 +24,8 @@ type
|
|||
procedure cmdCancelClick(Sender: TObject);
|
||||
procedure cboDeviceNeedData(Sender: TObject; const StartFrom: String;
|
||||
Direction, InsertAt: Integer);
|
||||
procedure FormShow(Sender: TObject);
|
||||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
procedure FormCreate(Sender: TObject);
|
||||
private
|
||||
FWinPrint: Boolean;
|
||||
end;
|
||||
|
@ -55,7 +55,6 @@ var
|
|||
begin
|
||||
frmDeviceSelect := TfrmDeviceSelect.Create(Application);
|
||||
try
|
||||
ResizeFormToFont(TForm(frmDeviceSelect));
|
||||
with frmDeviceSelect do
|
||||
begin
|
||||
FWinPrint := AllowWindowsPrinter;
|
||||
|
@ -146,12 +145,6 @@ begin
|
|||
cboDevice.ForDataUse(SubsetOfDevices(StartFrom, Direction));
|
||||
end;
|
||||
|
||||
procedure TfrmDeviceSelect.FormShow(Sender: TObject);
|
||||
begin
|
||||
SetFormPosition(Self);
|
||||
inherited;
|
||||
end;
|
||||
|
||||
procedure TfrmDeviceSelect.FormClose(Sender: TObject;
|
||||
var Action: TCloseAction);
|
||||
begin
|
||||
|
@ -159,4 +152,11 @@ begin
|
|||
SaveUserBounds(Self);
|
||||
end;
|
||||
|
||||
procedure TfrmDeviceSelect.FormCreate(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
ResizeFormToFont(Self);
|
||||
SetFormPosition(Self);
|
||||
end;
|
||||
|
||||
end.
|
||||
|
|
Binary file not shown.
|
@ -1,25 +1,21 @@
|
|||
object frmDrawers: TfrmDrawers
|
||||
Left = 634
|
||||
Top = 437
|
||||
inherited frmDrawers: TfrmDrawers
|
||||
Left = 285
|
||||
Top = 335
|
||||
BorderStyle = bsNone
|
||||
Caption = 'frmDrawers'
|
||||
ClientHeight = 365
|
||||
ClientWidth = 189
|
||||
Color = clBtnFace
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'MS Sans Serif'
|
||||
Font.Style = []
|
||||
KeyPreview = True
|
||||
OldCreateOrder = False
|
||||
OnCanResize = FormCanResize
|
||||
OnCreate = FormCreate
|
||||
OnDestroy = FormDestroy
|
||||
OnResize = FormResize
|
||||
ExplicitLeft = 285
|
||||
ExplicitTop = 335
|
||||
ExplicitWidth = 197
|
||||
ExplicitHeight = 399
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
object pnlRemindersButton: TKeyClickPanel
|
||||
object pnlRemindersButton: TKeyClickPanel [0]
|
||||
Left = 0
|
||||
Top = 193
|
||||
Width = 189
|
||||
|
@ -37,6 +33,7 @@ object frmDrawers: TfrmDrawers
|
|||
Top = 0
|
||||
Width = 189
|
||||
Height = 22
|
||||
Align = alClient
|
||||
AllowAllUp = True
|
||||
GroupIndex = 1
|
||||
Caption = 'Reminders'
|
||||
|
@ -56,11 +53,10 @@ object frmDrawers: TfrmDrawers
|
|||
NumGlyphs = 4
|
||||
Spacing = 2
|
||||
OnClick = sbRemindersClick
|
||||
Align = alClient
|
||||
OnResize = sbResize
|
||||
end
|
||||
end
|
||||
object pnlEncounterButton: TKeyClickPanel
|
||||
object pnlEncounterButton: TKeyClickPanel [1]
|
||||
Left = 0
|
||||
Top = 107
|
||||
Width = 189
|
||||
|
@ -78,6 +74,7 @@ object frmDrawers: TfrmDrawers
|
|||
Top = 0
|
||||
Width = 189
|
||||
Height = 22
|
||||
Align = alClient
|
||||
AllowAllUp = True
|
||||
GroupIndex = 1
|
||||
Caption = 'Encounter'
|
||||
|
@ -97,11 +94,10 @@ object frmDrawers: TfrmDrawers
|
|||
NumGlyphs = 4
|
||||
Spacing = 2
|
||||
OnClick = sbEncounterClick
|
||||
Align = alClient
|
||||
OnResize = sbResize
|
||||
end
|
||||
end
|
||||
object pnlTemplatesButton: TKeyClickPanel
|
||||
object pnlTemplatesButton: TKeyClickPanel [2]
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 189
|
||||
|
@ -119,6 +115,7 @@ object frmDrawers: TfrmDrawers
|
|||
Top = 0
|
||||
Width = 189
|
||||
Height = 22
|
||||
Align = alClient
|
||||
AllowAllUp = True
|
||||
GroupIndex = 1
|
||||
Caption = 'Templates'
|
||||
|
@ -139,11 +136,11 @@ object frmDrawers: TfrmDrawers
|
|||
PopupMenu = popTemplates
|
||||
Spacing = 2
|
||||
OnClick = sbTemplatesClick
|
||||
Align = alClient
|
||||
OnResize = sbResize
|
||||
ExplicitTop = -6
|
||||
end
|
||||
end
|
||||
object pnlOrdersButton: TKeyClickPanel
|
||||
object pnlOrdersButton: TKeyClickPanel [3]
|
||||
Left = 0
|
||||
Top = 279
|
||||
Width = 189
|
||||
|
@ -161,6 +158,7 @@ object frmDrawers: TfrmDrawers
|
|||
Top = 0
|
||||
Width = 189
|
||||
Height = 22
|
||||
Align = alClient
|
||||
AllowAllUp = True
|
||||
GroupIndex = 1
|
||||
Caption = 'Orders'
|
||||
|
@ -180,11 +178,10 @@ object frmDrawers: TfrmDrawers
|
|||
NumGlyphs = 4
|
||||
Spacing = 11
|
||||
OnClick = sbOrdersClick
|
||||
Align = alClient
|
||||
OnResize = sbResize
|
||||
end
|
||||
end
|
||||
object lbOrders: TORListBox
|
||||
object lbOrders: TORListBox [4]
|
||||
Left = 0
|
||||
Top = 301
|
||||
Width = 189
|
||||
|
@ -201,7 +198,7 @@ object frmDrawers: TfrmDrawers
|
|||
ItemTipColor = clWindow
|
||||
LongList = False
|
||||
end
|
||||
object lbEncounter: TORListBox
|
||||
object lbEncounter: TORListBox [5]
|
||||
Left = 0
|
||||
Top = 129
|
||||
Width = 189
|
||||
|
@ -218,7 +215,7 @@ object frmDrawers: TfrmDrawers
|
|||
ItemTipColor = clWindow
|
||||
LongList = False
|
||||
end
|
||||
object pnlTemplates: TPanel
|
||||
object pnlTemplates: TPanel [6]
|
||||
Left = 0
|
||||
Top = 22
|
||||
Width = 189
|
||||
|
@ -313,7 +310,7 @@ object frmDrawers: TfrmDrawers
|
|||
end
|
||||
end
|
||||
end
|
||||
object tvReminders: TORTreeView
|
||||
object tvReminders: TORTreeView [7]
|
||||
Left = 0
|
||||
Top = 215
|
||||
Width = 189
|
||||
|
@ -327,9 +324,7 @@ object frmDrawers: TfrmDrawers
|
|||
RightClickSelect = True
|
||||
StateImages = dmodShared.imgReminders
|
||||
TabOrder = 5
|
||||
OnAddition = tvRemindersAddition
|
||||
OnCollapsed = tvRemindersCurListChanged
|
||||
OnDeletion = tvRemindersDeletion
|
||||
OnExpanded = tvRemindersCurListChanged
|
||||
OnKeyDown = tvRemindersKeyDown
|
||||
OnMouseUp = tvRemindersMouseUp
|
||||
|
@ -337,6 +332,56 @@ object frmDrawers: TfrmDrawers
|
|||
NodePiece = 0
|
||||
OnNodeCaptioning = tvRemindersNodeCaptioning
|
||||
end
|
||||
inherited amgrMain: TVA508AccessibilityManager
|
||||
Left = 72
|
||||
Top = 72
|
||||
Data = (
|
||||
(
|
||||
'Component = pnlRemindersButton'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = pnlEncounterButton'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = pnlTemplatesButton'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = pnlOrdersButton'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = lbOrders'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = lbEncounter'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = pnlTemplates'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = tvTemplates'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = pnlTemplateSearch'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = btnFind'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = edtSearch'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = cbMatchCase'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = cbWholeWords'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = tvReminders'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = frmDrawers'
|
||||
'Status = stsDefault'))
|
||||
end
|
||||
object popTemplates: TPopupMenu
|
||||
OnPopup = popTemplatesPopup
|
||||
Left = 8
|
||||
|
@ -408,4 +453,40 @@ object frmDrawers: TfrmDrawers
|
|||
OnClick = mnuViewTemplateIconLegendClick
|
||||
end
|
||||
end
|
||||
object fldAccessTemplates: TVA508ComponentAccessibility
|
||||
Component = pnlTemplatesButton
|
||||
OnStateQuery = fldAccessTemplatesStateQuery
|
||||
OnInstructionsQuery = fldAccessTemplatesInstructionsQuery
|
||||
ComponentName = 'Drawer'
|
||||
Left = 104
|
||||
Top = 72
|
||||
end
|
||||
object fldAccessReminders: TVA508ComponentAccessibility
|
||||
Component = pnlRemindersButton
|
||||
OnStateQuery = fldAccessRemindersStateQuery
|
||||
OnInstructionsQuery = fldAccessRemindersInstructionsQuery
|
||||
ComponentName = 'Drawer'
|
||||
Left = 128
|
||||
Top = 232
|
||||
end
|
||||
object imgLblReminders: TVA508ImageListLabeler
|
||||
Components = <
|
||||
item
|
||||
Component = tvReminders
|
||||
end>
|
||||
Labels = <>
|
||||
RemoteLabeler = dmodShared.imgLblReminders
|
||||
Left = 96
|
||||
Top = 232
|
||||
end
|
||||
object imgLblTemplates: TVA508ImageListLabeler
|
||||
Components = <
|
||||
item
|
||||
Component = tvTemplates
|
||||
end>
|
||||
Labels = <>
|
||||
RemoteLabeler = dmodShared.imgLblHealthFactorLabels
|
||||
Left = 136
|
||||
Top = 72
|
||||
end
|
||||
end
|
||||
|
|
|
@ -9,13 +9,14 @@ interface
|
|||
uses
|
||||
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
|
||||
ExtCtrls, StdCtrls, Buttons, ORCtrls, ComCtrls, ImgList, uTemplates,
|
||||
Menus, ORClasses, ORFn;
|
||||
Menus, ORClasses, ORFn, fBase508Form, VA508AccessibilityManager,
|
||||
VA508ImageListLabeler;
|
||||
|
||||
type
|
||||
TDrawer = (odNone, odTemplates, odEncounter, odReminders, odOrders);
|
||||
TDrawers = set of TDrawer;
|
||||
|
||||
TfrmDrawers = class(TForm)
|
||||
TfrmDrawers = class(TfrmBase508Form)
|
||||
lbOrders: TORListBox;
|
||||
sbOrders: TORAlignSpeedButton;
|
||||
sbReminders: TORAlignSpeedButton;
|
||||
|
@ -51,6 +52,10 @@ type
|
|||
mnuCopyTemplate: TMenuItem;
|
||||
N5: TMenuItem;
|
||||
mnuViewTemplateIconLegend: TMenuItem;
|
||||
fldAccessTemplates: TVA508ComponentAccessibility;
|
||||
fldAccessReminders: TVA508ComponentAccessibility;
|
||||
imgLblReminders: TVA508ImageListLabeler;
|
||||
imgLblTemplates: TVA508ImageListLabeler;
|
||||
procedure FormCanResize(Sender: TObject; var NewWidth,
|
||||
NewHeight: Integer; var Resize: Boolean);
|
||||
procedure FormResize(Sender: TObject);
|
||||
|
@ -104,8 +109,12 @@ type
|
|||
Shift: TShiftState);
|
||||
procedure tvRemindersNodeCaptioning(Sender: TObject;
|
||||
var Caption: String);
|
||||
procedure tvRemindersAddition(Sender: TObject; Node: TTreeNode);
|
||||
procedure tvRemindersDeletion(Sender: TObject; Node: TTreeNode);
|
||||
procedure fldAccessTemplatesStateQuery(Sender: TObject; var Text: string);
|
||||
procedure fldAccessTemplatesInstructionsQuery(Sender: TObject;
|
||||
var Text: string);
|
||||
procedure fldAccessRemindersInstructionsQuery(Sender: TObject;
|
||||
var Text: string);
|
||||
procedure fldAccessRemindersStateQuery(Sender: TObject; var Text: string);
|
||||
private
|
||||
FOpenToNode: string;
|
||||
FOldMouseUp: TMouseEvent;
|
||||
|
@ -210,7 +219,7 @@ implementation
|
|||
|
||||
uses fTemplateView, uCore, rTemplates, fTemplateEditor, dShared, uReminders,
|
||||
fReminderDialog, RichEdit, fRptBox, Clipbrd, fTemplateDialog, fIconLegend,
|
||||
uAccessibleTreeView, uAccessibleTreeNode;
|
||||
VA508AccessibilityRouter, uVA508CPRSCompatibility, VAUtils, fFindingTemplates;
|
||||
|
||||
{$R *.DFM}
|
||||
|
||||
|
@ -533,6 +542,8 @@ begin
|
|||
pnlTemplateSearch.Visible := mnuFindTemplates.Checked;
|
||||
end;
|
||||
ToggleDrawer(odTemplates);
|
||||
if ScreenReaderActive then
|
||||
pnlTemplatesButton.SetFocus;
|
||||
end;
|
||||
|
||||
procedure TfrmDrawers.sbEncounterClick(Sender: TObject);
|
||||
|
@ -558,6 +569,8 @@ begin
|
|||
else
|
||||
ToggleDrawer(odReminders)
|
||||
end;
|
||||
if ScreenReaderActive then
|
||||
pnlRemindersButton.SetFocus;
|
||||
end;
|
||||
|
||||
procedure TfrmDrawers.sbOrdersClick(Sender: TObject);
|
||||
|
@ -883,12 +896,16 @@ begin
|
|||
if(txt <> '') then
|
||||
begin
|
||||
CheckBoilerplate4Fields(txt, 'Template: ' + Template.PrintName);
|
||||
BeforeLine := SendMessage(FRichEditControl.Handle, EM_EXLINEFROMCHAR, 0, FRichEditControl.SelStart);
|
||||
FRichEditControl.SelText := txt;
|
||||
FRichEditControl.SetFocus;
|
||||
SendMessage(FRichEditControl.Handle, EM_SCROLLCARET, 0, 0);
|
||||
AfterTop := SendMessage(FRichEditControl.Handle, EM_GETFIRSTVISIBLELINE, 0, 0);
|
||||
SendMessage(FRichEditControl.Handle, EM_LINESCROLL, 0, -1 * (AfterTop - BeforeLine));
|
||||
if txt <> '' then
|
||||
begin
|
||||
BeforeLine := SendMessage(FRichEditControl.Handle, EM_EXLINEFROMCHAR, 0, FRichEditControl.SelStart);
|
||||
FRichEditControl.SelText := txt;
|
||||
FRichEditControl.SetFocus;
|
||||
SendMessage(FRichEditControl.Handle, EM_SCROLLCARET, 0, 0);
|
||||
AfterTop := SendMessage(FRichEditControl.Handle, EM_GETFIRSTVISIBLELINE, 0, 0);
|
||||
SendMessage(FRichEditControl.Handle, EM_LINESCROLL, 0, -1 * (AfterTop - BeforeLine));
|
||||
SpeakTextInserted;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
@ -959,7 +976,6 @@ end;
|
|||
|
||||
procedure TfrmDrawers.FormDestroy(Sender: TObject);
|
||||
begin
|
||||
TAccessibleTreeView.UnwrapControl(tvReminders);
|
||||
dmodShared.RemoveDrawerTree(Self);
|
||||
KillObj(@FRemNotifyList);
|
||||
end;
|
||||
|
@ -972,6 +988,7 @@ end;
|
|||
|
||||
procedure TfrmDrawers.ReloadTemplates;
|
||||
begin
|
||||
SetFindNext(FALSE);
|
||||
LoadTemplateData;
|
||||
if(UserTemplateAccessLevel <> taNone) and (assigned(MyTemplate)) and
|
||||
(MyTemplate.Children in [tcActive, tcBoth]) then
|
||||
|
@ -985,68 +1002,37 @@ end;
|
|||
|
||||
procedure TfrmDrawers.btnFindClick(Sender: TObject);
|
||||
var
|
||||
TmpNode: TTreeNode;
|
||||
Found: boolean;
|
||||
S1,S2: string;
|
||||
Found, TmpNode: TTreeNode;
|
||||
IsNext: boolean;
|
||||
|
||||
begin
|
||||
if(edtSearch.text <> '') then
|
||||
begin
|
||||
if(FEmptyNodeCount > 0) then
|
||||
begin
|
||||
FInternalExpand := TRUE;
|
||||
FInternalHiddenExpand := TRUE;
|
||||
try
|
||||
TmpNode := tvTemplates.Items.GetFirstNode;
|
||||
while(assigned(TmpNode)) do
|
||||
begin
|
||||
TmpNode.Expand(TRUE);
|
||||
TmpNode := TmpNode.GetNextSibling;
|
||||
end;
|
||||
finally
|
||||
FInternalExpand := FALSE;
|
||||
FInternalHiddenExpand := FALSE;
|
||||
end;
|
||||
end;
|
||||
if((FFindNext) and assigned (FLastFoundNode)) then
|
||||
TmpNode := FLastFoundNode.GetNext
|
||||
IsNext := ((FFindNext) and assigned (FLastFoundNode));
|
||||
if IsNext then
|
||||
TmpNode := FLastFoundNode
|
||||
else
|
||||
TmpNode := tvTemplates.Items.GetFirstNode;
|
||||
Found := FALSE;
|
||||
if(assigned(TmpNode)) then
|
||||
begin
|
||||
S1 := edtSearch.Text;
|
||||
if(not cbMatchCase.Checked) then
|
||||
S1 := UpperCase(S1);
|
||||
while (assigned(TmpNode) and (not Found)) do
|
||||
begin
|
||||
S2 := TmpNode.Text;
|
||||
if(not cbMatchCase.Checked) then
|
||||
S2 := UpperCase(S2);
|
||||
Found := SearchMatch(S1, S2, cbWholeWords.Checked);
|
||||
if(not Found) then
|
||||
TmpNode := TmpNode.GetNext;
|
||||
end;
|
||||
FInternalExpand := TRUE;
|
||||
FInternalHiddenExpand := TRUE;
|
||||
try
|
||||
Found := FindTemplate(edtSearch.Text, tvTemplates, Application.MainForm, TmpNode,
|
||||
IsNext, not cbMatchCase.Checked, cbWholeWords.Checked);
|
||||
finally
|
||||
FInternalExpand := FALSE;
|
||||
FInternalHiddenExpand := FALSE;
|
||||
end;
|
||||
if(Found) then
|
||||
|
||||
if assigned(Found) then
|
||||
begin
|
||||
FLastFoundNode := TmpNode;
|
||||
FLastFoundNode := Found;
|
||||
SetFindNext(TRUE);
|
||||
FInternalExpand := TRUE;
|
||||
try
|
||||
tvTemplates.Selected := TmpNode;
|
||||
tvTemplates.Selected := Found;
|
||||
finally
|
||||
FInternalExpand := FALSE;
|
||||
end;
|
||||
end
|
||||
else
|
||||
begin
|
||||
if(FFindNext) then
|
||||
S1 := ''
|
||||
else
|
||||
S1 := ' "' + edtSearch.Text + '" was not Found.';
|
||||
SetFindNext(FALSE);
|
||||
InfoBox('Search Complete.' + S1, 'Information', MB_OK or MB_ICONINFORMATION);
|
||||
end;
|
||||
end;
|
||||
edtSearch.SetFocus;
|
||||
|
@ -1131,7 +1117,6 @@ procedure TfrmDrawers.FormCreate(Sender: TObject);
|
|||
begin
|
||||
dmodShared.AddDrawerTree(Self);
|
||||
FHasPersonalTemplates := FALSE;
|
||||
TAccessibleTreeView.WrapControl(tvReminders);
|
||||
end;
|
||||
|
||||
procedure TfrmDrawers.ExternalReloadTemplates;
|
||||
|
@ -1144,6 +1129,47 @@ begin
|
|||
ReloadTemplates;
|
||||
end;
|
||||
|
||||
procedure TfrmDrawers.fldAccessRemindersInstructionsQuery(Sender: TObject;
|
||||
var Text: string);
|
||||
begin
|
||||
inherited;
|
||||
if FOpenDrawer = odReminders then
|
||||
Text := 'to close'
|
||||
else
|
||||
Text := 'to open';
|
||||
Text := Text + ' drawer press space bar';
|
||||
end;
|
||||
|
||||
procedure TfrmDrawers.fldAccessRemindersStateQuery(Sender: TObject;
|
||||
var Text: string);
|
||||
begin
|
||||
inherited;
|
||||
if FOpenDrawer = odReminders then
|
||||
Text := ', Drawer Open'
|
||||
else
|
||||
Text := ', Drawer Closed';
|
||||
end;
|
||||
|
||||
procedure TfrmDrawers.fldAccessTemplatesInstructionsQuery(Sender: TObject;
|
||||
var Text: string);
|
||||
begin
|
||||
inherited;
|
||||
if FOpenDrawer = odTemplates then
|
||||
Text := 'to close'
|
||||
else
|
||||
Text := 'to open';
|
||||
Text := Text + ' drawer press space bar';
|
||||
end;
|
||||
|
||||
procedure TfrmDrawers.fldAccessTemplatesStateQuery(Sender: TObject;
|
||||
var Text: string);
|
||||
begin
|
||||
if FOpenDrawer = odTemplates then
|
||||
Text := ', Drawer Open'
|
||||
else
|
||||
Text := ', Drawer Closed';
|
||||
end;
|
||||
|
||||
procedure TfrmDrawers.DisplayDrawers(Show: Boolean);
|
||||
begin
|
||||
DisplayDrawers(Show, [], []);
|
||||
|
@ -1424,7 +1450,7 @@ begin
|
|||
begin
|
||||
tmpl := TTemplate(tvTemplates.Selected.Data);
|
||||
if(tmpl.Description = '') then
|
||||
ShowMessage('No notes found for ' + tmpl.PrintName)
|
||||
ShowMsg('No notes found for ' + tmpl.PrintName)
|
||||
else
|
||||
begin
|
||||
tmpSL := TStringList.Create;
|
||||
|
@ -1453,7 +1479,10 @@ begin
|
|||
txt := Template.Text;
|
||||
CheckBoilerplate4Fields(txt, 'Template: ' + Template.PrintName);
|
||||
if txt <> '' then
|
||||
begin
|
||||
Clipboard.SetTextBuf(PChar(txt));
|
||||
GetScreenReader.Speak('Text Copied to Clip board');
|
||||
end;
|
||||
end;
|
||||
if txt <> '' then
|
||||
StatusText('Templated Text copied to clipboard.');
|
||||
|
@ -1530,18 +1559,6 @@ begin
|
|||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmDrawers.tvRemindersAddition(Sender: TObject;
|
||||
Node: TTreeNode);
|
||||
begin
|
||||
TAccessibleTreeNode.WrapControl(Node as TORTreeNode);
|
||||
end;
|
||||
|
||||
procedure TfrmDrawers.tvRemindersDeletion(Sender: TObject;
|
||||
Node: TTreeNode);
|
||||
begin
|
||||
TAccessibleTreeNode.UnwrapControl(Node as TORTreeNode);
|
||||
end;
|
||||
|
||||
procedure TfrmDrawers.DisableArrowKeyMove(Sender: TObject);
|
||||
var
|
||||
CurrPanel : TKeyClickPanel;
|
||||
|
@ -1560,5 +1577,8 @@ begin
|
|||
end;
|
||||
end;
|
||||
|
||||
initialization
|
||||
SpecifyFormIsNotADialog(TfrmDrawers);
|
||||
|
||||
end.
|
||||
|
||||
|
|
|
@ -1,34 +1,25 @@
|
|||
object frmDupPts: TfrmDupPts
|
||||
inherited frmDupPts: TfrmDupPts
|
||||
Left = 160
|
||||
Top = 190
|
||||
Width = 471
|
||||
Height = 214
|
||||
HorzScrollBar.Visible = False
|
||||
VertScrollBar.Visible = False
|
||||
Caption = 'Similar Patients'
|
||||
Color = clBtnFace
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'MS Sans Serif'
|
||||
Font.Style = []
|
||||
KeyPreview = True
|
||||
OldCreateOrder = False
|
||||
ClientHeight = 187
|
||||
ClientWidth = 463
|
||||
Position = poScreenCenter
|
||||
OnCreate = FormCreate
|
||||
OnKeyDown = FormKeyDown
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
object pnlDupPts: TPanel
|
||||
object pnlDupPts: TPanel [0]
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 463
|
||||
Height = 184
|
||||
Height = 187
|
||||
Align = alClient
|
||||
TabOrder = 0
|
||||
DesignSize = (
|
||||
463
|
||||
184)
|
||||
187)
|
||||
object lblSelDupPts: TLabel
|
||||
Left = 6
|
||||
Top = 3
|
||||
|
@ -94,4 +85,25 @@ object frmDupPts: TfrmDupPts
|
|||
end
|
||||
end
|
||||
end
|
||||
inherited amgrMain: TVA508AccessibilityManager
|
||||
Data = (
|
||||
(
|
||||
'Component = pnlDupPts'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = btnOK'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = btnCancel'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = pnlSelDupPt'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = lboSelPt'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = frmDupPts'
|
||||
'Status = stsDefault'))
|
||||
end
|
||||
end
|
||||
|
|
|
@ -4,10 +4,11 @@ interface
|
|||
|
||||
uses
|
||||
Windows, Messages, SysUtils, Variants, Classes, Graphics,
|
||||
Controls, Forms, Dialogs, StdCtrls, ORCtrls, ExtCtrls, OrFn;
|
||||
Controls, Forms, Dialogs, StdCtrls, ORCtrls, ExtCtrls, OrFn, fBase508Form,
|
||||
VA508AccessibilityManager;
|
||||
|
||||
type
|
||||
TfrmDupPts = class(TForm)
|
||||
TfrmDupPts = class(TfrmBase508Form)
|
||||
pnlDupPts: TPanel;
|
||||
btnOK: TButton;
|
||||
btnCancel: TButton;
|
||||
|
@ -49,8 +50,8 @@ var
|
|||
begin
|
||||
fPtSel.DupDFN := 'Cancel'; // Pre-set as default.
|
||||
theDups := tStringList.create;
|
||||
theDups.assign(fPtSel.PtStrs);
|
||||
lboSelPt.items.assign(theDups);
|
||||
FastAssign(fPtSel.PtStrs, theDups);
|
||||
FastAssign(theDups, lboSelPt.Items);
|
||||
ResizeAnchoredFormToFont(self);
|
||||
end;
|
||||
|
||||
|
@ -71,11 +72,9 @@ end;
|
|||
procedure TfrmDupPts.FormKeyDown(Sender: TObject; var Key: Word;
|
||||
Shift: TShiftState);
|
||||
begin
|
||||
|
||||
// Check for "Esc" keypress:
|
||||
if (key = 27) then // ESC key.
|
||||
btnCancel.click;
|
||||
|
||||
inherited;
|
||||
if (key = VK_ESCAPE) then
|
||||
btnCancel.click;
|
||||
end;
|
||||
|
||||
procedure TfrmDupPts.lboSelPtDblClick(Sender: TObject);
|
||||
|
|
|
@ -8,16 +8,18 @@ inherited frmEffectDate: TfrmEffectDate
|
|||
ClientWidth = 254
|
||||
Position = poScreenCenter
|
||||
OnCreate = FormCreate
|
||||
ExplicitWidth = 320
|
||||
ExplicitHeight = 240
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
object Label2: TLabel
|
||||
object Label2: TLabel [0]
|
||||
Left = 68
|
||||
Top = 48
|
||||
Width = 68
|
||||
Height = 13
|
||||
Caption = 'Effective Date'
|
||||
end
|
||||
object Label3: TStaticText
|
||||
object Label3: TStaticText [1]
|
||||
Left = 8
|
||||
Top = 8
|
||||
Width = 244
|
||||
|
@ -25,7 +27,7 @@ inherited frmEffectDate: TfrmEffectDate
|
|||
Caption = 'Enter the date this discharge will become effective.'
|
||||
TabOrder = 3
|
||||
end
|
||||
object Label4: TStaticText
|
||||
object Label4: TStaticText [2]
|
||||
Left = 8
|
||||
Top = 22
|
||||
Width = 224
|
||||
|
@ -33,7 +35,7 @@ inherited frmEffectDate: TfrmEffectDate
|
|||
Caption = '(This aids pharmacy in preparing prescriptions.)'
|
||||
TabOrder = 4
|
||||
end
|
||||
object calEffective: TORDateBox
|
||||
object calEffective: TORDateBox [3]
|
||||
Left = 68
|
||||
Top = 62
|
||||
Width = 120
|
||||
|
@ -44,7 +46,7 @@ inherited frmEffectDate: TfrmEffectDate
|
|||
RequireTime = False
|
||||
Caption = 'Effective Date'
|
||||
end
|
||||
object cmdOK: TButton
|
||||
object cmdOK: TButton [4]
|
||||
Left = 51
|
||||
Top = 95
|
||||
Width = 72
|
||||
|
@ -54,7 +56,7 @@ inherited frmEffectDate: TfrmEffectDate
|
|||
TabOrder = 1
|
||||
OnClick = cmdOKClick
|
||||
end
|
||||
object cmdCancel: TButton
|
||||
object cmdCancel: TButton [5]
|
||||
Left = 133
|
||||
Top = 95
|
||||
Width = 72
|
||||
|
@ -64,4 +66,25 @@ inherited frmEffectDate: TfrmEffectDate
|
|||
TabOrder = 2
|
||||
OnClick = cmdCancelClick
|
||||
end
|
||||
inherited amgrMain: TVA508AccessibilityManager
|
||||
Data = (
|
||||
(
|
||||
'Component = Label3'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = Label4'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = calEffective'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = cmdOK'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = cmdCancel'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = frmEffectDate'
|
||||
'Status = stsDefault'))
|
||||
end
|
||||
end
|
||||
|
|
|
@ -4,7 +4,8 @@ interface
|
|||
|
||||
uses
|
||||
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
|
||||
fAutoSz, Grids, Calendar, ORDtTmCal, StdCtrls, ORDtTm, ORFn;
|
||||
fAutoSz, Grids, Calendar, ORDtTmCal, StdCtrls, ORDtTm, ORFn,
|
||||
VA508AccessibilityManager;
|
||||
|
||||
type
|
||||
TfrmEffectDate = class(TfrmAutoSz)
|
||||
|
|
Binary file not shown.
|
@ -1,18 +1,12 @@
|
|||
object frmEncounter: TfrmEncounter
|
||||
inherited frmEncounter: TfrmEncounter
|
||||
Left = 481
|
||||
Top = 242
|
||||
Width = 470
|
||||
Height = 450
|
||||
Anchors = [akTop]
|
||||
BorderIcons = [biSystemMenu]
|
||||
Caption = 'Provider & Location for Current Activities'
|
||||
Color = clBtnFace
|
||||
ClientHeight = 423
|
||||
ClientWidth = 462
|
||||
Constraints.MinWidth = 470
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'MS Sans Serif'
|
||||
Font.Style = []
|
||||
OldCreateOrder = True
|
||||
Position = poScreenCenter
|
||||
Scaled = False
|
||||
|
@ -21,12 +15,14 @@ object frmEncounter: TfrmEncounter
|
|||
OnDestroy = FormDestroy
|
||||
OnResize = FormResize
|
||||
OnShow = FormShow
|
||||
ExplicitWidth = 470
|
||||
ExplicitHeight = 450
|
||||
DesignSize = (
|
||||
462
|
||||
416)
|
||||
423)
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
object lblInstruct: TLabel
|
||||
object lblInstruct: TLabel [0]
|
||||
Left = 6
|
||||
Top = 6
|
||||
Width = 253
|
||||
|
@ -38,7 +34,7 @@ object frmEncounter: TfrmEncounter
|
|||
Visible = False
|
||||
WordWrap = True
|
||||
end
|
||||
object lblLocation: TLabel
|
||||
object lblLocation: TLabel [1]
|
||||
Tag = 9
|
||||
Left = 6
|
||||
Top = 140
|
||||
|
@ -48,14 +44,14 @@ object frmEncounter: TfrmEncounter
|
|||
Caption = 'Encounter Location'
|
||||
Constraints.MinHeight = 12
|
||||
end
|
||||
object lblProvider: TLabel
|
||||
object lblProvider: TLabel [2]
|
||||
Left = 6
|
||||
Top = 6
|
||||
Width = 91
|
||||
Height = 13
|
||||
Caption = 'Encounter Provider'
|
||||
end
|
||||
object cboPtProvider: TORComboBox
|
||||
object cboPtProvider: TORComboBox [3]
|
||||
Left = 6
|
||||
Top = 20
|
||||
Width = 331
|
||||
|
@ -81,7 +77,7 @@ object frmEncounter: TfrmEncounter
|
|||
OnNeedData = cboPtProviderNeedData
|
||||
CharsNeedMatch = 1
|
||||
end
|
||||
object cmdDateRange: TButton
|
||||
object cmdDateRange: TButton [4]
|
||||
Tag = 9
|
||||
Left = 266
|
||||
Top = 153
|
||||
|
@ -94,7 +90,7 @@ object frmEncounter: TfrmEncounter
|
|||
TabOrder = 2
|
||||
OnClick = cmdDateRangeClick
|
||||
end
|
||||
object txtLocation: TCaptionEdit
|
||||
object txtLocation: TCaptionEdit [5]
|
||||
Tag = 9
|
||||
Left = 6
|
||||
Top = 154
|
||||
|
@ -109,7 +105,7 @@ object frmEncounter: TfrmEncounter
|
|||
Text = '< Select a location from the tabs below.... >'
|
||||
Caption = 'Encounter Location'
|
||||
end
|
||||
object cmdCancel: TButton
|
||||
object cmdCancel: TButton [6]
|
||||
Left = 341
|
||||
Top = 45
|
||||
Width = 84
|
||||
|
@ -122,7 +118,7 @@ object frmEncounter: TfrmEncounter
|
|||
TabOrder = 4
|
||||
OnClick = cmdCancelClick
|
||||
end
|
||||
object cmdOK: TButton
|
||||
object cmdOK: TButton [7]
|
||||
Left = 340
|
||||
Top = 20
|
||||
Width = 84
|
||||
|
@ -135,7 +131,7 @@ object frmEncounter: TfrmEncounter
|
|||
TabOrder = 3
|
||||
OnClick = cmdOKClick
|
||||
end
|
||||
object Panel1: TPanel
|
||||
object Panel1: TPanel [8]
|
||||
Left = 0
|
||||
Top = 179
|
||||
Width = 460
|
||||
|
@ -157,8 +153,13 @@ object frmEncounter: TfrmEncounter
|
|||
RaggedRight = True
|
||||
TabOrder = 0
|
||||
OnChange = pgeVisitChange
|
||||
OnMouseDown = pgeVisitMouseDown
|
||||
object tabClinic: TTabSheet
|
||||
Caption = 'Clinic Appointments'
|
||||
ExplicitLeft = 0
|
||||
ExplicitTop = 0
|
||||
ExplicitWidth = 0
|
||||
ExplicitHeight = 0
|
||||
object lstClinic: TORListBox
|
||||
Left = 0
|
||||
Top = 20
|
||||
|
@ -204,6 +205,10 @@ object frmEncounter: TfrmEncounter
|
|||
end
|
||||
object tabAdmit: TTabSheet
|
||||
Caption = 'Hospital Admissions'
|
||||
ExplicitLeft = 0
|
||||
ExplicitTop = 0
|
||||
ExplicitWidth = 0
|
||||
ExplicitHeight = 0
|
||||
object lstAdmit: TORListBox
|
||||
Left = 0
|
||||
Top = 17
|
||||
|
@ -240,6 +245,10 @@ object frmEncounter: TfrmEncounter
|
|||
end
|
||||
object tabNewVisit: TTabSheet
|
||||
Caption = 'New Visit'
|
||||
ExplicitLeft = 0
|
||||
ExplicitTop = 0
|
||||
ExplicitWidth = 0
|
||||
ExplicitHeight = 0
|
||||
object lblVisitDate: TLabel
|
||||
Left = 220
|
||||
Top = 4
|
||||
|
@ -312,6 +321,63 @@ object frmEncounter: TfrmEncounter
|
|||
end
|
||||
end
|
||||
end
|
||||
inherited amgrMain: TVA508AccessibilityManager
|
||||
Data = (
|
||||
(
|
||||
'Component = cboPtProvider'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = cmdDateRange'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = txtLocation'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = cmdCancel'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = cmdOK'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = Panel1'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = pgeVisit'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = tabClinic'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = lstClinic'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = Panel2'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = tabAdmit'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = lstAdmit'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = Panel3'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = tabNewVisit'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = calVisitDate'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = ckbHistorical'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = cboNewVisit'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = frmEncounter'
|
||||
'Status = stsDefault'))
|
||||
end
|
||||
object dlgDateRange: TORDateRangeDlg
|
||||
DateOnly = True
|
||||
Instruction = 'Show appointments / visits in the date range:'
|
||||
|
|
|
@ -12,10 +12,11 @@ interface
|
|||
|
||||
uses
|
||||
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
|
||||
StdCtrls, ORCtrls, ORDtTm, ORFn, ExtCtrls, ComCtrls, ORDtTmRng, fAutoSz, rOptions;
|
||||
StdCtrls, ORCtrls, ORDtTm, ORFn, ExtCtrls, ComCtrls, ORDtTmRng, fAutoSz, rOptions, fBase508Form,
|
||||
VA508AccessibilityManager, fFrame;
|
||||
|
||||
type
|
||||
TfrmEncounter = class(TForm)
|
||||
TfrmEncounter = class(TfrmBase508Form)
|
||||
cboPtProvider: TORComboBox;
|
||||
lblProvider: TLabel;
|
||||
cmdOK: TButton;
|
||||
|
@ -61,6 +62,8 @@ type
|
|||
procedure lstClinicChange(Sender: TObject);
|
||||
procedure FormResize(Sender: TObject);
|
||||
procedure FormShow(Sender: TObject);
|
||||
procedure pgeVisitMouseDown(Sender: TObject; Button: TMouseButton;
|
||||
Shift: TShiftState; X, Y: Integer);
|
||||
private
|
||||
CLINIC_TXT : String;
|
||||
FFilter: Int64;
|
||||
|
@ -81,6 +84,7 @@ type
|
|||
procedure AppShowHint(var HintStr: string; var CanShow: Boolean;
|
||||
var HintInfo: THintInfo);
|
||||
procedure SetVisitCat;
|
||||
function AllowAutoFocusChange: Boolean;
|
||||
public
|
||||
{ Public declarations }
|
||||
end;
|
||||
|
@ -93,7 +97,8 @@ implementation
|
|||
|
||||
{$R *.DFM}
|
||||
|
||||
uses rCore, uCore, uConst, fReview, uPCE, rPCE;
|
||||
uses rCore, uCore, uConst, fReview, uPCE, rPCE, VA508AccessibilityRouter,
|
||||
VAUtils;
|
||||
|
||||
const
|
||||
TC_MISSING = 'Incomplete Encounter Information';
|
||||
|
@ -154,6 +159,8 @@ begin
|
|||
if OKPressed then
|
||||
begin
|
||||
CanChange := True;
|
||||
// if (fframe.frmFrame.DoNotChangeEncWindow = true) and (encounter.Location <> frmEncounter.FLocation) then
|
||||
// fframe.frmFrame.DoNotChangeEncWindow := false;
|
||||
if (PersonFilter <> NPF_SUPPRESS) and
|
||||
(((Encounter.Provider = User.DUZ) and (FProvider <> User.DUZ)) or
|
||||
((Encounter.Provider <> User.DUZ) and (FProvider = User.DUZ)))
|
||||
|
@ -248,12 +255,14 @@ begin
|
|||
if (pgeVisit.ActivePage = tabClinic) and (lstClinic.Items.Count = 0) then
|
||||
begin
|
||||
ListApptAll(lstClinic.Items, Patient.DFN, FFromDate, FThruDate);
|
||||
ActiveControl := lstClinic;
|
||||
if AllowAutoFocusChange then
|
||||
ActiveControl := lstClinic;
|
||||
end;
|
||||
if (pgeVisit.ActivePage = tabAdmit) and (lstAdmit.Items.Count = 0) then
|
||||
begin
|
||||
ListAdmitAll(lstAdmit.Items, Patient.DFN);
|
||||
ActiveControl := lstAdmit;
|
||||
if AllowAutoFocusChange then
|
||||
ActiveControl := lstAdmit;
|
||||
end;
|
||||
if pgeVisit.ActivePage = tabNewVisit then
|
||||
begin
|
||||
|
@ -275,22 +284,32 @@ begin
|
|||
FFromSelf := True;
|
||||
with calVisitDate do if FDateTime <> 0 then FMDateTime := FDateTime else Text := 'NOW';
|
||||
FFromSelf := False;
|
||||
ActiveControl := cboNewVisit;
|
||||
if AllowAutoFocusChange then
|
||||
ActiveControl := cboNewVisit;
|
||||
end
|
||||
else if FVisitCategory = 'E' then
|
||||
begin
|
||||
ckbHistorical.Checked := True;
|
||||
ActiveControl := cboNewVisit;
|
||||
if AllowAutoFocusChange then
|
||||
ActiveControl := cboNewVisit;
|
||||
end
|
||||
else
|
||||
begin
|
||||
cboNewVisit.InitLongList('');
|
||||
//ActiveControl := cboPtProvider;
|
||||
end;
|
||||
//ckbHistorical.Checked := FVisitCategory = 'E';
|
||||
//ActiveControl := cboNewVisit;
|
||||
end; {if cboNewVisit}
|
||||
end; {if pgeVisit.ActivePage}
|
||||
if ScreenReaderSystemActive then
|
||||
ActiveControl := pgeVisit;
|
||||
end;
|
||||
|
||||
procedure TfrmEncounter.pgeVisitMouseDown(Sender: TObject;
|
||||
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
|
||||
begin
|
||||
inherited;
|
||||
if pgeVisit.ActivePage = tabNewVisit then
|
||||
if cboNewVisit.CanFocus then
|
||||
cboNewVisit.SetFocus;
|
||||
end;
|
||||
|
||||
procedure TfrmEncounter.cboNewVisitNeedData(Sender: TObject; const StartFrom: string;
|
||||
|
@ -456,6 +475,17 @@ begin
|
|||
FStandAlone := (FVisitCategory = 'A');
|
||||
end;
|
||||
|
||||
function TfrmEncounter.AllowAutoFocusChange: Boolean;
|
||||
begin
|
||||
if ScreenReaderSystemActive or
|
||||
Boolean(Hi(GetKeyState(VK_TAB))) or
|
||||
Boolean(Hi(GetKeyState(VK_LEFT))) or
|
||||
Boolean(Hi(GetKeyState(VK_RIGHT))) then
|
||||
Result := FALSE
|
||||
else
|
||||
Result := TRUE;
|
||||
end;
|
||||
|
||||
procedure TfrmEncounter.FormClose(Sender: TObject;
|
||||
var Action: TCloseAction);
|
||||
begin
|
||||
|
@ -535,6 +565,9 @@ begin
|
|||
cmdOK.Top := cmdCancel.Top - cmdOK.Height - 1;
|
||||
cmdCancel.Top := cmdOK.Top + cmdOK.Height + 1;
|
||||
//end CQ7118
|
||||
if Not User.IsProvider then
|
||||
if cboPtProvider.CanFocus then
|
||||
cboPtProvider.SetFocus;
|
||||
end;
|
||||
|
||||
end.
|
||||
|
|
|
@ -12,10 +12,10 @@ interface
|
|||
|
||||
uses
|
||||
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
|
||||
StdCtrls, ORCtrls, ORDtTm, ORFn, ExtCtrls, ComCtrls, ORDtTmRng, fAutoSz, rOptions;
|
||||
StdCtrls, ORCtrls, ORDtTm, ORFn, ExtCtrls, ComCtrls, ORDtTmRng, fAutoSz, rOptions, fBase508Form;
|
||||
|
||||
type
|
||||
TfrmEncounter = class(TForm)
|
||||
TfrmEncounter = class(TfrmBase508Form)
|
||||
cboPtProvider: TORComboBox;
|
||||
lblProvider: TLabel;
|
||||
cmdOK: TButton;
|
||||
|
|
Binary file not shown.
|
@ -1,17 +1,10 @@
|
|||
object frmFrame: TfrmFrame
|
||||
Left = 380
|
||||
Top = 292
|
||||
Width = 684
|
||||
Height = 487
|
||||
inherited frmFrame: TfrmFrame
|
||||
Left = 196
|
||||
Top = 119
|
||||
Caption = 'p'
|
||||
Color = clBtnFace
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'MS Sans Serif'
|
||||
Font.Style = []
|
||||
ClientHeight = 574
|
||||
ClientWidth = 687
|
||||
FormStyle = fsMDIForm
|
||||
KeyPreview = True
|
||||
Menu = mnuFrame
|
||||
OldCreateOrder = True
|
||||
Visible = True
|
||||
|
@ -21,15 +14,18 @@ object frmFrame: TfrmFrame
|
|||
OnCreate = FormCreate
|
||||
OnDestroy = FormDestroy
|
||||
OnHelp = FormHelp
|
||||
OnKeyDown = FormKeyDown
|
||||
OnResize = FormResize
|
||||
ExplicitLeft = 196
|
||||
ExplicitTop = 119
|
||||
ExplicitWidth = 695
|
||||
ExplicitHeight = 620
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
object pnlNoPatientSelected: TPanel
|
||||
object pnlNoPatientSelected: TPanel [0]
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 676
|
||||
Height = 433
|
||||
Width = 687
|
||||
Height = 574
|
||||
Align = alClient
|
||||
Caption = 'No patient is currently selected'
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
|
@ -41,35 +37,38 @@ object frmFrame: TfrmFrame
|
|||
TabOrder = 1
|
||||
Visible = False
|
||||
end
|
||||
object pnlPatientSelected: TPanel
|
||||
object pnlPatientSelected: TPanel [1]
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 676
|
||||
Height = 433
|
||||
Width = 687
|
||||
Height = 574
|
||||
Align = alClient
|
||||
TabOrder = 0
|
||||
object bvlPageTop: TBevel
|
||||
Left = 1
|
||||
Top = 41
|
||||
Width = 674
|
||||
Width = 685
|
||||
Height = 1
|
||||
Align = alTop
|
||||
ExplicitWidth = 674
|
||||
end
|
||||
object pnlToolbar: TPanel
|
||||
Left = 1
|
||||
Top = 1
|
||||
Width = 674
|
||||
Width = 685
|
||||
Height = 40
|
||||
Align = alTop
|
||||
BevelOuter = bvNone
|
||||
Caption = 'object pnlRemoteData: TKeyClickPanel'
|
||||
TabOrder = 0
|
||||
object bvlToolTop: TBevel
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 674
|
||||
Width = 685
|
||||
Height = 1
|
||||
Align = alTop
|
||||
Style = bsRaised
|
||||
ExplicitWidth = 674
|
||||
end
|
||||
object pnlCCOW: TPanel
|
||||
Left = 0
|
||||
|
@ -129,7 +128,7 @@ object frmFrame: TfrmFrame
|
|||
Color = clInfoBk
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clInfoBk
|
||||
Font.Height = -8
|
||||
Font.Height = -11
|
||||
Font.Name = 'MS Sans Serif'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
|
@ -164,8 +163,8 @@ object frmFrame: TfrmFrame
|
|||
object lblPtSSN: TStaticText
|
||||
Left = 6
|
||||
Top = 19
|
||||
Width = 64
|
||||
Height = 17
|
||||
Width = 4
|
||||
Height = 4
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clInfoText
|
||||
Font.Height = -11
|
||||
|
@ -180,10 +179,10 @@ object frmFrame: TfrmFrame
|
|||
OnMouseUp = pnlPatientMouseUp
|
||||
end
|
||||
object lblPtAge: TStaticText
|
||||
Left = 176
|
||||
Left = 175
|
||||
Top = 19
|
||||
Width = 3
|
||||
Height = 6
|
||||
Width = 4
|
||||
Height = 4
|
||||
Alignment = taRightJustify
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clInfoText
|
||||
|
@ -202,7 +201,7 @@ object frmFrame: TfrmFrame
|
|||
object pnlVisit: TKeyClickPanel
|
||||
Left = 226
|
||||
Top = 1
|
||||
Width = 168
|
||||
Width = 119
|
||||
Height = 39
|
||||
Hint = 'Click to change provider/location.'
|
||||
Align = alLeft
|
||||
|
@ -220,8 +219,6 @@ object frmFrame: TfrmFrame
|
|||
OnClick = pnlVisitClick
|
||||
OnEnter = pnlPrimaryCareEnter
|
||||
OnExit = pnlPrimaryCareExit
|
||||
OnMouseDown = pnlVisitMouseDown
|
||||
OnMouseUp = pnlVisitMouseUp
|
||||
object lblPtLocation: TStaticText
|
||||
Left = 6
|
||||
Top = 4
|
||||
|
@ -238,8 +235,6 @@ object frmFrame: TfrmFrame
|
|||
ShowHint = False
|
||||
TabOrder = 0
|
||||
OnClick = pnlVisitClick
|
||||
OnMouseDown = pnlVisitMouseDown
|
||||
OnMouseUp = pnlVisitMouseUp
|
||||
end
|
||||
object lblPtProvider: TStaticText
|
||||
Left = 6
|
||||
|
@ -256,14 +251,12 @@ object frmFrame: TfrmFrame
|
|||
ShowHint = False
|
||||
TabOrder = 1
|
||||
OnClick = pnlVisitClick
|
||||
OnMouseDown = pnlVisitMouseDown
|
||||
OnMouseUp = pnlVisitMouseUp
|
||||
end
|
||||
end
|
||||
object pnlPrimaryCare: TKeyClickPanel
|
||||
Left = 394
|
||||
Left = 345
|
||||
Top = 1
|
||||
Width = 31
|
||||
Width = 67
|
||||
Height = 39
|
||||
Hint = 'Primary Care Team / Primary Care Provider'
|
||||
Align = alClient
|
||||
|
@ -320,80 +313,8 @@ object frmFrame: TfrmFrame
|
|||
OnMouseUp = pnlPrimaryCareMouseUp
|
||||
end
|
||||
end
|
||||
object pnlCIRN: TKeyClickPanel
|
||||
Left = 520
|
||||
Top = 1
|
||||
Width = 49
|
||||
Height = 39
|
||||
Align = alRight
|
||||
BevelWidth = 2
|
||||
Caption = 'Remote Data'
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clBtnFace
|
||||
Font.Height = -11
|
||||
Font.Name = 'MS Sans Serif'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
ParentShowHint = False
|
||||
ShowHint = True
|
||||
TabOrder = 5
|
||||
OnClick = pnlCIRNClick
|
||||
OnEnter = pnlPrimaryCareEnter
|
||||
OnExit = pnlPrimaryCareExit
|
||||
OnMouseDown = pnlCIRNMouseDown
|
||||
OnMouseUp = pnlCIRNMouseUp
|
||||
object lblCIRN: TLabel
|
||||
Left = 2
|
||||
Top = 2
|
||||
Width = 45
|
||||
Height = 13
|
||||
Align = alTop
|
||||
Alignment = taCenter
|
||||
Caption = 'Remote'
|
||||
Enabled = False
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clBtnFace
|
||||
Font.Height = -8
|
||||
Font.Name = 'MS Sans Serif'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
OnClick = pnlCIRNClick
|
||||
end
|
||||
object lblCIRNData: TLabel
|
||||
Left = 2
|
||||
Top = 15
|
||||
Width = 45
|
||||
Height = 13
|
||||
Align = alTop
|
||||
Alignment = taCenter
|
||||
Caption = 'Data'
|
||||
Enabled = False
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clBtnFace
|
||||
Font.Height = -8
|
||||
Font.Name = 'MS Sans Serif'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
OnClick = pnlCIRNClick
|
||||
end
|
||||
object lblCIRNAvail: TLabel
|
||||
Left = 2
|
||||
Top = 28
|
||||
Width = 45
|
||||
Height = 9
|
||||
Align = alClient
|
||||
Alignment = taCenter
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clBtnFace
|
||||
Font.Height = -8
|
||||
Font.Name = 'MS Sans Serif'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
OnClick = pnlCIRNClick
|
||||
end
|
||||
end
|
||||
object pnlReminders: TKeyClickPanel
|
||||
Left = 569
|
||||
Left = 580
|
||||
Top = 1
|
||||
Width = 35
|
||||
Height = 39
|
||||
|
@ -435,7 +356,7 @@ object frmFrame: TfrmFrame
|
|||
end
|
||||
end
|
||||
object pnlFlag: TKeyClickPanel
|
||||
Left = 485
|
||||
Left = 472
|
||||
Top = 1
|
||||
Width = 35
|
||||
Height = 39
|
||||
|
@ -472,10 +393,12 @@ object frmFrame: TfrmFrame
|
|||
OnClick = pnlFlagClick
|
||||
OnMouseDown = pnlFlagMouseDown
|
||||
OnMouseUp = pnlFlagMouseUp
|
||||
ExplicitWidth = 25
|
||||
ExplicitHeight = 13
|
||||
end
|
||||
end
|
||||
object pnlPostings: TKeyClickPanel
|
||||
Left = 604
|
||||
Left = 615
|
||||
Top = 1
|
||||
Width = 70
|
||||
Height = 39
|
||||
|
@ -540,7 +463,7 @@ object frmFrame: TfrmFrame
|
|||
end
|
||||
end
|
||||
object paVAA: TKeyClickPanel
|
||||
Left = 425
|
||||
Left = 412
|
||||
Top = 1
|
||||
Width = 60
|
||||
Height = 39
|
||||
|
@ -574,7 +497,7 @@ object frmFrame: TfrmFrame
|
|||
end
|
||||
object laMHV: TButton
|
||||
Left = 0
|
||||
Top = 1
|
||||
Top = 0
|
||||
Width = 59
|
||||
Height = 18
|
||||
Hint = 'Click to display MHV data'
|
||||
|
@ -586,11 +509,122 @@ object frmFrame: TfrmFrame
|
|||
OnClick = laMHVClick
|
||||
end
|
||||
end
|
||||
object pnlRemoteData: TKeyClickPanel
|
||||
Left = 507
|
||||
Top = 1
|
||||
Width = 73
|
||||
Height = 39
|
||||
Align = alRight
|
||||
BevelWidth = 2
|
||||
Caption = 'Remote Data'
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clBtnFace
|
||||
Font.Height = -11
|
||||
Font.Name = 'MS Sans Serif'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
ParentShowHint = False
|
||||
ShowHint = True
|
||||
TabOrder = 5
|
||||
TabStop = True
|
||||
OnClick = pnlCIRNClick
|
||||
OnEnter = pnlPrimaryCareEnter
|
||||
OnExit = pnlPrimaryCareExit
|
||||
OnMouseDown = pnlCIRNMouseDown
|
||||
OnMouseUp = pnlCIRNMouseUp
|
||||
object pnlVistaWeb: TKeyClickPanel
|
||||
Left = 2
|
||||
Top = 2
|
||||
Width = 69
|
||||
Height = 18
|
||||
Hint = 'Click to open VistaWeb'
|
||||
Align = alTop
|
||||
BevelWidth = 2
|
||||
Caption = 'VistaWeb'
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clBtnFace
|
||||
Font.Height = -11
|
||||
Font.Name = 'MS Sans Serif'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
ParentShowHint = False
|
||||
ShowHint = True
|
||||
TabOrder = 0
|
||||
TabStop = True
|
||||
OnClick = pnlVistaWebClick
|
||||
OnEnter = pnlPrimaryCareEnter
|
||||
OnExit = pnlPrimaryCareExit
|
||||
OnMouseDown = pnlVistaWebMouseDown
|
||||
OnMouseUp = pnlVistaWebMouseUp
|
||||
object lblVistaWeb: TLabel
|
||||
Left = 2
|
||||
Top = 2
|
||||
Width = 65
|
||||
Height = 14
|
||||
Align = alClient
|
||||
Alignment = taCenter
|
||||
Caption = 'VistaWeb'
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clInfoText
|
||||
Font.Height = -8
|
||||
Font.Name = 'MS Sans Serif'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
Layout = tlCenter
|
||||
OnClick = pnlVistaWebClick
|
||||
ExplicitWidth = 46
|
||||
ExplicitHeight = 13
|
||||
end
|
||||
end
|
||||
object pnlCIRN: TKeyClickPanel
|
||||
Left = 2
|
||||
Top = 20
|
||||
Width = 69
|
||||
Height = 17
|
||||
Align = alClient
|
||||
BevelWidth = 2
|
||||
Caption = 'Remote Data'
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clBtnFace
|
||||
Font.Height = -11
|
||||
Font.Name = 'MS Sans Serif'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
ParentShowHint = False
|
||||
ShowHint = True
|
||||
TabOrder = 1
|
||||
TabStop = True
|
||||
OnClick = pnlCIRNClick
|
||||
OnEnter = pnlPrimaryCareEnter
|
||||
OnExit = pnlPrimaryCareExit
|
||||
OnMouseDown = pnlCIRNMouseDown
|
||||
OnMouseUp = pnlCIRNMouseUp
|
||||
object lblCIRN: TLabel
|
||||
Left = 2
|
||||
Top = 2
|
||||
Width = 65
|
||||
Height = 13
|
||||
Align = alClient
|
||||
Alignment = taCenter
|
||||
Caption = 'Remote Data'
|
||||
Enabled = False
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clBtnFace
|
||||
Font.Height = -8
|
||||
Font.Name = 'MS Sans Serif'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
Layout = tlCenter
|
||||
OnClick = pnlCIRNClick
|
||||
ExplicitWidth = 63
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
object stsArea: TStatusBar
|
||||
Left = 1
|
||||
Top = 411
|
||||
Width = 674
|
||||
Top = 552
|
||||
Width = 685
|
||||
Height = 21
|
||||
Panels = <
|
||||
item
|
||||
|
@ -614,14 +648,11 @@ object frmFrame: TfrmFrame
|
|||
end>
|
||||
PopupMenu = popAlerts
|
||||
SizeGrip = False
|
||||
OnMouseDown = stsAreaMouseDown
|
||||
OnMouseUp = stsAreaMouseUp
|
||||
OnDrawPanel = stsAreaDrawPanel
|
||||
end
|
||||
object tabPage: TTabControl
|
||||
Left = 1
|
||||
Top = 389
|
||||
Width = 674
|
||||
Top = 530
|
||||
Width = 685
|
||||
Height = 22
|
||||
Align = alBottom
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
|
@ -638,8 +669,8 @@ object frmFrame: TfrmFrame
|
|||
object pnlPage: TPanel
|
||||
Left = 1
|
||||
Top = 42
|
||||
Width = 674
|
||||
Height = 347
|
||||
Width = 685
|
||||
Height = 488
|
||||
Align = alClient
|
||||
BevelOuter = bvNone
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
|
@ -682,6 +713,106 @@ object frmFrame: TfrmFrame
|
|||
end
|
||||
end
|
||||
end
|
||||
inherited amgrMain: TVA508AccessibilityManager
|
||||
Left = 8
|
||||
Top = 48
|
||||
Data = (
|
||||
(
|
||||
'Component = pnlNoPatientSelected'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = pnlPatientSelected'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = pnlToolbar'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = pnlCCOW'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = pnlPatient'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = lblPtName'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = lblPtSSN'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = lblPtAge'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = pnlVisit'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = lblPtLocation'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = lblPtProvider'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = pnlPrimaryCare'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = lblPtCare'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = lblPtAttending'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = pnlReminders'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = anmtRemSearch'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = pnlFlag'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = pnlPostings'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = lblPtPostings'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = lblPtCWAD'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = paVAA'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = laVAA2'
|
||||
'Property = Hint'
|
||||
'Status = stsOK')
|
||||
(
|
||||
'Component = laMHV'
|
||||
'Property = Hint'
|
||||
'Status = stsOK')
|
||||
(
|
||||
'Component = stsArea'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = tabPage'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = pnlPage'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = lstCIRNLocations'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = frmFrame'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = pnlRemoteData'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = pnlVistaWeb'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = pnlCIRN'
|
||||
'Status = stsDefault'))
|
||||
end
|
||||
object mnuFrame: TMainMenu
|
||||
Left = 180
|
||||
Top = 128
|
||||
|
@ -818,12 +949,6 @@ object frmFrame: TfrmFrame
|
|||
RadioItem = True
|
||||
OnClick = mnuFontSizeClick
|
||||
end
|
||||
object mnu24pt1: TMenuItem
|
||||
Tag = 24
|
||||
Caption = '24 pt'
|
||||
RadioItem = True
|
||||
OnClick = mnuFontSizeClick
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
|
@ -1028,14 +1153,17 @@ object frmFrame: TfrmFrame
|
|||
Top = 200
|
||||
object mnuAlertContinue: TMenuItem
|
||||
Caption = 'Continue'
|
||||
ShortCut = 16451
|
||||
OnClick = mnuFileNextClick
|
||||
end
|
||||
object mnuAlertForward: TMenuItem
|
||||
Caption = 'Forward'
|
||||
ShortCut = 16454
|
||||
OnClick = mnuAlertForwardClick
|
||||
end
|
||||
object mnuAlertRenew: TMenuItem
|
||||
Caption = 'Renew'
|
||||
ShortCut = 16466
|
||||
OnClick = mnuAlertRenewClick
|
||||
end
|
||||
end
|
||||
|
@ -1045,4 +1173,10 @@ object frmFrame: TfrmFrame
|
|||
Left = 336
|
||||
Top = 256
|
||||
end
|
||||
object compAccessTabPage: TVA508ComponentAccessibility
|
||||
Component = tabPage
|
||||
OnCaptionQuery = compAccessTabPageCaptionQuery
|
||||
Left = 56
|
||||
Top = 48
|
||||
end
|
||||
end
|
||||
|
|
File diff suppressed because it is too large
Load Diff
|
@ -0,0 +1,142 @@
|
|||
inherited frmGraphData: TfrmGraphData
|
||||
Left = 0
|
||||
Top = 0
|
||||
Caption = 'GraphData - displayed only for testing'
|
||||
ClientHeight = 582
|
||||
ClientWidth = 782
|
||||
Font.Name = 'Tahoma'
|
||||
WindowState = wsMaximized
|
||||
OnClose = FormClose
|
||||
OnCreate = FormCreate
|
||||
OnDestroy = FormDestroy
|
||||
OnShow = btnRefreshClick
|
||||
ExplicitWidth = 790
|
||||
ExplicitHeight = 609
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
object pnlData: TPanel [0]
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 782
|
||||
Height = 504
|
||||
Align = alClient
|
||||
TabOrder = 0
|
||||
end
|
||||
object pnlInfo: TPanel [1]
|
||||
Left = 0
|
||||
Top = 504
|
||||
Width = 782
|
||||
Height = 78
|
||||
Align = alBottom
|
||||
TabOrder = 1
|
||||
object lblInfo: TLabel
|
||||
Left = 14
|
||||
Top = 5
|
||||
Width = 162
|
||||
Height = 13
|
||||
Caption = 'Resize form before clicking button'
|
||||
end
|
||||
object lblInfoPersonal: TLabel
|
||||
Left = 184
|
||||
Top = 19
|
||||
Width = 41
|
||||
Height = 13
|
||||
Alignment = taRightJustify
|
||||
Caption = 'Personal'
|
||||
end
|
||||
object lblInfoPublic: TLabel
|
||||
Left = 198
|
||||
Top = 33
|
||||
Width = 27
|
||||
Height = 13
|
||||
Alignment = taRightJustify
|
||||
Caption = 'Public'
|
||||
end
|
||||
object lblPublic: TLabel
|
||||
Left = 232
|
||||
Top = 33
|
||||
Width = 3
|
||||
Height = 13
|
||||
end
|
||||
object lblPersonal: TLabel
|
||||
Left = 231
|
||||
Top = 19
|
||||
Width = 3
|
||||
Height = 13
|
||||
end
|
||||
object lblCurrent: TLabel
|
||||
Left = 232
|
||||
Top = 5
|
||||
Width = 3
|
||||
Height = 13
|
||||
end
|
||||
object lblInfoCurrent: TLabel
|
||||
Left = 188
|
||||
Top = 5
|
||||
Width = 37
|
||||
Height = 13
|
||||
Alignment = taRightJustify
|
||||
Caption = 'Current'
|
||||
end
|
||||
object btnData: TButton
|
||||
Left = 14
|
||||
Top = 22
|
||||
Width = 75
|
||||
Height = 25
|
||||
Caption = 'TStringLists'
|
||||
TabOrder = 0
|
||||
OnClick = btnDataClick
|
||||
end
|
||||
object btnRefresh: TButton
|
||||
Left = 102
|
||||
Top = 22
|
||||
Width = 75
|
||||
Height = 25
|
||||
Caption = 'Refresh'
|
||||
Enabled = False
|
||||
TabOrder = 1
|
||||
OnClick = btnRefreshClick
|
||||
end
|
||||
object btnTesting: TButton
|
||||
Left = 14
|
||||
Top = 50
|
||||
Width = 75
|
||||
Height = 25
|
||||
Caption = 'Testing'
|
||||
TabOrder = 2
|
||||
OnClick = btnTestingClick
|
||||
end
|
||||
object memTesting: TMemo
|
||||
Left = 120
|
||||
Top = 48
|
||||
Width = 649
|
||||
Height = 27
|
||||
ScrollBars = ssVertical
|
||||
TabOrder = 3
|
||||
end
|
||||
end
|
||||
inherited amgrMain: TVA508AccessibilityManager
|
||||
Data = (
|
||||
(
|
||||
'Component = pnlData'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = pnlInfo'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = btnData'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = btnRefresh'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = frmGraphData'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = btnTesting'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = memTesting'
|
||||
'Status = stsDefault'))
|
||||
end
|
||||
end
|
|
@ -0,0 +1,737 @@
|
|||
unit fGraphData;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, StdCtrls, ExtCtrls, ORFn, fBase508Form, VA508AccessibilityManager;
|
||||
|
||||
type
|
||||
TfrmGraphData = class(TfrmBase508Form)
|
||||
lblCurrent: TLabel;
|
||||
lblInfo: TLabel;
|
||||
lblInfoCurrent: TLabel;
|
||||
lblInfoPersonal: TLabel;
|
||||
lblInfoPublic: TLabel;
|
||||
lblPersonal: TLabel;
|
||||
lblPublic: TLabel;
|
||||
pnlData: TPanel;
|
||||
pnlInfo: TPanel;
|
||||
btnData: TButton;
|
||||
btnRefresh: TButton;
|
||||
btnTesting: TButton;
|
||||
memTesting: TMemo;
|
||||
|
||||
procedure FormCreate(Sender: TObject);
|
||||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
procedure FormDestroy(Sender: TObject);
|
||||
|
||||
procedure btnDataClick(Sender: TObject);
|
||||
procedure btnRefreshClick(Sender: TObject);
|
||||
procedure btnTestingClick(Sender: TObject);
|
||||
private
|
||||
procedure ClearMemos;
|
||||
procedure FillMemos;
|
||||
procedure MakeMemos(aName: string; aList: TStrings; aTag, left, top, width, height: integer);
|
||||
public
|
||||
procedure ClearGtsl;
|
||||
procedure ClearPtData;
|
||||
procedure FreeGtsl;
|
||||
procedure MakeGtsl;
|
||||
procedure MakeUserSettings;
|
||||
procedure MakeGraphActivity;
|
||||
|
||||
function AllowContextChange(var WhyNot: string): Boolean;
|
||||
end;
|
||||
|
||||
var
|
||||
frmGraphData: TfrmGraphData;
|
||||
GtslData: TStringList;
|
||||
GtslItems: TStringList;
|
||||
GtslTypes: TStringList;
|
||||
GtslAllTypes: TStringList;
|
||||
GtslAllViews: TStringList;
|
||||
GtslTestSpec: TStringList;
|
||||
GtslDrugClass: TStringList;
|
||||
GtslViews: TStringList;
|
||||
GtslCheck: TStringList;
|
||||
GtslNonNum: TStringList;
|
||||
GtslNonNumDates: TStringList;
|
||||
GtslScratchSwap: TStringList;
|
||||
GtslScratchTemp: TStringList;
|
||||
GtslScratchLab: TStringList;
|
||||
GtslSpec1: TStringList;
|
||||
GtslSpec2: TStringList;
|
||||
GtslSpec3: TStringList;
|
||||
GtslSpec4: TStringList;
|
||||
GtslMultiSpec: TStringList;
|
||||
GtslTempCheck: TStringList;
|
||||
GtslTemp: TStringList;
|
||||
GtslSelCopyTop: TStringList;
|
||||
GtslSelCopyBottom: TStringList;
|
||||
GtslZoomHistoryFloat: TStringList;
|
||||
GtslZoomHistoryReport: TStringList;
|
||||
GtslSelPrevTopFloat: TStringList;
|
||||
GtslSelPrevTopReport: TStringList;
|
||||
GtslSelPrevBottomFloat: TStringList;
|
||||
GtslSelPrevBottomReport: TStringList;
|
||||
GtslViewPersonal: TStringList;
|
||||
GtslViewPublic: TStringList;
|
||||
GtslLabGroup: TStringList;
|
||||
|
||||
//procedure GraphDataForm; // perhaps use this to create only when displayed??
|
||||
|
||||
procedure GraphDataOnUser;
|
||||
procedure GraphDataOnPatient(var allitems, alldata: boolean);
|
||||
|
||||
function GetATestGroup(testgroup: Integer; userx: int64): TStrings;
|
||||
function GetCurrentSetting: string;
|
||||
function GetDefaultInpatientDate: string;
|
||||
function GetDefaultOutpatientDate: string;
|
||||
function GetGraphProfiles(profiles, permission: string; ext: integer; userx: int64): TStrings;
|
||||
function GetGraphStatus: string;
|
||||
function GetOldDFN: string;
|
||||
function GetPersonalSetting: string;
|
||||
function GetPublicSetting: string;
|
||||
function GraphPublicEditor: boolean;
|
||||
function GraphTurboOn: boolean;
|
||||
procedure SetCurrentSetting(aString: string);
|
||||
procedure SetDefaultInpatientDate(aString: string);
|
||||
procedure SetDefaultOutpatientDate(aString: string);
|
||||
procedure SetGraphStatus(aString: string);
|
||||
procedure SetOldDFN(aString: string);
|
||||
procedure SetPersonalSetting(aString: string);
|
||||
procedure SetPublicSetting(aString: string);
|
||||
|
||||
implementation
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
uses
|
||||
uCore, rGraphs, uGraphs;
|
||||
|
||||
var
|
||||
FGraphActivity: TGraphActivity;
|
||||
|
||||
{procedure GraphDataForm; // not used - perhaps with separate object for data
|
||||
var
|
||||
frmGraphData: TfrmGraphData;
|
||||
begin
|
||||
frmGraphData := TfrmGraphData.Create(Application);
|
||||
try
|
||||
with frmGraphData do
|
||||
begin
|
||||
ResizeAnchoredFormToFont(frmGraphData);
|
||||
ShowModal;
|
||||
end;
|
||||
finally
|
||||
frmGraphData.Release;
|
||||
end;
|
||||
end;}
|
||||
|
||||
procedure TfrmGraphData.FormCreate(Sender: TObject);
|
||||
begin // called from fFrame after user signon
|
||||
if GtslData <> nil then
|
||||
exit; // only create one time
|
||||
MakeGraphActivity;
|
||||
MakeUserSettings;
|
||||
MakeGtsl;
|
||||
end;
|
||||
|
||||
procedure TfrmGraphData.MakeGraphActivity;
|
||||
begin
|
||||
FGraphActivity := TGraphActivity.Create;
|
||||
with FGraphActivity do
|
||||
begin
|
||||
CurrentSetting := '';
|
||||
DefaultInpatientDate := '';
|
||||
DefaultOutpatientDate := '';
|
||||
OldDFN := '';
|
||||
PublicSetting := '';
|
||||
PersonalSetting := '';
|
||||
PublicEditor := false;
|
||||
Status := '';
|
||||
TurboOn := true;
|
||||
Cache := true;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmGraphData.MakeUserSettings;
|
||||
var
|
||||
setting, turbo: string;
|
||||
aList: TStrings;
|
||||
begin
|
||||
aList := TStringList.Create;
|
||||
FastAssign(rpcGetGraphSettings, aList);
|
||||
if aList.Count > 0 then
|
||||
begin
|
||||
setting := aList[0];
|
||||
FGraphActivity.PublicSetting := aList[1];
|
||||
FGraphActivity.Cache := not (Piece(aList[2], '^', 1) = '-1');
|
||||
if length(setting) > 0 then
|
||||
begin // maxselectmax - system max selection limit
|
||||
SetPiece(setting, '|', 8, Piece(FGraphActivity.PublicSetting, '|', 8));
|
||||
turbo := Piece(FGraphActivity.PublicSetting, '|', 6);
|
||||
if (turbo = '0') or (not FGraphActivity.Cache) then // deactivate users if public turbo (6th piece) is off
|
||||
begin
|
||||
SetPiece(setting, '|', 6, '0');
|
||||
FGraphActivity.TurboOn := false;
|
||||
end
|
||||
else
|
||||
FGraphActivity.TurboOn := true;
|
||||
FGraphActivity.PersonalSetting := setting;
|
||||
end
|
||||
else
|
||||
FGraphActivity.PersonalSetting := FGraphActivity.PublicSetting;
|
||||
FGraphActivity.CurrentSetting := FGraphActivity.PersonalSetting;
|
||||
FGraphActivity.DefaultInpatientDate := Piece(FGraphActivity.PersonalSetting, '|', 10);
|
||||
FGraphActivity.DefaultOutpatientDate := Piece(FGraphActivity.PersonalSetting, '|', 9);
|
||||
FGraphActivity.PublicEditor := rpcPublicEdit; // use this as PublicEdit permission for user
|
||||
end;
|
||||
FreeAndNil(aList);
|
||||
end;
|
||||
|
||||
procedure GraphDataOnUser;
|
||||
var // called from fFrame after this form is created
|
||||
i: integer; // gets static info
|
||||
dfntype, listline: string;
|
||||
begin
|
||||
if GtslData = nil then
|
||||
exit; // do not setup if graphing is off
|
||||
FastAssign(rpcGetTypes('0', false), GtslAllTypes);
|
||||
for i := 0 to GtslAllTypes.Count - 1 do // uppercase all filetypes
|
||||
begin
|
||||
listline := GtslAllTypes[i];
|
||||
dfntype := UpperCase(Piece(listline, '^', 1));
|
||||
SetPiece(listline, '^', 1, dfntype);
|
||||
GtslAllTypes[i] := listline;
|
||||
end;
|
||||
FastAssign(rpcGetTestSpec, GtslTestSpec);
|
||||
FastAssign(rpcGetViews(VIEW_PUBLIC, 0), GtslAllViews);
|
||||
FastAddStrings(rpcGetViews(VIEW_PERSONAL, User.DUZ), GtslAllViews);
|
||||
FastAddStrings(rpcGetViews(VIEW_LABS, User.DUZ), GtslAllViews);
|
||||
end;
|
||||
|
||||
procedure TfrmGraphData.ClearPtData;
|
||||
var // called when patient is selected
|
||||
oldDFN, faststatus: string;
|
||||
begin
|
||||
inherited;
|
||||
if FGraphActivity.CurrentSetting = '' then
|
||||
exit; // if graphing is turned off, don't process
|
||||
ClearMemos;
|
||||
ClearGtsl;
|
||||
oldDFN := FGraphActivity.OldDFN; // cleanup any previous patient cache
|
||||
FastAssign(rpcGetTypes(Patient.DFN, false), GtslTypes);
|
||||
faststatus := rpcFastTask(Patient.DFN, oldDFN);
|
||||
FGraphActivity.Cache := (faststatus = '1');
|
||||
FGraphActivity.OldDFN := Patient.DFN;
|
||||
end;
|
||||
|
||||
procedure GraphDataOnPatient(var allitems, alldata: boolean);
|
||||
begin
|
||||
// need to call this when patient is selected
|
||||
end;
|
||||
|
||||
function TfrmGraphData.AllowContextChange(var WhyNot: string): Boolean;
|
||||
begin
|
||||
Result := true; // perhaps add logic in the future
|
||||
end;
|
||||
|
||||
//----------------------------- Gtsl* are tstringlists used to hold data - global in scope
|
||||
|
||||
procedure TfrmGraphData.MakeGtsl;
|
||||
begin
|
||||
GtslData := TStringList.Create;
|
||||
GtslItems := TStringList.Create;
|
||||
GtslTypes := TStringList.Create;
|
||||
GtslAllTypes := TStringList.Create;
|
||||
GtslAllViews := TStringList.Create;
|
||||
GtslTestSpec := TStringList.Create;
|
||||
GtslDrugClass := TStringList.Create;
|
||||
GtslViews := TStringList.Create;
|
||||
GtslCheck := TStringList.Create;
|
||||
GtslNonNum := TStringList.Create;
|
||||
GtslNonNumDates := TStringList.Create;
|
||||
GtslScratchSwap := TStringList.Create;
|
||||
GtslScratchTemp := TStringList.Create;
|
||||
GtslScratchLab := TStringList.Create;
|
||||
GtslSpec1 := TStringList.Create;
|
||||
GtslSpec2 := TStringList.Create;
|
||||
GtslSpec3 := TStringList.Create;
|
||||
GtslSpec4 := TStringList.Create;
|
||||
GtslMultiSpec := TStringList.Create;
|
||||
GtslTempCheck := TStringList.Create;
|
||||
GtslTemp := TStringList.Create;
|
||||
GtslSelCopyTop := TStringList.Create;
|
||||
GtslSelCopyBottom := TStringList.Create;
|
||||
GtslZoomHistoryFloat := TStringList.Create;
|
||||
GtslZoomHistoryReport := TStringList.Create;
|
||||
GtslSelPrevTopFloat := TStringList.Create;
|
||||
GtslSelPrevTopReport := TStringList.Create;
|
||||
GtslSelPrevBottomFloat := TStringList.Create;
|
||||
GtslSelPrevBottomReport := TStringList.Create;
|
||||
GtslViewPersonal := TStringList.Create;
|
||||
GtslViewPublic := TStringList.Create;
|
||||
GtslLabGroup := TStringList.Create;
|
||||
end;
|
||||
|
||||
procedure TfrmGraphData.ClearGtsl;
|
||||
begin
|
||||
if GtslData = nil then exit;
|
||||
//GtslAllTypes.Clear; // these types are not patient specific
|
||||
//GtslTestSpec.Clear;
|
||||
//GtslAllViews.Clear;
|
||||
GtslData.Clear;
|
||||
GtslItems.Clear;
|
||||
GtslTypes.Clear;
|
||||
GtslDrugClass.Clear;
|
||||
GtslViews.Clear;
|
||||
GtslCheck.Clear;
|
||||
GtslNonNum.Clear;
|
||||
GtslNonNumDates.Clear;
|
||||
GtslScratchSwap.Clear;
|
||||
GtslScratchTemp.Clear;
|
||||
GtslScratchLab.Clear;
|
||||
GtslSpec1.Clear;
|
||||
GtslSpec2.Clear;
|
||||
GtslSpec3.Clear;
|
||||
GtslSpec4.Clear;
|
||||
GtslMultiSpec.Clear;
|
||||
GtslTempCheck.Clear;
|
||||
GtslTemp.Clear;
|
||||
GtslSelCopyTop.Clear;
|
||||
GtslSelCopyBottom.Clear;
|
||||
GtslZoomHistoryFloat.Clear;
|
||||
GtslZoomHistoryReport.Clear;
|
||||
GtslSelPrevTopFloat.Clear;
|
||||
GtslSelPrevTopReport.Clear;
|
||||
GtslSelPrevBottomFloat.Clear;
|
||||
GtslSelPrevBottomReport.Clear;
|
||||
GtslViewPersonal.Clear;
|
||||
GtslViewPublic.Clear;
|
||||
GtslLabGroup.Clear;
|
||||
end;
|
||||
|
||||
procedure TfrmGraphData.FreeGtsl;
|
||||
begin
|
||||
FreeAndNil(GtslData);
|
||||
FreeAndNil(GtslItems);
|
||||
FreeAndNil(GtslTypes);
|
||||
FreeAndNil(GtslAllTypes);
|
||||
FreeAndNil(GtslAllViews);
|
||||
FreeAndNil(GtslTestSpec);
|
||||
FreeAndNil(GtslDrugClass);
|
||||
FreeAndNil(GtslNonNum);
|
||||
FreeAndNil(GtslNonNumDates);
|
||||
FreeAndNil(GtslScratchSwap);
|
||||
FreeAndNil(GtslScratchTemp);
|
||||
FreeAndNil(GtslScratchLab);
|
||||
FreeAndNil(GtslSpec1);
|
||||
FreeAndNil(GtslSpec2);
|
||||
FreeAndNil(GtslSpec3);
|
||||
FreeAndNil(GtslSpec4);
|
||||
FreeAndNil(GtslMultiSpec);
|
||||
FreeAndNil(GtslTempCheck);
|
||||
FreeAndNil(GtslSelCopyTop);
|
||||
FreeAndNil(GtslSelCopyBottom);
|
||||
FreeAndNil(GtslZoomHistoryFloat);
|
||||
FreeAndNil(GtslZoomHistoryReport);
|
||||
FreeAndNil(GtslSelPrevTopFloat);
|
||||
FreeAndNil(GtslSelPrevTopReport);
|
||||
FreeAndNil(GtslSelPrevBottomFloat);
|
||||
FreeAndNil(GtslSelPrevBottomReport);
|
||||
FreeAndNil(GtslViewPersonal);
|
||||
FreeAndNil(GtslViewPublic);
|
||||
FreeAndNil(GtslLabGroup);
|
||||
end;
|
||||
|
||||
//----------------------------- displays when testing
|
||||
|
||||
procedure TfrmGraphData.btnDataClick(Sender: TObject);
|
||||
var
|
||||
left, top, width, height: integer;
|
||||
begin
|
||||
height := pnlData.Height div 8;
|
||||
height := height - lblInfo.Height;
|
||||
top := lblInfo.Height;
|
||||
left := 1;
|
||||
width := pnlData.Width - 2;
|
||||
MakeMemos('GtslData', GtslData, 1, left, top, width, height);
|
||||
top := top + height + lblInfo.Height;
|
||||
MakeMemos('GtslItems', GtslItems, 2, left, top, width, height);
|
||||
top := top + height + lblInfo.Height;
|
||||
MakeMemos('GtslTypes', GtslTypes, 3, left, top, width, height);
|
||||
width := width div 6;
|
||||
top := top + height + lblInfo.Height;
|
||||
left := 1;
|
||||
MakeMemos('GtslAllTypes', GtslAllTypes, 4, left, top, width, height);
|
||||
left := left + width;
|
||||
MakeMemos('GtslTestSpec', GtslTestSpec, 5, left, top, width, height);
|
||||
left := left + width;
|
||||
MakeMemos('GtslDrugClass', GtslDrugClass, 6, left, top, width, height);
|
||||
left := left + width;
|
||||
MakeMemos('GtslViews', GtslViews, 7, left, top, width, height);
|
||||
left := left + width;
|
||||
MakeMemos('GtslCheck', GtslCheck, 8, left, top, width, height);
|
||||
left := left + width;
|
||||
MakeMemos('GtslNonNum', GtslNonNum, 9, left, top, width, height);
|
||||
top := top + height + lblInfo.Height;
|
||||
left := 1;
|
||||
MakeMemos('GtslNonNumDates', GtslNonNumDates, 10, left, top, width, height);
|
||||
left := left + width;
|
||||
MakeMemos('GtslScratchSwap', GtslScratchSwap, 11, left, top, width, height);
|
||||
left := left + width;
|
||||
MakeMemos('GtslScratchTemp', GtslScratchTemp, 12, left, top, width, height);
|
||||
left := left + width;
|
||||
MakeMemos('GtslScratchLab', GtslScratchLab, 13, left, top, width, height);
|
||||
left := left + width;
|
||||
MakeMemos('GtslSpec1', GtslSpec1, 14, left, top, width, height);
|
||||
left := left + width;
|
||||
MakeMemos('GtslSpec2', GtslSpec2, 15, left, top, width, height);
|
||||
top := top + height + lblInfo.Height;
|
||||
left := 1;
|
||||
MakeMemos('GtslSpec3', GtslSpec3, 16, left, top, width, height);
|
||||
left := left + width;
|
||||
MakeMemos('GtslSpec4', GtslSpec4, 17, left, top, width, height);
|
||||
left := left + width;
|
||||
MakeMemos('GtslMultiSpec', GtslMultiSpec, 18, left, top, width, height);
|
||||
left := left + width;
|
||||
MakeMemos('GtslTempCheck', GtslTempCheck, 19, left, top, width, height);
|
||||
left := left + width;
|
||||
MakeMemos('GtslTemp', GtslTemp, 20, left, top, width, height);
|
||||
left := left + width;
|
||||
MakeMemos('GtslSelCopyTop', GtslSelCopyTop, 21, left, top, width, height);
|
||||
top := top + height + lblInfo.Height;
|
||||
left := 1;
|
||||
MakeMemos('GtslSelCopyBottom', GtslSelCopyBottom, 22, left, top, width, height);
|
||||
left := left + width;
|
||||
MakeMemos('GtslZoomHistoryFloat', GtslZoomHistoryFloat, 23, left, top, width, height);
|
||||
left := left + width;
|
||||
MakeMemos('GtslZoomHistoryReport', GtslZoomHistoryReport, 24, left, top, width, height);
|
||||
left := left + width;
|
||||
MakeMemos('GtslSelPrevTopFloat', GtslSelPrevTopFloat, 25, left, top, width, height);
|
||||
left := left + width;
|
||||
MakeMemos('GtslSelPrevTopReport', GtslSelPrevTopReport, 26, left, top, width, height);
|
||||
left := left + width;
|
||||
MakeMemos('GtslSelPrevBottomFloat', GtslSelPrevBottomFloat, 27, left, top, width, height);
|
||||
top := top + height + lblInfo.Height;
|
||||
left := 1;
|
||||
MakeMemos('GtslSelPrevBottomReport', GtslSelPrevBottomReport, 28, left, top, width, height);
|
||||
left := left + width;
|
||||
MakeMemos('GtslViewPersonal', GtslViewPersonal, 29, left, top, width, height);
|
||||
left := left + width;
|
||||
MakeMemos('GtslViewPublic', GtslViewPublic, 30, left, top, width, height);
|
||||
left := left + width;
|
||||
MakeMemos('GtslLabGroup', GtslLabGroup, 31, left, top, width, height);
|
||||
left := left + width;
|
||||
MakeMemos('GtslAllViews', GtslAllViews, 32, left, top, width, height);
|
||||
btnData.Enabled := false;
|
||||
btnRefresh.Enabled := true;
|
||||
lblCurrent.Caption := FGraphActivity.CurrentSetting;
|
||||
lblPersonal.Caption := FGraphActivity.PersonalSetting;
|
||||
lblPublic.Caption := FGraphActivity.PublicSetting;
|
||||
end;
|
||||
|
||||
procedure TfrmGraphData.btnRefreshClick(Sender: TObject);
|
||||
begin
|
||||
ClearMemos;
|
||||
FillMemos;
|
||||
end;
|
||||
|
||||
procedure TfrmGraphData.btnTestingClick(Sender: TObject);
|
||||
begin
|
||||
FastAssign(rpcTesting, memTesting.Lines);
|
||||
end;
|
||||
|
||||
procedure TfrmGraphData.MakeMemos(aName: string; aList: TStrings; aTag, left, top, width, height: integer);
|
||||
var
|
||||
aMemo: TMemo;
|
||||
aLabel: TLabel;
|
||||
begin
|
||||
aMemo := TMemo.Create(self);
|
||||
aMemo.Parent := pnlData;
|
||||
aMemo.Name := 'mem' + aName;
|
||||
aMemo.Tag := aTag;
|
||||
aMemo.Left := left; aMemo.Top := top; aMemo.Width := width; aMemo.Height := height;
|
||||
aMemo.ScrollBars := ssVertical;
|
||||
aMemo.WordWrap := false;
|
||||
FastAssign(aList, aMemo.Lines);
|
||||
aLabel := TLabel.Create(self);
|
||||
aLabel.Parent := pnlData;
|
||||
aLabel.Caption := aName + ' (' + inttostr(aList.Count) + ')';
|
||||
aLabel.Left := left; aLabel.Top := top - lblInfo.Height; aLabel.Width := width; aLabel.Height := lblInfo.height;
|
||||
end;
|
||||
|
||||
procedure TfrmGraphData.ClearMemos;
|
||||
var
|
||||
i: integer;
|
||||
ChildControl: TControl;
|
||||
begin
|
||||
for i := 0 to pnlData.ControlCount - 1 do
|
||||
begin
|
||||
ChildControl := pnlData.Controls[i];
|
||||
if ChildControl is TMemo then
|
||||
(ChildControl as TMemo).Clear;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmGraphData.FillMemos;
|
||||
var
|
||||
i: integer;
|
||||
aMemo: TMemo;
|
||||
ChildControl: TControl;
|
||||
begin
|
||||
for i := 0 to pnlData.ControlCount - 1 do
|
||||
begin
|
||||
ChildControl := pnlData.Controls[i];
|
||||
if ChildControl is TMemo then
|
||||
begin
|
||||
aMemo := (ChildControl as TMemo);
|
||||
case aMemo.Tag of
|
||||
1: FastAssign(GtslData, aMemo.Lines);
|
||||
2: FastAssign(GtslItems, aMemo.Lines);
|
||||
3: FastAssign(GtslTypes, aMemo.Lines);
|
||||
4: FastAssign(GtslAllTypes, aMemo.Lines);
|
||||
5: FastAssign(GtslTestSpec, aMemo.Lines);
|
||||
6: FastAssign(GtslDrugClass, aMemo.Lines);
|
||||
7: FastAssign(GtslViews, aMemo.Lines);
|
||||
8: FastAssign(GtslCheck, aMemo.Lines);
|
||||
9: FastAssign(GtslNonNum, aMemo.Lines);
|
||||
10: FastAssign(GtslNonNumDates, aMemo.Lines);
|
||||
11: FastAssign(GtslScratchSwap, aMemo.Lines);
|
||||
12: FastAssign(GtslScratchTemp, aMemo.Lines);
|
||||
13: FastAssign(GtslScratchLab, aMemo.Lines);
|
||||
14: FastAssign(GtslSpec1, aMemo.Lines);
|
||||
15: FastAssign(GtslSpec2, aMemo.Lines);
|
||||
16: FastAssign(GtslSpec3, aMemo.Lines);
|
||||
17: FastAssign(GtslSpec4, aMemo.Lines);
|
||||
18: FastAssign(GtslMultiSpec, aMemo.Lines);
|
||||
19: FastAssign(GtslTempCheck, aMemo.Lines);
|
||||
20: FastAssign(GtslTemp, aMemo.Lines);
|
||||
21: FastAssign(GtslSelCopyTop, aMemo.Lines);
|
||||
22: FastAssign(GtslSelCopyBottom, aMemo.Lines);
|
||||
23: FastAssign(GtslZoomHistoryFloat, aMemo.Lines);
|
||||
24: FastAssign(GtslZoomHistoryReport, aMemo.Lines);
|
||||
25: FastAssign(GtslSelPrevTopFloat, aMemo.Lines);
|
||||
26: FastAssign(GtslSelPrevTopReport, aMemo.Lines);
|
||||
27: FastAssign(GtslSelPrevBottomFloat, aMemo.Lines);
|
||||
28: FastAssign(GtslSelPrevBottomReport, aMemo.Lines);
|
||||
29: FastAssign(GtslViewPersonal, aMemo.Lines);
|
||||
30: FastAssign(GtslViewPublic, aMemo.Lines);
|
||||
31: FastAssign(GtslLabGroup, aMemo.Lines);
|
||||
32: FastAssign(GtslAllViews, aMemo.Lines);
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
//---------------------------------------------------
|
||||
|
||||
function GetCurrentSetting: string;
|
||||
begin
|
||||
Result := FGraphActivity.CurrentSetting;
|
||||
end;
|
||||
|
||||
function GetDefaultInpatientDate: string;
|
||||
begin
|
||||
Result := FGraphActivity.DefaultInpatientDate;
|
||||
end;
|
||||
|
||||
function GetDefaultOutpatientDate: string;
|
||||
begin
|
||||
Result := FGraphActivity.DefaultOutpatientDate;
|
||||
end;
|
||||
|
||||
function GetGraphProfiles(profiles, permission: string; ext: integer; userx: int64): TStrings;
|
||||
var // temporary fix - converting definitions in GtslAllViews to rpc format
|
||||
allviews, fulltext: boolean;
|
||||
i: integer;
|
||||
vtype, aline, avtype, avc, avnum, aname, atype, aitem, partsnum, bigline: string;
|
||||
//auser: string;
|
||||
begin
|
||||
if (userx > 0) and (userx <> User.DUZ) then
|
||||
Result := rpcGetGraphProfiles(profiles, permission, ext, userx)
|
||||
else
|
||||
begin
|
||||
profiles := UpperCase(profiles);
|
||||
if permission = '1' then vtype := '-2'
|
||||
else vtype := '-1';
|
||||
allviews := (profiles = '1');
|
||||
fulltext := (ext = 1);
|
||||
partsnum := '0';
|
||||
bigline := '';
|
||||
GtslScratchTemp.Clear;
|
||||
for i := 0 to GtslAllViews.Count - 1 do
|
||||
begin
|
||||
aline := GtslAllViews[i];
|
||||
avtype := Piece(aline, '^', 1);
|
||||
avc := Piece(aline, '^', 2);
|
||||
avnum := Piece(aline, '^', 3);
|
||||
aname := UpperCase(Piece(aline, '^', 4));
|
||||
atype := UpperCase(Piece(aline, '^', 5));
|
||||
aitem := Piece(aline, '^', 6);
|
||||
//auser := Piece(aline, '^', 7);
|
||||
if partsnum <> '0' then
|
||||
begin //AddLine(ext, aname, atype, aitem);
|
||||
if (avc = 'C') and (partsnum = avnum) then
|
||||
begin
|
||||
if ext <> 1 then
|
||||
begin
|
||||
if aitem = '0' then bigline := bigline + '0~' + atype + '~|'
|
||||
else bigline := bigline + atype + '~' + aitem + '~|'
|
||||
end
|
||||
else
|
||||
begin
|
||||
if aitem = '0' then
|
||||
GtslScratchTemp.Add('0^' + atype + '^' + aname)
|
||||
else
|
||||
GtslScratchTemp.Add(atype + '^' + aitem + '^' + aname)
|
||||
end;
|
||||
end
|
||||
else
|
||||
begin
|
||||
break;
|
||||
end;
|
||||
end
|
||||
else
|
||||
if avtype = vtype then
|
||||
begin
|
||||
if allviews and (avc = 'V') then
|
||||
begin
|
||||
GtslScratchTemp.Add(aname);
|
||||
end
|
||||
else if (avc = 'V') and (aname = profiles) then
|
||||
partsnum := avnum;
|
||||
end;
|
||||
end;
|
||||
if length(bigline) > 0 then
|
||||
GtslScratchTemp.Add(bigline);
|
||||
if allviews or fulltext then
|
||||
MixedCaseList(GtslScratchTemp);
|
||||
Result := GtslScratchTemp;
|
||||
end;
|
||||
end;
|
||||
|
||||
function GetATestGroup(testgroup: Integer; userx: int64): TStrings;
|
||||
var // temporary fix - converting definitions in GtslAllViews to rpc format
|
||||
i: integer;
|
||||
aline, avtype, avc, avnum, aname, aitem, partsnum: string;
|
||||
//atype, auser: string;
|
||||
begin
|
||||
if (userx > 0) and (userx <> User.DUZ) then
|
||||
Result := rpcATestGroup(testgroup, userx)
|
||||
else
|
||||
begin
|
||||
partsnum := '0';
|
||||
GtslScratchTemp.Clear;
|
||||
for i := 0 to GtslAllViews.Count - 1 do
|
||||
begin
|
||||
aline := GtslAllViews[i];
|
||||
avtype := Piece(aline, '^', 1);
|
||||
avc := Piece(aline, '^', 2);
|
||||
avnum := Piece(aline, '^', 3);
|
||||
aname := Piece(aline, '^', 4);
|
||||
//atype := UpperCase(Piece(aline, '^', 5));
|
||||
aitem := Piece(aline, '^', 6);
|
||||
//auser := Piece(aline, '^', 7);
|
||||
if avtype = VIEW_LABS then
|
||||
begin
|
||||
if (avc = 'V') and (partsnum <> '0') then
|
||||
break;
|
||||
if (avc = 'C') and (partsnum = avnum) then
|
||||
GtslScratchTemp.Add(aitem + '^' + aname)
|
||||
else if (avc = 'V')
|
||||
and (testgroup = strtointdef(Piece(aname, ')', 1), BIG_NUMBER)) then
|
||||
partsnum := avnum;
|
||||
end;
|
||||
end;
|
||||
//MixedCaseList(GtslScratchTemp);
|
||||
Result := GtslScratchTemp;
|
||||
end;
|
||||
end;
|
||||
|
||||
function GetGraphStatus: string;
|
||||
begin
|
||||
Result := FGraphActivity.Status;
|
||||
end;
|
||||
|
||||
function GetOldDFN: string;
|
||||
begin
|
||||
Result := FGraphActivity.OldDFN;
|
||||
end;
|
||||
|
||||
function GetPersonalSetting: string;
|
||||
begin
|
||||
Result := FGraphActivity.PersonalSetting;
|
||||
end;
|
||||
|
||||
function GetPublicSetting: string;
|
||||
begin
|
||||
Result := FGraphActivity.PublicSetting;
|
||||
end;
|
||||
|
||||
function GraphPublicEditor: boolean;
|
||||
begin
|
||||
Result := FGraphActivity.PublicEditor;
|
||||
end;
|
||||
|
||||
function GraphTurboOn: boolean;
|
||||
begin
|
||||
Result := (FGraphActivity.TurboOn and FGraphActivity.Cache);
|
||||
end;
|
||||
|
||||
procedure SetCurrentSetting(aString: string);
|
||||
begin
|
||||
FGraphActivity.CurrentSetting := aString;
|
||||
end;
|
||||
|
||||
procedure SetDefaultInpatientDate(aString: string);
|
||||
begin
|
||||
FGraphActivity.DefaultInpatientDate := aString;
|
||||
end;
|
||||
|
||||
procedure SetDefaultOutpatientDate(aString: string);
|
||||
begin
|
||||
FGraphActivity.DefaultOutpatientDate := aString;
|
||||
end;
|
||||
|
||||
procedure SetGraphStatus(aString: string);
|
||||
begin
|
||||
FGraphActivity.Status := aString;
|
||||
end;
|
||||
|
||||
procedure SetOldDFN(aString: string);
|
||||
begin
|
||||
FGraphActivity.OldDFN := aString;
|
||||
end;
|
||||
|
||||
procedure SetPersonalSetting(aString: string);
|
||||
begin
|
||||
FGraphActivity.PersonalSetting := aString;
|
||||
end;
|
||||
|
||||
procedure SetPublicSetting(aString: string);
|
||||
begin
|
||||
FGraphActivity.PublicSetting := aString;
|
||||
end;
|
||||
//---------------------------------------------------
|
||||
|
||||
procedure TfrmGraphData.FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
var
|
||||
faststatus: string;
|
||||
begin
|
||||
if FGraphActivity.Cache then
|
||||
begin
|
||||
faststatus := rpcFastTask('0', Patient.DFN); // cleanup patient cache
|
||||
if faststatus = '-1' then
|
||||
FGraphActivity.Cache := false;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmGraphData.FormDestroy(Sender: TObject);
|
||||
begin
|
||||
FreeGtsl;
|
||||
end;
|
||||
|
||||
end.
|
|
@ -0,0 +1,245 @@
|
|||
inherited frmGraphOthers: TfrmGraphOthers
|
||||
Left = 0
|
||||
Top = 0
|
||||
BorderIcons = [biSystemMenu]
|
||||
BorderStyle = bsDialog
|
||||
Caption = 'Select Other Views and Lab Groups'
|
||||
ClientHeight = 384
|
||||
ClientWidth = 335
|
||||
Position = poScreenCenter
|
||||
OnShow = FormShow
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
object pnlMain: TORAutoPanel [0]
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 335
|
||||
Height = 241
|
||||
Align = alTop
|
||||
BevelOuter = bvNone
|
||||
TabOrder = 0
|
||||
DesignSize = (
|
||||
335
|
||||
241)
|
||||
object lblOthers: TLabel
|
||||
Left = 12
|
||||
Top = 29
|
||||
Width = 101
|
||||
Height = 13
|
||||
Caption = 'Select or enter name:'
|
||||
end
|
||||
object lblViews: TLabel
|
||||
Left = 179
|
||||
Top = 29
|
||||
Width = 110
|
||||
Height = 13
|
||||
Caption = 'Views and Lab Groups:'
|
||||
end
|
||||
object lblInfo: TLabel
|
||||
Left = 12
|
||||
Top = 10
|
||||
Width = 313
|
||||
Height = 13
|
||||
Caption =
|
||||
'You can copy other user'#39's views and lab groups for your own use.' +
|
||||
' '
|
||||
end
|
||||
object lblDefinitions: TLabel
|
||||
Left = 12
|
||||
Top = 224
|
||||
Width = 52
|
||||
Height = 13
|
||||
Caption = 'Definitions:'
|
||||
end
|
||||
object cboOthers: TORComboBox
|
||||
Left = 12
|
||||
Top = 48
|
||||
Width = 144
|
||||
Height = 170
|
||||
Style = orcsSimple
|
||||
AutoSelect = True
|
||||
Caption = 'Select or enter name'
|
||||
Color = clWindow
|
||||
DropDownCount = 8
|
||||
ItemHeight = 13
|
||||
ItemTipColor = clWindow
|
||||
ItemTipEnable = True
|
||||
ListItemsOnly = True
|
||||
LongList = True
|
||||
LookupPiece = 2
|
||||
MaxLength = 0
|
||||
Pieces = '2,3'
|
||||
Sorted = False
|
||||
SynonymChars = '<>'
|
||||
TabOrder = 0
|
||||
OnClick = cboOthersClick
|
||||
OnNeedData = cboOthersNeedData
|
||||
CharsNeedMatch = 1
|
||||
end
|
||||
object lstViews: TORListBox
|
||||
Left = 179
|
||||
Top = 48
|
||||
Width = 144
|
||||
Height = 137
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
ItemHeight = 13
|
||||
MultiSelect = True
|
||||
ParentShowHint = False
|
||||
ShowHint = True
|
||||
TabOrder = 1
|
||||
OnClick = lstViewsClick
|
||||
Caption = 'Currently selected recipients'
|
||||
ItemTipColor = clWindow
|
||||
LongList = False
|
||||
Pieces = '2'
|
||||
end
|
||||
object btnCopy: TButton
|
||||
Left = 179
|
||||
Top = 193
|
||||
Width = 144
|
||||
Height = 25
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
Caption = 'Copy'
|
||||
TabOrder = 3
|
||||
end
|
||||
object pnlTempData: TPanel
|
||||
Left = -90
|
||||
Top = 96
|
||||
Width = 425
|
||||
Height = 49
|
||||
TabOrder = 4
|
||||
Visible = False
|
||||
object lblSave: TLabel
|
||||
Left = 184
|
||||
Top = 16
|
||||
Width = 3
|
||||
Height = 13
|
||||
Visible = False
|
||||
end
|
||||
object lblClose: TLabel
|
||||
Left = 192
|
||||
Top = 0
|
||||
Width = 3
|
||||
Height = 13
|
||||
Visible = False
|
||||
end
|
||||
object lstActualItems: TORListBox
|
||||
Left = 8
|
||||
Top = 5
|
||||
Width = 97
|
||||
Height = 41
|
||||
ItemHeight = 13
|
||||
ParentShowHint = False
|
||||
ShowHint = True
|
||||
TabOrder = 0
|
||||
ItemTipColor = clWindow
|
||||
LongList = False
|
||||
end
|
||||
object lstDrugClass: TListBox
|
||||
Left = 112
|
||||
Top = 5
|
||||
Width = 97
|
||||
Height = 41
|
||||
ItemHeight = 13
|
||||
TabOrder = 1
|
||||
end
|
||||
object lstScratch: TListBox
|
||||
Left = 216
|
||||
Top = 5
|
||||
Width = 97
|
||||
Height = 41
|
||||
ItemHeight = 13
|
||||
TabOrder = 2
|
||||
end
|
||||
object lstTests: TListBox
|
||||
Left = 320
|
||||
Top = 5
|
||||
Width = 97
|
||||
Height = 41
|
||||
ItemHeight = 13
|
||||
TabOrder = 3
|
||||
end
|
||||
end
|
||||
end
|
||||
object memReport: TRichEdit [1]
|
||||
Left = 0
|
||||
Top = 241
|
||||
Width = 335
|
||||
Height = 102
|
||||
Align = alClient
|
||||
BevelInner = bvNone
|
||||
Color = clCream
|
||||
Font.Charset = ANSI_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'Courier New'
|
||||
Font.Style = []
|
||||
Lines.Strings = (
|
||||
'')
|
||||
ParentFont = False
|
||||
ReadOnly = True
|
||||
ScrollBars = ssBoth
|
||||
TabOrder = 1
|
||||
WantReturns = False
|
||||
WordWrap = False
|
||||
end
|
||||
object pnlBottom: TPanel [2]
|
||||
Left = 0
|
||||
Top = 343
|
||||
Width = 335
|
||||
Height = 41
|
||||
Align = alBottom
|
||||
BevelOuter = bvNone
|
||||
TabOrder = 2
|
||||
object btnClose: TButton
|
||||
Left = 250
|
||||
Top = 6
|
||||
Width = 75
|
||||
Height = 25
|
||||
Caption = 'Close'
|
||||
TabOrder = 0
|
||||
end
|
||||
end
|
||||
inherited amgrMain: TVA508AccessibilityManager
|
||||
Data = (
|
||||
(
|
||||
'Component = pnlMain'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = cboOthers'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = lstViews'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = btnCopy'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = pnlTempData'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = lstActualItems'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = lstDrugClass'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = lstScratch'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = lstTests'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = memReport'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = pnlBottom'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = btnClose'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = frmGraphOthers'
|
||||
'Status = stsDefault'))
|
||||
end
|
||||
end
|
|
@ -0,0 +1,116 @@
|
|||
unit fGraphOthers;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, StdCtrls, ComCtrls, ORCtrls, ExtCtrls, ORFn, uGraphs, rCore, uCore,
|
||||
fBase508Form, VA508AccessibilityManager;
|
||||
|
||||
type
|
||||
TfrmGraphOthers = class(TfrmBase508Form)
|
||||
pnlMain: TORAutoPanel;
|
||||
lblOthers: TLabel;
|
||||
cboOthers: TORComboBox;
|
||||
lstViews: TORListBox;
|
||||
memReport: TRichEdit;
|
||||
pnlBottom: TPanel;
|
||||
lblViews: TLabel;
|
||||
lblInfo: TLabel;
|
||||
lblDefinitions: TLabel;
|
||||
btnClose: TButton;
|
||||
btnCopy: TButton;
|
||||
pnlTempData: TPanel;
|
||||
lblSave: TLabel;
|
||||
lblClose: TLabel;
|
||||
lstActualItems: TORListBox;
|
||||
lstDrugClass: TListBox;
|
||||
lstScratch: TListBox;
|
||||
lstTests: TListBox;
|
||||
procedure cboOthersNeedData(Sender: TObject; const StartFrom: string;
|
||||
Direction, InsertAt: Integer);
|
||||
procedure FormShow(Sender: TObject);
|
||||
procedure cboOthersClick(Sender: TObject);
|
||||
procedure lstViewsClick(Sender: TObject);
|
||||
private
|
||||
procedure AddTests(tests: TStrings);
|
||||
public
|
||||
{ Public declarations }
|
||||
end;
|
||||
|
||||
var
|
||||
frmGraphOthers: TfrmGraphOthers;
|
||||
|
||||
procedure DialogGraphOthers(size: integer);
|
||||
|
||||
implementation
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
uses
|
||||
rGraphs, fGraphData, rLabs;
|
||||
|
||||
procedure DialogGraphOthers(size: integer);
|
||||
var
|
||||
aList: TStrings;
|
||||
frmGraphOthers: TfrmGraphOthers;
|
||||
begin
|
||||
aList := TStringList.Create;
|
||||
frmGraphOthers := TfrmGraphOthers.Create(Application);
|
||||
try
|
||||
with frmGraphOthers do
|
||||
begin
|
||||
ResizeAnchoredFormToFont(frmGraphOthers);
|
||||
ShowModal;
|
||||
end;
|
||||
finally
|
||||
frmGraphOthers.Release;
|
||||
aList.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmGraphOthers.cboOthersClick(Sender: TObject);
|
||||
begin
|
||||
FastAssign(TestGroups(cboOthers.ItemIEN), lstViews.Items);
|
||||
end;
|
||||
|
||||
procedure TfrmGraphOthers.cboOthersNeedData(Sender: TObject;
|
||||
const StartFrom: string; Direction, InsertAt: Integer);
|
||||
begin
|
||||
//cboOthers.ForDataUse(SubSetOfPersons(StartFrom, Direction));
|
||||
cboOthers.ForDataUse(Users(StartFrom, Direction));
|
||||
end;
|
||||
|
||||
procedure TfrmGraphOthers.FormShow(Sender: TObject);
|
||||
begin
|
||||
cboOthers.InitLongList(User.Name);
|
||||
cboOthers.SelectByIEN(User.DUZ);
|
||||
cboOthersClick(self);
|
||||
end;
|
||||
|
||||
procedure TfrmGraphOthers.lstViewsClick(Sender: TObject);
|
||||
begin
|
||||
AddTests(ATestGroup(lstViews.ItemIEN, cboOthers.ItemIEN));
|
||||
end;
|
||||
|
||||
procedure TfrmGraphOthers.AddTests(tests: TStrings);
|
||||
var
|
||||
i, j: integer;
|
||||
ok: boolean;
|
||||
begin
|
||||
for i := 0 to tests.Count - 1 do
|
||||
begin
|
||||
ok := true;
|
||||
for j := 0 to memReport.Lines.Count - 1 do
|
||||
if memReport.Lines[j] = tests[i] then
|
||||
begin
|
||||
ok := false;
|
||||
end;
|
||||
if ok then
|
||||
begin
|
||||
memReport.Lines.Add(tests[i]);
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
end.
|
|
@ -1,35 +1,22 @@
|
|||
object frmGraphProfiles: TfrmGraphProfiles
|
||||
inherited frmGraphProfiles: TfrmGraphProfiles
|
||||
Left = 721
|
||||
Top = 528
|
||||
HorzScrollBar.Visible = False
|
||||
VertScrollBar.Visible = False
|
||||
BorderIcons = [biSystemMenu, biHelp]
|
||||
BorderStyle = bsDialog
|
||||
Caption = 'Select Items and Define Views'
|
||||
ClientHeight = 379
|
||||
ClientWidth = 477
|
||||
Color = clBtnFace
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'MS Sans Serif'
|
||||
Font.Style = []
|
||||
OldCreateOrder = False
|
||||
Position = poMainFormCenter
|
||||
OnClose = FormClose
|
||||
OnCreate = FormCreate
|
||||
OnShow = FormShow
|
||||
ExplicitWidth = 483
|
||||
ExplicitHeight = 404
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
object lblSource: TLabel
|
||||
Left = 8
|
||||
Top = 29
|
||||
Width = 37
|
||||
Height = 13
|
||||
Hint = 'These are the different types of data for graphing.'
|
||||
Caption = 'Source:'
|
||||
ParentShowHint = False
|
||||
ShowHint = False
|
||||
end
|
||||
object lblSelection: TLabel
|
||||
object lblSelection: TLabel [0]
|
||||
Left = 142
|
||||
Top = 29
|
||||
Width = 28
|
||||
|
@ -39,7 +26,7 @@ object frmGraphProfiles: TfrmGraphProfiles
|
|||
ParentShowHint = False
|
||||
ShowHint = False
|
||||
end
|
||||
object lblDisplay: TLabel
|
||||
object lblDisplay: TLabel [1]
|
||||
Left = 312
|
||||
Top = 29
|
||||
Width = 89
|
||||
|
@ -51,21 +38,21 @@ object frmGraphProfiles: TfrmGraphProfiles
|
|||
ParentShowHint = False
|
||||
ShowHint = False
|
||||
end
|
||||
object bvlBase: TBevel
|
||||
object bvlBase: TBevel [2]
|
||||
Left = 8
|
||||
Top = 339
|
||||
Width = 457
|
||||
Height = 2
|
||||
end
|
||||
object lblEditInfo: TLabel
|
||||
Left = 132
|
||||
object lblEditInfo: TLabel [3]
|
||||
Left = 142
|
||||
Top = 278
|
||||
Width = 202
|
||||
Height = 13
|
||||
Caption = 'Items for Graphing can be saved as Views.'
|
||||
end
|
||||
object lblSelectionInfo: TLabel
|
||||
Left = 42
|
||||
object lblSelectionInfo: TLabel [4]
|
||||
Left = 142
|
||||
Top = 8
|
||||
Width = 89
|
||||
Height = 13
|
||||
|
@ -73,7 +60,7 @@ object frmGraphProfiles: TfrmGraphProfiles
|
|||
ParentShowHint = False
|
||||
ShowHint = False
|
||||
end
|
||||
object lblSelectandDefine: TLabel
|
||||
object lblSelectandDefine: TLabel [5]
|
||||
Left = 8
|
||||
Top = 350
|
||||
Width = 359
|
||||
|
@ -83,14 +70,24 @@ object frmGraphProfiles: TfrmGraphProfiles
|
|||
's for display.'
|
||||
WordWrap = True
|
||||
end
|
||||
object lblEditInfo1: TLabel
|
||||
Left = 132
|
||||
object lblEditInfo1: TLabel [6]
|
||||
Left = 142
|
||||
Top = 294
|
||||
Width = 187
|
||||
Height = 13
|
||||
Caption = 'Edit Views by saving to the same name.'
|
||||
end
|
||||
object btnClear: TButton
|
||||
object lblUser: TLabel [7]
|
||||
Left = 8
|
||||
Top = 236
|
||||
Width = 36
|
||||
Height = 13
|
||||
Caption = 'Person:'
|
||||
ParentShowHint = False
|
||||
ShowHint = False
|
||||
WordWrap = True
|
||||
end
|
||||
object btnClear: TButton [8]
|
||||
Left = 8
|
||||
Top = 312
|
||||
Width = 85
|
||||
|
@ -99,10 +96,10 @@ object frmGraphProfiles: TfrmGraphProfiles
|
|||
Enabled = False
|
||||
ParentShowHint = False
|
||||
ShowHint = False
|
||||
TabOrder = 8
|
||||
TabOrder = 7
|
||||
OnClick = btnClearClick
|
||||
end
|
||||
object btnSave: TButton
|
||||
object btnSave: TButton [9]
|
||||
Left = 286
|
||||
Top = 312
|
||||
Width = 85
|
||||
|
@ -111,22 +108,22 @@ object frmGraphProfiles: TfrmGraphProfiles
|
|||
Enabled = False
|
||||
ParentShowHint = False
|
||||
ShowHint = False
|
||||
TabOrder = 12
|
||||
TabOrder = 11
|
||||
OnClick = btnSaveClick
|
||||
end
|
||||
object btnDelete: TButton
|
||||
object btnDelete: TButton [10]
|
||||
Left = 100
|
||||
Top = 312
|
||||
Top = 313
|
||||
Width = 85
|
||||
Height = 21
|
||||
Height = 20
|
||||
Caption = 'Delete...'
|
||||
Enabled = False
|
||||
ParentShowHint = False
|
||||
ShowHint = False
|
||||
TabOrder = 9
|
||||
TabOrder = 8
|
||||
OnClick = btnDeleteClick
|
||||
end
|
||||
object btnRemoveOne: TButton
|
||||
object btnRemoveOne: TButton [11]
|
||||
Left = 280
|
||||
Top = 173
|
||||
Width = 21
|
||||
|
@ -135,10 +132,10 @@ object frmGraphProfiles: TfrmGraphProfiles
|
|||
Enabled = False
|
||||
ParentShowHint = False
|
||||
ShowHint = False
|
||||
TabOrder = 6
|
||||
TabOrder = 5
|
||||
OnClick = btnRemoveOneClick
|
||||
end
|
||||
object btnRemoveAll: TButton
|
||||
object btnRemoveAll: TButton [12]
|
||||
Left = 280
|
||||
Top = 205
|
||||
Width = 21
|
||||
|
@ -147,50 +144,35 @@ object frmGraphProfiles: TfrmGraphProfiles
|
|||
Enabled = False
|
||||
ParentShowHint = False
|
||||
ShowHint = False
|
||||
TabOrder = 7
|
||||
TabOrder = 6
|
||||
OnClick = btnRemoveAllClick
|
||||
end
|
||||
object lstSource: TORListBox
|
||||
Left = 8
|
||||
Top = 44
|
||||
Width = 120
|
||||
Height = 225
|
||||
ItemHeight = 13
|
||||
ParentShowHint = False
|
||||
ShowHint = False
|
||||
TabOrder = 0
|
||||
OnDblClick = lstSourceDblClick
|
||||
ItemTipColor = clWindow
|
||||
LongList = False
|
||||
Pieces = '2'
|
||||
OnChange = lstSourceChange
|
||||
end
|
||||
object lstItemsDisplayed: TORListBox
|
||||
Left = 312
|
||||
object lstItemsDisplayed: TORListBox [13]
|
||||
Left = 319
|
||||
Top = 44
|
||||
Width = 150
|
||||
Height = 225
|
||||
Height = 228
|
||||
ItemHeight = 13
|
||||
ParentShowHint = False
|
||||
ShowHint = False
|
||||
Sorted = True
|
||||
TabOrder = 3
|
||||
TabOrder = 2
|
||||
OnDblClick = lstItemsDisplayedDblClick
|
||||
ItemTipColor = clWindow
|
||||
LongList = False
|
||||
Pieces = '3'
|
||||
OnChange = lstItemsDisplayedChange
|
||||
end
|
||||
object pnlSource: TPanel
|
||||
Left = 147
|
||||
Top = 1
|
||||
object pnlSource: TPanel [14]
|
||||
Left = 247
|
||||
Top = -2
|
||||
Width = 190
|
||||
Height = 25
|
||||
BevelOuter = bvNone
|
||||
TabOrder = 11
|
||||
TabOrder = 10
|
||||
object radSourcePat: TRadioButton
|
||||
Left = 87
|
||||
Top = 6
|
||||
Left = 106
|
||||
Top = 5
|
||||
Width = 82
|
||||
Height = 17
|
||||
Hint =
|
||||
|
@ -202,7 +184,7 @@ object frmGraphProfiles: TfrmGraphProfiles
|
|||
end
|
||||
object radSourceAll: TRadioButton
|
||||
Left = 0
|
||||
Top = 6
|
||||
Top = 5
|
||||
Width = 60
|
||||
Height = 17
|
||||
Hint = 'Use this for defining views. It shows every possible item.'
|
||||
|
@ -213,16 +195,16 @@ object frmGraphProfiles: TfrmGraphProfiles
|
|||
OnClick = radSourceAllClick
|
||||
end
|
||||
end
|
||||
object lstItemsTopSelection: TORListBox
|
||||
object lstItemsSelection: TORListBox [15]
|
||||
Left = 142
|
||||
Top = 44
|
||||
Width = 120
|
||||
Width = 124
|
||||
Height = 225
|
||||
ItemHeight = 13
|
||||
ParentShowHint = False
|
||||
ShowHint = False
|
||||
Sorted = True
|
||||
TabOrder = 2
|
||||
TabOrder = 1
|
||||
Visible = False
|
||||
OnDblClick = cboAllItemsClick
|
||||
ItemTipColor = clWindow
|
||||
|
@ -230,12 +212,334 @@ object frmGraphProfiles: TfrmGraphProfiles
|
|||
Pieces = '3'
|
||||
OnChange = cboAllItemsChange
|
||||
end
|
||||
object pnlTempData: TPanel
|
||||
Left = 16
|
||||
Top = 230
|
||||
object pnlApply: TPanel [16]
|
||||
Left = 0
|
||||
Top = 344
|
||||
Width = 377
|
||||
Height = 36
|
||||
BevelOuter = bvNone
|
||||
ParentShowHint = False
|
||||
ShowHint = False
|
||||
TabOrder = 14
|
||||
object lblApply: TLabel
|
||||
Left = 8
|
||||
Top = 2
|
||||
Width = 138
|
||||
Height = 13
|
||||
Caption = 'Display Items for Graphing to:'
|
||||
end
|
||||
object radTop: TRadioButton
|
||||
Left = 8
|
||||
Top = 17
|
||||
Width = 57
|
||||
Height = 17
|
||||
Caption = 'Top'
|
||||
Checked = True
|
||||
TabOrder = 0
|
||||
TabStop = True
|
||||
end
|
||||
object radBottom: TRadioButton
|
||||
Left = 74
|
||||
Top = 17
|
||||
Width = 57
|
||||
Height = 17
|
||||
Caption = 'Bottom'
|
||||
TabOrder = 1
|
||||
end
|
||||
object radBoth: TRadioButton
|
||||
Left = 141
|
||||
Top = 17
|
||||
Width = 57
|
||||
Height = 17
|
||||
Caption = 'Both'
|
||||
TabOrder = 2
|
||||
end
|
||||
object radNeither: TRadioButton
|
||||
Left = 208
|
||||
Top = 17
|
||||
Width = 81
|
||||
Height = 17
|
||||
Caption = 'No Change'
|
||||
TabOrder = 3
|
||||
end
|
||||
end
|
||||
object btnAdd: TButton [17]
|
||||
Left = 280
|
||||
Top = 125
|
||||
Width = 21
|
||||
Height = 21
|
||||
Caption = '>'
|
||||
Enabled = False
|
||||
ParentShowHint = False
|
||||
ShowHint = False
|
||||
TabOrder = 4
|
||||
OnClick = cboAllItemsClick
|
||||
end
|
||||
object btnAddAll: TButton [18]
|
||||
Left = 280
|
||||
Top = 93
|
||||
Width = 21
|
||||
Height = 21
|
||||
Caption = '>>'
|
||||
Enabled = False
|
||||
ParentShowHint = False
|
||||
ShowHint = False
|
||||
TabOrder = 3
|
||||
OnClick = btnAddAllClick
|
||||
end
|
||||
object btnRename: TButton [19]
|
||||
Left = 195
|
||||
Top = 312
|
||||
Width = 85
|
||||
Height = 21
|
||||
Caption = 'Rename...'
|
||||
Enabled = False
|
||||
ParentShowHint = False
|
||||
ShowHint = False
|
||||
TabOrder = 9
|
||||
OnClick = btnRenameClick
|
||||
end
|
||||
object btnSavePublic: TButton [20]
|
||||
Left = 379
|
||||
Top = 312
|
||||
Width = 85
|
||||
Height = 21
|
||||
Caption = 'Save Public...'
|
||||
Enabled = False
|
||||
ParentShowHint = False
|
||||
ShowHint = False
|
||||
TabOrder = 12
|
||||
OnClick = btnSaveClick
|
||||
end
|
||||
object cboAllItems: TORComboBox [21]
|
||||
Left = 142
|
||||
Top = 44
|
||||
Width = 124
|
||||
Height = 228
|
||||
Style = orcsSimple
|
||||
AutoSelect = True
|
||||
Color = clWindow
|
||||
DropDownCount = 8
|
||||
ItemHeight = 13
|
||||
ItemTipColor = clWindow
|
||||
ItemTipEnable = True
|
||||
ListItemsOnly = True
|
||||
LongList = True
|
||||
LookupPiece = 0
|
||||
MaxLength = 0
|
||||
ParentShowHint = False
|
||||
Pieces = '3'
|
||||
ShowHint = False
|
||||
Sorted = False
|
||||
SynonymChars = '<>'
|
||||
TabOrder = 0
|
||||
OnChange = cboAllItemsChange
|
||||
OnDblClick = cboAllItemsClick
|
||||
OnNeedData = cboAllItemsNeedData
|
||||
CharsNeedMatch = 1
|
||||
end
|
||||
object btnClose: TButton [22]
|
||||
Left = 371
|
||||
Top = 353
|
||||
Width = 97
|
||||
Height = 21
|
||||
Cancel = True
|
||||
Caption = 'Close'
|
||||
ParentShowHint = False
|
||||
ShowHint = False
|
||||
TabOrder = 15
|
||||
OnClick = btnCloseClick
|
||||
end
|
||||
object pnlAllSources: TPanel [23]
|
||||
Left = 8
|
||||
Top = 30
|
||||
Width = 128
|
||||
Height = 245
|
||||
BevelOuter = bvNone
|
||||
ParentShowHint = False
|
||||
ShowHint = True
|
||||
TabOrder = 16
|
||||
object splViews: TSplitter
|
||||
Left = 0
|
||||
Top = 122
|
||||
Width = 128
|
||||
Height = 3
|
||||
Cursor = crVSplit
|
||||
Align = alBottom
|
||||
ExplicitTop = 0
|
||||
ExplicitWidth = 125
|
||||
end
|
||||
object pnlSources: TPanel
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 128
|
||||
Height = 122
|
||||
Align = alClient
|
||||
BevelOuter = bvNone
|
||||
TabOrder = 0
|
||||
object lblSource: TLabel
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 128
|
||||
Height = 13
|
||||
Hint = 'These are the different types of data for graphing.'
|
||||
Align = alTop
|
||||
Caption = 'Sources:'
|
||||
ParentShowHint = False
|
||||
ShowHint = False
|
||||
ExplicitWidth = 42
|
||||
end
|
||||
object lstSources: TORListBox
|
||||
Left = 0
|
||||
Top = 13
|
||||
Width = 128
|
||||
Height = 109
|
||||
Align = alClient
|
||||
ItemHeight = 13
|
||||
ParentShowHint = False
|
||||
ShowHint = False
|
||||
TabOrder = 0
|
||||
OnDblClick = lstSourcesDblClick
|
||||
OnEnter = lstSourcesEnter
|
||||
OnExit = lstSourcesExit
|
||||
ItemTipColor = clWindow
|
||||
LongList = False
|
||||
Pieces = '2'
|
||||
OnChange = lstSourcesChange
|
||||
end
|
||||
end
|
||||
object pnlOtherSources: TPanel
|
||||
Left = 0
|
||||
Top = 125
|
||||
Width = 128
|
||||
Height = 120
|
||||
Align = alBottom
|
||||
BevelInner = bvRaised
|
||||
BevelOuter = bvLowered
|
||||
BorderWidth = 1
|
||||
TabOrder = 1
|
||||
object pnlOtherSourcesUser: TPanel
|
||||
Left = 3
|
||||
Top = 76
|
||||
Width = 122
|
||||
Height = 41
|
||||
Align = alBottom
|
||||
BevelOuter = bvNone
|
||||
TabOrder = 0
|
||||
object lblOtherPersons: TLabel
|
||||
Left = 0
|
||||
Top = 7
|
||||
Width = 122
|
||||
Height = 13
|
||||
Align = alBottom
|
||||
Caption = 'Select Person:'
|
||||
ExplicitWidth = 69
|
||||
end
|
||||
object cboUser: TORComboBox
|
||||
Left = 0
|
||||
Top = 20
|
||||
Width = 122
|
||||
Height = 21
|
||||
Style = orcsDropDown
|
||||
Align = alBottom
|
||||
AutoSelect = True
|
||||
Color = clWindow
|
||||
DropDownCount = 6
|
||||
Items.Strings = (
|
||||
'')
|
||||
ItemHeight = 13
|
||||
ItemTipColor = clWindow
|
||||
ItemTipEnable = True
|
||||
ListItemsOnly = False
|
||||
LongList = True
|
||||
LookupPiece = 0
|
||||
MaxLength = 0
|
||||
Pieces = '2'
|
||||
Sorted = False
|
||||
SynonymChars = '<>'
|
||||
TabOrder = 0
|
||||
TabStop = True
|
||||
OnClick = cboUserClick
|
||||
OnNeedData = cboUserNeedData
|
||||
CharsNeedMatch = 1
|
||||
end
|
||||
end
|
||||
object pnlOtherSourcesBottom: TPanel
|
||||
Left = 3
|
||||
Top = 3
|
||||
Width = 122
|
||||
Height = 73
|
||||
Align = alClient
|
||||
BevelOuter = bvNone
|
||||
TabOrder = 1
|
||||
object lstOtherSources: TORListBox
|
||||
Left = 0
|
||||
Top = 30
|
||||
Width = 122
|
||||
Height = 43
|
||||
Align = alClient
|
||||
BevelInner = bvNone
|
||||
BevelOuter = bvNone
|
||||
ItemHeight = 13
|
||||
ParentShowHint = False
|
||||
ShowHint = False
|
||||
TabOrder = 0
|
||||
OnDblClick = lstSourcesDblClick
|
||||
OnEnter = lstSourcesEnter
|
||||
OnExit = lstSourcesExit
|
||||
ItemTipColor = clWindow
|
||||
LongList = False
|
||||
Pieces = '2'
|
||||
OnChange = lstSourcesChange
|
||||
end
|
||||
object pnlOtherViews: TPanel
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 122
|
||||
Height = 30
|
||||
Align = alTop
|
||||
BevelOuter = bvNone
|
||||
TabOrder = 1
|
||||
object lblOtherViews: TLabel
|
||||
Left = 0
|
||||
Top = 17
|
||||
Width = 122
|
||||
Height = 13
|
||||
Align = alBottom
|
||||
Caption = 'Other Views:'
|
||||
ExplicitWidth = 60
|
||||
end
|
||||
object lblSelectOthers: TLabel
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 122
|
||||
Height = 13
|
||||
Align = alTop
|
||||
Caption = 'Select Views from others'
|
||||
ExplicitWidth = 116
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
object btnViews: TButton [24]
|
||||
Left = 8
|
||||
Top = 5
|
||||
Width = 120
|
||||
Height = 21
|
||||
Caption = 'Show Other Views'
|
||||
ParentShowHint = False
|
||||
ShowHint = False
|
||||
TabOrder = 17
|
||||
Visible = False
|
||||
OnClick = btnViewsClick
|
||||
end
|
||||
object pnlTempData: TPanel [25]
|
||||
Left = 264
|
||||
Top = 232
|
||||
Width = 425
|
||||
Height = 49
|
||||
TabOrder = 14
|
||||
TabOrder = 13
|
||||
Visible = False
|
||||
object lblSave: TLabel
|
||||
Left = 184
|
||||
|
@ -288,142 +592,134 @@ object frmGraphProfiles: TfrmGraphProfiles
|
|||
TabOrder = 3
|
||||
end
|
||||
end
|
||||
object pnlApply: TPanel
|
||||
Left = 0
|
||||
Top = 344
|
||||
Width = 377
|
||||
Height = 36
|
||||
BevelOuter = bvNone
|
||||
ParentShowHint = False
|
||||
ShowHint = False
|
||||
TabOrder = 15
|
||||
object lblApply: TLabel
|
||||
Left = 8
|
||||
Top = 2
|
||||
Width = 138
|
||||
Height = 13
|
||||
Caption = 'Display Items for Graphing to:'
|
||||
end
|
||||
object radTop: TRadioButton
|
||||
Left = 8
|
||||
Top = 17
|
||||
Width = 57
|
||||
Height = 17
|
||||
Caption = 'Top'
|
||||
Checked = True
|
||||
TabOrder = 0
|
||||
TabStop = True
|
||||
end
|
||||
object radBottom: TRadioButton
|
||||
Left = 74
|
||||
Top = 17
|
||||
Width = 57
|
||||
Height = 17
|
||||
Caption = 'Bottom'
|
||||
TabOrder = 1
|
||||
end
|
||||
object radBoth: TRadioButton
|
||||
Left = 141
|
||||
Top = 17
|
||||
Width = 57
|
||||
Height = 17
|
||||
Caption = 'Both'
|
||||
TabOrder = 2
|
||||
end
|
||||
object radNeither: TRadioButton
|
||||
Left = 208
|
||||
Top = 17
|
||||
Width = 81
|
||||
Height = 17
|
||||
Caption = 'No Change'
|
||||
TabOrder = 3
|
||||
end
|
||||
end
|
||||
object btnAdd: TButton
|
||||
Left = 280
|
||||
Top = 125
|
||||
Width = 21
|
||||
object btnDefinitions: TButton [26]
|
||||
Left = 8
|
||||
Top = 281
|
||||
Width = 120
|
||||
Height = 21
|
||||
Caption = '>'
|
||||
Enabled = False
|
||||
Caption = 'View Definitions...'
|
||||
ParentShowHint = False
|
||||
ShowHint = False
|
||||
TabOrder = 5
|
||||
OnClick = cboAllItemsClick
|
||||
TabOrder = 18
|
||||
OnClick = btnDefinitionsClick
|
||||
end
|
||||
object btnAddAll: TButton
|
||||
Left = 280
|
||||
Top = 93
|
||||
Width = 21
|
||||
Height = 21
|
||||
Caption = '>>'
|
||||
Enabled = False
|
||||
ParentShowHint = False
|
||||
ShowHint = False
|
||||
TabOrder = 4
|
||||
OnClick = cboAllItemsClick
|
||||
end
|
||||
object btnRename: TButton
|
||||
Left = 193
|
||||
Top = 312
|
||||
Width = 85
|
||||
Height = 21
|
||||
Caption = 'Rename...'
|
||||
Enabled = False
|
||||
ParentShowHint = False
|
||||
ShowHint = False
|
||||
TabOrder = 10
|
||||
OnClick = btnRenameClick
|
||||
end
|
||||
object btnSavePublic: TButton
|
||||
Left = 379
|
||||
Top = 312
|
||||
Width = 85
|
||||
Height = 21
|
||||
Caption = 'Save Public...'
|
||||
Enabled = False
|
||||
ParentShowHint = False
|
||||
ShowHint = False
|
||||
TabOrder = 13
|
||||
OnClick = btnSaveClick
|
||||
end
|
||||
object cboAllItems: TORComboBox
|
||||
Left = 142
|
||||
Top = 44
|
||||
Width = 123
|
||||
Height = 225
|
||||
Style = orcsSimple
|
||||
AutoSelect = True
|
||||
Color = clWindow
|
||||
DropDownCount = 8
|
||||
ItemHeight = 13
|
||||
ItemTipColor = clWindow
|
||||
ItemTipEnable = True
|
||||
ListItemsOnly = True
|
||||
LongList = True
|
||||
LookupPiece = 0
|
||||
MaxLength = 0
|
||||
ParentShowHint = False
|
||||
Pieces = '3'
|
||||
ShowHint = False
|
||||
Sorted = False
|
||||
SynonymChars = '<>'
|
||||
TabOrder = 1
|
||||
OnChange = cboAllItemsChange
|
||||
OnDblClick = cboAllItemsClick
|
||||
OnNeedData = cboAllItemsNeedData
|
||||
CharsNeedMatch = 1
|
||||
end
|
||||
object btnClose: TButton
|
||||
Left = 371
|
||||
Top = 353
|
||||
Width = 97
|
||||
Height = 21
|
||||
Cancel = True
|
||||
Caption = 'Close'
|
||||
ParentShowHint = False
|
||||
ShowHint = False
|
||||
TabOrder = 16
|
||||
OnClick = btnCloseClick
|
||||
inherited amgrMain: TVA508AccessibilityManager
|
||||
Left = 448
|
||||
Top = 280
|
||||
Data = (
|
||||
(
|
||||
'Component = btnClear'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = btnSave'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = btnDelete'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = btnRemoveOne'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = btnRemoveAll'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = lstItemsDisplayed'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = pnlSource'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = radSourcePat'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = radSourceAll'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = lstItemsSelection'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = pnlTempData'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = lstActualItems'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = lstDrugClass'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = lstScratch'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = lstTests'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = pnlApply'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = radTop'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = radBottom'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = radBoth'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = radNeither'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = btnAdd'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = btnAddAll'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = btnRename'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = btnSavePublic'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = cboAllItems'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = btnClose'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = frmGraphProfiles'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = pnlAllSources'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = pnlSources'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = lstSources'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = pnlOtherSources'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = pnlOtherSourcesUser'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = cboUser'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = pnlOtherSourcesBottom'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = lstOtherSources'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = btnViews'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = btnDefinitions'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = pnlOtherViews'
|
||||
'Status = stsDefault'))
|
||||
end
|
||||
end
|
||||
|
|
File diff suppressed because it is too large
Load Diff
|
@ -1,46 +1,41 @@
|
|||
object frmGraphSettings: TfrmGraphSettings
|
||||
inherited frmGraphSettings: TfrmGraphSettings
|
||||
Left = 109
|
||||
Top = 60
|
||||
BorderIcons = [biSystemMenu, biHelp]
|
||||
BorderStyle = bsDialog
|
||||
Caption = 'Graph Settings'
|
||||
ClientHeight = 304
|
||||
ClientHeight = 318
|
||||
ClientWidth = 438
|
||||
Color = clBtnFace
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'MS Sans Serif'
|
||||
Font.Style = []
|
||||
OldCreateOrder = False
|
||||
Position = poMainFormCenter
|
||||
OnClose = FormClose
|
||||
OnCreate = FormCreate
|
||||
OnShow = FormShow
|
||||
ExplicitWidth = 444
|
||||
ExplicitHeight = 343
|
||||
DesignSize = (
|
||||
438
|
||||
304)
|
||||
318)
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
object lblMinGraphHeight: TLabel
|
||||
object lblMinGraphHeight: TLabel [0]
|
||||
Left = 311
|
||||
Top = 60
|
||||
Top = 51
|
||||
Width = 110
|
||||
Height = 13
|
||||
Caption = 'Minimum Graph Height:'
|
||||
ParentShowHint = False
|
||||
ShowHint = False
|
||||
end
|
||||
object lblMaxGraphs: TLabel
|
||||
object lblMaxGraphs: TLabel [1]
|
||||
Left = 311
|
||||
Top = 4
|
||||
Top = 7
|
||||
Width = 108
|
||||
Height = 13
|
||||
Caption = 'Max Graphs in Display:'
|
||||
ParentShowHint = False
|
||||
ShowHint = False
|
||||
end
|
||||
object lblOptions: TLabel
|
||||
object lblOptions: TLabel [2]
|
||||
Left = 179
|
||||
Top = 4
|
||||
Width = 39
|
||||
|
@ -49,13 +44,13 @@ object frmGraphSettings: TfrmGraphSettings
|
|||
ParentShowHint = False
|
||||
ShowHint = False
|
||||
end
|
||||
object bvlBase: TBevel
|
||||
object bvlBase: TBevel [3]
|
||||
Left = 13
|
||||
Top = 271
|
||||
Top = 287
|
||||
Width = 412
|
||||
Height = 2
|
||||
end
|
||||
object lblSources: TLabel
|
||||
object lblSources: TLabel [4]
|
||||
Left = 16
|
||||
Top = 4
|
||||
Width = 91
|
||||
|
@ -64,18 +59,19 @@ object frmGraphSettings: TfrmGraphSettings
|
|||
ParentShowHint = False
|
||||
ShowHint = False
|
||||
end
|
||||
object lblConversions: TLabel
|
||||
Left = 311
|
||||
Top = 162
|
||||
object lblConversions: TLabel [5]
|
||||
Left = 215
|
||||
Top = 284
|
||||
Width = 46
|
||||
Height = 13
|
||||
Caption = 'Functions'
|
||||
ParentShowHint = False
|
||||
ShowHint = False
|
||||
Visible = False
|
||||
end
|
||||
object lblMaxSelect: TLabel
|
||||
object lblMaxSelect: TLabel [6]
|
||||
Left = 311
|
||||
Top = 115
|
||||
Top = 93
|
||||
Width = 96
|
||||
Height = 13
|
||||
Caption = 'Max Items to Select:'
|
||||
|
@ -83,9 +79,9 @@ object frmGraphSettings: TfrmGraphSettings
|
|||
ShowHint = False
|
||||
WordWrap = True
|
||||
end
|
||||
object lblShow: TLabel
|
||||
object lblShow: TLabel [7]
|
||||
Left = 196
|
||||
Top = 217
|
||||
Top = 233
|
||||
Width = 72
|
||||
Height = 13
|
||||
Alignment = taRightJustify
|
||||
|
@ -93,9 +89,9 @@ object frmGraphSettings: TfrmGraphSettings
|
|||
ParentShowHint = False
|
||||
ShowHint = False
|
||||
end
|
||||
object lblSave: TLabel
|
||||
object lblSave: TLabel [8]
|
||||
Left = 189
|
||||
Top = 249
|
||||
Top = 265
|
||||
Width = 79
|
||||
Height = 13
|
||||
Alignment = taRightJustify
|
||||
|
@ -103,15 +99,15 @@ object frmGraphSettings: TfrmGraphSettings
|
|||
ParentShowHint = False
|
||||
ShowHint = False
|
||||
end
|
||||
object bvlDefaults: TBevel
|
||||
object bvlDefaults: TBevel [9]
|
||||
Left = 176
|
||||
Top = 205
|
||||
Top = 221
|
||||
Width = 248
|
||||
Height = 2
|
||||
end
|
||||
object lblOptionsInfo: TLabel
|
||||
object lblOptionsInfo: TLabel [10]
|
||||
Left = 13
|
||||
Top = 281
|
||||
Top = 297
|
||||
Width = 275
|
||||
Height = 13
|
||||
Caption = 'Settings saved as your defaults are applied to new graphs.'
|
||||
|
@ -119,40 +115,60 @@ object frmGraphSettings: TfrmGraphSettings
|
|||
ShowHint = False
|
||||
WordWrap = True
|
||||
end
|
||||
object lblMaxGraphsRef: TLabel
|
||||
object lblMaxGraphsRef: TLabel [11]
|
||||
Left = 374
|
||||
Top = 20
|
||||
Top = 23
|
||||
Width = 57
|
||||
Height = 17
|
||||
AutoSize = False
|
||||
ParentShowHint = False
|
||||
ShowHint = False
|
||||
end
|
||||
object lblMinGraphHeightRef: TLabel
|
||||
object lblMinGraphHeightRef: TLabel [12]
|
||||
Left = 374
|
||||
Top = 80
|
||||
Top = 69
|
||||
Width = 57
|
||||
Height = 17
|
||||
AutoSize = False
|
||||
ParentShowHint = False
|
||||
ShowHint = False
|
||||
end
|
||||
object lblMaxSelectRef: TLabel
|
||||
object lblMaxSelectRef: TLabel [13]
|
||||
Left = 374
|
||||
Top = 133
|
||||
Top = 114
|
||||
Width = 57
|
||||
Height = 17
|
||||
AutoSize = False
|
||||
ParentShowHint = False
|
||||
ShowHint = False
|
||||
end
|
||||
object bvlMid: TBevel
|
||||
object bvlMid: TBevel [14]
|
||||
Left = 176
|
||||
Top = 239
|
||||
Top = 255
|
||||
Width = 248
|
||||
Height = 2
|
||||
end
|
||||
object lstATypes: TListBox
|
||||
object lblOutpatient: TLabel [15]
|
||||
Left = 311
|
||||
Top = 135
|
||||
Width = 115
|
||||
Height = 13
|
||||
Caption = 'Outpatient Date Default:'
|
||||
ParentShowHint = False
|
||||
ShowHint = False
|
||||
WordWrap = True
|
||||
end
|
||||
object lblInpatient: TLabel [16]
|
||||
Left = 311
|
||||
Top = 178
|
||||
Width = 107
|
||||
Height = 13
|
||||
Caption = 'Inpatient Date Default:'
|
||||
ParentShowHint = False
|
||||
ShowHint = False
|
||||
WordWrap = True
|
||||
end
|
||||
object lstATypes: TListBox [17]
|
||||
Left = 253
|
||||
Top = 3
|
||||
Width = 45
|
||||
|
@ -162,7 +178,7 @@ object frmGraphSettings: TfrmGraphSettings
|
|||
TabOrder = 17
|
||||
Visible = False
|
||||
end
|
||||
object lstSourcesCopy: TListBox
|
||||
object lstSourcesCopy: TListBox [18]
|
||||
Left = 123
|
||||
Top = 4
|
||||
Width = 45
|
||||
|
@ -172,11 +188,11 @@ object frmGraphSettings: TfrmGraphSettings
|
|||
TabOrder = 16
|
||||
Visible = False
|
||||
end
|
||||
object chklstOptions: TCheckListBox
|
||||
Left = 179
|
||||
Top = 20
|
||||
object chklstOptions: TCheckListBox [19]
|
||||
Left = 174
|
||||
Top = 23
|
||||
Width = 120
|
||||
Height = 179
|
||||
Height = 192
|
||||
OnClickCheck = chklstOptionsClickCheck
|
||||
ItemHeight = 13
|
||||
ParentShowHint = False
|
||||
|
@ -184,9 +200,9 @@ object frmGraphSettings: TfrmGraphSettings
|
|||
Sorted = True
|
||||
TabOrder = 1
|
||||
end
|
||||
object txtMinGraphHeight: TEdit
|
||||
object txtMinGraphHeight: TEdit [20]
|
||||
Left = 311
|
||||
Top = 78
|
||||
Top = 67
|
||||
Width = 41
|
||||
Height = 21
|
||||
ParentShowHint = False
|
||||
|
@ -197,9 +213,9 @@ object frmGraphSettings: TfrmGraphSettings
|
|||
OnExit = txtMinGraphHeightExit
|
||||
OnKeyPress = txtMinGraphHeightKeyPress
|
||||
end
|
||||
object txtMaxGraphs: TEdit
|
||||
object txtMaxGraphs: TEdit [21]
|
||||
Left = 311
|
||||
Top = 20
|
||||
Top = 23
|
||||
Width = 41
|
||||
Height = 21
|
||||
ParentShowHint = False
|
||||
|
@ -210,9 +226,9 @@ object frmGraphSettings: TfrmGraphSettings
|
|||
OnExit = txtMaxGraphsExit
|
||||
OnKeyPress = txtMaxGraphsKeyPress
|
||||
end
|
||||
object spnMinGraphHeight: TUpDown
|
||||
object spnMinGraphHeight: TUpDown [22]
|
||||
Left = 352
|
||||
Top = 78
|
||||
Top = 67
|
||||
Width = 15
|
||||
Height = 21
|
||||
Associate = txtMinGraphHeight
|
||||
|
@ -222,12 +238,11 @@ object frmGraphSettings: TfrmGraphSettings
|
|||
Position = 90
|
||||
ShowHint = False
|
||||
TabOrder = 5
|
||||
Wrap = False
|
||||
OnClick = spnMinGraphHeightClick
|
||||
end
|
||||
object spnMaxGraphs: TUpDown
|
||||
object spnMaxGraphs: TUpDown [23]
|
||||
Left = 352
|
||||
Top = 20
|
||||
Top = 23
|
||||
Width = 15
|
||||
Height = 21
|
||||
Associate = txtMaxGraphs
|
||||
|
@ -237,12 +252,11 @@ object frmGraphSettings: TfrmGraphSettings
|
|||
Position = 5
|
||||
ShowHint = False
|
||||
TabOrder = 3
|
||||
Wrap = False
|
||||
OnClick = spnMaxGraphsClick
|
||||
end
|
||||
object btnClose: TButton
|
||||
object btnClose: TButton [24]
|
||||
Left = 350
|
||||
Top = 279
|
||||
Top = 295
|
||||
Width = 75
|
||||
Height = 21
|
||||
Cancel = True
|
||||
|
@ -252,20 +266,20 @@ object frmGraphSettings: TfrmGraphSettings
|
|||
TabOrder = 15
|
||||
OnClick = btnCloseClick
|
||||
end
|
||||
object lstSources: TCheckListBox
|
||||
Left = 16
|
||||
Top = 20
|
||||
object lstSources: TCheckListBox [25]
|
||||
Left = 17
|
||||
Top = 23
|
||||
Width = 153
|
||||
Height = 216
|
||||
Height = 229
|
||||
ItemHeight = 13
|
||||
ParentShowHint = False
|
||||
ShowHint = False
|
||||
Sorted = True
|
||||
TabOrder = 0
|
||||
end
|
||||
object btnAll: TButton
|
||||
object btnAll: TButton [26]
|
||||
Left = 18
|
||||
Top = 245
|
||||
Top = 261
|
||||
Width = 65
|
||||
Height = 21
|
||||
Caption = 'All'
|
||||
|
@ -274,9 +288,9 @@ object frmGraphSettings: TfrmGraphSettings
|
|||
TabOrder = 9
|
||||
OnClick = btnAllClick
|
||||
end
|
||||
object brnClear: TButton
|
||||
object brnClear: TButton [27]
|
||||
Left = 103
|
||||
Top = 245
|
||||
Top = 261
|
||||
Width = 65
|
||||
Height = 21
|
||||
Cancel = True
|
||||
|
@ -286,9 +300,9 @@ object frmGraphSettings: TfrmGraphSettings
|
|||
TabOrder = 10
|
||||
OnClick = btnAllClick
|
||||
end
|
||||
object btnPersonal: TButton
|
||||
object btnPersonal: TButton [28]
|
||||
Left = 277
|
||||
Top = 213
|
||||
Top = 229
|
||||
Width = 65
|
||||
Height = 21
|
||||
Cancel = True
|
||||
|
@ -296,9 +310,9 @@ object frmGraphSettings: TfrmGraphSettings
|
|||
TabOrder = 11
|
||||
OnClick = btnPublicClick
|
||||
end
|
||||
object cboConversions: TORComboBox
|
||||
Left = 311
|
||||
Top = 178
|
||||
object cboConversions: TORComboBox [29]
|
||||
Left = 228
|
||||
Top = 295
|
||||
Width = 116
|
||||
Height = 21
|
||||
Style = orcsDropDown
|
||||
|
@ -321,11 +335,12 @@ object frmGraphSettings: TfrmGraphSettings
|
|||
Sorted = False
|
||||
SynonymChars = '<>'
|
||||
TabOrder = 8
|
||||
Visible = False
|
||||
CharsNeedMatch = 1
|
||||
end
|
||||
object txtMaxSelect: TEdit
|
||||
object txtMaxSelect: TEdit [30]
|
||||
Left = 311
|
||||
Top = 131
|
||||
Top = 108
|
||||
Width = 41
|
||||
Height = 21
|
||||
ParentShowHint = False
|
||||
|
@ -336,9 +351,9 @@ object frmGraphSettings: TfrmGraphSettings
|
|||
OnExit = txtMaxSelectExit
|
||||
OnKeyPress = txtMaxSelectKeyPress
|
||||
end
|
||||
object spnMaxSelect: TUpDown
|
||||
object spnMaxSelect: TUpDown [31]
|
||||
Left = 352
|
||||
Top = 131
|
||||
Top = 108
|
||||
Width = 15
|
||||
Height = 21
|
||||
Associate = txtMaxSelect
|
||||
|
@ -348,12 +363,11 @@ object frmGraphSettings: TfrmGraphSettings
|
|||
Position = 100
|
||||
ShowHint = False
|
||||
TabOrder = 7
|
||||
Wrap = False
|
||||
OnClick = spnMaxSelectClick
|
||||
end
|
||||
object btnPublic: TButton
|
||||
object btnPublic: TButton [32]
|
||||
Left = 360
|
||||
Top = 213
|
||||
Top = 229
|
||||
Width = 65
|
||||
Height = 21
|
||||
Cancel = True
|
||||
|
@ -363,9 +377,9 @@ object frmGraphSettings: TfrmGraphSettings
|
|||
TabOrder = 12
|
||||
OnClick = btnPublicClick
|
||||
end
|
||||
object btnPersonalSave: TButton
|
||||
object btnPersonalSave: TButton [33]
|
||||
Left = 277
|
||||
Top = 245
|
||||
Top = 261
|
||||
Width = 65
|
||||
Height = 21
|
||||
Cancel = True
|
||||
|
@ -375,9 +389,9 @@ object frmGraphSettings: TfrmGraphSettings
|
|||
TabOrder = 13
|
||||
OnClick = SaveClick
|
||||
end
|
||||
object btnPublicSave: TButton
|
||||
object btnPublicSave: TButton [34]
|
||||
Left = 360
|
||||
Top = 245
|
||||
Top = 261
|
||||
Width = 65
|
||||
Height = 21
|
||||
Cancel = True
|
||||
|
@ -387,9 +401,9 @@ object frmGraphSettings: TfrmGraphSettings
|
|||
TabOrder = 14
|
||||
OnClick = SaveClick
|
||||
end
|
||||
object lstOptions: TListBox
|
||||
Left = 368
|
||||
Top = 160
|
||||
object lstOptions: TListBox [35]
|
||||
Left = 287
|
||||
Top = 295
|
||||
Width = 57
|
||||
Height = 17
|
||||
ItemHeight = 13
|
||||
|
@ -411,4 +425,129 @@ object frmGraphSettings: TfrmGraphSettings
|
|||
TabOrder = 18
|
||||
Visible = False
|
||||
end
|
||||
object cboDateRangeOutpatient: TORComboBox [36]
|
||||
Left = 311
|
||||
Top = 149
|
||||
Width = 115
|
||||
Height = 21
|
||||
Style = orcsDropDown
|
||||
AutoSelect = True
|
||||
Color = clWindow
|
||||
DropDownCount = 9
|
||||
ItemHeight = 13
|
||||
ItemTipColor = clWindow
|
||||
ItemTipEnable = True
|
||||
ListItemsOnly = False
|
||||
LongList = False
|
||||
LookupPiece = 0
|
||||
MaxLength = 0
|
||||
Pieces = '2'
|
||||
Sorted = False
|
||||
SynonymChars = '<>'
|
||||
TabOrder = 19
|
||||
TabStop = True
|
||||
CharsNeedMatch = 1
|
||||
end
|
||||
object cboDateRangeInpatient: TORComboBox [37]
|
||||
Left = 311
|
||||
Top = 194
|
||||
Width = 115
|
||||
Height = 21
|
||||
Style = orcsDropDown
|
||||
AutoSelect = True
|
||||
Color = clWindow
|
||||
DropDownCount = 9
|
||||
Items.Strings = (
|
||||
'S^Date Range...'
|
||||
'1^Today'
|
||||
'2^One Week'
|
||||
'3^Two Weeks'
|
||||
'4^One Month'
|
||||
'5^Six Months'
|
||||
'6^One Year'
|
||||
'7^Two Years'
|
||||
'8^All Results')
|
||||
ItemHeight = 13
|
||||
ItemTipColor = clWindow
|
||||
ItemTipEnable = True
|
||||
ListItemsOnly = False
|
||||
LongList = False
|
||||
LookupPiece = 0
|
||||
MaxLength = 0
|
||||
Pieces = '2'
|
||||
Sorted = False
|
||||
SynonymChars = '<>'
|
||||
TabOrder = 20
|
||||
TabStop = True
|
||||
CharsNeedMatch = 1
|
||||
end
|
||||
inherited amgrMain: TVA508AccessibilityManager
|
||||
Data = (
|
||||
(
|
||||
'Component = lstATypes'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = lstSourcesCopy'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = chklstOptions'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = txtMinGraphHeight'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = txtMaxGraphs'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = spnMinGraphHeight'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = spnMaxGraphs'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = btnClose'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = lstSources'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = btnAll'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = brnClear'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = btnPersonal'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = cboConversions'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = txtMaxSelect'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = spnMaxSelect'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = btnPublic'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = btnPersonalSave'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = btnPublicSave'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = lstOptions'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = frmGraphSettings'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = cboDateRangeOutpatient'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = cboDateRangeInpatient'
|
||||
'Status = stsDefault'))
|
||||
end
|
||||
end
|
||||
|
|
|
@ -4,10 +4,11 @@ interface
|
|||
|
||||
uses
|
||||
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
|
||||
ComCtrls, StdCtrls, ExtCtrls, CheckLst, Math, ORCtrls, ORFn, uGraphs;
|
||||
ComCtrls, StdCtrls, ExtCtrls, CheckLst, Math, ORCtrls, ORFn, uCore, uGraphs, fBase508Form,
|
||||
VA508AccessibilityManager;
|
||||
|
||||
type
|
||||
TfrmGraphSettings = class(TForm)
|
||||
TfrmGraphSettings = class(TfrmBase508Form)
|
||||
brnClear: TButton;
|
||||
btnAll: TButton;
|
||||
btnClose: TButton;
|
||||
|
@ -42,6 +43,10 @@ type
|
|||
txtMinGraphHeight: TEdit;
|
||||
bvlMid: TBevel;
|
||||
lstOptions: TListBox;
|
||||
cboDateRangeOutpatient: TORComboBox;
|
||||
cboDateRangeInpatient: TORComboBox;
|
||||
lblOutpatient: TLabel;
|
||||
lblInpatient: TLabel;
|
||||
procedure FormCreate(Sender: TObject);
|
||||
procedure FormShow(Sender: TObject);
|
||||
procedure btnAllClick(Sender: TObject);
|
||||
|
@ -67,15 +72,20 @@ type
|
|||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
|
||||
private
|
||||
{ Private declarations }
|
||||
FHintPauseTime: integer;
|
||||
public
|
||||
{ Public declarations }
|
||||
procedure wmNCLButtonDown(var Msg: TWMNCLButtonDown); message WM_NCLBUTTONDOWN;
|
||||
procedure ChangeSettings(aGraphSetting: TGraphSetting);
|
||||
procedure ChangeSources(DisplaySource: TStrings);
|
||||
procedure Conversion(conv: integer);
|
||||
procedure SetSettings(aGraphSetting: TGraphSetting);
|
||||
procedure SetSources(aList, DisplaySource: TStrings);
|
||||
procedure GetTypeList(aList: TStrings);
|
||||
end;
|
||||
|
||||
var
|
||||
frmGraphSettings: TfrmGraphSettings;
|
||||
|
||||
procedure DialogOptionsGraphSettings(topvalue, leftvalue, fontsize: integer;
|
||||
var actiontype: boolean);
|
||||
procedure DialogGraphSettings(fontsize: integer; var okbutton: boolean;
|
||||
|
@ -87,31 +97,26 @@ implementation
|
|||
{$R *.DFM}
|
||||
|
||||
uses
|
||||
rGraphs;
|
||||
rGraphs, fGraphData, VAUtils;
|
||||
|
||||
procedure DialogOptionsGraphSettings(topvalue, leftvalue, fontsize: integer;
|
||||
var actiontype: boolean);
|
||||
var
|
||||
FGraphSetting: TGraphSetting;
|
||||
aList, FSources, AllTypes: TStrings;
|
||||
FSources, AllTypes: TStrings;
|
||||
i, conv: integer;
|
||||
aSettings, dfntype, listline, settings, settings1, t1, t2: string;
|
||||
aSettings, dfntype, listline, settings, settings1: string;
|
||||
begin
|
||||
aList := TStringList.Create;
|
||||
FastAssign(rpcGetGraphSettings, aList);
|
||||
if aList.Count < 1 then
|
||||
settings := GetCurrentSetting;
|
||||
settings1 := GetPublicSetting;
|
||||
if settings1 = '' then
|
||||
begin
|
||||
showmessage('CPRS is not configured for graphing.');
|
||||
aList.Free;
|
||||
ShowMsg(TXT_NOGRAPHING);
|
||||
exit;
|
||||
end;
|
||||
t1 := aList[0]; t2 := aList[1]; // t1 are personal, t2 public settings
|
||||
if length(t1) > 0 then settings := t1
|
||||
else settings := t2;
|
||||
SetPiece(settings, '|', 8, Piece(t2, '|', 8));
|
||||
settings1 := Piece(settings, '|', 1);
|
||||
Alltypes := TStringList.Create;
|
||||
FastAssign(rpcGetTypes('0', false), AllTypes);
|
||||
FastAssign(GtslAllTypes, AllTypes);
|
||||
for i := 0 to AllTypes.Count - 1 do
|
||||
begin
|
||||
listline := AllTypes[i];
|
||||
|
@ -131,16 +136,13 @@ begin
|
|||
conv := BIG_NUMBER; // indicates being called from Options
|
||||
DialogGraphSettings(fontsize, actiontype, FGraphSetting, FSources, conv, aSettings);
|
||||
FGraphSetting.Free;
|
||||
aList.Free;
|
||||
FSources.Free;
|
||||
AllTypes.Free;
|
||||
end;
|
||||
|
||||
procedure DialogGraphSettings(fontsize: integer; var okbutton: boolean;
|
||||
aGraphSetting: TGraphSetting; DisplaySource: TStrings; var conv: integer; var aSettings: string);
|
||||
var
|
||||
needtoadd, turnon: boolean;
|
||||
i, j: integer;
|
||||
dfntype, dsdisplay, dsitem, dsnum, filename, filenum, listitem, listline, t1, t2, value: string;
|
||||
aList: TStrings;
|
||||
frmGraphSettings: TfrmGraphSettings;
|
||||
begin
|
||||
|
@ -151,122 +153,24 @@ begin
|
|||
try
|
||||
with frmGraphSettings do
|
||||
begin
|
||||
if displaysource.Count > 99999 then exit;
|
||||
FastAssign(rpcGetGraphDateRange('OR_GRAPHS'), cboDateRangeOutpatient.Items);
|
||||
if cboDateRangeOutpatient.Items.Count > 0 then
|
||||
cboDateRangeOutpatient.Items.Delete(0);
|
||||
FastAssign(cboDateRangeOutpatient.Items, cboDateRangeInpatient.Items);
|
||||
FastAssign(rpcGetGraphSettings, aList);
|
||||
t1 := aList[0]; t2 := aList[1]; // t1 are personal, t2 public settings
|
||||
if length(t1) = 0 then t1 := t2;
|
||||
SetPiece(t1, '|', 8, Piece(t2,'|', 8));
|
||||
btnPersonal.Hint := t1;
|
||||
btnPublic.Hint := t2;
|
||||
aList.Clear;
|
||||
FastAssign(rpcGetTypes('0', false), aList);
|
||||
for i := 0 to aList.Count -1 do
|
||||
begin
|
||||
listline := aList[i];
|
||||
dfntype := UpperCase(Piece(listline, '^', 1));
|
||||
SetPiece(listline, '^', 1, dfntype);
|
||||
aList[i] := listline;
|
||||
end;
|
||||
with lstSources.Items do
|
||||
begin
|
||||
Clear;
|
||||
lstSourcesCopy.Items.Clear;
|
||||
for i := 0 to aList.Count - 1 do
|
||||
begin
|
||||
listitem := aList[i];
|
||||
filenum := Piece(listitem, '^', 1);
|
||||
filename := Piece(listitem, '^', 2);
|
||||
Add(filename);
|
||||
lstSourcesCopy.Items.Add(filename + '^' + filenum);
|
||||
end;
|
||||
with lstSourcesCopy do
|
||||
for i := 0 to Items.Count - 1 do
|
||||
begin
|
||||
listitem := Items[i];
|
||||
filenum := Piece(listitem, '^', 2);
|
||||
for j := 0 to DisplaySource.Count - 1 do
|
||||
begin
|
||||
dsitem := DisplaySource[j];
|
||||
dsnum := Piece(dsitem, '^', 1);
|
||||
dsdisplay := Piece(dsitem, '^', 3);
|
||||
if filenum = dsnum then
|
||||
begin
|
||||
if dsdisplay = '1' then
|
||||
lstSources.Checked[i] := true;
|
||||
break;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
with aGraphSetting do
|
||||
begin
|
||||
OptionSettings := '';
|
||||
if Values then OptionSettings := OptionSettings + SETTING_VALUES;
|
||||
if VerticalZoom then OptionSettings := OptionSettings + SETTING_VZOOM;
|
||||
if HorizontalZoom then OptionSettings := OptionSettings + SETTING_HZOOM;
|
||||
if View3D then OptionSettings := OptionSettings + SETTING_3D;
|
||||
if Legend then OptionSettings := OptionSettings + SETTING_LEGEND;
|
||||
if Lines then OptionSettings := OptionSettings + SETTING_LINES;
|
||||
if Dates then OptionSettings := OptionSettings + SETTING_DATES;
|
||||
if SortByType then OptionSettings := OptionSettings + SETTING_SORT;
|
||||
if ClearBackground then OptionSettings := OptionSettings + SETTING_CLEAR;
|
||||
if Gradient then OptionSettings := OptionSettings + SETTING_GRADIENT;
|
||||
if Hints then OptionSettings := OptionSettings + SETTING_HINTS;
|
||||
if StayOnTop then OptionSettings := OptionSettings + SETTING_TOP;
|
||||
if FixedDateRange then OptionSettings := OptionSettings + SETTING_FIXED;
|
||||
spnMaxGraphs.Position := MaxGraphs;
|
||||
spnMinGraphHeight.Position := MinGraphHeight;
|
||||
MaxSelect := Min(MaxSelectMax, MaxSelect);
|
||||
if MaxSelect < MaxSelectMin then
|
||||
MaxSelect := MaxSelectMin;
|
||||
spnMaxSelect.Position := MaxSelect;
|
||||
spnMaxSelect.Min := MaxSelectMin;
|
||||
spnMaxSelect.Max := MaxSelectMax;
|
||||
if SortByType then SortColumn := 1 else SortColumn := 0;
|
||||
lstOptions.Tag := SortColumn;
|
||||
if (SortColumn > 0) then
|
||||
if Pos(SETTING_SORT, OptionSettings) = 0 then
|
||||
OptionSettings := OptionSettings + SETTING_SORT;
|
||||
for i := 0 to lstOptions.Items.Count - 1 do
|
||||
begin
|
||||
value := Piece(lstOptions.Items[i], '^', 2);
|
||||
chklstOptions.Checked[i] := Pos(value, OptionSettings) > 0;
|
||||
end;
|
||||
end;
|
||||
btnPersonal.Hint := GetPersonalSetting;
|
||||
btnPublic.Hint := GetPublicSetting;
|
||||
GetTypeList(aList);
|
||||
SetSources(aList, DisplaySource);
|
||||
SetSettings(aGraphSetting);
|
||||
with spnMaxGraphs do
|
||||
lblMaxGraphsRef.Caption := inttostr(Min) + ' to ' + inttostr(Max);
|
||||
with spnMinGraphHeight do
|
||||
lblMinGraphHeightRef.Caption := inttostr(Min) + ' to ' + inttostr(Max);
|
||||
with spnMaxSelect do
|
||||
lblMaxSelectRef.Caption := inttostr(Min) + ' to ' + inttostr(Max);
|
||||
if conv = BIG_NUMBER then
|
||||
begin
|
||||
lblOptionsInfo.Visible := true;
|
||||
frmGraphSettings.Caption := 'Graph Settings - Defaults Only';
|
||||
lblConversions.Enabled := false;
|
||||
cboConversions.Enabled := false;
|
||||
cboConversions.ItemIndex := 0;
|
||||
cboConversions.Text := '';
|
||||
end
|
||||
else
|
||||
with cboConversions do
|
||||
begin
|
||||
lblOptionsInfo.Visible := false;
|
||||
frmGraphSettings.Caption := 'Graph Settings';
|
||||
if btnPublicSave.Enabled = true then
|
||||
begin
|
||||
lblConversions.Enabled := true;
|
||||
Enabled := true;
|
||||
ItemIndex := conv;
|
||||
Text := Items[ItemIndex];
|
||||
end
|
||||
else
|
||||
begin
|
||||
lblConversions.Enabled := false;
|
||||
cboConversions.Enabled := false;
|
||||
cboConversions.ItemIndex := 0;
|
||||
cboConversions.Text := '';
|
||||
end;
|
||||
end;
|
||||
Conversion(conv);
|
||||
ResizeAnchoredFormToFont(frmGraphSettings);
|
||||
ShowModal;
|
||||
okbutton := (btnClose.Tag = 1);
|
||||
|
@ -274,62 +178,8 @@ begin
|
|||
begin
|
||||
aSettings := btnClose.Hint;
|
||||
conv := cboConversions.ItemIndex;
|
||||
with lstSources do
|
||||
begin
|
||||
for i := 0 to Items.Count - 1 do
|
||||
begin
|
||||
needtoadd := false;
|
||||
if Checked[i] then
|
||||
needtoadd := true;
|
||||
filename := Piece(lstSourcesCopy.Items[i], '^', 1);
|
||||
filenum := Piece(lstSourcesCopy.Items[i], '^', 2);
|
||||
for j := 0 to DisplaySource.Count - 1 do
|
||||
begin
|
||||
dsitem := DisplaySource[j];
|
||||
dsnum := Piece(dsitem, '^', 1);
|
||||
if filenum = dsnum then
|
||||
begin
|
||||
needtoadd := false;
|
||||
if Checked[i] then
|
||||
DisplaySource[j] := filenum + '^' + filename + '^1'
|
||||
else
|
||||
DisplaySource[j] := filenum + '^' + filename + '^0';
|
||||
break;
|
||||
end;
|
||||
end;
|
||||
if needtoadd then
|
||||
DisplaySource.Add('*^' + filenum + '^' + filename + '^1');
|
||||
end;
|
||||
end;
|
||||
with aGraphSetting do
|
||||
begin
|
||||
MaxGraphs := spnMaxGraphs.Position;
|
||||
MinGraphHeight := spnMinGraphHeight.Position;
|
||||
MaxSelect := spnMaxSelect.Position;
|
||||
MaxSelectMin := 1;
|
||||
OptionSettings := '';
|
||||
with chklstOptions do
|
||||
for i := 0 to Items.Count - 1 do
|
||||
begin
|
||||
value := Piece(lstOptions.Items[i], '^', 2);
|
||||
turnon := Checked[i];
|
||||
if turnon then OptionSettings := OptionSettings + value;
|
||||
if value = SETTING_VALUES then Values := turnon
|
||||
else if value = SETTING_VZOOM then VerticalZoom := turnon
|
||||
else if value = SETTING_HZOOM then HorizontalZoom := turnon
|
||||
else if value = SETTING_3D then View3D := turnon
|
||||
else if value = SETTING_LEGEND then Legend := turnon
|
||||
else if value = SETTING_LINES then Lines := turnon
|
||||
else if value = SETTING_DATES then Dates := turnon
|
||||
else if value = SETTING_SORT then SortByType := turnon
|
||||
else if value = SETTING_CLEAR then ClearBackground := turnon
|
||||
else if value = SETTING_GRADIENT then Gradient := turnon
|
||||
else if value = SETTING_HINTS then Hints := turnon
|
||||
else if value = SETTING_FIXED then FixedDateRange := turnon
|
||||
else if value = SETTING_TOP then StayOnTop := turnon;
|
||||
end;
|
||||
if SortByType then SortColumn := 1 else SortColumn := 0;
|
||||
end;
|
||||
ChangeSources(DisplaySource);
|
||||
ChangeSettings(aGraphSetting);
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
|
@ -338,6 +188,217 @@ begin
|
|||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmGraphSettings.ChangeSettings(aGraphSetting: TGraphSetting);
|
||||
var
|
||||
turnon: boolean;
|
||||
i : integer;
|
||||
value: string;
|
||||
begin
|
||||
with aGraphSetting do
|
||||
begin
|
||||
MaxGraphs := spnMaxGraphs.Position;
|
||||
MinGraphHeight := spnMinGraphHeight.Position;
|
||||
MaxSelect := spnMaxSelect.Position;
|
||||
MaxSelectMin := 1;
|
||||
OptionSettings := '';
|
||||
with chklstOptions do
|
||||
for i := 0 to Items.Count - 1 do
|
||||
begin
|
||||
value := Piece(lstOptions.Items[i], '^', 2);
|
||||
turnon := Checked[i];
|
||||
if turnon then OptionSettings := OptionSettings + value;
|
||||
if value = SETTING_VALUES then Values := turnon
|
||||
else if value = SETTING_VZOOM then VerticalZoom := turnon
|
||||
else if value = SETTING_HZOOM then HorizontalZoom := turnon
|
||||
else if value = SETTING_3D then View3D := turnon
|
||||
else if value = SETTING_LEGEND then Legend := turnon
|
||||
else if value = SETTING_LINES then Lines := turnon
|
||||
else if value = SETTING_DATES then Dates := turnon
|
||||
else if value = SETTING_SORT then SortByType := turnon
|
||||
else if value = SETTING_CLEAR then ClearBackground := turnon
|
||||
else if value = SETTING_GRADIENT then Gradient := turnon
|
||||
else if value = SETTING_HINTS then Hints := turnon
|
||||
else if value = SETTING_FIXED then FixedDateRange := turnon
|
||||
else if value = SETTING_TURBO then Turbo := turnon
|
||||
else if value = SETTING_TOP then StayOnTop := turnon;
|
||||
end;
|
||||
if SortByType then SortColumn := 1 else SortColumn := 0;
|
||||
DateRangeOutpatient := cboDateRangeOutpatient.ItemID;
|
||||
DateRangeInpatient := cboDateRangeInpatient.ItemID;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmGraphSettings.ChangeSources(DisplaySource: TStrings);
|
||||
var
|
||||
needtoadd: boolean;
|
||||
i, j : integer;
|
||||
filename, filenum, dsitem, dsnum: string;
|
||||
begin
|
||||
with lstSources do
|
||||
begin
|
||||
for i := 0 to Items.Count - 1 do
|
||||
begin
|
||||
needtoadd := false;
|
||||
if Checked[i] then
|
||||
needtoadd := true;
|
||||
filename := Piece(lstSourcesCopy.Items[i], '^', 1);
|
||||
filenum := Piece(lstSourcesCopy.Items[i], '^', 2);
|
||||
for j := 0 to DisplaySource.Count - 1 do
|
||||
begin
|
||||
dsitem := DisplaySource[j];
|
||||
dsnum := Piece(dsitem, '^', 1);
|
||||
if filenum = dsnum then
|
||||
begin
|
||||
needtoadd := false;
|
||||
if Checked[i] then
|
||||
DisplaySource[j] := filenum + '^' + filename + '^1'
|
||||
else
|
||||
DisplaySource[j] := filenum + '^' + filename + '^0';
|
||||
break;
|
||||
end;
|
||||
end;
|
||||
if needtoadd then
|
||||
DisplaySource.Add('*^' + filenum + '^' + filename + '^1');
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmGraphSettings.Conversion(conv: integer);
|
||||
begin
|
||||
if conv = BIG_NUMBER then
|
||||
begin
|
||||
lblOptionsInfo.Visible := true;
|
||||
frmGraphSettings.Caption := 'Graph Settings - Defaults Only';
|
||||
lblConversions.Enabled := false;
|
||||
cboConversions.Enabled := false;
|
||||
cboConversions.ItemIndex := 0;
|
||||
cboConversions.Text := '';
|
||||
end
|
||||
else
|
||||
with cboConversions do
|
||||
begin
|
||||
lblOptionsInfo.Visible := false;
|
||||
frmGraphSettings.Caption := 'Graph Settings';
|
||||
if btnPublicSave.Enabled = true then
|
||||
begin
|
||||
lblConversions.Enabled := true;
|
||||
Enabled := true;
|
||||
ItemIndex := conv;
|
||||
Text := Items[ItemIndex];
|
||||
end
|
||||
else
|
||||
begin
|
||||
lblConversions.Enabled := false;
|
||||
cboConversions.Enabled := false;
|
||||
cboConversions.ItemIndex := 0;
|
||||
cboConversions.Text := '';
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmGraphSettings.SetSettings(aGraphSetting: TGraphSetting);
|
||||
var
|
||||
i : integer;
|
||||
value: string;
|
||||
begin
|
||||
with aGraphSetting do
|
||||
begin
|
||||
OptionSettings := '';
|
||||
if Values then OptionSettings := OptionSettings + SETTING_VALUES;
|
||||
if VerticalZoom then OptionSettings := OptionSettings + SETTING_VZOOM;
|
||||
if HorizontalZoom then OptionSettings := OptionSettings + SETTING_HZOOM;
|
||||
if View3D then OptionSettings := OptionSettings + SETTING_3D;
|
||||
if Legend then OptionSettings := OptionSettings + SETTING_LEGEND;
|
||||
if Lines then OptionSettings := OptionSettings + SETTING_LINES;
|
||||
if Dates then OptionSettings := OptionSettings + SETTING_DATES;
|
||||
if SortByType then OptionSettings := OptionSettings + SETTING_SORT;
|
||||
if ClearBackground then OptionSettings := OptionSettings + SETTING_CLEAR;
|
||||
if Gradient then OptionSettings := OptionSettings + SETTING_GRADIENT;
|
||||
if Hints then OptionSettings := OptionSettings + SETTING_HINTS;
|
||||
if StayOnTop then OptionSettings := OptionSettings + SETTING_TOP;
|
||||
if FixedDateRange then OptionSettings := OptionSettings + SETTING_FIXED;
|
||||
spnMaxGraphs.Position := MaxGraphs;
|
||||
spnMinGraphHeight.Position := MinGraphHeight;
|
||||
MaxSelect := Min(MaxSelectMax, MaxSelect);
|
||||
if MaxSelect < MaxSelectMin then
|
||||
MaxSelect := MaxSelectMin;
|
||||
spnMaxSelect.Position := MaxSelect;
|
||||
spnMaxSelect.Min := MaxSelectMin;
|
||||
spnMaxSelect.Max := MaxSelectMax;
|
||||
cboDateRangeOutpatient.SelectByID(GetDefaultOutpatientDate);
|
||||
cboDateRangeInpatient.SelectByID(GetDefaultInpatientDate);
|
||||
if SortByType then SortColumn := 1 else SortColumn := 0;
|
||||
lstOptions.Tag := SortColumn;
|
||||
if (SortColumn > 0) then
|
||||
if Pos(SETTING_SORT, OptionSettings) = 0 then
|
||||
OptionSettings := OptionSettings + SETTING_SORT;
|
||||
if Turbo then OptionSettings := OptionSettings + SETTING_TURBO;
|
||||
if GraphPublicEditor or GraphTurboOn then
|
||||
begin
|
||||
lstOptions.Items.Add('Turbo^N');
|
||||
chklstOptions.Items.Add('Turbo');
|
||||
end;
|
||||
for i := 0 to lstOptions.Items.Count - 1 do
|
||||
begin
|
||||
value := Piece(lstOptions.Items[i], '^', 2);
|
||||
chklstOptions.Checked[i] := Pos(value, OptionSettings) > 0;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmGraphSettings.SetSources(aList, DisplaySource: TStrings);
|
||||
var
|
||||
i, j : integer;
|
||||
listitem, filenum, filename, dsitem, dsnum, dsdisplay: string;
|
||||
begin
|
||||
with lstSources.Items do
|
||||
begin
|
||||
Clear;
|
||||
lstSourcesCopy.Items.Clear;
|
||||
for i := 0 to aList.Count - 1 do
|
||||
begin
|
||||
listitem := aList[i];
|
||||
filenum := Piece(listitem, '^', 1);
|
||||
filename := Piece(listitem, '^', 2);
|
||||
Add(filename);
|
||||
lstSourcesCopy.Items.Add(filename + '^' + filenum);
|
||||
end;
|
||||
with lstSourcesCopy do
|
||||
for i := 0 to Items.Count - 1 do
|
||||
begin
|
||||
listitem := Items[i];
|
||||
filenum := Piece(listitem, '^', 2);
|
||||
for j := 0 to DisplaySource.Count - 1 do
|
||||
begin
|
||||
dsitem := DisplaySource[j];
|
||||
dsnum := Piece(dsitem, '^', 1);
|
||||
dsdisplay := Piece(dsitem, '^', 3);
|
||||
if filenum = dsnum then
|
||||
begin
|
||||
if dsdisplay = '1' then
|
||||
lstSources.Checked[i] := true;
|
||||
break;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmGraphSettings.GetTypeList(aList: TStrings);
|
||||
var
|
||||
i : integer;
|
||||
dfntype, listline : string;
|
||||
begin
|
||||
FastAssign(GtslAllTypes, aList);
|
||||
for i := 0 to aList.Count -1 do
|
||||
begin
|
||||
listline := aList[i];
|
||||
dfntype := UpperCase(Piece(listline, '^', 1));
|
||||
SetPiece(listline, '^', 1, dfntype);
|
||||
aList[i] := listline;
|
||||
end;
|
||||
end;
|
||||
|
||||
function FileNameX(filenum: string): string;
|
||||
var
|
||||
i: integer;
|
||||
|
@ -367,13 +428,14 @@ begin
|
|||
end;
|
||||
end;
|
||||
end;
|
||||
Alltypes.Free;
|
||||
end;
|
||||
|
||||
procedure TfrmGraphSettings.FormCreate(Sender: TObject);
|
||||
var
|
||||
i: integer;
|
||||
begin
|
||||
btnPublicSave.Enabled := rpcPublicEdit;
|
||||
btnPublicSave.Enabled := GraphPublicEditor;
|
||||
lblConversions.Enabled := btnPublicSave.Enabled;
|
||||
cboConversions.Enabled := btnPublicSave.Enabled;
|
||||
for i := 0 to lstOptions.Items.Count - 1 do
|
||||
|
@ -423,6 +485,8 @@ begin
|
|||
settings := settings + '|'; // not used
|
||||
settings := settings + txtMaxSelect.Text + '|';
|
||||
settings := settings + Piece(btnPublic.Hint, '|', 8) + '|';
|
||||
settings := settings + cboDateRangeOutpatient.ItemID + '|';
|
||||
settings := settings + cboDateRangeInpatient.ItemID + '|';
|
||||
Result := settings;
|
||||
end;
|
||||
|
||||
|
@ -444,6 +508,8 @@ begin
|
|||
spnMaxGraphs.Tag := spnMaxGraphs.Position;
|
||||
spnMinGraphHeight.Tag := spnMinGraphHeight.Position;
|
||||
spnMaxSelect.Tag := spnMaxSelect.Position;
|
||||
cboDateRangeOutpatient.SelectByID(Piece(settings, '|', 9));
|
||||
cboDateRangeInpatient.SelectByID(Piece(settings, '|', 10));
|
||||
for i := 0 to lstOptions.Items.Count - 1 do
|
||||
begin
|
||||
value := Piece(lstOptions.Items[i], '^', 2);
|
||||
|
@ -517,7 +583,7 @@ begin
|
|||
info := info + #13 + 'Is this what you want to do?';
|
||||
if MessageDlg(info, mtConfirmation, [mbYes, mbNo], 0) <> mrYes then
|
||||
begin
|
||||
showmessage('No changes were made.');
|
||||
ShowMsg('No changes were made.');
|
||||
exit;
|
||||
end;
|
||||
settings := DisplaySettings;
|
||||
|
@ -531,12 +597,22 @@ begin
|
|||
rpcSetGraphSettings(settings, '1');
|
||||
btnPublic.Hint := settings;
|
||||
end;
|
||||
if length(btnPersonal.Hint) > 0 then
|
||||
begin
|
||||
SetDefaultInpatientDate(Piece(btnPersonal.Hint, '|', 10));
|
||||
SetDefaultOutpatientDate(Piece(btnPersonal.Hint, '|', 9));
|
||||
end
|
||||
else
|
||||
begin
|
||||
SetDefaultInpatientDate(Piece(btnPublic.Hint, '|', 10));
|
||||
SetDefaultOutpatientDate(Piece(btnPublic.Hint, '|', 9));
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmGraphSettings.spnMaxGraphsClick(Sender: TObject;
|
||||
Button: TUDBtnType);
|
||||
begin
|
||||
txtMaxGraphs.SetFocus;
|
||||
//txtMaxGraphs.SetFocus;
|
||||
txtMaxGraphs.Tag := strtointdef(txtMaxGraphs.Text, spnMaxGraphs.Min);
|
||||
end;
|
||||
|
||||
|
@ -598,14 +674,14 @@ end;
|
|||
procedure TfrmGraphSettings.spnMinGraphHeightClick(Sender: TObject;
|
||||
Button: TUDBtnType);
|
||||
begin
|
||||
txtMinGraphHeight.SetFocus;
|
||||
//txtMinGraphHeight.SetFocus;
|
||||
txtMinGraphHeight.Tag := strtointdef(txtMinGraphHeight.Text, spnMinGraphHeight.Min);
|
||||
end;
|
||||
|
||||
procedure TfrmGraphSettings.spnMaxSelectClick(Sender: TObject;
|
||||
Button: TUDBtnType);
|
||||
begin
|
||||
txtMaxSelect.SetFocus;
|
||||
//txtMaxSelect.SetFocus;
|
||||
txtMaxSelect.Tag := strtointdef(txtMaxSelect.Text, spnMaxSelect.Min);
|
||||
end;
|
||||
|
||||
|
@ -741,8 +817,8 @@ end;
|
|||
|
||||
procedure TfrmGraphSettings.FormShow(Sender: TObject);
|
||||
begin
|
||||
if Caption = 'Graph Settings - Defaults Only' then
|
||||
btnPersonal.SetFocus;
|
||||
//if Caption = 'Graph Settings - Defaults Only' then
|
||||
// btnPersonal.SetFocus;
|
||||
FHintPauseTime := Application.HintHidePause;
|
||||
Application.HintHidePause := 9000; // uses a longer hint pause time
|
||||
end;
|
||||
|
@ -779,6 +855,10 @@ begin // text defined in uGraphs
|
|||
txtMaxSelect.Hint := SHINT_MAX_ITEMS;
|
||||
spnMaxSelect.Hint := SHINT_MAX_ITEMS;
|
||||
lblMaxSelectRef.Hint := SHINT_MAX_ITEMS;
|
||||
lblOutpatient.Hint := SHINT_OUTPT;
|
||||
cboDateRangeOutpatient.Hint := SHINT_OUTPT;
|
||||
lblInpatient.Hint := SHINT_INPT;
|
||||
cboDateRangeInpatient.Hint := SHINT_INPT;
|
||||
lblConversions.Hint := SHINT_FUNCTIONS;
|
||||
cboConversions.Hint := SHINT_FUNCTIONS;
|
||||
end;
|
||||
|
@ -789,7 +869,7 @@ begin // clicking the ? button will have controls show hints
|
|||
begin
|
||||
Msg.Result := 0; // ignore biHelp border icon
|
||||
AssignHints;
|
||||
ShowMessage('Help is now available.' + #13 +
|
||||
ShowMsg('Help is now available.' + #13 +
|
||||
'By pausing over a list or control, hints will appear.');
|
||||
end
|
||||
else
|
||||
|
|
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
|
@ -2,7 +2,7 @@ inherited frmHP: TfrmHP
|
|||
Caption = 'History and Physical Exam Page'
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
object Label1: TLabel
|
||||
object Label1: TLabel [1]
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 640
|
||||
|
@ -10,5 +10,12 @@ inherited frmHP: TfrmHP
|
|||
Align = alTop
|
||||
Alignment = taCenter
|
||||
Caption = 'History and Physical Exam (inherit directly from fPage)'
|
||||
ExplicitWidth = 251
|
||||
end
|
||||
inherited amgrMain: TVA508AccessibilityManager
|
||||
Data = (
|
||||
(
|
||||
'Component = frmHP'
|
||||
'Status = stsDefault'))
|
||||
end
|
||||
end
|
||||
|
|
|
@ -4,7 +4,7 @@ interface
|
|||
|
||||
uses
|
||||
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
|
||||
fPage, StdCtrls, ExtCtrls;
|
||||
fPage, StdCtrls, ExtCtrls, VA508AccessibilityManager;
|
||||
|
||||
type
|
||||
TfrmHP = class(TfrmPage)
|
||||
|
|
Binary file not shown.
|
@ -1,33 +1,45 @@
|
|||
inherited frmHSplit: TfrmHSplit
|
||||
Left = 276
|
||||
Left = 344
|
||||
Top = 228
|
||||
Caption = 'Basic Splitter Page'
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
object sptHorz: TSplitter
|
||||
object sptHorz: TSplitter [1]
|
||||
Left = 97
|
||||
Top = 0
|
||||
Width = 4
|
||||
Height = 349
|
||||
Height = 356
|
||||
end
|
||||
object pnlLeft: TPanel
|
||||
object pnlLeft: TPanel [2]
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 97
|
||||
Height = 349
|
||||
Height = 356
|
||||
Align = alLeft
|
||||
BevelOuter = bvNone
|
||||
Constraints.MinWidth = 30
|
||||
TabOrder = 0
|
||||
end
|
||||
object pnlRight: TPanel
|
||||
object pnlRight: TPanel [3]
|
||||
Left = 101
|
||||
Top = 0
|
||||
Width = 539
|
||||
Height = 349
|
||||
Height = 356
|
||||
Align = alClient
|
||||
BevelOuter = bvNone
|
||||
Constraints.MinWidth = 24
|
||||
TabOrder = 1
|
||||
end
|
||||
inherited amgrMain: TVA508AccessibilityManager
|
||||
Data = (
|
||||
(
|
||||
'Component = pnlLeft'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = pnlRight'
|
||||
'Status = stsDefault')
|
||||
(
|
||||
'Component = frmHSplit'
|
||||
'Status = stsDefault'))
|
||||
end
|
||||
end
|
||||
|
|
|
@ -4,7 +4,7 @@ interface
|
|||
|
||||
uses
|
||||
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
|
||||
fPage, ExtCtrls;
|
||||
fPage, ExtCtrls, VA508AccessibilityManager;
|
||||
|
||||
type
|
||||
TfrmHSplit = class(TfrmPage)
|
||||
|
|
Some files were not shown because too many files have changed in this diff Show More
Loading…
Reference in New Issue