Class

TTreeGridFrame

Module

mTreeGrid

Last Modified

7/15/2014 3:26:40 PM

Scope

Interfaced

Inherits from

TFrame

Declaration


TTreeGridFrame = class(TFrame)
  tv: TTreeView;
  pnlTop: TPanel;
  stTitle: TStaticText;
  pnlSpace: TPanel;
  pnlHint: TPanel;
  pnlTarget: TPanel;
  mmoTargetCode: TMemo;
  pnlTargetCodeSys: TPanel;
  pnlCode: TPanel;
  mmoCode: TMemo;
  pnlCodeSys: TPanel;
  pnlDesc: TPanel;
  mmoDesc: TMemo;
  pnlDescText: TPanel;
  procedure tvCreateNodeClass(Sender: TCustomTreeView;
    var NodeClass: TTreeNodeClass);
  procedure tvChange(Sender: TObject; Node: TTreeNode);
  procedure pnlTopResize(Sender: TObject);
private
  fHorizPanelSpace: integer;
  fVertPanelSpace: integer;
  fShowDesc: boolean;
  fShowCode: boolean;
  fShowTargetCode: boolean;
  function GetSelectedNode: TLexTreeNode;
  procedure SetSelectedNode(const Value: TLexTreeNode);
  procedure SetShowCode(const Value: boolean);
  procedure SetShowDescription(const Value: boolean);
  procedure SetShowTargetCode(const Value: boolean);
  function GetTitle: string;
  procedure SetTitle(const Value: string);
  procedure ResizePanels;
  procedure PopulatePanels;
  procedure SetHorizPanelSpace(const Value: integer);
  function GetShowCode: boolean;
  function GetShowDescription: boolean;
  function GetShowTargetCode: boolean;
  procedure SetVertPanelSpace(const Value: integer);
  procedure SetCodeTitle(const Value: string);
  procedure SetDescTitle(const Value: string);
  procedure SetTargetTitle(const Value: string);
  function GetCodeTitle: string;
  function GetDescTitle: string;
  function GetTargetTitle: string;
  function NumLinesWrapped(mmo: TMemo): integer;
  function GetSeparatorSpace: integer;
  procedure SetSeparatorSpace(const Value: integer);
protected
  procedure CMFontChanged(var Message: TMessage); message CM_FONTCHANGED;
public
  { Public declarations }
  procedure SetColumnTreeModel(ResultSet: TStrings);
  function FindNode(AValue:String): TLexTreeNode;
  property SelectedNode: TLexTreeNode read GetSelectedNode write SetSelectedNode;
  property ShowDescription: boolean read GetShowDescription write SetShowDescription;
  property ShowCode: boolean read GetShowCode write SetShowCode;
  property ShowTargetCode: boolean read GetShowTargetCode write SetShowTargetCode;
  property Title: string read GetTitle write SetTitle;
  property HorizPanelSpace: integer read fHorizPanelSpace write SetHorizPanelSpace;
  property VertPanelSpace: integer read fVertPanelSpace write SetVertPanelSpace;
  property DescTitle: string read GetDescTitle write SetDescTitle;
  property CodeTitle: string read GetCodeTitle write SetCodeTitle;
  property TargetTitle: string read GetTargetTitle write SetTargetTitle;
  property SeparatorSpace: integer read GetSeparatorSpace write SetSeparatorSpace;
  procedure ClearData;
end;

DFM Objects


TreeGridFrame : TTreeGridFrame
 ├tv : TTreeView
 ├pnlTop : TPanel
 │ └stTitle : TStaticText
 ├pnlSpace : TPanel
 └pnlHint : TPanel
   ├pnlTarget : TPanel
   │ ├mmoTargetCode : TMemo
   │ └pnlTargetCodeSys : TPanel
   ├pnlCode : TPanel
   │ ├mmoCode : TMemo
   │ └pnlCodeSys : TPanel
   └pnlDesc : TPanel
     ├mmoDesc : TMemo
     └pnlDescText : TPanel

