Визуальный интерфейс VCLua в QUIK (Страница 4 из 11)

Возможность есть.
На каком элементе, чтобы пример готовый привести? и что хотите сделать по клику?

Arhn,
вот пример, реализующий описанный сценарий.
Суть в самом конце, в обработчике OnGridMouseDown()

require "vcl"

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

grid=VCL.StringGrid(mainForm,"grid")
grid._={
align="alClient",
RowCount=5,
AutoEdit=False,
FixedCols=0,
FixedRows=1,
Flat=True,
OnMouseDown="OnGridMouseDown"
}

grid:SetColParams({
{
Width=100,
Alignment="taRightJustify",
Color=0xFFFFFF,
Title={
Color=0xEEEEEE,
Caption="col1",
Alignment="taCenter"
}
},
{
Width=100,
Alignment="taRightJustify",
Color=0xFFFFFF,
Title={
Color=0xEEEEEE,
Caption="col3",
Alignment="taCenter"
}
},
{
Width=100,
Alignment="taRightJustify",
Color=0xFFFFFF,
Title={
Color=0xEEEEEE,
Caption="col3",
Alignment="taCenter"
}
}
}) 

for i = 0, 2 do
  for j = 1, 4 do
    grid:SetCell(i, j, "1")
  end
end

mainForm:Show()

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

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


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

function OnGridMouseDown(Sender, Button, Shift, x, y)
  local delta
  if     Button == "mbLeft" then
    delta = 1
  elseif Button == "mbRight" then
    delta = -1
  end
  local c,r = grid:MouseToCell(x, y)
  grid:SetCell(c, r, tostring(grid:GetCell(c,r) + delta))
end

Разумеется, в квиковской справке ничего этого нет, ведь это сторонняя библиотека для Lua, с QUIK она никак не связана.

Как известно, сделана VCLua в среде Lazarus (это этакая кросс-платформенная реализация языка Pascal на основе компилятора Freepascal плюс библиотека визуальных компонент, сделанная по мотивам штатной библиотеки VCL из Delphi). [url=http://www.lazarus.freepascal.org/]Lazarus этот запросто можно установить[/url] на Linux или Window машину.

Дальше идея в библиотеке VCLua простая: в нее перетянуты несколько компонент, доступных в этой самой Lazarus/Delphi.
Из Lua через эту библиотеку доступны все Published-свойства таких компонент (т.е. классов; Published - это такой тип видимости для мембер-свойств класса в Pascal), плюс доступны некоторые другие свойства, которые были специально добавлены разработчиками VCLua. При этом, т.к. исходники доступны - каждый легко может добавить любую отсебятину по вкусу.

Собственно потому, что свойства компонент, доступных в VCLua, совпадают с таковыми в Delphi/Lazarus - автор и не видел смысла делать хелп, так я думаю )
(не смотря на то, что у меня есть стойкое впечатление, что я хелп, хоть и весьма бестолковый, по VCLua видел, но что-то совершенно не попадается он мне сейчас; глюки?)

Но ближе к вопросу. На примере StringGrid покажу алгоритм как я ищу те или иные методы, доступные из Lua в библиотеке VCLua.

1. Что касается Published свойств и событий - то у меня просто установлена Lazarus, мне проще посмотреть там (бросив на форму компонент StringGrid и посмотрев какие есть свойства и события). Все Published-свойства и события как раз доступны и отображаются визуально. Кто пользовался Delphi - понимает о чем я.
Хорошая справка по всем свойствам/методам/событиям есть в Delphi, для Lazarus я что-то не нашел (хотя, вроде, видел). На сайте embarcadero (производителя Delphi) мне что-то тоже не попалось online-хелпа. Найдется ссылка - добавлю сюда.
В общем я просто смотрю прямо в Lazarus.
Например, нам нужно найти событие клика мыши. Смотрим список событий - понятно, что это OnClick. Там же смотрим его параметры и добавляем их в наш Lua-код для соответствующего назначенного на событие обработчика.

2. Второй источник инфы - это исходники VClua.
Какие методы, кроме тех, что в Lazarus/Delphi объявлены как Published, доступны для грида в VCLua?
В исходниках VCLua открываем файл LuaStringGrid.pas и в нем смотрим содержание функции ToTable(). Таковая есть во всех модулях. В ней вот в таком виде перечислены все свойства-методы, доступные в StringGrid в коде Lua из через библиотеки VClua помимо тех, которые имеют тип Published:

