For me it also works (trunk)... tried a bit and couldn't reproduce it.
The source also did look ok to me....
Anyway.. here's a patch which at last unifies the way we "normally" set those values.
Index: HistoryForm.pas
===================================================================
--- HistoryForm.pas (revision 8983)
+++ HistoryForm.pas (working copy)
@@ -2604,8 +2604,6 @@
end;
procedure THistoryFrm.PostLoadHistory;
-var
- tPanel: THistoryPanels;
begin
LoadPosition;
ToggleMainMenu(GetDBBool(hppDBName, 'Accessability', False));
@@ -2624,11 +2622,10 @@
end
else
begin
- if GetDBBool(hppDBName, 'ShowSessions', False) then
- include(tPanel, hpSessions);
- if GetDBBool(hppDBName, 'ShowBookmarks', False) then
- include(tPanel, hpBookmarks);
- Panel := tPanel;
+ if GetDBBool(hppDBName, 'ShowSessions', False) and not(hpSessions in Panel) then
+ Panel := Panel + [hpSessions];
+ if GetDBBool(hppDBName, 'ShowBookmarks', False) and not(hpBookmarks in Panel) then
+ Panel := Panel + [hpBookmarks];
end;
CreateEventsFilterMenu;