OP
Fjord artisan
Joined: Feb 2005
Posts: 344 |
I downloaded a acronym addon and placed the funtions of it into my option dialog. All works well but in the list that shows the acronyms there were 2 headerdims and now there gone. I'm not good at dll scripting so I hope someone can help me. This is the part I believe the error is(this is the original): dialog acronyms {
title "Acronym Manager [/acros]"
size -1 -1 126 96
option dbu
edit "", 1, 2 14 32 10, autohs
edit "", 2, 37 14 50 10, autohs
list 3, 2 29 122 51, sort size extsel
text "Short Form", 4, 5 5 27 8
text "Acronym", 5, 52 5 21 8
button "Add", 6, 91 14 32 10, disable
check "Activate Acronyms", 7, 2 84 56 7
button "Edit", 8, 59 83 32 10, disable
button "Delete", 9, 91 83 32 10, disable
}
on *:DIALOG:acronyms:init:0: {
.dll $Shortfn($Scriptdir $+ mdx\mdx.dll) MarkDialog acronyms
.dll $Shortfn($Scriptdir $+ mdx\mdx.dll) SetControlMDX 3 listview rowselect showsel single sortascending labeltip report > $Shortfn($Scriptdir $+ mdx\views.mdx)
.did -i acronyms 3 1 headerdims 72:1 151:2
.did -i acronyms 3 1 headertext Afkorting $Chr(9) Acronym
.var %a = 1, %b = $Hget(AcroManager, 0).item
While (%a <= %b) {
.did -az acronyms 3 $Hget(AcroManager, %a).item $Chr(9) $Hget(AcroManager, $Hget(AcroManager, %a).item)
.inc %a
}
If ($Group(#AcroManager) == On) { .did -c acronyms 7 } And this is what i made of it(i only show the tab): tab "Overige", 404
box "Talker editor by Relinsquish", 600, 3 15 263 137,tab 404
edit "", 601, 5 32 32 10, autohs,tab 404
edit "", 602, 5 52 100 10, autohs,tab 404
list 603, 110 23 150 116, sort size extsel,tab 404
text "afkorting:", 604, 5 23 27 8,tab 404
text "Acronym", 605, 5 43 21 8,tab 404
button "Toevoegen", 606, 5 65 62 10, disable,tab 404
check "Activeer Acronyms", 607, 5 84 56 7,tab 404
button "Bewerk", 608, 148 140 42 10, disable,tab 404
button "Verwijder", 609, 190 140 42 10, disable,tab 404
on *:DIALOG:inst:init:0: {
.dll $Shortfn($Scriptdir $+ mdx\mdx.dll) MarkDialog acronyms
.dll $Shortfn($Scriptdir $+ mdx\mdx.dll) SetControlMDX 3 listview rowselect showsel single sortascending labeltip report > $Shortfn($Scriptdir $+ mdx\views.mdx)
.did -i inst 603 601 headerdims 72:1 151:2
.did -i inst 603 601 headertext Afkorting $Chr(9) Acronym
.var %a = 1, %b = $Hget(AcroManager, 0).item
While (%a <= %b) {
.did -az inst 3 $Hget(AcroManager, %a).item $Chr(9) $Hget(AcroManager, $Hget(AcroManager, %a).item)
.inc %a
}
If ($Group(#AcroManager) == On) { .did -c inst 607 }
As you can see I replaced about everything including the list. My guess is there is the problem but sinds I'm no pro i could be wrong. Hope you can help me. Greetzz BTW incase you care the original writer of the addon gets all the credit in my script.
|