--- In [email protected], "brucexs" <[EMAIL PROTECTED]> wrote:
>
> --- In [email protected], no spam <nospam0123456us@> wrote:
> >
> > I think you can get the info using the
> > cl.export("TheBarName","MytempFile.ini") command and
> True, but its quick (thought a bit tedious) for me to do the cl
> functions to allow direct access; I will upload a new beta next week.
>
Direct access will be much nicer than having to parse the export,
although if export were in the release version I would have tackled it.
Bruce, I'm having trouble setting the IconSize with cl.AddProperties.
The other settings change, but usually not the IconSize. Not just the
appearance, but the settings displayed in PProConf afterwards; the
other settings have change as specified but not the IconSize. If I
choose an iconsize larger than the current icon (e.g., choose 32), the
size increases, but PProConf shows it as 40. Subsequent smaller
settings do not effect a change.
cl.AddProperties(Mybar, "Format1 = IconSize: " ++ CBButsz ++ "
Position: " ++ CBPosition ++ " HOffset: " ++ CBhoff ++ " VOffset: " ++
CBvoff)
Here is my script (beware of Yahoo line wraps):
@setccbarpos
local CB4 = win.getfocus()
local Mybar = x9
x9 = ""
win.debug(Mybar)
local CBButsz CBHOff CBVOff CBhoffedit CBvoffedit CBbla
CBButsz = 24
CBPosition = "Right Caption"
CBHoff = 0
CBVOff = 0
@dodiag
Inputdialog("~CBButsz=Select Button Size??16|24|32, CBPosition=Select
Position??Right Caption|Left Caption|Middle Caption, CBHOff=Enter
Horizontal Offset in Pixels, CBVOff= Enter Vertical Offset in Pixels",
Mybar ++ " Size and Location")
CBbla = CBhoff[?"-?\d+"]
CBhoffedit = _RegExp_
CBbla = CBvoff[?"-?\d+"]
CBvoffedit = _RegExp_
if (CBhoffedit !== 0) do
CBHoff = 0
endif
if (CBvoffedit !== 0) do
CBVoff = 0
endif
if (CBhoffedit !== 0 || CBvoffedit !== 0) do
messageBox("exclamation ok", "Offsets must be numeric - can be
preceded by a minus sign" )
jump dodiag
endif
CBPosition = replacechars (CBPosition, " ", "" )
if (cl.exists(Mybar)) do
win.debug("IconSize: ", CBButsz)
cl.AddProperties(Mybar, "Format1 = IconSize: " ++ CBButsz ++ "
Position: " ++ CBPosition ++ " HOffset: " ++ CBhoff ++ " VOffset: " ++
CBvoff)
cl.Refresh(Mybar)
Bar.Show(Mybar)
win.setfocus(CB4)
else do
messageBox("exclamation ok", Mybar ++ " doesn't exist in
current pcf." )
endif
quit
Attention: PowerPro's Web site has moved: http://www.ppro.org
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/power-pro/
<*> Your email settings:
Individual Email | Traditional
<*> To change settings online go to:
http://groups.yahoo.com/group/power-pro/join
(Yahoo! ID required)
<*> To change settings via email:
mailto:[EMAIL PROTECTED]
mailto:[EMAIL PROTECTED]
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
