Class TDDXCustomOutline (unit Ddxoutl)

Inherits from

TCustomGrid

Constructors


constructor Create(AOwner: TComponent);

TDDXCustomOutline


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: TDDXOutlineNode): Integer;


function GetTextItem(const Value: string): Longint;


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: TDDXOutlineNode): Boolean;


procedure Click;


procedure Collapse(Index: LongInt);


procedure DblClick;

or (not Node.

procedure DefineProperties(Filer: TFiler);


procedure DeleteNode(Node: TDDXOutlineNode; CurIndex: LongInt);


procedure DrawCell(ACol, ARow: Longint; ARect: TRect; AState: TGridDrawState);


procedure Expand(Index: 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 MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure Move(Destination, Source: LongInt; AttachMode: TAttachMode);


procedure SetDisplayWidth(Value: Integer);


function SetGoodIndex(Value: TDDXOutlineNode): TDDXOutlineNode;


procedure SetLevel (Node: TDDXOutlineNode; CurLevel, NewLevel: Cardinal);


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: TDDXOutlineNode): TOutlineNodeCompare;


procedure CreateGlyph;


procedure DoExpand(Node: TDDXOutlineNode);


procedure DrawPictures(BitMaps: array of TBitmap; ARect: TRect);


procedure DrawText(Node: TDDXOutlineNode; Rect: TRect);


procedure DrawTree(ARect: TRect; Node: TDDXOutlineNode);


procedure Error(ErrorStringID: Word);


function Get(Index: LongInt): TDDXOutlineNode;


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 SetDDXOutlineStyle(Value: TDDXOutlineStyle);


procedure SetDisplayNodeBmp(Value : Boolean);


procedure SetFontMatchItemHeight(Value : Boolean);


procedure SetHorzScrollBar;


procedure SetItemHeight(Value: Integer);


procedure SetMaskColor(Value: TColor);


procedure SetOutlineOptions(Value: TOutlineOptions);


procedure SetPicture(Index: Integer; Value: TBitmap);


procedure SetPictureHeight(Value : Integer);


procedure SetRowFromNode(Node: TDDXOutlineNode);


procedure SetRowHeight;


procedure SetSelectedItem(Value: Longint);


procedure SetStrings(Value: TStrings);


procedure SetStyle(Value: TOutlineType);

end;

procedure SetTextVertAlign(Value : TDDXVertAlign);


procedure SetTreePenColor(Value : TColor);


procedure SetTreePenStyle(Value : TPenStyle);


function StoreBitmap(Index: Integer): Boolean;


procedure WMSize(var Message: TWMSize);


procedure WriteBinaryData(Stream: TStream);


Properties

property Canvas :


property ItemCount : LongInt


property Items : TDDXOutlineNode


property Row :


property SelectedItem : Longint


property SelItemRect : TRect


property DisplayNodeBmp : Boolean


property FontMatchItemHeight : Boolean


property ItemHeight : Integer


property ItemSeparator : string


property Lines : TStrings


property Options : TOutlineOptions


property OutlineStyle : TDDXOutlineStyle


property PictureClosed : TBitmap


property PictureHeight : Integer


property PictureLeaf : TBitmap


property PictureMinus : TBitmap


property PictureOpen : TBitmap


property PicturePlus : TBitmap


property Style : TOutlineType


property TextVertAlign : TDDXVertAlign


property TreePenColor : TColor


property TreePenStyle : TPenStyle


Events

event OnCollapse : EOutlineChange


event OnDrawItem : TDrawItemEvent


event OnExpand : EOutlineChange


Variables

FBlockInsert : Boolean;


FCurItem : TDDXOutlineNode;


FDisplayNodeBmp : Boolean;


FFontMatchItemHeight : Boolean;


FFontSize : Integer;


FGoodNode : TDDXOutlineNode;


FIgnoreScrollResize : Boolean;


FItemHeight : Integer;


FItemOnMouseDown : LongInt;


FMaskColor : TColor;


FOldBitmaps : TOutlineBitmaps;


FOnCollapse : EOutlineChange;


FOnDrawItem : TDrawItemEvent;


FOnExpand : EOutlineChange;


FOptions : TOutlineOptions;


FOutlineStyle : TDDXOutlineStyle;


FPictureHeight : Integer;


FPictures : TBitmapArray;


FRootNode : TDDXOutlineNode;


FSelectedItem : TDDXOutlineNode;


FSelItemBmpRect : TRect;


FSelItemRect : TRect;


FSeparator : string;


FSettingHeight : Boolean;


FSettingWidth : Boolean;


FStrings : TStrings;


FStyle : TOutlineType;


FTextVertAlign : TDDXVertAlign;


FTreePenColor : TColor;


FTreePenStyle : TPenStyle;


FUserBitmaps : TOutlineBitmaps;


UpdateCount : Integer;



Constructors


constructor Create(AOwner: TComponent);

TDDXCustomOutline


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: TDDXOutlineNode): Integer;


