Процедура Main
Процедура Main
Назначение:
Главная процедура, которая выполняется первой при загрузке прикладной программы.
Синтаксис:
Declare Sub Main Sub Main statement_list
End Sub
где
statement_list – список операторов.
Описание:
Main – стандартное имя процедуры MapBasic. Если текст программы на MapBasic содержит процедуру под этим именем, то выполнение программы начнется с этой процедуры. MainLпроцедура может вызывать другие процедуры (смотрите описание оператора Call).
Вы можете не объявлять процедуру Main. В этом случае первый оператор программы понимается как оператор из процедуры Main. И MapBasic начинает выполнять программу, как если бы процедура Main была объявлена перед этим оператором. Назовем этот случай "неявным заданием процедуры
Main".
Пример:
Прикладная программа может состоять из одной строки. Например, эта программа выполняет только один оператор:
Note "Проверка: один, два, три. Как видно?"
В этой программе процедура Main задана неявно.
Мы можем эту программу написать и так:
Declare Sub Main
Sub Main
Note "Проверка: один, два, три. Как видно?"
End Sub
Здесь главная процедура задана в явном виде. При этом результат выполнения этих двух программ будет один и тот же.
Следующая программа также содержит неявную MainLпроцедуру. Из нее вызывается подпрограмма, процедура которой объявлена под именем "Talk". Для вызова используется оператор Call.
Declare Sub Talk(ByVal msg As String)
Call Talk("Привет")
Call Talk("Всего хорошего")
Sub Talk(ByVal msg As String)
Note msg
End Sub
Следующий пример содержит явную процедуру Main, из которой вызывается подпрограмма "Talk".
Declare |
Sub Main |
|
Declare |
Sub Talk(ByVal msg As String) |
|
Sub Main |
|
|
Справочник MapBasic |
301 |
|
Процедура Main
Call Talk("Привет")
Call Talk("Всего хорошего")
End Sub
Sub Talk(ByVal msg As String)
Note msg
End Sub
Результат выполнения программ будет таким же, как в предыдущем случае.
Смотрите также:
EndHandler, RemoteMsgHandler, SelChangedHandler, Sub... End Sub, ToolHandler, Win4 ClosedHandler
302 |
Справочник MapBasic |
Функция MakeBrush( )
Функция MakeBrush( )
Назначение:
Возвращает установку стиля штриха.
Синтаксис:
MakeBrush(pattern, forecolor, backcolor)
где
pattern – тип штриха, целое число от 1 до 8 или от 12 до 71 (рисунки штриха смотрите в описании предложения Brush);
forecolor – цвет штриха в системе RGB; backcolor – цвет фона в системе RGB.
Чтобы сделать фон прозрачным задайте значение backcolor L1 и значение pattern 3 или более.
Величина, полученная в результате:
Величина типа Brush.
Описание:
Функция MakeBrush возвращает величину типа Brush, определяющую стиль штриховки графического объекта. Возвращаемая величина может быть присвоена переменной типа Brush или использована как параметр оператора (таких как Create Ellipse, Set Map, Set Style, или Shade).
Смотрите описание предложения Brush об установках стиля Brush.
Пример:
Include "MAPBASIC.DEF"
Dim b_water As Brush
b_water = MakeBrush(64, CYAN, BLUE)
Смотрите также:
Brush, CurrentBrush( ), StyleAttr( )
Справочник MapBasic |
303 |
Функция MakeCustomSymbol( )
Функция MakeCustomSymbol( )
Назначение:
Возвращает символ, созданный из растрового файла.
Синтаксис:
MakeCustomSymbol(filename, color, size, customstyle)
где
filename – строка до 31 символа длиной, представляющая имя растрового файла (файл должен находиться в каталоге, специально зарезервированном для этого пользователем);
color – цвет в системе RGB;
size – целочисленный размер в пунктах от 1 до 48;
customstyle – целочисленный код, управляющий атрибутами фона и цвета.
Величина, полученная в результате:
Символ. Величина типа Symbol.
Описание:
Функция MakeCustomSymbol( ) возвращает величину типа Symbol, основанную на растровом файле. Смотрите описание предложения Symbol о других типах символа.
В следующей таблице перечислены возможности настройки растрового символа:
Значение customstyle |
Стиль символа |
0 |
Не действуют режимы из группы “Эффекты” диалога “Стиль |
|
символа”, и символ появляется таким, какой он есть. Все белые |
|
пикселы растра прозрачны. |
1 |
Действует режим “Добавить фон”; все белые пикселы растра |
|
непрозрачны. |
2 |
Действует режим “Покрасить одним цветом”; все не белые точки |
|
растра закрашены одним цветом. |
3 |
Установлены оба флажка (действуют оба режима). |
Пример:
Include ”mapbasic.def”
Dim sym_marker As Symbol
sym_marker = MakeCustomSymbol(”CAR1 64.BMP”, BLUE, 18, 0)
Смотрите также:
CurrentSymbol( ), MakeFontSymbol( ), MakeSymbol( , StyleAttr( ), Symbol
304 |
Справочник MapBasic |
Функция MakeFont( )
Функция MakeFont( )
Назначение:
Возвращает величину, являющуюся установкой стиля шрифта.
Синтаксис:
MakeFont(fontname, style, size, forecolor, backcolor)
где
fontname – имя шрифта, строковая величина (например, "Helv");
style – численное выражение, в результате которого получается положительное целое число от 0 до 7 включительно;
size – размер шрифта, целое число;
forecolor – цвет символов шрифта в системе RGB;
backcolor – цвет фона или каймы в системе RGB или L1 для прозрачного фона.
Величина, полученная в результате:
Установка стиля шрифта. Величина типа Font.
Описание:
Функция MakeFont( ) возвращает величину типа Font для определения шрифта, который может быть назначен текстовому объекту. Возвращаемая величина может быть присвоена переменной типа Font или использована как параметр в других операторах (таких как Create Text или Set Style).
Смотрите описание предложения Font для дополнительной информации о стиле шрифта.
Пример:
Include "MAPBASIC.DEF"
Dim big_title As Font
big_title = MakeFont("Helvetica", 1, 20,BLACK,WHITE)
Смотрите также:
CurrentFont( ), Font, StyleAttr( )
Справочник MapBasic |
305 |