TElXTree OnMouseDown: GetItemAt(X, Y, ItemPart, HitColumn) doesn't give access to Style and Tag info

RaymondWK

procedure TDayJournalForm.JournalTreeMouseDown(Sender: TObject;

  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

var

  Item      : TElXTreeItem;

  ItemPart  : TSTXItemPart;

  HitColumn : Integer;

begin

  with JournalTree do

  begin

    Item := GetItemAt(X, Y, ItemPart, HitColumn);

    with Item.Cells[0], Style do

    begin

      Action1.Enabled :=    (HitColumn = 0)

                                and UseOwnStyle

                                and UseBackGroundColor

                                and (CellBackGroundColor = TheBackgroundColour);

      Action1.Enabled :=    (HitColumn = 0)

                               and (Item.Tag  = 1);

    end;

  end;

end;

UseOwnStyle is False for the Item, but I know for certain that it should be True for the Item's cell that was clicked on.

Item.Tag does not compile. Is there a way to make this work?

Thanks.

Raymond

RaymondWK

Sorry. Oops.

I had too many nested 'with' statements that made it difficult for me to see which object 'Item' was attached to.

Raymond

Rafael Maricca (LMD)

ok, thanks for feedback