[Delphi]Checkbox treeview uitlezen

[OZ-Gump]

Hey,

na een redelijk uitgebreide zoektocht op google, google groups, MSDN en hier (GoT) ben ik eindelijk zover dat ik checkboxen kan toevoegen aan een treeview, door middel van de volgende code:

Delphi:

  SetWindowLong(TreeviewNaam.Handle, GWL_STYLE,
    GetWindowLong(TreeviewNaam.Handle, GWL_STYLE) OR $0100);

Nou krijg ik het alleen voor geen meter voor elkaar om de status van die checkboxen aan te passen/uit te lezen. Heeft iemand van jullie hier ervaring mee of een oplossing voor?

[_Thanatos_]

Wat weerhoudt je om een VirtualTree te gebruiken? Daar kun je veel meer in doen dan alleen checkboxen. En wat jij post lijkt me echt een of andere smerige hack (anders was er wel een nette constante voor, denk je niet?)

VirtualTree kun je hier halen.

Let wel dat ie een andere denkwijze vereist dan je gewend bent, maar als je em doorhebt, werkt ie echt ge-wel-dig

[OZ-Gump]

Het lijkt inderdaad op een of andere smerige hack, maar de TreeView zoals die VB gebruikt wordt heeft als property..... 'Checkboxes' van het type boolean. Die haalt hij uit dezelfde file als Delphi (Common controls) maar die heeft dus WEL checkboxes. Van MS uit werkt het dus 'gewoon'. Er was ook een nette variabele voor, maar die was niet bekend binnen Delphi, vandaar dat ik de $0100 ervoor in de plaats heb gezet. Ik had geen zin om de constante aan te maken of op te zoeken.

Verder: dank voor de link, ik zal er zeker eens naar kijken!

[LordLarry]

Delphi:

const
  IIL_UNCHECKED = 1;
  IIL_CHECKED = 2;

procedure TDynTreeNode.SetChecked(const Value: Boolean);
var
  Item:TTvItem;
begin
  if Checked=Value then Exit; // Must not be FChecked=Value

  FChecked:=Value;
  Item.hItem := ItemId;
  Item.Mask := TVIF_STATE;
  Item.StateMask := TVIS_STATEIMAGEMASK;
  if not TreeView_GetItem(Handle, Item) then Exit;

  if FChecked then
    Item.State:=INDEXTOSTATEIMAGEMASK(IIL_CHECKED)
  else
    Item.State:=INDEXTOSTATEIMAGEMASK(IIL_UNCHECKED);
  TreeView_SetItem(Handle, Item);
end;

function TDynTreeNode.GetChecked: Boolean;
var
  Item:TTvItem;
begin
  Item.hItem := ItemId;
  Item.Mask := TVIF_STATE;
  Item.StateMask := TVIS_STATEIMAGEMASK;
  if not TreeView_GetItem(Handle, Item) then Exit;
  Result:=((Item.State and INDEXTOSTATEIMAGEMASK(IIL_CHECKED))=INDEXTOSTATEIMAGEMASK(IIL_CHECKED));
end;

Zoals je ziet wordt gewoon de State gebruikt.

[OZ-Gump]

LordLarry: you rock!!

Je hebt mee een heel eind op weg geholpen met de stukken code die je hierboven hebt gepost. Ik heb er een paar kleine aanpassinkjes aan gemaakt en het werkt als een zonnetje! Volgens mij kan ik hier best een componentje mee maken, want op internet zijn er veel mensen die op zoek zijn naar deze, als je het weet simpele, uitbreiding.

De aanpassingen die ik gedaan heb:

HTREEITEM en een handle meegeven bij de get
die twee plus een value meegeven bij de set
FChecked vervangen door Value (was volgens mij een variabele, niet nodig)
if Checked=Value vervangen door if GetChecked(hitem, handle) = value

Dat was eigenlijk alles: gas erop en gaan met die handel!! (af handle, net wat je wil... )

[curry684]

Dat Borland een feature van een common control (nog) niet geencapsuleerd heeft betekent niet per definitie dat het een hack of zo is: ze hebben zoveel (nog) niet in VCL opgenomen, en daarvoor bestaan juist properties als Handle zodat je het met de hand alsnog kunt doen. Voor recente info over wat een TreeView in Win32 allemaal kan zie hier.