[Гикор]

Добрый день,

скажите а можно в диалог вставить картинку??


Спасибо

[Vovik]

Можно, но очень ограничено. Смотри в сторону предложения Control DocumentWindow

[Гикор]

Спасибо,
но что то не очень понятно....( ... Могли бы вы описать подробнее..
Я делаю так.
Declare Sub Main
Declare Sub DialogHandler

Sub Main
Dialog
....
Control DocumentWindow
ID ID_PIC
Call DialogHandler
End Sub
=====

Sub DialogHandler
OnError Goto HandleError
Dim iHwnd As ?????
Alter Control ID_PIC Enable Show
iHwnd = ReadControlValue(ID_PIC)

Вот с ID_PIC - и проблема.((

[Vovik]

Include "mapbasic.def"
Declare Sub Main
Declare Sub Procedura
Dim sPicTab As String

Sub Main
Open Table "C:\Рисунок.TAB"
sPicTab = TableInfo("Рисунок", TAB_INFO_NAME)

Dialog Title "Пример вставки рисунка" Calling Procedura
Control DocumentWindow ID 2 Position 5, 5 Width 120 Height 100
Control CancelButton Title "Закрыть"
Close Table sPicTab
End Sub

Sub Procedura
Dim iHwnd As Integer
iHwnd = ReadControlValue(2)
Set Next Document Parent iHwnd Style 1
Map from sPicTab
End Sub

Дорогой друг!
Процедура Sub Main вероятно не нуждается в коментариях замечу лишь то, что картинка вставится в контрол
DocumentWindow ограниченый размерами указаными в диалоге позицией и размерами, которые ты можешь менять по своему усмотрению
Процедура Procedura делает вот что:
В переменную iHwnd читает Hwnd контрола DocumentWindow
Далее Set Next Document в этом контроле изготавливает окно вставляет в нее новую карту (строка Map from sLogoTab)
По сути в диалоге создано окно карты со всеми как говорится вытекающими …

С уважением Vovik

[Гикор]

Огромное спасибо получилось))))
Только Sub Procedura должны быть перед Sub Main
Еще раз спасибо))))