| function GraphicFilter
(GraphicClass TGraphicClass) : string; |
Эту функцию удобно
использовать вместе с
диалогами открытия и закрытия
файла. Для заданного класса
GraphicClass она вернет строку,
которую фазу можно присвоить
свойству Filter диалога. Например,
для TBitmap она вернет строку 'Bitmaps
(*.ВМР)|*.ВМР'. |
| function GraphicExtension
(GraphicClass: TGraphicClass): string; |
Возвращает строку,
содержащую расширение,
которое, встречается у файлов в
формате GraphicClass. Например,
GraphicExtension(TIcon) равно строке
?IСО? |
| function ColorToRGB(Color:
TColor): Longint; |
Преобразует
значение типа TColor в формат RGB. |
| Function ColorToIdent(Color:
Longint; var Ident: string): Boolean; function IdentToColor(const
Ident: string; var Color: Longint):Boolean;
|
Функции взаимного
преобразования цвета в строку
с его названием (определенным в
модуле GRAPHICS). Например,
ColorToIdent(clWhite, AString) присвоит AString
значение 'clWhite'. В случае
неуспеха возвращается False; |
function ColorToString(Color:
TColor): string;
function StringToColor(S: string) : TColor; |
Назначение
аналогично двум предыдущим
функциям. При отсутствии цвета
Color в списке предопределенных
цветов возвращается строка с
его значением в
шестнадцатиричном формате. При
отсутствии цвета с именем S (в
том же списке) делается попытка
преобразовать строку в число, в
случае неудачи возникает
исключительная ситуация. |
| procedure GetColorValues
(Proc: TGetStrProc); |
Производит вызов
определенной пользователем
процедуры Proc для всех
имеющихся в списке цветов. В
качестве параметра в такую
процедуру передается строка с
именем цвета. Эта процедура
используется в примере MOVLINES на
прилагаемой к книге дискете. |
