--- In [email protected], "entropyreduction"
<alancampbelllists+ya...@...> wrote:
>
> > --- In [email protected], "Sheri" <sherip99@> wrote:
> > >
> > > You didn't mention the resource issue. Its definitely much
> > > improved, but there is still a GDI leak.
>
> Try dialogplugin1.19_090105.zip, usual location
>
>
http://tech.groups.yahoo.com/group/power-pro/files/0_TEMP_/AlansPluginProvisional/
>
> Fixed some problems not clearing out HICONs.
No change AFAICT. Icons are still accumulating at the rate of 4 per
execution of regexdialog, and "all GDI" objects is growing at the rate
of 8 per execution of regexdialog. This is for executions after the
first run of regexdialog, because more GDI objects are added during
the first run than subsequent runs. Tests were run under empty.pcf.
Per my research, DeleteObject doesn't apply to icons, icons use
DestroyIcon.
>
> What's current state of usage of dialog.set_font(hwnd, font_spec),
> dialog.get_value(hwnd, "font"?
Seems to be working fine. Tried the new dialog.clear(<hfont>,
"hfont"). Would prefer that it not provoke the error "Dialog handle
isn't". Couldn't it just return 1 on success or 0 on failure?
>
> On powerpro bars and buttons? Embedded controls? Want to update
> docs.
For PowerPro bars and buttons, I am mostly using choose_font, followed
by cl.setfont.
>
> I assume dialog.set_font(hwnd...): not needed: cl.setfont does
> the job for bars and cl items?
I do still use it for debug window. Below is my current script for
that. It is run as a startup event, and then whenever the PowerPro
Debug window opens (via autorun list).
@DebugFonts
local hWin=win.handle("PowerPro Debug")
local debugctrls=win.childhandlelist(hWin)
static debugfontlist
if (not vec.exists(debugfontlist)) do
;performed during startup scheduled item
local dialog_status
static debugfontlist=vec.create(2)
debugfontlist[0]=dialog.set_font(win.handlefromindex(hWin, 1), ;;+
?#"Verdana" 11.0#)
debugfontlist[1]=dialog.set_font(win.handlefromindex(hWin, 2), ;;+
?x"Arial" 10.0x)
win.debug("Startup Done")
wait.for(10)
dialog.unload
endif
For each word debugitem index i in debugctrls
if (debugitem.class=="button") do ;;?#"Arial" 10.0#
win.sendmessage(debugitem, 48, debugfontlist[1], 1)
elseif (debugitem.class=="edit") ;;?#"Verdana" 11.0#
win.sendmessage(debugitem, 48, debugfontlist[0], 1)
elseif (debugitem.class=="listbox") ;;?x"Verdana" 11.0x
win.sendmessage(debugitem, 48, debugfontlist[0], 1)
elseif (debugitem.class=="Static") ;;?#"Arial" 10.0#
win.sendmessage(debugitem, 48, debugfontlist[1], 1)
endif
endfor
quit
