#Include "window9.bi" 

dim as HWND   hwnd=OpenWindow("",10,10,300,300)

WindowStartDraw(hwnd,0,0,300,300)
    BoxDraw(-30,-30,100,100,&h00ff00,&h00ff00,1)
    BoxDraw(20,20,100,100,&hff8000,&hff8000,1,,120)
    BoxDraw(130,30,200,50,&h0080ff,&h0080ff,1,,120) ' не прорисовывается
StopDraw

Do 
    var event=WaitEvent() 
    If event=eventclose Then End 
Loop

#Include "window9.bi"
#define   TXT_ZOOM      100

dim shared as HWND   hwnd
dim shared as integer zoom,event
hwnd=OpenWindow("",10,10,200,200)
TextGadget(TXT_ZOOM,10,10,140,20,str(zoom))

do
   event = WaitEvent()
   select case event
      case eventclose
         exit do
   end select
   SetGadgetText(TXT_ZOOM,str(MouseX)&" : "&str(MouseY))
loop

#Include "window9.bi"
Dim As Integer hwnd
hwnd=OpenWindow("",10,10,200,200)

Do
Var event=WaitEvent
Select Case event
  Case EventClose
   End
  Case EventMouseMove
        ? MouseX & "  " & MouseY
End Select
Loop

#define   MouseWndX      (GlobalMouseX-WindowX(hwnd)-x0)
#define   MouseWndY      (GlobalMouseY-WindowY(hwnd)-y0)

#Include "window9.bi"

dim as HWND   hwnd
dim as Integer event
'dim shared as  pvoid   font = CreateFontDrawA("Courier New",16,0,2)
hwnd=OpenWindow("",10,10,200,200)

sub DrawTxt(wnd as HWND)
   dim as pvoid   font = CreateFontDrawA("Courier New",16,0,2)
   WindowStartDrawA(wnd,0,0,200,200,1,&hff320000)
      TextDrawA("Текст",50,50,font,&ha000ff00,,0)
   StopDrawA
end sub

DrawTxt(hwnd)
do
   event = WaitEvent()
    Select Case event
        case EventLBDown
            DrawTxt(hwnd)
        case eventclose
            Exit Do
    End Select
loop

dim as pvoid   font = CreateFontDrawA("Courier New",16,0,2)

#Include "window9.bi"

dim as HWND   hwnd
dim as Integer event
Dim shared as  pvoid   font
font = CreateFontDrawA("Courier New",16,0,2)
hwnd=OpenWindow("",10,10,200,200)

sub DrawTxt(wnd as HWND)
   WindowStartDrawA(wnd,0,0,200,200,1,&hff320000)
      TextDrawA("Текст",50,50,font,&ha000ff00,,0)
   StopDrawA
end sub

DrawTxt(hwnd)
do
   event = WaitEvent()
    Select Case event
        case EventLBDown
            DrawTxt(hwnd)
        case eventclose
            Exit Do
    End Select
Loop

#Include "window9.bi"
Dim Shared As HWND hw
Dim As Integer ev
Dim Shared As RECT rect
hw=OpenWindow("",1300,10,300,240,WS_OVERLAPPEDWINDOW Or WS_VISIBLE Or WS_VSCROLL Or WS_HSCROLL): WindowColor(hw,&hff0000)
GetClientRect(hw,@rect)
ButtonGadget(3,100,100,200,200,"Hello")

