[sorockinalex]

Помогите, пожалуйста, только начал разбираться с наследниками... Где-то нашёл пример наследника StringGrid, изменил его под свои нужды - автоподбор высоты строк и автоизменение общей высоты грида, внесение данных из массива...

Теперь понадобилось создать наследник TreeView... Где-то нашёл скудный пример, но и этим всё ограничилось.. Три часа поиска не дали необходимых результатов. Нужно перекрыть событие отрисовки OnCustomDrawItem, только как его объявить - не понятно.. Объявил, но на эту функцию не переходит при отрисовке. Свойства OwnerDraw не обнаружил...
Второе что необходимо - перекрыть OnCollapsed и OnExpanded, чтобы можно было автоматически изменить размер TreeView.. Вот что имеется:

Код:

unit TreeViewValueEditor;
interface
uses
  SysUtils,
  Classes,
  Controls,
  ComCtrls,
  Graphics,
  Udatamodule,
  Dialogs,
  Messages,
  Windows,
  CommCtrl;

type
  TTreeViewValueEditor = class(TTreeView)
  private
    FHeader: THeaderControl;
  protected
  public
    constructor Create(AOwner: TComponent); override;
    function CustomDrawItem(Node: TTreeNode; State: TCustomDrawState; Stage: TCustomDrawStage; var PaintImages: Boolean): Boolean; override;
    //    procedure DrawCell(ACol, ARow: Longint; ARect: TRect; AState: TGridDrawState); override; public
  published
    property Header: THeaderControl read FHeader write FHeader;
    property OnResize;
  end;

type
  TVVE_TArrOfStr = array of string ;
  TVVE_TArrOfArrOfStr = array of TVVE_TArrOfStr;

//var
//  DifferenceArray: array of array of BOOL;

procedure Register;
procedure TVVE_FillTreeViewValueEditor(TVVE: TTreeViewValueEditor; CellsData: TVVE_TArrOfArrOfStr);
procedure TVVE_RemoveUnusedNodes(TVVE: TTreeViewValueEditor; UsedNodesIds: TVVE_TArrOfStr);
//procedure SizeTreeViewValueEditor(TVVE: TTreeViewValueEditor);

implementation

procedure Register;
begin
  RegisterComponents('sorockinalex', [TTreeViewValueEditor]);
end;

function FindNode(TVVE: TTreeViewValueEditor; n:integer):TTreeNode;
var
  i:Integer;
begin
  Result:=nil;
  i:=0;
  while i<TVVE.Items.Count do
  begin
    if Integer(TVVE.Items[i].Data)=n then
    begin
      Result:=TVVE.Items[i];
      Exit;
    end;
    Inc(i);
  end;
end;

function FindRootNode(TVVE: TTreeViewValueEditor; NodeId:integer):TTreeNode;
begin
  Result:=FindNode(TVVE, NodeId);
  if Result<>nil then
  begin
    while Result.Parent.Data<>Pointer(StrToInt('')) do
    begin
      Result:=Result.Parent;
    end;
  end;
end;

function GetAllParentNodesIds(TVVE: TTreeViewValueEditor):TVVE_TArrOfStr;
var
  i,l:Integer;
begin
  i:=0;
  while i<TVVE.Items.Count do
  begin
    if TVVE.Items[i].Parent=Nil then
    begin
      l:=Length(Result);
      SetLength(Result, l+1);
      Result[l]:=IntToStr(Integer(TVVE.Items[i].Data));
      Exit;
    end;
    Inc(i);
  end;
end;

function TreeView_GetItemHeight(hwnd: THandle): Integer;
begin
  Result := SendMessage(hwnd, TVM_GETITEMHEIGHT, 0, 0);
end;

procedure TVVE_FillTreeViewValueEditor(TVVE: TTreeViewValueEditor; CellsData: TVVE_TArrOfArrOfStr);
var
  i,j,l: integer;
  node: TTreeNode;
  UsedNodesIds, DontRemoveNodesIds, RemoveNodesIds: array of integer;
  RemoveNode:Boolean;
begin
  debugtreeprefix:=debugtreeprefix+#9;
  WriteDebugTxt('TVVE_FillTreeViewValueEditor: ÍÀ×ÀËÎ');

  TVVE.Items.Clear;

  //ñíà÷àëà ñîçäà¸ì âñ¸ â êîðíå, òàê êàê ïàðàìåòðû ïðè ñîçäàíèè ìîãóò èäòè âïåðåìåæêó
  i:=0;
  while i<Length(CellsData) do
  begin
    TVVE.Items.AddChildObject(nil, CellsData[i,1],Pointer(StrToInt(CellsData[i,0])) );
    Inc(i);
  end;

  //òåïåðü ïåðåìåùàåì ïîä÷èí¸ííûå
  i:=0;
  while i<Length(CellsData) do
  begin
    if CellsData[i,2]<>'' then FindNode(TVVE, StrToInt(CellsData[i,0])).MoveTo(FindNode(TVVE, StrToInt(CellsData[i,2])), naAddChild);
    Inc(i);
  end;

  //ðàñêðûâàåì âñ¸ äåðåâî
  TVVE.FullExpand;

  TVVE.Height:=TVVE.Items.Count* TreeView_GetItemHeight(TVVE.Items[0].Handle)+4;

  WriteDebugTxt('TVVE_FillTreeViewValueEditor: ÊÎÍÅÖ');
  Delete(debugtreeprefix, 1, 1);
end;

procedure TVVE_RemoveUnusedNodes(TVVE: TTreeViewValueEditor; UsedNodesIds: TVVE_TArrOfStr);
var
  UsedRootNodesIds:TVVE_TArrOfStr;
  i,l:Integer;
  node:TTreeNode;
begin
  i:=0;
  while i<Length(UsedNodesIds) do
  begin
    node:=FindRootNode(TVVE, StrToInt(UsedNodesIds[i]));
    if node<>nil then
    begin
      l:=Length(UsedRootNodesIds);
      SetLength(UsedRootNodesIds, l+1);
      UsedRootNodesIds[l]:=IntToStr(Integer(node.Data));
    end;
    Inc(i);
  end;
end;


{ TTreeViewValueEditor }

constructor TTreeViewValueEditor.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  FHeader := THeaderControl.Create(AOwner);
  FHeader.Name := 'TreeViewValueEditorHeader';
  FHeader.Parent := Self;
  FHeader.Brush.Color := clBtnFace;
end;

function TTreeViewValueEditor.CustomDrawItem(Node: TTreeNode; State: TCustomDrawState; Stage: TCustomDrawStage; var PaintImages: Boolean): Boolean;
begin
ShowMessage('draw');
end;


end.

Помогите примером, пожалуйста! Как объявить OnCustomDraw, OnExpanded, OnCollapsed. Большое заранее спасибо!

Что ж, никто не подскажет??? (