<![CDATA[QUIK -> DDE — QVCLua: При вызове формы из дочернего скрипта, пропадает русский язык]]> 2015-05-18T14:02:00Z PunBB https://quik2dde.ru/viewtopic.php?id=152 <![CDATA[Re: QVCLua: При вызове формы из дочернего скрипта, пропадает русский язык]]> -

]]> https://quik2dde.ru/profile.php?id=228 2015-05-18T14:02:00Z https://quik2dde.ru/viewtopic.php?pid=1357#p1357 <![CDATA[Re: QVCLua: При вызове формы из дочернего скрипта, пропадает русский язык]]> -

]]> https://quik2dde.ru/profile.php?id=228 2015-05-18T13:49:16Z https://quik2dde.ru/viewtopic.php?pid=1356#p1356 <![CDATA[Re: QVCLua: При вызове формы из дочернего скрипта, пропадает русский язык]]> Может кто-то всё таки сможет подсказать?

]]> https://quik2dde.ru/profile.php?id=135 2015-05-11T18:57:16Z https://quik2dde.ru/viewtopic.php?pid=1322#p1322 <![CDATA[Re: QVCLua: При вызове формы из дочернего скрипта, пропадает русский язык]]> текст "дочернего"

require "qvcl"

VCL = vcl
p_file2=io.open("\\logMaxTradeLogFull.txt", "a+")
p_file3=io.open("\\logMaxTradeLogDay.txt", "w")

--Окно "портфеля"

    myFormPor        =  VCL.Form({Name = "myFormPor", Height = 900, Width = 800, Caption = "Портфель клиента", Position = "poScreenCenter"  } )
    --myFormPor:Icon(imgdir.."project1.ico")   кстати ещё интересно, что эта строка не работает если текст в "дочернем скрипте"
   
   
    PanelPor            = VCL.Panel(myFormPor, {Left = 5,    AutoSize=false,    Height = 880,    Top = 0, Width = 800, Align = "alLeft", BevelOuter = "bvNone", ClientHeight = 840, ClientWidth = 790,    TabOrder = 1,})
PageControlPor = VCL.PageControl(PanelPor,{Top = 5, Left = 10,    Height = 860,    Width = 790,})

PagePor5 =    VCL.TabSheet(PageControlPor,{Caption = "Trade",          ClientHeight = 830, ClientWidth = 780,})
    --сделки
    LabelPor1 = VCL.Label(PagePor5, {Name = "LabelPor1", top=10, left=250, Caption="Сделки ",Font={Color = "clBlack", Style="fsBold", Size=15}, ShowHint=true, Hint=" Элемент Label"})
   
    gridPorSd= VCL.StringGrid(PagePor5,"gridPorSd")
gridPorSd._ = {  Left=5,Height = 170,    Top = 40, Width = 770, RowCount = 50, AutoEdit = False, FixedCols = 0, FixedRows = 1, Flat = True }

gridPorSd:SetColParams({
  {Width=80, Alignment="taRightJustify", Title={Caption="Номер", Alignment="taCenter"},Font={Color = "clBlack", Style="fsBold", Size=8}},
  {Width=80, Alignment="taRightJustify", Title={Caption="Время", Alignment="taCenter"},Font={Color = "clBlack", Style="fsBold", Size=8}},
  {Width=80, Alignment="taRightJustify", Title={Caption="Заявка", Alignment="taCenter"},Font={Color = "clBlack", Style="fsBold", Size=8}},
  {Width=60, Alignment="taRightJustify", Title={Caption="Бумага", Alignment="taCenter"},Font={Color = "clBlack", Style="fsBold", Size=8}},
  {Width=60, Alignment="taRightJustify", Title={Caption="Операция", Alignment="taCenter"},Font={Color = "clBlack", Style="fsBold", Size=8}},
  {Width=80, Alignment="taRightJustify", Title={Caption="Счет", Alignment="taCenter"},Font={Color = "clBlack", Style="fsBold", Size=8}},
  {Width=80, Alignment="taRightJustify", Title={Caption="Цена", Alignment="taCenter"},Font={Color = "clBlack", Style="fsBold", Size=8}},
  {Width=60, Alignment="taRightJustify", Title={Caption="Кол-во", Alignment="taCenter"},Font={Color = "clBlack", Style="fsBold", Size=8}},
  {Width=80, Alignment="taRightJustify", Title={Caption="Объём", Alignment="taCenter"},Font={Color = "clBlack", Style="fsBold", Size=8}},
})
ButtonPortf = VCL.Button(PagePor5, {Name = "ButtonPortf", top=220, left=10, Caption="Сделки получить", Width=120, Height=30, Font={Color = "clBlack", Style="fsBold"},Enabled = true, OnClick = Handler, ShowHint=true, Hint="Кнопка Button"})
--LabelIn1 = VCL.Label(PagePor5, {Name = "LabelIn1", top=10, left=20, Caption="Инструмент: ", ShowHint=true, Hint=" Элемент Label"})


