wfi в ногу со временем

Категории

Исходный код формы.

Procedure HttpGetEvent(Success, result.s)

If Success

      Debug result

      ;!alert(v_result);    

      !document.getElementById('com_loader').innerHTML = v_result; 

Else

      Debug "HTTPRequest(): Error"

EndIf

EndProcedure

 

Global ListView1, Button1, Tree1

 

Procedure SizeWindowEvent()

    ResizeGadget(0, 10, 10, WindowWidth(0)-20, WindowHeight(0)-20)

EndProcedure

 

Procedure CloseWindowEvent()

    CloseWindow(EventWindow())

EndProcedure

 

Procedure GadgetEvents()

Select EventGadget()

Case 1

      DisableGadget(1,1)

      url$="act=com_add&com_nav=158&com_lang=1&com_item=&com_olp=интеграция_spiderbasic_и_wfi&com_title="+GetGadgetText(2)+"&com_mail="+GetGadgetText(3)+"&com_name="+GetGadgetText(4)+"&com_msg="+GetGadgetText(5)+""

      HTTPRequest(#PB_HTTP_Post, "http://wfi.lomasm.ru/rus.main.ajax/", url$, @HttpGetEvent())       

EndSelect

EndProcedure

 

If OpenWindow(0, 0, 0, 420, 200, "", #PB_Window_SystemMenu | #PB_Window_ScreenCentered | #PB_Window_SizeGadget)

      SetWindowTitle(0, "SpiderBasic and WFI example of integration and interaction")

      

      StringGadget(2, 10,  10, 170, 20, "title...")

      StringGadget(3, 10,  40, 170, 20, "mail...")

      StringGadget(4, 10,  70, 170, 20, "name...")

      StringGadget(5, 10,  100, 170, 60, "text...")

      

      ButtonGadget(1, 10,  170, 200, 20, "SEND", #PB_Button_Left)

      

      BindEvent(#PB_Event_CloseWindow, @CloseWindowEvent())

      BindEvent(#PB_Event_SizeWindow, @SizeWindowEvent())

      BindEvent(#PB_Event_Gadget, @GadgetEvents())

      

EndIf