Application framework - Can't control font colour

[Alec Scaresbrook]

Hi Everyone

I've been trying to develope an address book using Paradox 9
Application framework. In this application I have a quick
alphabetical lockup. When the user clicks on a letter, all names
beginning with that letter are listed on the screen in a table frame
called foundTF . Now, the font colour starts off as darkred (which is
what I want), but then changes to white when a letter is selected.
The following code below works in a non-application framework Paradox
9 application.

*********************************
var
ss string
qq query
endvar

doDefault
delayScreenUpdates(Yes)
foundTF.visible = No
;Unbind FOUND.DB so we can write the
foundTF.TableName = ":tables:xxx.db" ; Bind to XXX.DB while we write
to FOUND.DB
dmRemoveTable(":tables:found.db") ; Unbind FOUND.DB so we can write
the
; query
results to it
;A.. is a test value to list all names beginning with A
ss = "A.."
;ss = self.value + ".." ; Assign a value to the variable
; (used as a tilde variable in the
query)

qq = query ; build a query statement

:Tables:customer.db | Name |
| Check ~ss |

endQuery

executeQBE(qq, ":Tables:found.db") ; run the query, write results to
FOUND.DB

foundTF.TableName = ":Tables:found.db" ; add FOUND.DB to data model,
bind it to foundTF
foundTF.visible = Yes ; display the updated table frame foundTF
delayScreenUpdates(No)
***********************************

I've tried for hours to solve this problem. Has anybody got any
ideas.

Thanks

Alec