View Issue Details

Jump to NotesJump to History
IDProjectCategoryView StatusDate SubmittedLast Update
0005138JEDI VCL00 JVCL Componentspublic2010-01-26 00:152010-03-08 16:16
ReporterPedraultAssigned Toobones 
PrioritynormalSeveritytrivialReproducibilityalways
Status resolvedResolutionwon't fix 
Product Version3.39 
Target VersionFixed in Version 
Summary0005138: TJvgGroupBox: OnCollapsed and OnExpanded not executed
DescriptionIt seems that the author has forgotten the OnCollpased/OnExpanded in the SetCollapsed method. Those event are used in Collapse but not in th Collapsed property setter.
So the SetCollapsed method becomes:
procedure TJvgGroupBox.SetCollapsed(Value: Boolean);
begin
  if FCollapsed <> Value then
  begin
    if not (fgoCanCollapse in Options) and Value then
      Exit;
    FCollapsed := Value;
    if csLoading in ComponentState then
      Exit;
    Collapse_(Value);
    //Just add those 4 lines
    if FCollapsed and Assigned(FOnCollapsed) then
      FOnCollapsed(Self);
    if not FCollapsed and Assigned(FOnExpanded) then
      FOnExpanded(Self);
  end;
end;
TagsNo tags attached.

Activities

obones

2010-03-08 16:16

administrator   ~0017255

The Globus components are being phased out, no new change will be done.
Please see the help\migrating_globus.htm file for details

Issue History

Date Modified Username Field Change
2010-01-26 00:15 Pedrault New Issue
2010-03-08 16:16 obones Note Added: 0017255
2010-03-08 16:16 obones Status new => resolved
2010-03-08 16:16 obones Resolution open => won't fix
2010-03-08 16:16 obones Assigned To => obones