{"id":2610,"date":"2012-10-28T06:52:04","date_gmt":"2012-10-28T10:52:04","guid":{"rendered":"http:\/\/www.hoogervorst.ca\/arthur\/?p=2610"},"modified":"2012-10-28T06:52:04","modified_gmt":"2012-10-28T10:52:04","slug":"treeview-and-storage","status":"publish","type":"post","link":"http:\/\/www.hoogervorst.ca\/arthur\/?p=2610","title":{"rendered":"Treeview and storage"},"content":{"rendered":"

I<\/span>‘ve not written a while about programming, let alone anything about that mailing program, RoundAbout<\/a>. Today’s subject is the Windows TreeView control and its data section, the TreeNodes. As you probably know, a TreeView shows data in an hierarchical way, allowing users to ‘expand’ or ‘close’ so-called TreeNodes, so to expose or hide data they do and don’t want to see. TreeNodes in the Windows world can have user-data attached to it and often, developers will use this to store program specific information. I believe in .Net, this data propery is called ‘Tag’: in the Delphi world, it was called plainly ‘Data’. So code-wise this could look like this:\n<\/p>\n


\n var Node: TTreeNode;
\n \/* FolderData is a pointer to a record *\/
\n Node := TreeView.Items.AddChild(Node, FolderData^.Name);
\n \/* Attach the FolderData to the current node *\/
\n Node.Data := FolderData;
\n<\/code>\n<\/p>\n

Early in the process of development, it was noticed that any font or even layout changes caused severe crashes in the TreeView: The TreeView in RoundAbout holds account and message\/mail folder information via each TreeNode’s Data member. After a long investigation, I noticed that this was caused by the Delphi TreeView control itself: whenever a window anywhere was refreshed, Windows would send a message to the TreeView control to refresh and recreate<\/em> itself. Let me say that again: whenever a font was changed in RoundAbout, this would trigger any TreeView to recreate itself. I think this issue was resolved in later versions of Delphi, but I decided to create my own control (PMTreeView, code here<\/a>) to preserve the data with the following premises:\n<\/p>\n

    \n
  1. Override CreateWnd and DestroyWnd<\/li>\n
  2. Upon destruction of the treeview window, save the data for the nodes to a memorystream.\n
  3. Upon creation of the treeview window, (if available) load the node data from the memorystream.\n
  4. Trigger an event to notify the developer that the Data structure has changed for further activities.\n<\/ol>\n<\/p>\n

    As I mentioned earlier, I believe in subsequent Delphi versions, Borland fixed this in their own TreeView controls. However, for a piece of code that I debugged and coded in a night or so, my own PMTreeView control wasn’t too bad of an implementation.<\/p>\n","protected":false},"excerpt":{"rendered":"

    I‘ve not written a while about programming, let alone anything about that mailing program, RoundAbout. Today’s subject is the Windows TreeView control and its data section, the TreeNodes. As you probably know, a TreeView shows data in an hierarchical way, … Continue reading →<\/span><\/a><\/p>\n","protected":false},"author":2,"featured_media":0,"comment_status":"closed","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":[],"categories":[4,27],"tags":[146,579],"_links":{"self":[{"href":"http:\/\/www.hoogervorst.ca\/arthur\/index.php?rest_route=\/wp\/v2\/posts\/2610"}],"collection":[{"href":"http:\/\/www.hoogervorst.ca\/arthur\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"http:\/\/www.hoogervorst.ca\/arthur\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"http:\/\/www.hoogervorst.ca\/arthur\/index.php?rest_route=\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"http:\/\/www.hoogervorst.ca\/arthur\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=2610"}],"version-history":[{"count":0,"href":"http:\/\/www.hoogervorst.ca\/arthur\/index.php?rest_route=\/wp\/v2\/posts\/2610\/revisions"}],"wp:attachment":[{"href":"http:\/\/www.hoogervorst.ca\/arthur\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=2610"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/www.hoogervorst.ca\/arthur\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=2610"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/www.hoogervorst.ca\/arthur\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=2610"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}