текст "дочернего"
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"})
Если то что ниже --Окно портфеля перенести в основной скрипт, то все названия и прочее, на русском, отображаются нормально. Если перенести в дочерний скрипт, то русский слетает
