// COMPILE_OPTS|C:\Test Baras.exe||CONSOLE=0|INCLUDES=1|

Wait>5
Dialog>Dialog1
object Dialog1: TForm
  Left = 332
  Top = 603
  HelpContext = 5000
  BorderIcons = [biSystemMenu]
  BorderWidth = 2
  ClientHeight = 216
  ClientWidth = 435
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = True
  Position = poDesktopCenter
  ShowHint = True
  OnTaskBar = False
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 8
    Top = 8
    Width = 297
    Height = 15
    BevelKind = bkFlat
    BevelOuter = bvNone
    BevelWidth = 3
    BorderStyle = bsSizeToolWin
    ParentBackground = False
    TabOrder = 0
    object Splitter1: TSplitter
      Left = 0
      Top = 0
      Width = 49
      Height = 11
      Cursor = crDefault
      Color = 52479
      ParentColor = False
      ResizeStyle = rsUpdate
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 197
    Width = 435
    Height = 19
    Panels = <>
    SimplePanel = True
    SimpleText = 'Position: 50'
  end
  object Panel2: TPanel
    Left = 8
    Top = 24
    Width = 297
    Height = 15
    BevelKind = bkFlat
    BevelOuter = bvNone
    BevelWidth = 3
    BorderStyle = bsSizeToolWin
    ParentBackground = False
    TabOrder = 2
    object Splitter2: TSplitter
      Left = 0
      Top = 0
      Width = 49
      Height = 11
      Cursor = crDefault
      Color = 179
      ParentColor = False
      ResizeStyle = rsUpdate
    end
  end
  object Panel3: TPanel
    Left = 8
    Top = 40
    Width = 297
    Height = 15
    BevelKind = bkFlat
    BevelOuter = bvNone
    BevelWidth = 3
    BorderStyle = bsSizeToolWin
    ParentBackground = False
    TabOrder = 3
    object Splitter3: TSplitter
      Left = 0
      Top = 0
      Width = 49
      Height = 11
      Cursor = crDefault
      Color = 16730698
      ParentColor = False
      ResizeStyle = rsUpdate
    end
  end
end
EndDialog>Dialog1

Show>Dialog1
SetDialogProperty>Dialog1,Panel1,Width,300
SetDialogProperty>Dialog1,Panel2,Width,300
SetDialogProperty>Dialog1,Panel3,Width,300
Label>loop

FindImagePos>C:\Barrap.bmp,SCREEN,20,1,XArr,YArr,NumFound

Let>X1=%XArr_0% + 14
Let>Y1=%YArr_0% - 9
Let>X2=%X1% + 351
Let>Y2=%Y1% + 3

ScreenCapture>%X1%,%Y1%,%X2%,%Y2%,d:\current_screen.bmp
CompareBitmaps>C:\barracp.bmp,d:\current_screen.bmp,match
Let>match={%match% * 30}
Let>CP={%match% div 8}
SetDialogProperty>Dialog1,Splitter1,Width,%CP%



Let>X1=%XArr_0% + 14
Let>Y1=%YArr_0% + 4
Let>X2=%X1% + 351
Let>Y2=%Y1% + 3

ScreenCapture>%X1%,%Y1%,%X2%,%Y2%,d:\current_screen.bmp
CompareBitmaps>C:\barrahp.bmp,d:\current_screen.bmp,match

Let>match={%match% * 32}
Let>HP={%match% div 8}
SetDialogProperty>Dialog1,Splitter2,Width,%HP%


Let>X1=%XArr_0% + 14
Let>Y1=%YArr_0% + 17
Let>X2=%X1% + 351
Let>Y2=%Y1% + 3

ScreenCapture>%X1%,%Y1%,%X2%,%Y2%,d:\current_screen.bmp
CompareBitmaps>C:\barramp.bmp,d:\current_screen.bmp,match
Let>match={%match% * 30}
Let>MP={%match% div 8}
SetDialogProperty>Dialog1,Splitter3,Width,%MP%


wait>0.1
Goto>loop