Class

TfraTemplateFieldButton

Module

mTemplateFieldButton

Last Modified

7/15/2014 3:26:44 PM

Scope

Interfaced

Inherits from

TFrame

Declaration


TfraTemplateFieldButton = class(TFrame, ICPRSDialogComponent)
  pnlBtn: TPanel;
  lblText: TLabel;
  pbFocus: TPaintBox;
  procedure pnlBtnMouseDown(Sender: TObject; Button: TMouseButton;
    Shift: TShiftState; X, Y: Integer);
  procedure pnlBtnMouseUp(Sender: TObject; Button: TMouseButton;
    Shift: TShiftState; X, Y: Integer);
  procedure FrameEnter(Sender: TObject);
  procedure FrameExit(Sender: TObject);
  procedure pbFocusPaint(Sender: TObject);
private
  FCPRSDialogData: ICPRSDialogComponent;
  FBtnDown: boolean;
  FItems: TStringList;
  FOnChange: TNotifyEvent;
  procedure ButtonKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
  procedure ButtonKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
  function GetButtonText: string;
  procedure SetButtonText(const Value: string);
public
  constructor Create(AOwner: TComponent); override;
  destructor Destroy; override;
  property ButtonText: string read GetButtonText write SetButtonText;
  property Items: TStringList read FItems;
  property OnChange: TNotifyEvent read FOnChange write FOnChange;
  property CPRSDialogData: ICPRSDialogComponent read FCPRSDialogData implements ICPRSDialogComponent;
end;

DFM Objects


fraTemplateFieldButton : TfraTemplateFieldButton
 └pnlBtn : TPanel
   ├lblText : TLabel
   └pbFocus : TPaintBox

Class Hierarchy


Class Fields

Name Type Scope Comments
FBtnDown Boolean Private -
FCPRSDialogData Private -
FItems TStringList Private -
FOnChange TNotifyEvent Private -
lblText TLabel Public/Published -
pbFocus Simple (unknown) Public/Published -
pnlBtn TPanel Public/Published -

Properties

Name Type Scope Comments
ButtonText UnicodeString Public -
CPRSDialogData Public -
Items TStringList Public -
OnChange TNotifyEvent Public -

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
ButtonKeyDown procedure ButtonKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); Private -
ButtonKeyUp procedure ButtonKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); Private -
FrameEnter procedure FrameEnter(Sender: TObject); Public/Published -
FrameExit procedure FrameExit(Sender: TObject); Public/Published -
GetButtonText function GetButtonText: string; Private -
pbFocusPaint procedure pbFocusPaint(Sender: TObject); Public/Published -
pnlBtnMouseDown procedure pnlBtnMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); Public/Published -
pnlBtnMouseUp procedure pnlBtnMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); Public/Published -
SetButtonText procedure SetButtonText(const Value: string); Private -

Referenced By (11)

Module (line) Referrer Type
mTemplateFieldButton (163) - Read
uTemplateFields (1083) - Read
uTemplateFields (1180) - Read
uTemplateFields (2013) - Read
uTemplateFields (2015) - Read
uTemplateFields (2441) - Read
uTemplateFields (2442) - Unknown
uVA508CPRSCompatibility (454) - Read
uVA508CPRSCompatibility (460) - Read
uVA508CPRSCompatibility (471) - Read
uVA508CPRSCompatibility (500) - Read