- •Add Cartographic Frame
- •Оператор Alter Button
- •Оператор Alter ButtonPad
- •Оператор Alter MapInfoDialog
- •Оператор Alter Menu
- •Оператор Alter Menu Item
- •Оператор Alter Object
- •Оператор Alter Table
- •Оператор Autolabel
- •Оператор Beep
- •Оператор Browse
- •Предложение Brush
- •Оператор Call
- •Предложение CharSet
- •Функция ChooseProjection$()
- •Оператор Close All
- •Оператор Close File
- •Оператор Close Table
- •Оператор Close Window
- •Оператор Commit Table
- •Оператор Continue
- •Предложение Control CheckBox
- •Предложение Control EditText
- •Предложение Control GroupBox
- •Предложение Control RadioGroup
- •Оператор Create Arc
- •Оператор Create ButtonPad
- •Оператор Create ButtonPads As Default
- •Оператор Create Cartographic Legend
- •Оператор Create Collection
- •Оператор Create Ellipse
- •Оператор Create Frame
- •Оператор Create Grid
- •Оператор Create Index
- •Оператор Create Legend
- •Оператор Create Line
- •Оператор Create Map
- •Оператор Create Map3D
- •Оператор Create Menu
- •Оператор Create Menu Bar
- •Оператор Create MultiPoint
- •Оператор Create Point
- •Оператор Create PrismMap
- •Оператор Create Ranges
- •Оператор Create Rect
- •Оператор Create Redistricter
- •Оператор Create Region
- •Оператор Create Report From Table
- •Оператор Create RoundRect
- •Оператор Create Styles
- •Оператор Create Table
- •Оператор Create Text
- •Оператор DDEExecute
- •Оператор DDEPoke
- •Оператор DDETerminate
- •Оператор DDETerminateAll
- •Оператор Declare Function
- •Оператор Declare Sub
- •Оператор Define
- •Оператор Delete
- •Оператор Dialog
- •Оператор Dialog Preserve
- •Оператор Dialog Remove
- •Оператор Dim
- •Оператор Do Case...End Case
- •Оператор Do...Loop
- •Оператор Drop Index
- •Оператор Drop Map
- •Оператор Drop Table
- •Оператор End MapInfo
- •Оператор End Program
- •Процедура EndHandler
- •Оператор Error
- •Оператор Exit Do
- •Оператор Exit For
- •Оператор Exit Function
- •Оператор Exit Sub
- •Оператор Export
- •Оператор Fetch
- •Оператор Find
- •Оператор Find Using
- •Предложение Font
- •Процедура ForegroundTaskSwitchHandler
- •Функция FormatDate$
- •Оператор Function...End Function
- •Оператор Get
- •Оператор Graph
- •оператор Import
- •Оператор Include
- •Оператор Input #
- •Оператор Insert
- •Функция IsPenWidthPixels()
- •Оператор Kill
- •Оператор Line Input
- •Процедура Main
- •Оператор Map
- •Оператор Menu Bar
- •Оператор Metadata
- •Оператор Note
- •Оператор Objects Check
- •Оператор Objects Clean
- •Оператор Objects Combine
- •Оператор Objects Disaggregate
- •Оператор Objects Enclose
- •Оператор Objects Erase
- •Оператор Objects Intersect
- •Оператор Objects Overlay
- •Оператор Objects Snap
- •Оператор Objects Split
- •Оператор OnError
- •Оператор Open File
- •Оператор Open Table
- •Оператор Open Window
- •Предложение Pen
- •Функция PenPattern()
- •Функция PenWidthToPoints()
- •Функция PointsToPenWidth()
- •Оператор Print
- •Оператор PrintWin
- •Оператор ProgressBar
- •Оператор Put
- •Оператор Randomize
- •Оператор ReDim
- •Оператор Register Table
- •Оператор Reload Symbols
- •Процедура RemoteMapGenHandler
- •Процедура RemoteMsgHandler
- •Оператор Rename File
- •Оператор Rename Table
- •Оператор Reproject
- •Оператор Resume
- •Оператор Rollback
- •Оператор Run Application
- •Оператор Run Command
- •Оператор Run Menu Command
- •Оператор Run Program
- •Оператор Save File
- •Оператор Save Workspace
- •Оператор Seek
- •Процедура SelChangedHandler
- •Оператор Select
- •Оператор Server Begin Transaction
- •Оператор Server Bind Column
- •Оператор Server Close
- •Оператор Server Commit
- •Оператор Server Create Map
- •Оператор Server Create Table
- •Оператор Server Create Style
- •Оператор Server Disconnect
- •Оператор Server Fetch
- •Оператор Server Refresh
- •Оператор Server Rollback
- •Оператор Server Set Map
- •Оператор Set Application Window
- •Оператор Set Area Units
- •Оператор Set Browse
- •Оператор Set Cartographic Legend
- •Оператор Set Command Info
- •Оператор Set CoordSys
- •Оператор Set Date Window
- •Оператор Set Digitizer
- •Оператор Set Distance Units
- •Оператор Set Drag Threshold
- •Оператор Set Event Processing
- •Оператор Set File TimeOut
- •Оператор Set Format
- •Оператор Set Graph
- •Оператор Set Handler
- •Оператор Set Layout
- •Оператор Set Legend
- •Оператор Set Map
- •Оператор Set Map3D
- •Оператор Set Next Document
- •Оператор Set Paper Units
- •Оператор Set PrismMap
- •Оператор Set ProgressBars
- •Оператор Set Redistricter
- •Оператор Set Resolution
- •Оператор Set Shade
- •Оператор Set Table
- •Оператор Set Target
- •Оператор Set Window
- •Оператор Shade
- •Оператор StatusBar
- •Оператор Stop
- •Оператор Sub...End Sub
- •Предложение Symbol
- •Оператор Terminate Application
- •Функция Time()
- •Процедура ToolHandler
- •Оператор Type
- •Оператор UnDim
- •Оператор Unlink
- •Оператор Update
- •Оператор Update Window
- •Оператор While...Wend
- •Процедура WinChangedHandler
- •Процедура WinClosedHandler
- •Процедура WinFocusChangedHandler
- •Оператор Objects Move
- •Оператор Objects Offset
- •Функция Offset()
- •Функция SphericalOffset()
- •Функция SphericalOffsetXY()
- •Функция CartesianOffsetXY()
- •Функция LayerInfo( )
- •Оператор Register
- •Оператор Server Create Map
- •Функция TableInfo( )
Предложение Pen
Предложение Pen
Назначение:
Задает стиль линии для графических объектов.
Синтаксис:
Pen pen_expr
где
pen_expr – выражение, результат которого есть величина типа Pen (или переменная типа Pen, или вызов функции, возвращающей такую величину, например, MakePen (width, pattern, color)).
Описание:
Предложение Pen не является отдельным оператором, а входит в состав некоторых операторов, в которых необходимо задавать стиль линии для некоторых графических объектов. Стиль линии представляет собой набор из атрибутов толщины линии, типа линии и цвета.
Это предложение используется, например, в операторе Create Line, который создает новый объект типа "линия". Предложение Pen задает стиль для нового объекта. Если оператор не использует это предложение, то будет использована текущая настройка этого стиля в MapInfo.
Параметр pen_expr должен быть величиной типа Pen и может задаваться переменной или выражением соответствующего типа:
Pen pen_var
или может задаваться вызовом функций CurrentPen( ) или MakePen( ), которые возвращают величины типа Pen:
Pen MakePen(1, 2, BLUE)
В некоторых операторах (например, Set Map) после слова Pen стиль задается непосредственно набором из трех целочисленных параметров (width, pattern и color), например:
Pen(1, 2, BLUE)
Заметим, что некоторые операторы MapBasic используют выражения тип Pen как параметры без ключевого слова. Одним из примеров является оператор Alter Object.
В следующей таблице приводится описание параметров стиля линии:
Компонента стиля |
Описание |
width |
Толщина линии в точках, величина типа Integer, от 1 до 7 |
|
включительно. Если Вы хотите иметь невидимую линию в объекте, |
|
то задайте нулевую толщину. При этом, если параметр будет равен |
|
0, то параметр типа линии pattern должен быть равен 1 (единице). |
pattern |
Тип линии, величина типа Integer, от 1 до 77 (смотрите таблицу |
|
ниже). Значение 1 обозначает невидимую линию. |
color |
Цвет линии в системе RGB, величина типа Integer. Смотрите |
|
описание функции RGB( ). |
Справочник MapBasic |
403 |
Предложение Pen
В следующей таблице показаны образцы линий и их номера:
Пример:
Include "MAPBASIC.DEF"
Dim cable As Object
Create Line
Into Variable cable
(73.5, 42.6) (73.67, 42.9) Pen MakePen(1, 2, BLACK)
Смотрите также:
Alter Object, Create Line, Create Pline, CurrentPen( ), MakePen( ), RGB( ), Set Style
404 |
Справочник MapBasic |
Функция PenPattern()
Функция PenPattern()
Назначение:
Возвращает номер стиля линии.
Синтаксис:
PenPattern ( pattern, isinterleaved )
pattern - это целое значение, соответствующее номеру стиля линии.
isinterleaved - это булевская величина, истинная, если линии перекрещивающиеся, и ложная, если линии накладывающиеся.
Описание:
Функция PenPattern возвращает стиль линии для заданного номера стиля с и ли без установок для пересекающихся линий. Эта функция возвращает переменную типа целое, соответствующую определенному стандартному типу перекрещивающихся или наложенных линий. Используйте эту функцию для получения информации о стиле линии из перечня имеющихся стилей перекрещивающихся или наложенных стилей линий.
Пример:
Include “MAPBASIC.DEF”
Dim Cable As Object
Create Line
Into Variable Cable
(73.5, 42.6) (73.67, 42.9)
Pen MakePen (3, PenPattern (65, True), Red)
Смотри также:
CurrentPen(), MakePen(),Pen, StyleAttr()
Справочник MapBasic |
405 |
Функция PenWidthToPoints()
Функция PenWidthToPoints()
Назначение:
Функция PenWidthToPoints возвращает размер в пунктах для линии данной ширины.
Синтаксис:
PenWidthToPoints ( penwidth )
penwidth это целое значение, большее чем 10, представляющее ширину линии.
Возвращаемое значение:
Вещественное.
Описание:
Функция PenWidthToPoints берет ширину линии и возвращает ее значение в пунктах. Ширина линии для стиля линии может быть возвращена с помощью функции StyleAttr. Ширина линии, возвращаемая функция StyleAttr может быть в пунктах или пикселах. Ширина шинии, меньшая чем 10 задается в пикселах. Любая ширина от 10 и более задается в пунктах. PenWidthToPoints будет возвращать значения только для линий с шириной, заданной в пунктах. Чтобы определить, в каких величинах задана ширина линии, в пунктах или пикселах, используйте функцию IsPenWidthPixels.
Пример:
Include “MAPBASIC.DEF”
Dim CurPen As Pen
Dim Width As Integer
Dim PointSize As Float
CurPen = CurrentPen()
Width = StyleAttr(CurPen, PEN_WIDTH)
If Not IsPenWidthPixels(Width) Then
PointSize = PenWidthToPoints(Width)
End If
Смотри также:
CurrentPen(), IsPenWidthPixels(), MakePen(),Pen, PointsToPenWidth(), StyleAttr()
406 |
Справочник MapBasic |