--заявки
    LabelPorZ = VCL.Label(PagePor5, {Name = "LabelPorZ", top=270, left=250, Caption="Заявки ",Font={Color = "clBlack", Style="fsBold", Size=15}, ShowHint=true, Hint=" Элемент Label"})
   
    gridPorZ= VCL.StringGrid(PagePor5,"gridPorZ")
gridPorZ._ = {  Left=5,Height = 170,    Top = 300, Width = 770, RowCount = 50, AutoEdit = False, FixedCols = 0, FixedRows = 1, Flat = True }

gridPorZ:SetColParams({
  {Width=80, Alignment="taRightJustify", Title={Caption="Номер", Alignment="taCenter"},Font={Color = "clBlack", Style="fsBold", Size=8}},
  {Width=80, Alignment="taRightJustify", Title={Caption="Время", Alignment="taCenter"},Font={Color = "clBlack", Style="fsBold", Size=8}},
  {Width=80, Alignment="taRightJustify", Title={Caption="Бумага", Alignment="taCenter"},Font={Color = "clBlack", Style="fsBold", Size=8}},
  {Width=60, Alignment="taRightJustify", Title={Caption="Операция", Alignment="taCenter"},Font={Color = "clBlack", Style="fsBold", Size=8}},
  {Width=80, Alignment="taRightJustify", Title={Caption="Счет", Alignment="taCenter"},Font={Color = "clBlack", Style="fsBold", Size=8}},
  {Width=80, Alignment="taRightJustify", Title={Caption="Цена", Alignment="taCenter"},Font={Color = "clBlack", Style="fsBold", Size=8}},
  {Width=60, Alignment="taRightJustify", Title={Caption="Кол-во", Alignment="taCenter"},Font={Color = "clBlack", Style="fsBold", Size=8}},
  {Width=80, Alignment="taRightJustify", Title={Caption="Состояние", Alignment="taCenter"},Font={Color = "clBlack", Style="fsBold", Size=8}},
})
ButtonPortfZ = VCL.Button(PagePor5, {Name = "ButtonPortfZ", top=470, left=10, Caption="Заявки получить", Width=120, Height=30, Font={Color = "clBlack", Style="fsBold"},Enabled = true, OnClick = Handler, ShowHint=true, Hint="Кнопка Button"})



--стоп заявки
    LabelPorZS = VCL.Label(PagePor5, {Name = "LabelPorZS", top=520, left=250, Caption="Стоп Заявки ",Font={Color = "clBlack", Style="fsBold", Size=15}, ShowHint=true, Hint=" Элемент Label"})
   
    gridPorZS= VCL.StringGrid(PagePor5,"gridPorZS")
gridPorZS._ = {  Left=5,Height = 170,    Top = 550, Width = 770, RowCount = 50, AutoEdit = False, FixedCols = 0, FixedRows = 1, Flat = True }

