View Issue Details

IDProjectCategoryView StatusLast Update
0002821JEDI VCL00 JVCL Componentspublic2005-04-12 06:21
ReportertomatomanAssigned Toobones 
Status resolvedResolutionfixed 
Product Version3.00 BETA 2 
Target VersionFixed in Version3.10 
Summary0002821: TJvHTListBox MouseMove leaves wrong color
DescriptionIn the final version 3, in the MouseMove event handler of TJvCustomHTListBox, only the font color changes when moving between items, but the brush color remains the same. This causes the list to get colored the wrong way, depending on where you start.
Here is the altered handler (new code marked by {T}):
procedure TJvCustomHTListBox.MouseMove(Shift: TShiftState; X, Y: Integer);
  R: TRect;
  LinkName: string;
  State: TOwnerDrawState;
  I: Integer;
  inherited MouseMove(Shift,X,Y);
  I := Self.ItemAtPos(Point(X, Y), True);
  if I = -1 then
  R := Self.ItemRect(I);
  State := [];
  if Self.Selected[I] then
    State := [odSelected];
    Canvas.Font.Color := FColorHighLightText;
    Canvas.Brush.Color := FColorHighLight; {T}
    Canvas.Font.Color := Font.Color;
    Canvas.Brush.Color := Color; {T}
  if IsHyperLink(Canvas, R, State, Items[I], X, Y, LinkName) then
    Cursor := crHandPoint
    Cursor := crDefault;
TagsNo tags attached.


has duplicate 0002716 resolvedobones JvHTListBox: all items get painted with selected color after selecting an item with the mouse 



2005-03-30 09:46

reporter   ~0006779

This is the same as issue 0002716 which I reported a while back with the same fix but sofar nobody has had time to implement the fix.


2005-03-30 14:01

reporter   ~0006780

Should have looked first :)


2005-04-12 06:21

administrator   ~0006948

See 2716 for details

Issue History

Date Modified Username Field Change
2005-03-30 08:00 tomatoman New Issue
2005-03-30 09:46 boerema1 Note Added: 0006779
2005-03-30 14:01 tomatoman Note Added: 0006780
2005-04-12 06:20 obones Relationship added has duplicate 0002716
2005-04-12 06:21 obones Status new => resolved
2005-04-12 06:21 obones Resolution open => fixed
2005-04-12 06:21 obones Assigned To => obones
2005-04-12 06:21 obones Note Added: 0006948