Class TOutlinePlus (unit Outlplus)

Inherits from

TCustomGrid

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.

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 : TBitmap

Added by ANME

property Row :


property SelectedItem : Longint


property TopItem : Longint

Added 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.

event OnExit :


event OnExpand : EOutlineChange


event OnGetBitmap : EGetBitmap

Added 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;



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 : TBitmap

Added by ANME


property Row :


property SelectedItem : Longint


property TopItem : Longint

Added 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 : EGetBitmap

Added 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;