Class

TSigItems

Module

uSignItems

Last Modified

7/15/2014 3:26:44 PM

Scope

Interfaced

Inherits from

TComponent

Declaration


TSigItems = class(TComponent)
private
  FBuilding: boolean;
  FStsCount: integer;
  FItems: TORStringList;
  FOldDrawItemEvent: TDrawItemEvent;
  FOldDrawItemEvents: array of TlbOnDrawEvent;
  Fcb: TList;
  Flb: TCustomListBox;
  FLastValidX: integer;
  FValidGap: integer;
  FDy: integer;
  FAllCheck: array[TSigItemType] of boolean;
  FAllCatCheck: boolean;
  FcbX: array[TSigItemType] of integer;
  function TagInfo(ASigType: TSigItemType; AIndex: integer): TSigItemTagInfo;
  procedure cbClicked(Sender: TObject);
  procedure cbEnter(Sender: TObject);
  procedure cbExit(Sender: TObject);
  procedure lbDrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState);
  procedure CopyCBValues(FromIndex, ToIndex: integer);
  function  FindCBValues(ATag: integer): TORCheckBox;
  function  GetTempCkBxState(Index: integer; CBValue:TSigItemType): string;

protected
  procedure Notification(AComponent: TComponent; Operation: TOperation); override;
public                          
  constructor Create(AOwner: TComponent); override;
  destructor Destroy; override;
  procedure Add(ItemType: Integer; const ID: string; Index: integer);
  procedure Remove(ItemType: integer; const ID: string);
  procedure ResetOrders;
  procedure Clear;
  procedure ClearDrawItems;
  procedure ClearFcb;
  function  UpdateListBox(lb: TCustomListBox): boolean;
  procedure EnableSettings(Index: integer; Checked: boolean);
  function  OK2SaveSettings: boolean;
  procedure SaveSettings;
  procedure DisplayPlTreatmentFactors;
  procedure DisplayUnsignedStsFlags(sFlags:string);
  function GetSigItems : TORStringList; //BAPHII 1.3.1
  function FindCB(ATag: integer): TORCheckBox; //BAPHII 1.3.1
  procedure CopyCB(FromIndex, ToIndex: integer); //BAPHII 1.3.1
  procedure SetSigItems(Sender: TObject; sourceOrderID: string); //BAPHII 1.3.1
  function ItemToTag(Info: TSigItemTagInfo): integer; //CQ5074
  function TagToItem(ATag: integer): TSigItemTagInfo; //CQ5074

end;

Class Hierarchy


Class Fields

Name Type Scope Comments
FAllCatCheck Boolean Private -
FAllCheck Array (static) Private -
FBuilding Boolean Private -
Fcb TList Private -
FcbX Array (static) Private -
FDy Integer Private -
FItems TORStringList Private -
FLastValidX Integer Private -
Flb Simple (unknown) Private -
FOldDrawItemEvent Simple (unknown) Private -
FOldDrawItemEvents Array (dynamic) Private -
FStsCount Integer Private -
FValidGap Integer Private -

Constructors

Name Declaration Scope Comments
Create constructor Create(AOwner: TComponent); override; Public -

Destructors

Name Declaration Scope Comments
Destroy destructor Destroy; override; Public -

Methods

Name Declaration Scope Comments
Add procedure Add(ItemType: Integer; const ID: string; Index: integer); Public
TSigItems 

FItems Layout:
1         2               3                            4                      5
OrderID ^ ListBox Index ^ RPC Call was Made (0 or 1) ^ Settings by char pos ^ Disabled Flag
cbClicked procedure cbClicked(Sender: TObject); Private -
cbEnter procedure cbEnter(Sender: TObject); Private -
cbExit procedure cbExit(Sender: TObject); Private -
Clear procedure Clear; Public -
ClearDrawItems procedure ClearDrawItems; Public -
ClearFcb procedure ClearFcb; Public -
CopyCB procedure CopyCB(FromIndex, ToIndex: integer); Public BAPHII 1.3.1
CopyCBValues procedure CopyCBValues(FromIndex, ToIndex: integer); Private -
DisplayPlTreatmentFactors procedure DisplayPlTreatmentFactors; Public -
DisplayUnsignedStsFlags procedure DisplayUnsignedStsFlags(sFlags:string); Public Begin Billing Aware
EnableSettings procedure EnableSettings(Index: integer; Checked: boolean); Public -
FindCB function FindCB(ATag: integer): TORCheckBox; Public BAPHII 1.3.1
FindCBValues function FindCBValues(ATag: integer): TORCheckBox; Private -
GetSigItems function GetSigItems : TORStringList; Public BAPHII 1.3.1
GetTempCkBxState function GetTempCkBxState(Index: integer; CBValue:TSigItemType): string; Private -
ItemToTag function ItemToTag(Info: TSigItemTagInfo): integer; Public CQ5074
lbDrawItem procedure lbDrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState); Private -
Notification procedure Notification(AComponent: TComponent; Operation: TOperation); override; Protected -
OK2SaveSettings function OK2SaveSettings: boolean; Public -
Remove procedure Remove(ItemType: integer; const ID: string); Public -
ResetOrders procedure ResetOrders; Public Resets ListBox positions, to avoid old data messing things up
SaveSettings procedure SaveSettings; Public -
SetSigItems procedure SetSigItems(Sender: TObject; sourceOrderID: string); Public BAPHII 1.3.1
TagInfo function TagInfo(ASigType: TSigItemType; AIndex: integer): TSigItemTagInfo; Private -
TagToItem function TagToItem(ATag: integer): TSigItemTagInfo; Public CQ5074
UpdateListBox function UpdateListBox(lb: TCustomListBox): boolean; Public -

Referenced By (8)

Module (line) Referrer Type
uSignItems (75) SigItems Read
uSignItems (76) SigItemsCS Read
uSignItems (95) uSigItems Read
uSignItems (96) uSigItemsCS Read
uSignItems (208) - Read
uSignItems (214) - Read
uSignItems (222) - Read
uSignItems (228) - Read