Skip to content

Commit bbdbf95

Browse files
author
cpyrgas
committed
[VOXporter] Added missing properties (Caption, Description, Help Context) on fields for ported DBserver binaries. Fixes #1756. "Help Context" is also missing from the DBServer designer, needs to be added there, too.
1 parent 0812e92 commit bbdbf95

File tree

1 file changed

+4
-4
lines changed

1 file changed

+4
-4
lines changed

src/VisualStudio/XSharpVoEditors/Designers/VOEditorsShared.prg

Lines changed: 4 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -151,10 +151,10 @@ PARTIAL CLASS VODBServerEditor
151151
cValue := __ReadNextVNDBString(aBytes , REF nPos , 128)
152152
oField:cName := cValue
153153
oField:aProperties:Add("fldname" , cValue)
154-
__ReadNextVNDBString(aBytes , REF nPos , 128)
155-
__ReadNextVNDBString(aBytes , REF nPos , 64)
156-
__ReadNextVNDBString(aBytes , REF nPos , 255)
157-
__ReadNextVNDBString(aBytes , REF nPos , 64)
154+
__ReadNextVNDBString(aBytes , REF nPos , 128) // TODO: what is this for???
155+
oField:aProperties:Add("caption" , __ReadNextVNDBString(aBytes , REF nPos , 64) )
156+
oField:aProperties:Add("description" , __ReadNextVNDBString(aBytes , REF nPos , 255) )
157+
oField:aProperties:Add("helpcontext" , __ReadNextVNDBString(aBytes , REF nPos , 64) )
158158
oField:aProperties:Add("included" , __ReadNextVNDBByte(aBytes , REF nPos):ToString())
159159
m := __ReadNextVNDBInt16(aBytes , REF nPos)
160160
DO WHILE aSorted:ContainsKey(m)

0 commit comments

Comments
 (0)