ButtonGadget(75,5,5,190,20,"Íñòðîèòü îêíî/Ïðèíÿòü"): SetGadgetFont(75,CINT(LoadFont("arial",9,,1)))
ButtonGadget(70,160,27,100,20,"Îòêðûòü", BS_DEFPUSHBUTTON Or BS_MULTILINE): SetGadgetFont(70,CINT(LoadFont("arial",10,,1))) ',BS_LEFT Or BS_BOTTOM)
ButtonGadget(71,280,27,100,20,"Ñîõðàí.", BS_DEFPUSHBUTTON Or BS_MULTILINE): SetGadgetFont(71,CINT(LoadFont("arial",10,,1))) ',BS_LEFT Or BS_BOTTOM)
ButtonGadget(72,400,27,100,20,"Ñîõð.êàê", BS_DEFPUSHBUTTON Or BS_MULTILINE): SetGadgetFont(72,CINT(LoadFont("arial",10,,1))) ',BS_LEFT Or BS_BOTTOM)
ButtonGadget(73,520,27,100,20,"Ðàñ÷¸ò", BS_DEFPUSHBUTTON Or BS_MULTILINE): SetGadgetFont(73,CINT(LoadFont("arial",10,,1))) ',BS_LEFT Or BS_BOTTOM)
ButtonGadget(74,640,27,100,20,"Âûõîä", BS_DEFPUSHBUTTON Or BS_MULTILINE): SetGadgetFont(74,CINT(LoadFont("arial",10,,1))) ',BS_LEFT Or BS_BOTTOM)
TextGadget(63,760,10,90,17,"",SS_CENTER) '/
TextGadget(60,200,5,520,20,"ÑÈËÎÂÎÉ ÐÀÑ×¨Ò ØÀÐÎÂÎÃÎ ÊÐÀÍÀ Ñ ÏÐÎÁÊÎÉ Â ÎÏÎÐÀÕ",SS_CENTER)

SetScrollGadgetRange(hw,0,630,0):SetScrollGadgetRange(hw,0,470,1)
SetScrollGadgetPage(hw,rect.right-rect.left,0)
SetScrollGadgetPage(hw,rect.bottom-rect.top,1)

Sub size()
 Static As Integer width_scroll , height_scroll , sizewinX ,sizewinY
 GetClientRect(hw,@rect)
 If rect.right-rect.left<>sizewinX Then
  sizewinX=rect.right-rect.left
  If sizewinX<=GetScrollGadgetRange(hw,1,0) Then
   ShowScrollBar(hw,0,1)
   SetScrollGadgetPage(hw,sizewinX,0)
  Else
   ShowScrollBar(hw,0,0)
  EndIf
 EndIf
 If rect.bottom-rect.top<>sizewinY Then
  sizewinY=rect.bottom-rect.top
  If sizewinY<GetScrollGadgetRange(hw,1,1) Then
   ShowScrollBar(hw,1,1)
   SetScrollGadgetPage(hw,sizewinY,1)
  Else
         ShowScrollBar(hw,1,0)
  EndIf
 EndIf
 If width_scroll<>GetScrollGadgetPos(hw,0) Or height_scroll<>GetScrollGadgetPos(hw,1)  Then
  width_scroll=GetScrollGadgetPos(hw,0):height_scroll=GetScrollGadgetPos(hw,1)
  ResizeGadget(3,100-width_scroll,100-height_scroll)
  
    ResizeGadget(75,5-width_scroll,5-height_scroll)
    ResizeGadget(63,760-width_scroll,10-height_scroll)
    ResizeGadget(60,200-width_scroll,5-height_scroll)
    ResizeGadget(70,160-width_scroll,27-height_scroll)
    ResizeGadget(71,280-width_scroll,27-height_scroll)
    ResizeGadget(72,400-width_scroll,27-height_scroll)
    ResizeGadget(73,520-width_scroll,27-height_scroll)
    ResizeGadget(74,640-width_scroll,27-height_scroll)
  
 EndIf
End Sub
SetTimer(hw,1,700,Cast(TIMERPROC,@size))

Do
 ev=WaitEvent
Loop Until ev=EventClose

......
......
    ResizeGadget(72,400-width_scroll,27-height_scroll)
    ResizeGadget(73,520-width_scroll,27-height_scroll)
    ResizeGadget(74,640-width_scroll,27-height_scroll)
  invalidaterect(hw,0,true)
EndIf
End Sub
.......
.......