- Jak w temacie, mam problem z rozpisaniem fonta jako stałej. Robię coś takiego:
const
MyFont : TFont =(
Charset : DEFAULT_CHARSET;
Color : clRed;
Height : -11;
Name : 'Arial';
Pitch : fpDefault;
Size : 8
);
Niestety wywala mi błąd: Undeclared Identifier "Charset". Koloru i reszty też nie rozpoznaje.
- Mimo prób nie udało mi się tego rozwiązać, więc zmajstrowałem własny rekord czcionki i potem zdefiniowałem go jako stałą:
type
TCustomFont = record
Charset : TFontCharset;
Color : TColor;
Height : Integer;
Name : TFontName;
Pitch : TFontPitch;
Size : Integer;
Style : TFontStyle;
end;
Tutaj wszystko działa dobrze, ale mam problem z ustawieniem właściwości TFontStyle. Zdefiniowanie jednego stylu jest proste, np.:
Style : fsBold;
Niestety nie mogę sobie poradzić z ustawieniem kilku opcji jednocześnie, np. fsBold, fsItalic, fsUnderline.
Przy zmiennych jest to proste, np.:
Font.Style := Font.Style + [fsBold]
Nie wiem natomiast jak powinna wyglądać składnia przy stałych. Ktoś pomoże?