View Issue Details

Jump to NotesJump to History
IDProjectCategoryView StatusDate SubmittedLast Update
0002497JEDI VCL00 JVCL Componentspublic2005-01-12 01:592005-02-04 02:16
ReporterADIDASAssigned Toobones 
PrioritynormalSeverityfeatureReproducibilityalways
Status resolvedResolutionwon't fix 
Product Version3.00 BETA 2 
Target VersionFixed in Version 
Summary0002497: TJvgCheckListBox.MouseDown
Descriptionprocedure TJvgCheckListBox.MouseDown(Button: TMouseButton; Shift: TShiftState;
  X, Y: Integer);
var
  APoint: TPoint;
  Index: Integer;
begin
  inherited MouseDown(Button, Shift, X, Y);
  if Button = mbLeft then
  begin
    APoint.X := X;
    APoint.Y := Y;
    Index := ItemAtPos(APoint, True);
  //!!!!!!!!!!!!! If not Index > Items.Count-1 then
    begin
    case TCheckBoxState(Items.Objects[Index]) of
      cbUnchecked:
        Items.Objects[Index] := Pointer(cbChecked);
      cbChecked:
        Items.Objects[Index] := Pointer(cbUnchecked);
      cbGrayed:
       ;
    end;
    Invalidate;
    end;
  end;
end;
Additional InformationThe application crashes, when clicked at position below last item

corrections
  // If not Index > Items.Count-1 then
TagsNo tags attached.

Activities

obones

2005-02-04 02:16

administrator   ~0006387

Use TJvCheckListBox, the Globus components are only here for legacy reasons

Issue History

Date Modified Username Field Change
2005-01-12 01:59 ADIDAS New Issue
2005-02-04 02:16 obones Status new => resolved
2005-02-04 02:16 obones Resolution open => won't fix
2005-02-04 02:16 obones Assigned To => obones
2005-02-04 02:16 obones Note Added: 0006387