''
'' as1.bas
''
'' 11:52:42 23-04-2015
''
'' Generated by VISG v.0.951
''
'' VISG: visual and smart GUI builder
'' Get the latest version of VISG at
'' http://mrhx.clan.su/
'' http://mrhx.ucoz.com/
''
'' Tested on FreeBASIC Compiler 0.18
''
#Include once "windows.bi"
#Include once "win/commctrl.bi"

'' names of window classes.
const WND_CLASS_NAME0 = "my_wnd_class_name_0"

'' identifiers.
const IDC_EDIT0 = 2000

'' function prototypes.
declare sub register_classes
declare function message_loop as integer
declare function wnd_proc0(byval thiswnd as hwnd, byval message as uinteger, byval w_param as wparam, byval l_param as lparam) as lresult
declare function create_wnd0 as hwnd
declare sub create_wnd_content0(byval parent as hwnd)

'' global data.
dim shared instance as hmodule
dim shared h_font as HFONT

'' main code.
instance = GetModuleHandle(null)
InitCommonControls
register_classes
h_font = CreateFont(-13, 0, 0, 0, FW_NORMAL, 0, _
              0, 0, ANSI_CHARSET, OUT_DEFAULT_PRECIS, CLIP_DEFAULT_PRECIS, _
              DEFAULT_QUALITY, DEFAULT_PITCH or FF_DONTCARE, "Times New Roman")
create_wnd0
end message_loop

'' window procedure #0 [window].
function wnd_proc0(byval thiswnd as hwnd, byval message as uinteger, byval w_param as wparam, byval l_param as lparam) as lresult
      select case message
      case WM_CREATE
          create_wnd_content0 thiswnd

      case WM_CLOSE
          'if IDYES = MessageBox(thiswnd, "Quit?", "Event", MB_YESNO or MB_ICONQUESTION) then
              DestroyWindow thiswnd
          'end if

      case WM_DESTROY:
          PostQuitMessage 0    '' PostQuitMessage(return_code) quits the message loop.

      case else
          return DefWindowProc(thiswnd, message, w_param, l_param)
      end select
      return 0
end function

'' create window #0 [window].
function create_wnd0 as hwnd
      dim wnd as hwnd
      wnd = CreateWindowEx(&h00000100, WND_CLASS_NAME0, "window", &h14CF0000, CW_USEDEFAULT, CW_USEDEFAULT, 400, 300, null, null, instance, null)
      ShowWindow wnd, SW_SHOWNORMAL
      UpdateWindow wnd
      return wnd
        
      SetWindowText(wnd,"Заголовок")
        
end function

'' create window content #0 [window].
sub create_wnd_content0(byval parent as hwnd)
      dim wnd as hwnd
      wnd = CreateWindowEx(&h00020000, "Edit", "", &h50010080, 100, 80, 180, 50, parent, cast(hmenu, IDC_EDIT0), instance, null)
      SendMessage wnd, WM_SETFONT, cast(wparam, h_font), TRUE
end sub

'' register all the window classes.
sub register_classes
      dim wc as WNDCLASS

      with wc
          .cbClsExtra    = 0
          .cbWndExtra    = 0
          .hbrBackground = cast(hbrush, COLOR_3DFACE + 1)
          .hCursor       = LoadCursor(null, byval IDC_ARROW)
          .hIcon         = LoadIcon(null, byval IDI_APPLICATION)
          .hInstance     = instance
          .lpszMenuName  = null
          .style         = CS_PARENTDC or CS_DBLCLKS
      end with

      wc.lpfnWndProc   = @wnd_proc0
      wc.lpszClassName = strptr(WND_CLASS_NAME0)

      RegisterClass @wc
end sub

'' message loop.
function message_loop as integer
      dim message as MSG
      while (GetMessage(@message, null, 0, 0) <> false)
          TranslateMessage @message
          DispatchMessage @message
      wend
      DeleteObject h_font
      return message.wParam
end function

'' End of file.



#Include "window9.bi"

Dim As Integer event,g=2
Dim as HWND hwnd

Sub Scroll()
  Static X As Integer = 10
  If X<> -8*GetScrollGadgetPos(500) Then
   X = -8*GetScrollGadgetPos(500)
   ResizeGadget(1, X)
  EndIf
End Sub

hwnd=OpenWindow("Ïðèâåò",10,10,500,500) : CenterWindow(hwnd)
ContainerGadget(1,10,10,50000,400): SetGadgetColor(1,&hff,&hff,3)
For y As Integer  = 1 To 6
  For x As Integer = 1 To 500
   StringGadget(g,50*x+10,50*y+10,40,20,Str(g))
   g+=1
  Next
Next

UseGadgetList(hwnd)

ScrollBarGadget(500,10,420,480,30,0,3000)

SetTimer(hwnd,1,10,@Scroll())

Do
  event=WaitEvent()
  If event = eventgadget Then
   Select Case EventNumber
    Case 2 To 3001
     ? GetGadgetText(EventNumber)
   End Select
  ElseIf Event=EventClose then
   Exit Do
  EndIf
Loop

#Include "window9.bi"

OpenWindow("",10,10,300,100)
ComboBoxGadget(1,10,10,100,80)
AddComboBoxItem(1,"Ïðèâåò0",-1)
AddComboBoxItem(1,"Ïðèâåò1",-1)
AddComboBoxItem(1,"Ïðèâåò2",-1)
TextGadget(2,150,10,100,20)

SetGadgetStyle(1,CBS_DROPDOWN)

Do
var event=WaitEvent()
    If event=eventclose Then End
    If event=eventgadget Then
     If eventnumber()=1 Then
      setgadgettext(2,GetComboBoxText(1,GetItemComboBox(1)))
     EndIf
    EndIf
       
Loop

#Include "window9.bi"
OpenWindow("",10,10,300,100)
ComboBoxGadget(1,10,10,100,80,CBS_SORT)
AddComboBoxItem(1,"Привет0",-1)
AddComboBoxItem(1,"Привет1",-1)
AddComboBoxItem(1,"Привет2",-1)
TextGadget(2,150,10,100,20)
Do
var event=WaitEvent()
  If event=eventclose Then End
  If event=eventgadget Then
   If eventnumber()=1 Then
    setgadgettext(2,GetComboBoxText(1,GetItemComboBox(1)))
   EndIf
  EndIf
   
Loop


#Include "window9.bi"

Function AddComboBoxItemSort (ByVal iGadget As Integer, ByVal szString As String ) As Integer
  Return SendMessage( GadgetID(iGadget), CB_ADDSTRING ,0 ,Cast(LPARAM,StrPtr(szString)))
End Function

OpenWindow("",10,10,300,100)
ComboBoxGadget(1,10,10,100,80,CBS_SORT Or CBS_DROPDOWNLIST Or WS_VSCROLL)
AddComboBoxItemSort(1,"sz5" )
AddComboBoxItemSort(1,"sz1" )
AddComboBoxItemSort(1,"sz2" )
TextGadget(2,150,10,100,20)

Do
  var event=WaitEvent()
  If event=eventclose Then End
  If event=eventgadget Then
   If eventnumber()=1 Then
    setgadgettext(2,GetComboBoxText(1,GetItemComboBox(1)))
   EndIf
  EndIf
Loop