Предыдущая тема :: Следующая тема |
Автор |
Сообщение |
Гикор
Зарегистрирован: 06.11.2009 Сообщения: 34
|
Добавлено: Пт Дек 04, 2009 7:55 pm Заголовок сообщения: Картинка в дилоге |
|
|
Добрый день,
скажите а можно в диалог вставить картинку??
Спасибо |
|
Вернуться к началу |
|
|
Vovik
Зарегистрирован: 04.05.2008 Сообщения: 57
|
Добавлено: Чт Дек 10, 2009 10:31 am Заголовок сообщения: Re: Картинка в дилоге |
|
|
Можно, но очень ограничено. Смотри в сторону предложения Control DocumentWindow |
|
Вернуться к началу |
|
|
Гикор
Зарегистрирован: 06.11.2009 Сообщения: 34
|
Добавлено: Чт Дек 10, 2009 1:15 pm Заголовок сообщения: |
|
|
Спасибо,
но что то не очень понятно....( ... Могли бы вы описать подробнее..
Я делаю так.
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
Зарегистрирован: 04.05.2008 Сообщения: 57
|
Добавлено: Пт Дек 11, 2009 4:42 am Заголовок сообщения: |
|
|
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 |
|
Вернуться к началу |
|
|
Гикор
Зарегистрирован: 06.11.2009 Сообщения: 34
|
Добавлено: Пт Дек 11, 2009 11:44 am Заголовок сообщения: |
|
|
Огромное спасибо получилось))))
Только Sub Procedura должны быть перед Sub Main
Еще раз спасибо)))) |
|
Вернуться к началу |
|
|
|