clDeepPink
|
clDarkSalmon
|
clDeepSkyBlue
|
clDimGray
|
clDodgerBlue
|
clFirebrick
|
clFloralWhite
|
clForestGreen
|
clFuchsia
|
clGainsboro
|
clGhostWhite
|
clGold
|
clGoldenrod
|
clGray
|
clGreen
|
clGreenYellow
|
clHoneydew
|
clHotPink
|
clIndianRed
|
clIndigo
|
clIvory
|
clKhaki
|
clLavender
|
clLavenderBlush
|
clLawnGreen
|
clLemonChiffon
|
clLightBlue
|
clLightCoral
|
clLightCyan
|
clLightGray
|
clLightGreen
|
clLightGoldenrodYellow
|
clLightPink
|
clLightSalmon
|
clLightSeaGreen
|
clLightSkyBlue
|
clLightSlateGray
|
clLightSteelBlue
|
clLightYellow
|
clLime
|
clLimeGreen
|
clLinen
|
clMagenta
|
clMaroon
|
clMediumBlue
|
clMediumOrchid
|
clMediumAquamarine
|
clMediumPurple
|
clMediumSeaGreen
|
clMediumSlateBlue
|
clMoneyGreen
|
clPlum
|
clMistyRose
|
clNavy
|
clMidnightBlue
|
clMintCream
|
clMediumSpringGreen
|
clMoccasin
|
clNavajoWhite
|
clMediumTurquoise
|
clOldLace
|
clOlive
|
clOliveDrab
|
clOrange
|
clOrangeRed
|
clOrchid
|
clPaleGoldenrod
|
clPaleGreen
|
clPaleTurquoise
|
clPaleVioletRed
|
clPapayaWhip
|
clPeachPuff
|
clPeru
|
clPink
|
clMediumVioletRed
|
clPowderBlue
|
clPurple
|
clRed
|
clRosyBrown
|
clRoyalBlue
|
clSaddleBrown
|
clSalmon
|
clSandyBrown
|
clSeaGreen
|
clSeaShell
|
clSienna
|
clSilver
|
clSkyBlue
|
clSlateBlue
|
clSlateGray
|
clSnow
|
clSpringGreen
|
clSteelBlue
|
clTan
|
clTeal
|
clThistle
|
clTomato
|
clTransparent
|
clTurquoise
|
clViolet
|
clWheat
|
clWhite
|
clWhiteSmoke
|
clYellow
|
clYellowGreen
|
Подпрограммы для работы с пером
Рисование линий осуществляется текущим пером. Доступ к свойствам текущего пера можно осуществлять как в процедурном, так и в объектно-ориентированном стиле.
Процедуры и функции для доступа к свойствам пера сгруппированы парами: если Prop - имя свойства пера, то функция PenProp возвращает значение этого свойства, а процедура SetPenProp(p) устанавливает это свойство:
procedureSetPenColor(c: Color);
Устанавливает цвет текущего пера
|
functionPenColor: Color;
Возвращает цвет текущего пера
|
procedureSetPenWidth(Width: integer);
Устанавливает ширину текущего пера
|
functionPenWidth: integer;
Возвращает ширину текущего пера
|
procedureSetPenStyle(style: DashStyle);
Устанавливает стиль текущего пера. Константы стилей пера приведены здесь
|
functionPenStyle: DashStyle;
Возвращает стиль текущего пера. Константы стилей пера приведены здесь
|
procedureSetPenMode(m: integer);
Устанавливает режим текущего пера
|
functionPenMode: integer;
Возвращает режим текущего пера
|
functionPenX: integer;
Возвращают x-координату текущей позиции рисования
|
functionPenY: integer;
Возвращают y-координату текущей позиции рисования
|
Кроме этого, можно изменять свойства текущего пера через объект Pen.
Объект текущего пера возвращается функцией Pen и имеет тип GraphABCPen:
functionPen: GraphABCPen;
Класс GraphABCPen имеет следующий интерфейс:
type
GraphABCPen = class
propertyNETPen: System.Drawing.Pen;
propertyColor: GraphABC.Color;
propertyWidth: integer;
propertyStyle: DashStyle;
propertyMode: integer;
propertyX: integer;
propertyY: integer;
end;
Свойства класса GraphABCPen описаны в следующей таблице:
propertyNETPen: System.Drawing.Pen;
Текущее перо .NET. Служит для более тонкой настройки свойств пера
|
propertyColor: GraphABC.Color;
Цвет пера
|
propertyWidth: integer;
Ширина пера
|
propertyStyle: DashStyle;
Стиль пера. Константы стилей пера приведены здесь
|
propertyMode: integer;
Режим пера
|
propertyX: integer;
Координата X пера (только чтение)
|
propertyY: integer;
Координата Y пера (только чтение)
|
Пример.
Pen.Color := clRed;
Pen.Style := psDot;
Кроме этого, можно изменять свойства текущего пера, используя соответствующие процедуры и функции.
Стили пера задаются перечислимым типом DashStyle. Кроме того, для стилей пера определены следующие константы:
psSolid = DashStyle.Solid;
Сплошное перо
|
Читать дальше