CellTextPaint - Changing Text Colors

General
1

I have an issue with PaintCellText that I cannot resolve. I am attempting to change the color of text in a DeskTopListBox cell if certain conditions are met (i.e., if the value to be displayed in the cell is > 2). I’ve gone through the documentation several times and scoured the online resources but the problem continues and I know that I’m missing something obvious.

My confusion is aggravated by the fact that what I’m trying to accomplish is similar (but not identical) to code that I’ve already included in another listbox that is part of the same application - although in that case I change the color of the text for an entire column, not just the color of the text in an individual cell.

I have stepped through the code and seen that the color change does, in fact, occur when the condition is satisfied, but reverts to Black when the next cell in the table is populated. I’ve tried using a Return of both True and False (as well as not specifying the Return, as shown in the code examples below) but the problem continues.

In addition to the PaintCellText Event, the other Events applicable to the offending ListBox are:

CellPressed
DoublePressed
Opening
PaintCellBackground
PaintHeaderContent
RowComparison

Since 2 of the other Events defined for the ListBox involve graphic functions, I’m wondering whether my CellTextPaint code is being over-written by some other Event that contains a graphic operation.

Here’s the CellTextPaint code from the ListBox control (ListBoxInvoices) that correctly colors all the text in specific columns:

If column = 0 Then
g.ForeColor = &c0000FF10
ElseIf column = 4 Then
g.ForeColor = &cFF000000
End If

The result is exactly what I wanted to achieve for those columns.

The CellTextPaint code from the ListBox control (ListBoxCases) that is causing me heartburn:

If column = 10 AND nPaperWork > 2 Then
g.Bold = True
g.ForeColor = &cFF000000
End If

The “nPaperWork” variable is defined as a Property for the window (wMain) and the value is set in the method (OpenCases) that populates the listbox (ListBoxCases). The value of nPaperWork (and the value displayed in the listbox) in Column 10 is “3”.

The application initially applies a Red color to the value in Column 10 (“3”), but immediately re-draws the text using a Black color.

Again, I think I’m missing something fairly obvious, so I would appreciate any suggestions.

Thanks in advance.

2

Create a sample project that creates the problem, zip it and upload here.
That will be easier for someone to give suggestions.

1 Like
4

How many times do you have the code: g.DrawText in the CellTextPaint event? If you have it in several places, it may be overwriting itself.

Return True means you are handling ALL the text drawing for every cell of the listbox.

5

So you carefully adjust the logic so that this does not occur. The debugger is helpful in this regard - to check if an unexpected path is being taken.

6

use Self.nPaperWork and use a computed property so you can add debug output when it changed.

add helpful debug output to follow the events you can remark them later

System.DebugLog CurrentMethodName
System.DebugLog "some useful info"

if you paint custom in PaintCellText you must return true that you handled this event.

use DrawText for cell text only once.

you can use a custom break condition and look at the variables

if x=y then
break
end if