View Issue Details
ID | Project | Category | View Status | Date Submitted | Last Update |
---|---|---|---|---|---|
0002821 | JEDI VCL | 00 JVCL Components | public | 2005-03-30 08:00 | 2005-04-12 06:21 |
Reporter | tomatoman | Assigned To | obones | ||
Priority | normal | Severity | minor | Reproducibility | always |
Status | resolved | Resolution | fixed | ||
Product Version | 3.00 BETA 2 | ||||
Target Version | Fixed in Version | 3.10 | |||
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; | ||||
Tags | No tags attached. | ||||
|
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. |
|
Should have looked first :) |
|
See 2716 for details |
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 |