Class Hierarchy


Class Fields

Name Type Scope Comments
fHorizPanelSpace Integer Private -
fShowCode Boolean Private -
fShowDesc Boolean Private -
fShowTargetCode Boolean Private -
fVertPanelSpace Integer Private -
mmoCode Simple (unknown) Public/Published -
mmoDesc Simple (unknown) Public/Published -
mmoTargetCode Simple (unknown) Public/Published -
pnlCode TPanel Public/Published -
pnlCodeSys TPanel Public/Published -
pnlDesc TPanel Public/Published -
pnlDescText TPanel Public/Published -
pnlHint TPanel Public/Published -
pnlSpace TPanel Public/Published -
pnlTarget TPanel Public/Published -
pnlTargetCodeSys TPanel Public/Published -
pnlTop TPanel Public/Published -
stTitle Simple (unknown) Public/Published -
tv TTreeView Public/Published -

Properties

Name Type Scope Comments
CodeTitle UnicodeString Public -
DescTitle UnicodeString Public -
HorizPanelSpace Integer Public -
SelectedNode TLexTreeNode Public -
SeparatorSpace Integer Public -
ShowCode Boolean Public -
ShowDescription Boolean Public -
ShowTargetCode Boolean Public -
TargetTitle UnicodeString Public -
Title UnicodeString Public -
VertPanelSpace Integer Public -

Methods

Name Declaration Scope Comments
ClearData procedure ClearData; Public TTreeGridFrame
CMFontChanged procedure CMFontChanged(var Message: TMessage); message CM_FONTCHANGED; Protected -
FindNode function FindNode(AValue:String): TLexTreeNode; Public -
GetCodeTitle function GetCodeTitle: string; Private -
GetDescTitle function GetDescTitle: string; Private -
GetSelectedNode function GetSelectedNode: TLexTreeNode; Private -
GetSeparatorSpace function GetSeparatorSpace: integer; Private -
GetShowCode function GetShowCode: boolean; Private -
GetShowDescription function GetShowDescription: boolean; Private -
GetShowTargetCode function GetShowTargetCode: boolean; Private -
GetTargetTitle function GetTargetTitle: string; Private -
GetTitle function GetTitle: string; Private -
NumLinesWrapped function NumLinesWrapped(mmo: TMemo): integer; Private -
pnlTopResize procedure pnlTopResize(Sender: TObject); Public/Published -
PopulatePanels procedure PopulatePanels; Private -
ResizePanels procedure ResizePanels; Private -
SetCodeTitle procedure SetCodeTitle(const Value: string); Private -
SetColumnTreeModel procedure SetColumnTreeModel(ResultSet: TStrings); Public Public declarations
SetDescTitle procedure SetDescTitle(const Value: string); Private -
SetHorizPanelSpace procedure SetHorizPanelSpace(const Value: integer); Private -
SetSelectedNode procedure SetSelectedNode(const Value: TLexTreeNode); Private -
SetSeparatorSpace procedure SetSeparatorSpace(const Value: integer); Private -
SetShowCode procedure SetShowCode(const Value: boolean); Private -
SetShowDescription procedure SetShowDescription(const Value: boolean); Private -
SetShowTargetCode procedure SetShowTargetCode(const Value: boolean); Private -
SetTargetTitle procedure SetTargetTitle(const Value: string); Private -
SetTitle procedure SetTitle(const Value: string); Private -
SetVertPanelSpace procedure SetVertPanelSpace(const Value: integer); Private -
tvChange procedure tvChange(Sender: TObject; Node: TTreeNode); Public/Published -
tvCreateNodeClass procedure tvCreateNodeClass(Sender: TCustomTreeView; var NodeClass: TTreeNodeClass); Public/Published -

Referenced By (6)

Module (line) Referrer Type
fPCELex (25) TfrmPCELex Read
fProbLex (28) TfrmPLLex Read
fProbLex (42) setClientWidth Read
fProbLex (43) CenterForm Read
fProbLex (294) - Read
fProbLex (328) - Read