View Issue Details

IDProjectCategoryView StatusLast Update
0002821JEDI VCL00 JVCL Componentspublic2005-04-12 06:21
ReportertomatomanAssigned Toobones 
PrioritynormalSeverityminorReproducibilityalways
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);
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;
TagsNo tags attached.

Relationships

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

Activities

boerema1

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.

tomatoman

2005-03-30 14:01

reporter   ~0006780

Should have looked first :)

obones

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