gridPorZS:SetColParams({
  {Width=60, Alignment="taRightJustify", Title={Caption="Номер", Alignment="taCenter"},Font={Color = "clBlack", Style="fsBold", Size=7}},
  {Width=60, Alignment="taRightJustify", Title={Caption="Время", Alignment="taCenter"},Font={Color = "clBlack", Style="fsBold", Size=7}},
  {Width=80, Alignment="taRightJustify", Title={Caption="Время снятия", Alignment="taCenter"},Font={Color = "clBlack", Style="fsBold", Size=7}},
  {Width=60, Alignment="taRightJustify", Title={Caption="Тип", Alignment="taCenter"},Font={Color = "clBlack", Style="fsBold", Size=7}},
  {Width=60, Alignment="taRightJustify", Title={Caption="Бумага", Alignment="taCenter"},Font={Color = "clBlack", Style="fsBold", Size=7}},
  {Width=60, Alignment="taRightJustify", Title={Caption="Операция", Alignment="taCenter"},Font={Color = "clBlack", Style="fsBold", Size=7}},
  {Width=60, Alignment="taRightJustify", Title={Caption="Стоп-цена", Alignment="taCenter"},Font={Color = "clBlack", Style="fsBold", Size=7}},
  {Width=60, Alignment="taRightJustify", Title={Caption="Цена", Alignment="taCenter"},Font={Color = "clBlack", Style="fsBold", Size=7}},
  {Width=50, Alignment="taRightJustify", Title={Caption="Кол-во", Alignment="taCenter"},Font={Color = "clBlack", Style="fsBold", Size=7}},
  {Width=70, Alignment="taRightJustify", Title={Caption="Состояние", Alignment="taCenter"},Font={Color = "clBlack", Style="fsBold", Size=7}},
    {Width=70, Alignment="taRightJustify", Title={Caption="Результат", Alignment="taCenter"},Font={Color = "clBlack", Style="fsBold", Size=7}},
})
ButtonPortfZS = VCL.Button(PagePor5, {Name = "ButtonPortfZS", top=740, left=10, Caption="Стоп Заявки получить", Width=120, Height=30, Font={Color = "clBlack", Style="fsBold"},Enabled = true, OnClick = Handler, ShowHint=true, Hint="Кнопка Button"})










Если то что ниже --Окно портфеля   перенести в основной скрипт, то все названия и прочее, на русском, отображаются нормально. Если перенести в дочерний скрипт, то русский слетает

]]> https://quik2dde.ru/profile.php?id=135 2015-05-01T10:00:28Z https://quik2dde.ru/viewtopic.php?pid=1303#p1303 <![CDATA[Re: QVCLua: При вызове формы из дочернего скрипта, пропадает русский язык]]> Было бы здорово, если бы вы привели минимальный тестовый пример 2-х скриптов ("основной" и "дочерний"), на которых бы воспроизводилась проблема.
Иначе пока совершенно не понятно что есть "дочерний скрипт". Да и с готовыми тестовыми скриптами - было бы проще воспроизвести проблему и разобраться в ней.

]]> https://quik2dde.ru/profile.php?id=78 2015-04-30T15:38:50Z https://quik2dde.ru/viewtopic.php?pid=1300#p1300 <![CDATA[QVCLua: При вызове формы из дочернего скрипта, пропадает русский язык]]> Суть проблемы- есть основной скрипт с обращениями к "дочерним скриптам"
При клике на кнопку, должна появляться еще форма.
Если описание этой формы лежит в основном скрипте, то всё ок.
Если описание формы положить в отдельный скрипт (к которому обращается основной), вместо русских символов вылезают "крокозябры" неадекватные ))))


Использую QVCLua

Вот эта строчка (на самом деле там много строк еще) если в основном скрипте, то всё ок, если в дочернем, то русский не работает:

myFormPor        =  VCL.Form({Name = "myFormPor", Height = 900, Width = 800, Caption = "Портфель клиента", Position = "poScreenCenter"  } )

]]> https://quik2dde.ru/profile.php?id=135 2015-04-30T15:13:20Z https://quik2dde.ru/viewtopic.php?pid=1299#p1299