procedure ToTable(L:Plua_State; Index:Integer; Sender:TObject);
begin
  SetDefaultMethods(L, Index, Sender);
  SetAnchorMethods(L,Index,Sender);

  LuaSetTableFunction(L, Index, 'GetCell', @CellsGet);
  LuaSetTableFunction(L, Index, 'SetCell', @CellsSet);
  LuaSetTableFunction(L, Index, 'SetCellColor', @SetCellColor);
  LuaSetTableFunction(L, Index, 'ColToTable', @ColsGet);
// .........
  LuaSetTableFunction(L, Index, 'MouseToCell', @GetMouseToCell);

// ......... здесь еще несколько вызовов для добавления разных "методов", опускаю для упрощения ......

// ......... а это стандартная концовка функции ToTable(), таким образом добавляются все те методы, которые объявлены как published, т.к. информация о них они доступна через RTTI ......

  LuaSetMetaFunction(L, index, '__index', LuaGetProperty);
  LuaSetMetaFunction(L, index, '__newindex', LuaSetProperty);

end;

Дуступные из Lua-названия методов те, что написаны в апострофах.
Там как раз видим ту самую MouseToCell, которая нужна нам, чтобы перевести текущие координаты мыши в момент клика в номер столбца/строки грида. Параметры опять же можно посмотреть по справке Delphi/Lazarus, плюс заглянуть в исходник функции GetMouseToCell чтобы увидеть какие и сколько параметров она принимает (первый параметр для любого метода - всегда сам компонент, т.е. здесь Grid, чтобы обеспечить синтаксис вида grid:Method! не забываем про это) и какие параметры, сколько и как именно возвращает. Соответственно видим, что принимается 3 параметра (грид, x, y) и возвращается 2:

function GetMouseToCell(L: Plua_State): Integer; cdecl;
var
  lStringGrid:TLuaStringGrid;
  X,Y,c,r :Integer;
begin
  CheckArg(L, 3, 'GetMouseToCell');
  lStringGrid := TLuaStringGrid(GetLuaObject(L, 1));
  X := trunc(lua_tonumber(L,2));
  Y := trunc(lua_tonumber(L,3));
  lStringGrid.MouseToCell(X, Y, c, r);
  lua_pushnumber(L,c);
  lua_pushnumber(L,r);
  Result := 2;
end;

sisfc,
не, не могу сообразить по приведенному вами обрывку.
Давайте полный код, тогда можно будет разбираться.
Можно на почту swerg@swerg.ru

Arhn,
извиняюсь за такой долгий "неответ"

По существу могу сказать, что в VCLua средств работы с PickList в столбцах StringGrid - нет.

Кстати, я тут повнимательнее посмотрел на код и хотелось бы поправиться по поводу какой-то своей предыдущей фразы про то, что все Published свойства компонент в VCLua безусловно добавляются и доступны из Lua.
Это не так. Доступны лишь те свойства, которые явно прописаны разработчиков в коде VCLua.

С первым разобрался. Поставил HighTextBox.Text = "123" внутрь функции main() и все заработало. Хотя где то читал, что из функции main() не рекомендуется обращаться к визуальным элементам.

Спасибо за ответ.
Не знал, что 'onEnter' - получение фокуса ввода. Думал, что событие наступает при нажатии <Enter>. Мой касяк. Хотел сделать ввод как в Excel.
Придется разбираться с "OnKeyDown".

Решил проблему инициализации EditBox'а перед выводом формы, правда когда их два.

 LowTextBox:SetFocus()
    HighTextBox.Text = "35100"
    HighTextBox:SetFocus()
    LowTextBox.Text = "35000"

Когда EditBox  один, как убрать с него фокус не понятно.

Я знаю, что если дать редактировать таблицу (grid.Options = grid.Options.."goEditing"), то можно это сделать от руки, но как это сделать программно ...?

888,
приветствую вас на форуме!

И большое вам спасибо за,то делитесь своими находками здесь. Буду признателен, если будете заглядывать почаще и делиться новостями )

Как работать с  ToolBar-ом не знаю, но у меня что-то получилось так: