#SingleInstance, Force
#NoEnv

picPath := "D:\BKP\SKRPT\lexa\Scada\pic\Val-Grey.emf"

Gui,1: Add, Picture,vmyPic1 gMoveMe,% picPath
Gui,1: Add, Picture,vmyPic2 gMoveMe,% picPath
Gui,1: Show,w500 h500

return
MoveMe:
	MouseGetPos,xx_start,yy_start
	GuiControlGet,myPic,Pos,% A_GuiControl
	if (GetKeyState("LButton", "P"))
		while (GetKeyState("LButton", "P"))
			Sleep, 10
	MouseGetPos,xx_finish,yy_finish
	GuiControl,Move,%A_GuiControl%,% Format("x{1} y{2}", myPicX - (xx_start - xx_finish), myPicY - (yy_start - yy_finish))
return

Esc::
	ExitApp

#z::
Gui, Add, Picture,x+30 w30 h-1 BackgroundTrans gdbg vV1, D:\BKP\SKRPT\lexa\Scada\pic\Val-Grey.emf
Gui, Add, Picture,x+30 w30 h-1 BackgroundTrans gdbg vV2, D:\BKP\SKRPT\lexa\Scada\pic\Val-Grey.emf
Gui, Add, Picture,x+30 w30 h-1 BackgroundTrans gdbg hwndV3, D:\BKP\SKRPT\lexa\Scada\pic\Val-Grey.emf
Gui, Add, Picture,x+30 w30 h-1 BackgroundTrans gdbg hwndV4, D:\BKP\SKRPT\lexa\Scada\pic\Val-Grey.emf
Gui, 1:Show, w1000 h580, Test gui
return

dbg:
Tooltip %A_GuiControl%
ZQ:=A_GuiControl
SetTimer, DR, 1
return

DR:
ToolTip %A_GuiControl%
;SetTimer, DR, 1
MouseGetPos, x, y
y:=y-30
GuiControl, move, A_GuiControl, x%x% y%y% 
return

~RButton Up::
SetTimer, DR, Off
return

#SingleInstance, Force
#NoEnv

Global currVol := 1000	; текущая наполненность бочек(для примера)
allBarrels := {"Красная бочка": New Barrel("Красная бочка", 1000
					, "Синий насос")
			  ,"Зелёная бочка": New Barrel("Зелёная бочка", 2000
					, "Игрушечный насос", 10, 10)}

Gui,1: Add, Text,Border gShowMyBarrel,Красная бочка
Gui,1: Add, Text,x+5 Border gShowMyBarrel,Зелёная бочка
Gui,1: Show,,Бочки
return
ShowMyBarrel:
	if (showed)
		Gui,2: Destroy
	Gui,2: Add, Text,,Бочка:
	Gui,2: Add, Text,x+5,% allBarrels[A_GuiControl].name
	Gui,2: Add, Text,xm y+5,Макс объём:
	Gui,2: Add, Text,x+5,% allBarrels[A_GuiControl].maxVol
	Gui,2: Add, Text,xm y+5,Заполненность:
	Gui,2: Add, Text,x+5,% allBarrels[A_GuiControl].currentVol "%"
	Gui,2: Add, Text,xm y+5,Состояние:
	Gui,2: Add, Text,x+5,% allBarrels[A_GuiControl].state
	Gui,2: Add, GroupBox,xm y+5 w150 h100,Насос
	
	Gui,2: Add, Text,xm+5 yp+15,Наименование:
	Gui,2: Add, Text,xm+5 y+2,% allBarrels[A_GuiControl].oPump.name
	
	pwrOn := allBarrels[A_GuiControl].oPump.state
	Gui,2: Add, Radio,xm+5 y+15 von Checked%pwrOn%,Вкл
	pwrOff := !pwrOn
	Gui,2: Add, Radio,x+5 voff Checked%pwrOff%,Выкл
	
	forw := allBarrels[A_GuiControl].oPump.direction
	Gui,2: Add, Radio,xm+5 y+5 vforward Group Checked%forw%,Вперёд
	bckw := !forw
	Gui,2: Add, Radio,x+5 vbackward Checked%bckw%,Назад
	
	Gui,2: Show,,ЦПУ
	showed := true
return
2GuiClose:
	Gui,2: Destroy
	showed := false
return
GuiClose:
	ExitApp

Class Barrel {
	__New(bName, bMaxVol, pName, pPower := 1000, pMaxPower := 1000, pState := false) {
		this.name       := bName
		this.maxVol     := bMaxVol
		this.currentVol := this.CheckMyself(currVol)
		this.state      := this.currentVol < 100 ? "Наполняется" : "Полная"
		this.oPump      := New Pump(pName, pPower, pMaxPower, pState)
	}
	CheckMyself(vol) {
		; диагностика
		; провеить текущее наполнение
		; вернуть процент заполненности бочки
		return vol * 100 // this.maxVol
	}
	ToFill() {
		this.state := "Наполняется"
		(!this.oPump.direction && this.oPump.Reverse())
	}
	ToEmpty() {
		this.state := "Опустошается"
		(this.oPump.direction && this.oPump.Reverse())
	}
	ToFaster(count) {
		this.oPump.PowerUp(count)
	}
	ToSlower(count) {
		this.oPump.PowerDown(count)
	}
	Stop() {
		this.oPump.PowerOff()
	}
}
Class Pump {
	__New(name, power, maxPower, state) {
		this.name      := name
		this.power     := power
		this.maxPower  := maxPower
		this.state     := state
		this.direction := true
	}
	PowerOn() {
		this.state := true
		{
			; ожидание отклика устройства
			; установка текущей мощности и прочие параметры
		}
	}
	PowerOff() {
		this.state := false
		{
			; остановка
			; ожидание полной остановки
		}
	}
	PowerUp(uPwr) {
		if (!this.state)
			this.PowerOn()
		this.power := this.power + uPwr <= this.maxPower ? this.power + uPwr : this.maxPower
	}
	PowerDown(dPwr) {
		if (this.state) {
			if (this.power - dPwr > 0)
				this.power := this.power - dPwr 
			else {
				this.power := 0
				this.PowerOff()
			}
		}
	}
	Reverse() {
		; сменить направление работы насоса на обратное
		this.PowerOff()
		this.direction := !this.direction
		this.PowerOn()
	}
}

