<<< BACK NEXT >>>

"Штучки" Windows и управление ими

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

<<< BACK NEXT >>>