function GetTextItem(const Value: string): Longint;


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: TDDXOutlineNode): Boolean;


procedure Click;


procedure Collapse(Index: LongInt);


procedure DblClick;

or (not Node.Expanded


procedure DefineProperties(Filer: TFiler);


procedure DeleteNode(Node: TDDXOutlineNode; CurIndex: LongInt);


procedure DrawCell(ACol, ARow: Longint; ARect: TRect; AState: TGridDrawState);


procedure Expand(Index: 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 MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure Move(Destination, Source: LongInt; AttachMode: TAttachMode);


procedure SetDisplayWidth(Value: Integer);


function SetGoodIndex(Value: TDDXOutlineNode): TDDXOutlineNode;


procedure SetLevel (Node: TDDXOutlineNode; CurLevel, NewLevel: Cardinal);


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: TDDXOutlineNode): TOutlineNodeCompare;


procedure CreateGlyph;


procedure DoExpand(Node: TDDXOutlineNode);


procedure DrawPictures(BitMaps: array of TBitmap; ARect: TRect);


procedure DrawText(Node: TDDXOutlineNode; Rect: TRect);


procedure DrawTree(ARect: TRect; Node: TDDXOutlineNode);


procedure Error(ErrorStringID: Word);


function Get(Index: LongInt): TDDXOutlineNode;


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 SetDDXOutlineStyle(Value: TDDXOutlineStyle);


procedure SetDisplayNodeBmp(Value : Boolean);


procedure SetFontMatchItemHeight(Value : Boolean);


procedure SetHorzScrollBar;


procedure SetItemHeight(Value: Integer);


procedure SetMaskColor(Value: TColor);


procedure SetOutlineOptions(Value: TOutlineOptions);


procedure SetPicture(Index: Integer; Value: TBitmap);


procedure SetPictureHeight(Value : Integer);


procedure SetRowFromNode(Node: TDDXOutlineNode);


procedure SetRowHeight;


procedure SetSelectedItem(Value: Longint);


procedure SetStrings(Value: TStrings);


procedure SetStyle(Value: TOutlineType);

end;


procedure SetTextVertAlign(Value : TDDXVertAlign);


procedure SetTreePenColor(Value : TColor);


procedure SetTreePenStyle(Value : TPenStyle);


function StoreBitmap(Index: Integer): Boolean;


procedure WMSize(var Message: TWMSize);


procedure WriteBinaryData(Stream: TStream);


Properties


property Canvas :


property ItemCount : LongInt


property Items : TDDXOutlineNode


property Row :


property SelectedItem : Longint


property SelItemRect : TRect


property DisplayNodeBmp : Boolean


property FontMatchItemHeight : Boolean


property ItemHeight : Integer


property ItemSeparator : string


property Lines : TStrings


property Options : TOutlineOptions


property OutlineStyle : TDDXOutlineStyle


property PictureClosed : TBitmap


property PictureHeight : Integer


property PictureLeaf : TBitmap


property PictureMinus : TBitmap


property PictureOpen : TBitmap


property PicturePlus : TBitmap


property Style : TOutlineType


property TextVertAlign : TDDXVertAlign


property TreePenColor : TColor


property TreePenStyle : TPenStyle


Events


event OnCollapse : EOutlineChange


event OnDrawItem : TDrawItemEvent


event OnExpand : EOutlineChange


Variables


FBlockInsert : Boolean;


FCurItem : TDDXOutlineNode;


FDisplayNodeBmp : Boolean;


FFontMatchItemHeight : Boolean;


FFontSize : Integer;


FGoodNode : TDDXOutlineNode;


FIgnoreScrollResize : Boolean;


FItemHeight : Integer;


FItemOnMouseDown : LongInt;


FMaskColor : TColor;


FOldBitmaps : TOutlineBitmaps;


FOnCollapse : EOutlineChange;


FOnDrawItem : TDrawItemEvent;


FOnExpand : EOutlineChange;


FOptions : TOutlineOptions;


FOutlineStyle : TDDXOutlineStyle;


FPictureHeight : Integer;


FPictures : TBitmapArray;


FRootNode : TDDXOutlineNode;


FSelectedItem : TDDXOutlineNode;


FSelItemBmpRect : TRect;


FSelItemRect : TRect;


FSeparator : string;


FSettingHeight : Boolean;


FSettingWidth : Boolean;


FStrings : TStrings;


FStyle : TOutlineType;


FTextVertAlign : TDDXVertAlign;


FTreePenColor : TColor;


FTreePenStyle : TPenStyle;


FUserBitmaps : TOutlineBitmaps;


UpdateCount : Integer;