Iterate through controls

General
1

In an app I have many labels with a specific font and appearance (italic). Now my customer doesn’t want that font.
Can I iterate through all controls in a Xojo project and change the appearance?

That would save me quite some time (and money)…

2

I assume you mean at runtime, and not by using Search and Replace in the IDE?

otherwise

  dim i as integer
dim ctrl as control
  For i=0 To Me.ControlCount-1
    ctrl=Me.control(i)
      If ctrl IsA Label Then Label(ctrl).Textfont="new font name"
  Next i
3

Uhhhh… Is it possible on the IDE? Haven’ t tried that yet.

4

Use Find/Replace if you want to alter the actual code at design time…
use something like above if you want to change it at run time

5

Thanks Dave!

6

And if your are about to put hands on your code and do all that work: why don’t you subclass label and make your new ‘mylabel’ class a super of all labels used in your code? Then you can make changes like textfont in one place …