Project JEDI - Issue Tracker
Mantis Bugtracker

Viewing Issue Simple Details Jump to Notes ] View Advanced ] Issue History ] Print ]
ID Category Severity Reproducibility Date Submitted Last Update
0004003 [JEDI VCL] 00 JVCL Components minor always 2006-11-22 06:48 2006-11-23 05:26
Reporter Shtirliz View Status public  
Assigned To obones
Priority normal Resolution fixed  
Status resolved   Product Version Daily / GIT
Summary 0004003: TJvDockVSPopupPanelSplitter: Assertion failure
Description The TJvDockVSPopupPanelSplitter class (JvDockVSNetStyle unit):
SetVSPopupPanel method - write method of VSPopupPanel property - asserts that assigned value may not be nil (first statement in the method).
On the other hand, this class in its Notification method assigns nil to its VSPopupPanel property, that causes assertion failure.
Additional Information
Tags No tags attached.
Attached Files

- Relationships

-  Notes
(0010443)
obones (administrator)
2006-11-23 01:50

Please describe with more details, I have a hard time understanding what you want.
(0010444)
Shtirliz (reporter)
2006-11-23 04:35

I want to see this code working without assertion failures. :)

procedure TJvDockVSPopupPanelSplitter.Notification(AComponent: TComponent;
  Operation: TOperation);
begin
  inherited Notification(AComponent, Operation);
  if (Operation = opRemove) and (AComponent = VSPopupPanel) then
    VSPopupPanel := nil;
end;

VSPopupPanel is property so "VSPopupPanel := nil" is "TJvDockVSPopupPanelSplitter.SetVSPopupPanel(nil)".

procedure TJvDockVSPopupPanelSplitter.SetVSPopupPanel(Value: TJvDockVSPopupPanel);
begin
  { Dirty }
  Assert((Value <> nil) and (Value is TJvDockVSPopupPanel));
  FVSPopupPanel := Value;
end;

Assert causes assertion failure becase Value = nil.
(0010445)
obones (administrator)
2006-11-23 05:26

The solution was to change the code in Notification, not to remove the assertion

- Issue History
Date Modified Username Field Change
2006-11-22 06:48 Shtirliz New Issue
2006-11-23 01:50 obones Note Added: 0010443
2006-11-23 01:50 obones Status new => feedback
2006-11-23 04:35 Shtirliz Note Added: 0010444
2006-11-23 05:26 obones Status feedback => resolved
2006-11-23 05:26 obones Fixed in Version => Daily / SVN
2006-11-23 05:26 obones Resolution open => fixed
2006-11-23 05:26 obones Assigned To => obones
2006-11-23 05:26 obones Note Added: 0010445


Mantis 1.1.6[^]
Copyright © 2000 - 2008 Mantis Group
Powered by Mantis Bugtracker