TrSell= vcl.Shape(Form, {
Shape="stTriangle",
Pen={Style="psClear"},
Brush={Color=RGB(255,0,0), Style="bsSolid"}
})

graphRect.Brush["Color"]=0x00EEEE

graphRect.Brush.Color=RGB(0,255,0);

VCL = require "qvcl"

function OnFormClose(Sender, CloseAction)
  is_run = false
  mainForm:Release()
end

function OnTrackChange(Sender)
  graphRect.Angle = trackBar.Position
  graphElipse.Angle = trackBar.Position
  graphTriangle.Angle = trackBar.Position
  graphDiamond.Angle = trackBar.Position
  labelAngle.Caption = "Угол поворота: " .. tostring(trackBar.Position)
end

function OnChBoxChange(Sender)
  graphRect.RotateMinSize = chBox.Checked
  graphElipse.RotateMinSize = chBox.Checked
  graphTriangle.RotateMinSize = chBox.Checked
  graphDiamond.RotateMinSize = chBox.Checked
end

function SetRectFrom(elemTo, elemFrom)
  elemTo.top = elemFrom.top
  elemTo.left = elemFrom.left
  elemTo.height = elemFrom.height
  elemTo.width = elemFrom.width
  elemTo:SendToBack();
end


mainForm = VCL.Form("mainForm")
mainForm._ = { position="podesktopcenter", height=330, width=370, Caption="Shape test", OnClose = OnFormClose }

-- квадрат
graphRect = VCL.Shape(mainForm)
graphRect._ =
  {
     top=10, left=15, height=100, width=150,  -- положение и размеры
     Shape="stRectangle",                     -- тип: прямоугольник
     Pen={ Color=0x3333DD, Style="psDot" },   -- цвет рамки, тип линии "пунктир"
     Brush={ Color=0xDD99BB }                 -- цвет заливки
  }

-- элипс
graphElipse = VCL.Shape(mainForm)
graphElipse._ =
  {
     top=10, left=205, height=100, width=150,  -- положение и размеры
     Shape="stEllipse",                       -- тип: элипс
     Pen={ Color=0xDD9933 },                  -- цвет рамки, сплошная линия
     Brush={ Color=0x666666, Style="bsFDiagonal" }  -- цвет заливки диагональными линиями
  }

-- треугольник
graphTriangle = VCL.Shape(mainForm)
graphTriangle._ =
  {
     top=135, left=15, height=100, width=150,
     Shape="stTriangle",                      -- тип: треугольник
     Pen={ Color=0x00CC00, Width=5 },         -- зеленая рамка толщиной 5 писелей
     Brush={ Style="bsClear" }                -- без заливки
  }

-- ромб
graphDiamond = VCL.Shape(mainForm)
graphDiamond._ =
  {
     top=135, left=205, height=100, width=150,
     Shape="stDiamond",                        -- тип: ромб
     Pen={ Style="psClear" },                  -- без рамки
     Brush={ Color=0x00EEEE, Style="bsSolid" } -- сплошная заливка
  }

-- "рамки" вокруг элементов
frame1 = VCL.Shape(mainForm, {
     Shape="stRectangle", Pen={ Color=0xAAAAAA, Style="psDashDot" }, Brush={ Style="bsClear" }
 })
frame2 = VCL.Shape(mainForm, {
     Shape="stRectangle", Pen={ Color=0xAAAAAA, Style="psDashDot" }, Brush={ Style="bsClear" }
 })
frame3 = VCL.Shape(mainForm, {
     Shape="stRectangle", Pen={ Color=0xAAAAAA, Style="psDashDot" }, Brush={ Style="bsClear" }
 })
frame4 = VCL.Shape(mainForm, {
     Shape="stRectangle", Pen={ Color=0xAAAAAA, Style="psDashDot" }, Brush={ Style="bsClear" }
 })
SetRectFrom(frame1, graphRect)
SetRectFrom(frame2, graphElipse)
SetRectFrom(frame3, graphTriangle)
SetRectFrom(frame4, graphDiamond)

-- "двигунок" и отображение угла
labelAngle = VCL.Label(mainForm)
labelAngle._ =
 {
     top=250, left=15,
     Caption="0"
 }

trackBar = VCL.TrackBar(mainForm)
trackBar._ =
 {
     top=270, left=0, width=369,
     TickStyle="tsNone",
     OnChange = OnTrackChange,
     Min=0, Max=360
 }

chBox = VCL.CheckBox(mainForm)
chBox._ =
 {
     top=300, left=10, width=230, Caption="Постоянный размер",
     OnChange = OnChBoxChange
 }


mainForm:Show()

OnTrackChange()  -- вывести начальный угол с поясняющим текстом

is_run = true    
function main()
  while is_run do
    sleep(50)
  end
end

function OnStop()
 is_run = false
 mainForm:Free()
end