CreatePen(<стиль>, <ширина>, <цвет>) - устанавливает одну из "штучек" Windows -
Pen - стиль, ширину и цвет.
CreateCaret(
<числовой идентификатор битмап>,
<высота>,
<ширина>
)
создает каретку.
<числовой идентификатор битмап> - либо идентификатор, полученный посредством
CreateBitmap, либо NULL;
<высота> - число, определяющее высоту каретки,
<ширина> - число, определяющее ширину каретки.
Возвращает положительное число, если удачно, и 0, если нет.
ShowCaret() - отображает каретку на экран.
SetCaretPos( <вертикальная позиция>, <горизонтальная позиция>) - устанавливает каретку в позицию с заданными координатами.
DestrCaret() - разрушает каретку.
HideCaret() - выключает каретку.
GetCaretPos() - возвращает позицию каретки в составном виде двух целых типа 'I'. Должны отбираться в стиле
x := IntRight( y := GetCaretPos() )
SetCaretBlink( <время> ) - устанавливает период мерцания каретки в миллисекундах.
GetCaretBlink() - возвращает текущий период мерцания каретки.
GetCurrentPEN() - возвращает числовой идентификатор текущего Pen.
GetCurrentBRUSH() - возвращает числовой идентификатор текущего Brush.
GetCurrentFont() - возвращает числовой идентификатор
текущего фонта.
GetCurrentBM() - возвращает числовой идентификатор текущего битмапа.
GetPenAttr( <идентификатор Pen>, <номер атрибута> ) возвращает значение атрибута, указанного числом <номер атрибута>: 1 - стиль, 2 - ширина, 3 - цвет.
SetPenCol( <идентификатор Pen>, <цвет> ) - не реализована (только для NT).
SelectPen( <идентификатор Pen> ) - переключение Pen.
SelectBrush( <идентификатор Brush> ) - переключение Brush.
SerCursor( <идентификатор курсора> ) - переключение курсора.
CreateCurs(
<horizontal position of hot spot>,
<vertical position of hot spot>,
cursor width,
cursor height,
pointer to AND bitmask array,
pointer to XOR bitmask array
) - создание курсора
DestrCurs( <идентификатор курсора> ) - удаляет курсор.
SetCursPos(
< вертикальная позиция >,
< горизонтальная позиция >
) - устанавливает позицию курсора
GetCursPos( <идентификатор курсора> ) - возвращает позицию курсора; выделить их
можно фукцией IntLeft и IntRight:
Y_pos := GetCursPos( IdCurs ) - вертикальная позиция
Y1_pos := IntLeft( GetCursPos( IdCurs ) )
Y_pos == Y1_pos
X_pos := IntRight( Y_pos ) - горизонтальная позиция
т.е. оптимальным является следующий стиль:
X_pos := IntRight( Y_pos := GetCursPos( IdCurs ) )
GetCursY() - возвращает позицию курсора по Y
Y_pos := GetCursY()
GetCursX() - возвращает позицию курсора по X
X_pos := GetCursX()
ShowCursor( <cursor visibility flag> ) - показать/погасить курсор;
<cursor visibility flag> - параметр фукнкции ShowCursor( TRUE | FALSE ) Windows, устанавливаемый в CAPER положительным значением параметра функции (TRUE) или
нулевым значением (FALSE).
ClipCursor( <Y0>, <X0>, <Y1>, <X1> ) - ограничивает перемещение и расположение
курсора в пределах заданной параметрами <Y0>, <X0>, <Y1>, <X1> прямоугольной
области.
LoadCursor( <name string|cursor resource identifier> ) - функция загрузки курсора как ресурса системы (Windows) - реализует функцию LoadCursor:
параметры
IDC_ARROW
IDC_IBEAM
IDC_WAIT
IDC_CROSS
IDC_UPARROW
IDC_SIZE
IDC_ICON
IDC_SIZENWSE
IDC_SIZENESW
IDC_SIZEWE
IDC_SIZENS
IDC_SIZEALL
IDC_NO
IDC_APPSTARTING
IDC_HELP
определены в CAPER_GDI.ch
SetBruCol( <цвет> ) - устанавливает цвет Brush
DeleteObj( <идентификатор ресурса> ) – удаляет ресурс Windows - Brush, Pen, Font и пр.
CreateBrush( <стиль>, <ширина>, <цвет> ) - устанавливает одну из "штучек"
Windows - Brush - стиль, ширину и цвет.
Стиль определен макросами в файле CAPER_GDI.ch и соответствует описанию стиля
BS_SOLID
BS_NULL
BS_HOLLOW
BS_HATCHED
BS_PATTERN
BS_INDEXED
BS_DIBPATTERN
BS_DIBPATTERNPT
BS_PATTERN8X8
BS_DIBPATTERN8X8
BS_MONOPATTERN
цвет
DIB_RGB_COLORS 0
DIB_PAL_COLORS 1 |