Le 14/04/2021 à 13:06, James Richters via fpc-pascal a écrit :
I still can’t get off the Master branch on my windows machine. I
deleted everything, re-forked it, re-cloned it,
I finally found on my linux machine a 'test_gICAPI\jsLignes.Exclus.txt'
file right in tools directory, and removed it. It has been generated by
a delphi program (with \ hardcoded for file path separator) that I
quickly recompile with lazarus under linux. The \ is an escape sequence
in linux file names.
It seems it isn't a problem for TortoiseGit on my Windows machine, he
just ignores it.
It should work for you now. I've tested several time checking out the
whole repository and switching to the TjsDataContexe branch
I added a Load Time edit box, Total Run time, and total including loading
needed in the report… Yay I managed to do something on my own!
I also cleared the old tree when a new file was loaded.. so I managed to do two
things 😊
I wanted my run time to be just minutes and seconds, so I made your procedure
that fixes the time format into a function and used that for my edit box as
well.
Since I still can't change branches on your repository, I updated mine
https://github.com/Zaaphod/FileTree
But now I have more questions…. while I can understand the pascal code… I find
that I am still a bit lost on how things work, so I really appreciate the help.
I would like the initial display of the tree to be expanded one level.. so just
like I hit the + in front of M: so I thought, how hard could that be? ...
I have added a procedure vst_expand_first_level; for this .
I also thought I would display the output in another tree in the right side of
the split.. maybe a TTreeView Tree since it won't need checkboxes, and it could
be just displayed already expanded all the way out.
o I thought I would start by making function TfFileVirtualTree.Get_Checked
add the nodes to TTreeView so I tried to put
tv_addnode_from_key_value( td.Key, td.Value);
right before
Formate_Liste( Result, #13#10, td.Key+' '+td.Value);
Well it couldn't find tv_addnode_from_key_value() because it's in
ufFileTree.Pas but I don't understand why it can't find it, because ufFileTRee
is in the uses section of ufFileVirtualTree.
I did move procedure tv_addnode_from_key_value( _Key, _Value: String);
from private to public.. but it still can't find it. I'm not really sure how
to get data from one of the .PAS files into the other.
Even in public, you would have needed to call it as
fFileTree.tv_addnode_from_key_value , but it will have worked on the
TreeView from fFileTree, which is not what you want. You can consider a
bit a class as a record. If tv_addnode_from_key_value is defined in a
class TfFileTree, you can only call it on an instance of TfFileTree, in
this case fFileTree, the same way you would access to something defined
in a record.
Well, this lead me to a big refactoring. I move most of the code from
ufFileTree to uFileTree.
I didn't put it in the interface of the unit, but you could now
eventually use procedure TreeView_addnode_from_key_value from uFileTree
for this.
I did the same for ufFileVirtualTree, creating a unit uFileVirtualTree
with a class ThVirtualStringTree dedicated to the handling of a
TVirtualStringTree.
This way I could add another VirtualTreeView with no checkboxs to
display the results. I think it's easier to use a VirtualTreeView to
manage your time sums.
The ThVirtualStringTree class allows to reuse the exact same code for
the result tree with time sums, and it allows reduce the complexity and
the amount of code in ufFileVirtualTree.
_______________________________________________
fpc-pascal maillist - fpc-pascal@lists.freepascal.org
https://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal
