FocusDraw

Синтаксис

sub FocusDraw(ByVal x As Long, ByVal y As Long, ByVal w As Long, ByVal h As Long ,ByVal iColor as Long = 0)

Описание

Используется для рисования фокуса

Параметры

x - расположение по оси X

y - расположение по оси Y

w - ширина фокуса

h - высота фокуса

iColor - только для Linux, цвет фокуса

Платформы

Windows , Linux

Пример

#Include "window9.bi"
Var hwnd=OpenWindow("",100,100,300,300)
UpdateInfoXserver()
WindowStartDraw(hwnd)
  fillrectdraw(40,40,&hffffff)
  TextDraw(100,100,"Hello",&hffffff)
  FocusDraw(95,95,45,25)
StopDraw
Do : Loop until WaitEvent= EventClose

Результат

Created with the Personal Edition of HelpNDoc: Easy CHM and documentation editor