Файл: ...\Samples\Solution\Forms\Graphics\Fdmain.scx

Этот пример показывает, как с помощью графических методов  (PSet, Line, и Circle), а также свойств (DrawMode, DrawStyle, DrawWidth), можно разместить на форме различные нестандартные графические области, которые к тому же можно раскрасить в различные цвета.

В примере используется toolbar (определяется в модуле Fdproc.prg) и форма (определенная от класса frmFD в библиотеке Fd.vcx). Пользователь может менять различные характеристики графических объектов на форме , используя указанный ToolBar. 

Непосредственно графические функции размещены в соответствующих программных кодах событий Формы MouseDown и MouseMove .

  Копировать код
* MouseDown
PARAMETERS nButton, nShift, nXCoord, nYCoord
IF THIS.MousePointer = 2
   THIS.PSet(nXCoord, nYCoord)
ENDIF

* MouseMove
PARAMETERS nButton, nShift, nXCoord, nYCoord
IF THIS.MousePointer = 2
   THISFORM.LINE(nXCoord, nYCoord)   
ENDIF

См. также