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
0002821 [JEDI VCL] 00 JVCL Components minor always 2005-03-30 08:00 2005-04-12 06:21
Reporter tomatoman View Status public  
Assigned To obones
Priority normal Resolution fixed  
Status resolved   Product Version 3.00 BETA 2
Summary 0002821: TJvHTListBox MouseMove leaves wrong color
Description In 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);
var
  R: TRect;
  LinkName: string;
  State: TOwnerDrawState;
  I: Integer;
begin
  inherited MouseMove(Shift,X,Y);
  I := Self.ItemAtPos(Point(X, Y), True);
  if I = -1 then
    Exit;
  R := Self.ItemRect(I);
  State := [];
  if Self.Selected[I] then
  begin
    State := [odSelected];
    Canvas.Font.Color := FColorHighLightText;
    Canvas.Brush.Color := FColorHighLight; {T}
  end
  else
  begin
    Canvas.Font.Color := Font.Color;
    Canvas.Brush.Color := Color; {T}
  end;
  if IsHyperLink(Canvas, R, State, Items[I], X, Y, LinkName) then
    Cursor := crHandPoint
  else
    Cursor := crDefault;
end;
Additional Information
Tags No tags attached.
Attached Files

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

-  Notes
(0006779)
boerema1 (reporter)
2005-03-30 09:46

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.
(0006780)
tomatoman (reporter)
2005-03-30 14:01

Should have looked first :)
(0006948)
obones (administrator)
2005-04-12 06:21

See 2716 for details

- Issue History
Date Modified Username Field Change
2005-03-30 08:00 tomatoman New Issue
2005-03-30 08:00 tomatoman Issue Monitored: tomatoman
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


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