| Class TOutlinePlus (unit Outlplus) |
TCustomGrid
| Constructors |
constructor Create(AOwner: TComponent);TOutlinePlus
| Functions |
function Add(Index: LongInt; const Text: string): LongInt;
function AddChild(Index: LongInt; const Text: string): LongInt;
function AddChildObject(Index: LongInt; const Text: string; const Data: Pointer): LongInt;
function AddObject(Index: LongInt; const Text: string; const Data: Pointer): LongInt;
procedure BeginUpdate;
procedure Clear;
procedure Delete(Index: LongInt);
destructor Destroy;
procedure EndUpdate;
procedure FullCollapse;
procedure FullExpand;
function GetDataItem(Value: Pointer): Longint;
function GetItem(X, Y: Integer): LongInt;
function GetNodeDisplayWidth(Node: TOutlineNodePlus): Integer;
function GetTextItem(const Value: string): Longint;
function GetVisibleNode(Index: LongInt): TOutlineNodePlus;
function Insert(Index: LongInt; const Text: string): LongInt;
function InsertObject(Index: LongInt; const Text: string; const Data: Pointer): LongInt;
procedure LoadFromFile(const FileName: string);
procedure LoadFromStream(Stream: TStream);
procedure SaveToFile(const FileName: string);
procedure SaveToStream(Stream: TStream);
procedure SetUpdateState(Value: Boolean);
function BadIndex(Value: TOutlineNodePlus): Boolean;
procedure Click;
procedure Collapse(Index: LongInt);
procedure DblClick;
procedure DefineProperties(Filer: TFiler);
procedure DeleteNode(Node: TOutlineNodePlus; CurIndex: LongInt);
procedure DrawCell(ACol, ARow: Longint; ARect: TRect;
AState: TGridDrawState);
procedure DrawPictures(BitMaps: array of TBitmap; ARect: TRect);
procedure DrawText(Node: TOutlineNodePlus; Rect: TRect);
procedure DrawTree(ARect: TRect; Node: TOutlineNodePlus);
procedure Expand(Index: LongInt);
function GetTopItem : Longint;
procedure KeyDown(var Key: Word; Shift: TShiftState);
procedure KeyPress(var Key: Char);
procedure Loaded;
procedure MouseDown(Button: TMouseButton; Shift: TShiftState;
X, Y: Integer);
procedure Move(Destination, Source: LongInt; AttachMode: TAttachMode);
procedure SetDisplayWidth(Value: Integer);
function SetGoodIndex(Value: TOutlineNodePlus): TOutlineNodePlus;
procedure SetLevel (Node: TOutlineNodePlus; CurLevel, NewLevel: Cardinal);
procedure SetTopItem(Val : Longint);
function AttachNode(Index: LongInt; Str: string;
Ptr: Pointer; AttachMode: TAttachMode): LongInt;
procedure ChangeBitmap(Value: TBitmap; Kind: TOutlineBitmap);
procedure ClearBitmap(var Bitmap: TBitmap; Kind: TOutlineBitmap);
procedure CMFontChanged(var Message: TMessage);
function CompareNodes(Value1, Value2: TOutlineNodePlus): TOutlineNodeCompare;
procedure CreateGlyph;
procedure DoExpand(Node: TOutlineNodePlus);
procedure Error(ErrorString: String);
function Get(Index: LongInt): TOutlineNodePlus;
function GetItemCount: LongInt;
function GetPicture(Index: Integer): TBitmap;
function GetSelectedItem: LongInt;
function GetStrings: TStrings;
procedure Init;
function IsCurItem(Value: LongInt): Boolean;
procedure MoveNode(Destination, Source: LongInt;
AttachMode: TAttachMode);
procedure ReadBinaryData(Stream: TStream);
procedure ResetSelectedItem;
function ResizeGrid: Boolean;
procedure SetCurItem(Value: LongInt);
procedure SetHorzScrollBar;
procedure SetItemHeight(Value: Integer);
procedure SetMaskColor(Value: TColor);
procedure SetOutlineOptions(Value: TOutlineOptions);
procedure SetOutlineStyle(Value: TOutlineStyle);
procedure SetPicture(Index: Integer; Value: TBitmap);
procedure SetRowFromNode(Node: TOutlineNodePlus);
procedure SetRowHeight;
procedure SetSelectedItem(Value: Longint);
procedure SetStrings(Value: TStrings);
procedure SetStyle(Value: TOutlineType);
function StoreBitmap(Index: Integer): Boolean;
procedure WMSize(var Message: TWMSize);
procedure WriteBinaryData(Stream: TStream);| Properties |
property Align :
property BorderStyle :
property Color :
property Ctl3D :
property DragCursor :
property DragMode :
property Enabled :
property Font :
property ItemHeight : Integer
property ItemSeparator : string
property Lines : TStrings
property Options : TOutlineOptions
property OutlineStyle : TOutlineStyle
property ParentColor :
property ParentCtl3D :
property ParentFont :
property ParentShowHint :
property PictureClosed : TBitmap
property PictureLeaf : TBitmap
property PictureMinus : TBitmap
property PictureOpen : TBitmap
property PicturePlus : TBitmap
property PopupMenu :
property ScrollBars :
property ShowHint :
property Style : TOutlineType
property TabOrder :
property TabStop :
property Visible :
property Canvas :
property ItemCount : LongInt
property Items : TOutlineNodePlus
property Pictures : TBitmap
property Row :
property SelectedItem : Longint
property TopItem : Longint
property TopRow :
property VisibleRowCount : | Events |
event OnClick :
event OnCollapse : EOutlineChange
event OnDblClick :
event OnDragDrop :
event OnDragOver :
event OnDrawItem : TDrawItemEvent
event OnEndDrag :
event OnEnter :
event OnExit :
event OnExpand : EOutlineChange
event OnGetBitmap : EGetBitmap
event OnKeyDown :
event OnKeyPress :
event OnKeyUp :
event OnMouseDown :
event OnMouseMove :
event OnMouseUp :
event OnStartDrag : | Variables |
FBlockInsert : Boolean;
FCurItem : TOutlineNodePlus;
FFontSize : Integer;
FGoodNode : TOutlineNodePlus;
FIgnoreScrollResize : Boolean;
FItemHeight : Integer;
FMaskColor : TColor;
FOldBitmaps : TOutlineBitmaps;
FOnCollapse : EOutlineChange;
FOnDrawItem : TDrawItemEvent;
FOnExpand : EOutlineChange;
FOnGetBitmap : EGetBitmap;
FOptions : TOutlineOptions;
FOutlineStyle : TOutlineStyle;
FPictures : TBitmapArray;
FRootNode : TOutlineNodePlus;
FSelectedItem : TOutlineNodePlus;
FSeparator : string;
FSettingHeight : Boolean;
FSettingWidth : Boolean;
FStrings : TStrings;
FStyle : TOutlineType;
FUserBitmaps : TOutlineBitmaps;
UpdateCount : Integer;| Constructors |
constructor Create(AOwner: TComponent);Added by ANME } {property RootNode: TOutlineNodePlus read FRootNode stored False;
TOutlinePlus
| Functions |
function Add(Index: LongInt; const Text: string): LongInt;
function AddChild(Index: LongInt; const Text: string): LongInt;
function AddChildObject(Index: LongInt; const Text: string; const Data: Pointer): LongInt;
function AddObject(Index: LongInt; const Text: string; const Data: Pointer): LongInt;
procedure BeginUpdate;
procedure Clear;
procedure Delete(Index: LongInt);
destructor Destroy;
procedure EndUpdate;
procedure FullCollapse;
procedure FullExpand;
function GetDataItem(Value: Pointer): Longint;
function GetItem(X, Y: Integer): LongInt;
function GetNodeDisplayWidth(Node: TOutlineNodePlus): Integer;
function GetTextItem(const Value: string): Longint;
function GetVisibleNode(Index: LongInt): TOutlineNodePlus;
function Insert(Index: LongInt; const Text: string): LongInt;
function InsertObject(Index: LongInt; const Text: string; const Data: Pointer): LongInt;
procedure LoadFromFile(const FileName: string);
procedure LoadFromStream(Stream: TStream);
procedure SaveToFile(const FileName: string);
procedure SaveToStream(Stream: TStream);
procedure SetUpdateState(Value: Boolean);
function BadIndex(Value: TOutlineNodePlus): Boolean;
procedure Click;
procedure Collapse(Index: LongInt);
procedure DblClick;
procedure DefineProperties(Filer: TFiler);
procedure DeleteNode(Node: TOutlineNodePlus; CurIndex: LongInt);
procedure DrawCell(ACol, ARow: Longint; ARect: TRect;
AState: TGridDrawState);
procedure DrawPictures(BitMaps: array of TBitmap; ARect: TRect);Changed by ANME
procedure DrawText(Node: TOutlineNodePlus; Rect: TRect);Changed by ANME
procedure DrawTree(ARect: TRect; Node: TOutlineNodePlus);Delphi 2.01: Node := GetVisibleNode(ARow);
procedure Expand(Index: LongInt);
function GetTopItem : Longint;
procedure KeyDown(var Key: Word; Shift: TShiftState);
procedure KeyPress(var Key: Char);
procedure Loaded;Changed by ANME
procedure MouseDown(Button: TMouseButton; Shift: TShiftState;
X, Y: Integer);
procedure Move(Destination, Source: LongInt; AttachMode: TAttachMode);
procedure SetDisplayWidth(Value: Integer);
function SetGoodIndex(Value: TOutlineNodePlus): TOutlineNodePlus;
procedure SetLevel (Node: TOutlineNodePlus; CurLevel, NewLevel: Cardinal);
procedure SetTopItem(Val : Longint);Added by ANME
function AttachNode(Index: LongInt; Str: string;
Ptr: Pointer; AttachMode: TAttachMode): LongInt;
procedure ChangeBitmap(Value: TBitmap; Kind: TOutlineBitmap);
procedure ClearBitmap(var Bitmap: TBitmap; Kind: TOutlineBitmap);
procedure CMFontChanged(var Message: TMessage);
function CompareNodes(Value1, Value2: TOutlineNodePlus): TOutlineNodeCompare;
procedure CreateGlyph;
procedure DoExpand(Node: TOutlineNodePlus);
procedure Error(ErrorString: String);
function Get(Index: LongInt): TOutlineNodePlus;
function GetItemCount: LongInt;
function GetPicture(Index: Integer): TBitmap;
function GetSelectedItem: LongInt;
function GetStrings: TStrings;
procedure Init;
function IsCurItem(Value: LongInt): Boolean;
procedure MoveNode(Destination, Source: LongInt;
AttachMode: TAttachMode);
procedure ReadBinaryData(Stream: TStream);
procedure ResetSelectedItem;
function ResizeGrid: Boolean;
procedure SetCurItem(Value: LongInt);
procedure SetHorzScrollBar;
procedure SetItemHeight(Value: Integer);
procedure SetMaskColor(Value: TColor);
procedure SetOutlineOptions(Value: TOutlineOptions);
procedure SetOutlineStyle(Value: TOutlineStyle);
procedure SetPicture(Index: Integer; Value: TBitmap);
procedure SetRowFromNode(Node: TOutlineNodePlus);
procedure SetRowHeight;
procedure SetSelectedItem(Value: Longint);
procedure SetStrings(Value: TStrings);
procedure SetStyle(Value: TOutlineType);
function StoreBitmap(Index: Integer): Boolean;
procedure WMSize(var Message: TWMSize);Added by ANME
procedure WriteBinaryData(Stream: TStream);| Properties |
property Align : Added by ANME
property BorderStyle :
property Color :
property Ctl3D :
property DragCursor :
property DragMode :
property Enabled :
property Font :
property ItemHeight : Integer
property ItemSeparator : string
property Lines : TStrings
property Options : TOutlineOptions
property OutlineStyle : TOutlineStyle
property ParentColor :
property ParentCtl3D :
property ParentFont :
property ParentShowHint :
property PictureClosed : TBitmap
property PictureLeaf : TBitmap
property PictureMinus : TBitmap
property PictureOpen : TBitmap
property PicturePlus : TBitmap
property PopupMenu :
property ScrollBars :
property ShowHint :
property Style : TOutlineType
property TabOrder :
property TabStop :
property Visible :
property Canvas :
property ItemCount : LongInt
property Items : TOutlineNodePlus
property Pictures : TBitmapAdded by ANME
property Row :
property SelectedItem : Longint
property TopItem : LongintAdded by ANME
property TopRow :
property VisibleRowCount : Added by ANME
| Events |
event OnClick :
event OnCollapse : EOutlineChange
event OnDblClick :
event OnDragDrop :
event OnDragOver :
event OnDrawItem : TDrawItemEvent
event OnEndDrag :
event OnEnter : Added from Delphi 2.01 } {$ENDIF
event OnExit :
event OnExpand : EOutlineChange
event OnGetBitmap : EGetBitmapAdded by ANME
event OnKeyDown :
event OnKeyPress :
event OnKeyUp :
event OnMouseDown :
event OnMouseMove :
event OnMouseUp :
event OnStartDrag : | Variables |
FBlockInsert : Boolean;
FCurItem : TOutlineNodePlus;
FFontSize : Integer;
FGoodNode : TOutlineNodePlus;
FIgnoreScrollResize : Boolean;
FItemHeight : Integer;
FMaskColor : TColor;
FOldBitmaps : TOutlineBitmaps;
FOnCollapse : EOutlineChange;
FOnDrawItem : TDrawItemEvent;
FOnExpand : EOutlineChange;
FOnGetBitmap : EGetBitmap;
FOptions : TOutlineOptions;
FOutlineStyle : TOutlineStyle;
FPictures : TBitmapArray;
FRootNode : TOutlineNodePlus;
FSelectedItem : TOutlineNodePlus;
FSeparator : string;
FSettingHeight : Boolean;
FSettingWidth : Boolean;
FStrings : TStrings;
FStyle : TOutlineType;
FUserBitmaps : TOutlineBitmaps;
UpdateCount : Integer;