Thanks for the advice - I now have a method like this:
Function SetControlProperties(ControlType as string, FontOrSize as string,
ControlProperty as string)
which I can call like SetControlProperties("EditFeld", "Font", "Arial") and
it will set all the editfields in my window to the desired font.
However I'm not clear on how I can make t more general, so that I can call
it for all the different windows in my app ... or in other words how do I
tell it to do this for all the controls in a certain window ...
Code is
dim i as integer
select case ControlType
case "StaticText"
select case FontOrSize
case "Font"
For i = 0 to Self.ControlCount-1 //number of controls in window
If Self.control(i) IsA StaticText then
StaticText(control(i)).TextFont = ControlProperty
end if
next
case "Size"
For i = 0 to Self.ControlCount-1 //number of controls in window
If Self.control(i) IsA StaticText then
StaticText(control(i)).TextSize = Val( ControlProperty )
end if
next
end select
case "EditField"
etc
TIA
Markus
_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>
Search the archives:
<http://support.realsoftware.com/listarchives/lists.html>
