конечно, вся красота в дневнике исчезает... табуляция, шрифт, цвет...
Private Sub Form_Load()
' получение объекта пары из данных о модуле
Set moPair = moModule.i.Info.InfoList("Pair")
' получение списка запросов для данной пары
Set moList = moPair.QueriesList
' создание новых объектов для работы с панелью элементов управления
Set mcControls = New Scripting.Dictionary
Set moControlsFactory = New QControlsFactory
' загружаются слои карты и устанавливается фокус на главный слой msBoundsLayer
psMapLoad
mfMapZoom = mapMain.Zoom
Set mapMain.Bounds = mapMain.Layers(msBoundsLayer).Bounds
' create the polygon ruler tools, and assign them icons
mapMain.CreateCustomTool PolyRulerToolID, miToolTypePoly, miSizeAllCursor
mapMain.PaperUnit = miPaperUnitInch
mapMain.AreaUnit = miUnitSquareKilometer
mapMain.WaitCursorEnabled = False
' установление основных свойств карты
RulerUnit = miUnitKilometer
RulerUnitString = "км."
mapMain.MapUnit = RulerUnit
' CheckedMenu and PressedButton are the menu item and toolbar button that
' are depressed to show which is the current tool. These are manipulated in
' the mnuTools... functions By default, use the arrow tool
Set CheckedMenu = mnuToolsArrow
Set PressedButton = tbToolbarMapX.Buttons(1)
CheckedMenu.Checked = True
PressedButton.Value = tbrPressed
' получение строки соединения для инфобазы данных
Dim cmd As New GCmd
cmd.Action.Command = CMD_DBFACADE_GETCONSTR
cmd.Action.ParamList("InfoDB") = moPair.InfoDatabase.NameEng
moModule.i.Mediator.SendMessage cmd, mtDataBaseFacade
If cmd.Result.ReturnValue = RES_OK Then
msConnectString = cmd.Result.ReturnList("ConnectString")
Else
StdErrorMsg "Ошибка при получении строки соединения для инфобазы данных!"
Exit Sub
End If
' формирование списка запросов
Dim dict
Dim i As Integer
Dim oListItem As Logic.QListItem
dict = moList.List.Items
For i = 0 To moList.List.Count - 1
Set oListItem = dict(i)
lstQueries.AddItem oListItem.Title
Next i
' переход к первому запросу, если есть хоть один
If lstQueries.ListCount > 0 Then lstQueries.ListIndex = 0
End Sub
В колонках играет:
10 сьогоднi
LI 3.9.25