i := 0
Global y := 0, TT44

A1:=new test(i)

gui, Show, h200 w300, S7
SetTimer, MAIN, 1000


MAIN:
i++
y:=y+2*i
A1.update(i, y)
ToolTip, %i%
Return

class test
{
    __new(x) {
        gui, add, text,cff0000 hwndTx1, text000
        this.Tx1 := Tx1
        Gui, Add, text,  gtest.TEST hwndV1, TEXTXXXX
        this.V1 := V1
        Gui, 2:add, text, hwndTT44, XXXXXXXX
        ;this.TT44 := TT44
    }
    update(aa, bb) {
        GuiControl,, % this.Tx1, %aa%
        GuiControl,, % this.V1, %bb%
    }

    TEST() {
        GuiControl,, % TT44, %y%
		gui, 2:show, h150 w150
	}
}


GuiEscape:
GuiClose:
gui destroy
ExitApp

i := 0
Global y := 0

A1:=new test(i)

gui, Show, h200 w300, S7
SetTimer, MAIN, 1000

MAIN:
i++
y:=y+2*i
A1.update(i, y)
ToolTip, %i%
Return

class test
{
    __new(x) {
        gui, add, text,cff0000 hwndTx1, text000
        this.Tx1 := Tx1
        Gui, Add, text, hwndV1, TEXTXXXX
        this.V1 := V1
		
		callMe := ObjBindMethod(new this, "TEST")
		GuiControl +g, Static2, %callMe%
		
        Gui, 2:add, text, hwndTT44, XXXXXXXX
        this.TT44 := TT44
    }
    update(aa, bb) {
        GuiControl,, % this.Tx1, %aa%
        GuiControl,, % this.V1, %bb%
    }

    TEST() {
        GuiControl,, % this.TT44, %y%
		gui, 2:show, h150 w150
	}
}


GuiEscape:
GuiClose:
gui destroy
ExitApp

class test
{
    __new(x) {
        gui, add, text,cff0000 hwndTx1, text000
        this.Tx1 := Tx1
        Gui, Add, text,  gtest.TEST hwndV1, TEXTXXXX
        this.V1 := V1
        Gui, 2:add, text, hwndTT44, XXXXXXXX
        this.TT44 := TT44
    }
    update(aa, bb) {
        GuiControl,, % this.Tx1, %aa%
        GuiControl,, % this.V1, %bb%
        GuiControl, 2:, % this.TT44, %bb%
    }

    TEST() {
		gui, 2:show, h150 w150
	}
}

i := 0
Global y := 0

A1:=new test(i)

gui, Show, h200 w300, S7
SetTimer, MAIN, 1000


MAIN:
i++
y:=y+2*i
A1.update(i)
ToolTip, %i%
Return

class test
{
	__new(x) {
		gui, add, text,cff0000 hwndTx1, text000
		this.Tx1 := Tx1
		Gui, Add, text,  gtest.TEST hwndV1, TEXTXXXX
	}
	update(aa) {
		GuiControl,, % this.Tx1, %aa%
		GuiControl,, % this.V1, %A_WorkingDir%\pic\Val-Grey.emf
	}
	TEST() {
		Gui, 2:add, text, hwndTT44, text
		;this.TT44:=TT44

		GuiControl,, % TT44, %y%
		gui, 2:show, h150 w150
	}
}


GuiEscape:
GuiClose:
gui destroy
ExitApp

TEST() {
		Gui, 2:add, text,,% y
		gui, 2:show, h150 w150
	}

i := 0
y := 0

A1:=new test(i)

gui, Show, h200 w300, S7
SetTimer, MAIN, 1000


MAIN:
i++
y:=y+2*i
A1.update(i)
ToolTip, %i%
Return

class test
{
    __new(x) {
        gui, add, text,cff0000 hwndTx1, text000
        this.Tx1 := Tx1
        Gui, Add, text,  gtest.TEST hwndV1, TEXTXXXX

    }
    update(aa) {
        GuiControl,, % this.Tx1, %aa%
        GuiControl,, % this.V1, %A_WorkingDir%\pic\Val-Grey.emf
    }
    TEST() {
        ;gui, 2:Submit
        Gui, 2:add, text, hwndTT44, text
        this.TT44 := TT44
        ;this.TT44:=TT44
    
        GuiControl, 2:, % this.TT44, %y%
        ;gui, 2:Submit
        ;this.TEST:=TEST
        gui, 2:show, h150 w150
    
    }
}


GuiEscape:
GuiClose:
gui destroy
ExitApp