Summary Table

Categories Total Count
PII 0
URL 0
DNS 0
EKL 0
IP 0
PORT 0
VsID 0
CF 0
AI 0
VPD 0
PL 0
Other 0

File Content

unit uROR_Resources;

interface

uses
Controls, Forms, Graphics, ImgList, SysUtils;

resourcestring

rscAddHint = 'Add|Add selected item(s) to the list';
rscAddAllHint = 'Add All|Add all items to the list';
rscBreakLink = 'Break the Clinical Link';
rscRemoveHint = 'Remove|Remove selected item(s) from the list';
rscRemoveAllHint = 'Remove All|Clear the list';
rscUseAppData = 'Rejoin and Use Application Data';
rscUseGlobalData = 'Rejoin and Use Global Data';

RSC0001 = 'CCOW Contextor';
RSC0002 = 'Update the clinical context with the application''s data?';
RSC0003 = 'Contextor has not been run and the application has not joined a context.';
RSC0004 = 'Contextor has been run and the application is participating in a context.';
RSC0005 = 'Contextor has been run but the application is not participating in a context.';
RSC0006 = 'Cannot determine the contextor state.';

RSC0010 = 'Search pattern should contain at least %d character(s).';
RSC0011 = 'Invalid search pattern.';
RSC0012 = 'Start Search';
RSC0013 = 'Cancel Search';

RSC0020 = 'Field value cannot be converted to Date/Time.';
RSC0021 = 'Value should not be longer than %d characters. Truncate?';

RSC0030 = 'The "%s" item is already selected in the "%s".';

var
bmAdd: TBitmap = nil;
bmAddAll: TBitmap = nil;
bmRemove: TBitmap = nil;
bmRemoveAll: TBitmap = nil;
bmSearchCancel: TBitmap = nil;
bmSearchStart: TBitmap = nil;

procedure LoadCCREditSearchResources;
procedure LoadCCRSelectorResources;

implementation
{$R *.res}

procedure LoadCCREditSearchResources;
begin
if Assigned(bmSearchStart) then Exit;

bmSearchCancel := TBitmap.Create;
bmSearchStart := TBitmap.Create;

bmSearchCancel.LoadFromResourceName(HInstance, 'BTN_CANCEL');
bmSearchStart.LoadFromResourceName(HInstance, 'BTN_SEARCH');
end;

procedure LoadCCRSelectorResources;
begin
if Assigned(bmAdd) then Exit;

bmAdd := TBitmap.Create;
bmAddAll := TBitmap.Create;
bmRemove := TBitmap.Create;
bmRemoveAll := TBitmap.Create;

bmAdd.LoadFromResourceName(HInstance, 'BTN_ADD');
bmAddAll.LoadFromResourceName(HInstance, 'BTN_ADDALL');
bmRemove.LoadFromResourceName(HInstance, 'BTN_REMOVE');
bmRemoveAll.LoadFromResourceName(HInstance, 'BTN_REMOVEALL');
end;

initialization
finalization
FreeAndNil(bmAdd);
FreeAndNil(bmAddAll);
FreeAndNil(bmRemove);
FreeAndNil(bmRemoveAll);

end.