Login
Templates, Tools and Utilities
for Clarion Developers
Templates, Tools and Utilities
|
||
|
|
|
Icetips Article
Back to article list
Search Articles
Add Comment
Printer friendly
Direct link
Par2: Changing control properties at runtime - Procedure 1998-04-22 -- Jeff Berlinghoff I have seen several people stating that they want to make changes to a bunch of
controls at one time, and asking how to do it. I've had this procedure in mind for a while,
and just recently had a need to do it several times in a form, so I took the opportunity to
do it right.
Examples:
1. Disable all Entry Controls: SetControls(Prop:Disable,,,1,CREATE:Entry)
2. Make all Buttons Flat (note that this is a four step process)
a. Include BLANK.ICO in the project
b. SetControls(Prop:Icon,,,'~BLANK.ICO',CREATE:Button)
c. SetControls(Prop:Left,,,1,CREATE:Button)
d. SetControls(Prop:Flag,,,1,CREATE:Button)
3. Set the background color for all entry controls:
SetControls(Prop:Color,,,COLOR:BtnFace,CREATE:Entry)
4. Set Range of Prompts in Blue
SetControls(Prop:FontColor,?PromptX,?PromptY,COLOR:Blue,CREATE:Prompt)
OR (to show off using Array Index in property)
SetControls(Prop:Font,?PromptX,?PromptY,COLOR:Blue,CREATE:Prompt,3)
For 2, it might be slightly quicker if you wrote your own loop and only go through it one time and set
all three settings at once, but this happens so quick it shouldn't be significant (under normal
situations).
This also opens up an easy avenue for providing more user control over settings such as display colors.
Procedure Name: SetControls
Procedure Category (not avail in CW2): Utility, Window Control
Procedure Type: Source
Prototype: (Long, Long=0, Long=0, ?, Long=0, Long=0)
Parameters: (CtlProp, FirstFld, LastFld, FldValue, CtlType, ArrayIndex)
Embed Data Section:
Fld LONG
Embed Processed Code:
IF FirstFld=0 THEN FirstFld=FIRSTFIELD().
IF LastFld=0 THEN LastFld=LASTFIELD().
IF FirstFld > LastFld !Extra precaution
Fld=FirstFld; FirstFld=LastFld; LastFld=Fld
END
LOOP Fld=FirstFld TO LastFld
IF CtlType=0 OR FLD{prop:Type}=CtlType THEN
Fld{CtlProp,PropArrayIndex}=FldValue.
END
It assumes your window is open at the time, or if modifying a report that SetTarget has been issued.
Today is April 26, 2024, 2:43 pm This article has been viewed 35112 times.
|
|