Quote:> I have many forms with both comboboxes and timers, and have never
> experienced any problems with the comboboxes. How often do your timers
> How cpu intensive is the code they run? How fast is your cpu? How much
It's set to fire every .5 seconds (500 milliseconds). The timer is setup to
modify the appearence of some sample text on the screen. The settings on
this form allow the user to customize the font attributes for a specific
part of a program. Here is the timer code.
Sample_text is a Label object. font_size and font_attrib are character
variables. Font_size is usually something like "10" or "12" and font_attrib
is usually "B", for bold. It can be "BIU" for Bold, Italics and Underline.
thisForm.sample_text.FontSize = val(m.font_size)
if "B" $ upper(m.font_attrib)
thisForm.sample_text.FontBold = .t.
thisForm.sample_text.FontBold = .f.
if "I" $ upper(m.font_attrib)
thisForm.sample_text.FontItalic = .t.
thisForm.sample_text.FontItalic = .f.
if "U" $ upper(m.font_attrib)
thisForm.sample_text.FontUnderline = .t.
thisForm.sample_text.FontUnderline = .f.
thisForm.sample_text.FontName = m.font_name
When I disable the timer it works correctly. When I re-enable the timer it
does not. I've since disabled the timer and set the LostFocus method on all
other objects that the user can tab to to trigger the thisForm.Timer1.Timer
event. It works just as it should.
If anyone is interested I can e-mail the entire form and a sample program
which reproduces the error.
- Rick C. Hodgin