how to create window and send data to it

Hi trevor

try using hiDisplayAppDbox.

ex..                 hiDisplayAppDBox( ?name 'areabox ?dboxBanner "Polygon Area" 
                                                       ?dboxText sprintf( nil,"The Polygon Area is %1.3f",totalarea ) 
                                                       ?dialogType hicInformationDialog ?buttonLayout 'Close )

BR  -lrlsk

Hi Trevor1981,

here a piece of code based on a form containing a scrolled region and
a string-field:

;first, create the field to print your message to
mydout = hiCreateOutputStringField(?name 'mydout ?defValue "OUTPUT"
?invisible nil
)
; create a scrolled region, place mydout inside
myds = hiCreateScrollRegion(
?name 'myds
?fields list( list(mydout 0:0 500:300) )
)
; create a form and place myds into it
mydform = hiCreateAppForm(?name 'mydform ?fields list( list(myds 0:0 600:350 ) ))
; display the form
hiDisplayForm(mydform)

; now you can write to the form by modifying mydform->myds->mydout->value :
mydform->myds->mydout->value = "OUTTEXT01"
; or by just appending new text
mydform->myds->mydout->value = strcat(mydform->myds->mydout->value "\n" "more outtext")

slight problem: the scrolled field does not follow your input, could not
find the correct usage of hiSetScrollBarValue:
hiSetScrollBarValue(mydform list(0 1000))  (-> applied to the form,)
behaves as expected (if there is a scrollbar on the form, just reduce the window-size to check)
but executing hiSetScrollBarValue(myds list(0 1000))
i run into a warning
"drawing area is NULL!" and scroll-position doesn't change

so, there's some more work to do but i hope this is a starting point for
further steps.


regards
Stefan
 

 Hi StefaSL

Thanks for the code. The text input is not appended correctly, I mean I see it in somehow the middle of the form window instead of being appended at the lower line. I will work on it though to have it fixed.

Thanks again for the reply.