Визуальный интерфейс QVCLua: обсуждения, замечания, предложения (Страница 7 из 14)

Подскажите, а как сделать так, чтобы у таблицы не было фиксированного количества строк и нужные появлялись в конце.
Плюс чтобы при отображении этой таблицы был скрол справа для прокрутки по вертикали данной таблицы ?

Помогите пожалуйста всё-таки заставить не дергаться вывод текста. Применяю BeginUpdateBounds() и EndUpdateBounds(), а толку - ноль...

Скрипт для запуска:

vcl = require "qvcl";

function OnStop()
  Form:Release()
  is_run=false
end

function Timer()
    local lcltime = getInfoParam("LOCALTIME")
    local out = type(lcltime).."    "..type(lcltime).."  "..type(lcltime).."    "..lcltime.."    "..lcltime.."  "..lcltime
    DwTxt:BeginUpdateBounds()
    DwTxt.Caption = out
    DwTxt:EndUpdateBounds()
end

Form = vcl.Form({OnClose = OnStop})
tmr     = vcl.Timer(Form,{Interval=1000, OnTimer=Timer, Enabled="True"})
DwTxt= vcl.StaticText(Form,{Align="alBottom", BorderStyle="sbsSunken", Caption="Текст"})
Form:Show()

is_run = true;

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

Интересное наблюдение, если двигать мышь по экрану в момент обновления текста, выводит без дерганий...

myForm:ShowOnTop()  не показывает форму поверх остальных окон

swerg,
с StatusBar я что-то не подружился, да и по сути это тот же StaticTex, но с бедным набором контролов.
Тоже моргает паразит, наверное, действительно, дело в убогой Intel HD3000 на моём рабочем ноутбуке, на другом с нормальной видеокартой ничего не моргает, спасибо за подсказку. )
Но вот ведь в чем фишка, например в окнах квика никогда ничего не моргает, а ведь они, как я понимаю, тоже задействуют визуальные средства оси...
Скрипт выше подправил, я там изначально объявил форму видимой до заполнения, так не можно, забыл совсем. )

Удивительно, но факт - Label при выводе в Caption той же строки не моргает...

Да, Bevel действительно оказался лучшим вариантом для моих целей. Помимо label он позволяет размещать поверх себя ещё и Shape. Спасибо за хорошую идею! )
Якоря для label у меня что-то не сработали, но это не проблема, Label.Top=Form.Height-17.
А вот мигание, да, есть и тут. Но диагноз подтверждается, дохленькая видеокарта. Посмотрел ещё раз на Квик - в инфоокне тоже дискотека. Рабочему ноуту уже 5 лет, надо менять, но он всё никак не сдохнет! )))

BitBtn. Произвольные картинки.
У кого-нибудь получилось присвоить кнопке BitBtn собственную картинку(и)? Или можно использовать только стандартные из свойства "Kind"?
Буду очень признателен, если приведете пример кода)

Подскажите, не получается свойство Color для StaticText, хотя у этого компонента есть такое свойство

вот именно так и не работает

stopped = false
local VCL = require "qvcl"
function OnStop(s)
    if myForm then myForm:Release(); myForm = nil end
    VCL = nil
    stopped = true
end
myForm =  VCL.Form( {
        caption = "Настройка",
        Position = "podesktopcenter",
        FormStyle = "fsStayOnTop",
        Height = 422, Width = 400,
        OnClose = function (sender) sender:Release(); myForm = nil end} )
        
StaticText = VCL.StaticText(myForm,{BorderStyle="sbsSunken", Align="alBottom", Color=RGB(0,255,0), Caption="Текст"})
        myForm:Show()
function main()
    while not stopped do
       sleep(1000)
    end
end

не работает, мб, какое-то свойство формы активировать?

w8.1 x64, обновил, не работает. версия квик 6.17.1.17, на 6.16.1.15 тоже обновил - не работает

так точно, скрипт запускается ровно, StaticText - не зеленый