On Thu, Jan 31, 2013 at 9:35 PM, ik <ido...@gmail.com> wrote: > Hello, > > I'm trying to use TFPSMap, to store a class using a key. > > While the key seems to be saved properly, and easy to find, the data > pointer that returns is wrong. > The adding of the data can be found here: > https://github.com/ik5/split_lazarus/blob/master/src/untlazsplitview_code.pas#L244 > > Here is the debug information that I can see it: > > 1. Saving: > > TSplitView.ToggleSplitView -> ActiveEditor (00007FEEC39733C0) > TSplitView.ToggleSplitView -> Looked for an item index: -1 > TSplitView.ToggleSplitView -> No Item was found > TSplitView.ToggleSplitView -> Added new item index: 0 > TSplitView.ToggleSplitView -> tab (00007FEEC1234C80), > SplitEditor(00007FEEC218C610), Splitter (00007FEEC219CDD0) > TSplitView.SetEditor -> Editor (00007FEEC218C610) > TSplitView.SetSplitter -> Splitter (00007FEEC219CDD0) > TSplitView.ToggleSplitView -> done execution > > 2. Retrieving: > TSplitView.ToggleSplitView -> ActiveEditor (00007FEEC39733C0) > TSplitView.ToggleSplitView -> Looked for an item index: 0 > TSplitView.ToggleSplitView -> Found the item > TSplitView.ToggleSplitView -> tab (00007FEEBB2FCD00), > SplitEditor(0000000000000000), Splitter (0000000000000000) > TSplitView.ToggleSplitView -> CleanResources - Going to free > SplitEditor (0000000000000000) and Splitter (0000000000000000) > TSplitView.ToggleSplitView -> CleanResources - tab.SplitEditor is not > allocated > TSplitView.ToggleSplitView -> CleanResources - Going to free tab.Splitter
The above was wrong, the checking did find that it was not allocated, the text itself was wrong, and fixed it > TSplitView.SetEditor -> Editor (0000000000000000 > > Am I doing something wrong here ? > If so, what is the best way to solve it ? > > > Thanks, > Ido _______________________________________________ fpc-pascal maillist - fpc-pascal@lists.freepascal.org http://lists.freepascal.org/mailman/listinfo/fpc-pascal
