|
Автор: Dennis Passmore
Как мне получить значение Font.Style и Font.Color в виде строки,
я хотел бы присвоить его заголовку компонента Label, но style и
color не являются строковыми величинами.
Есть масса способов это сделать, но я использую следующий
способ:
const
fsTextName: array[TFontStyle] of string
[11] = ('fsBold', 'fsItalic', 'fsUnderline', 'fsStrikeOut');
fpTextName: array[TFontPitch] of string
[10] = ('fpDefault','fpVariable','fpFixed');
|
Позже, в коде, я так использую эти имена:
var
TFPitch: TFontPitch;
TFStyle: TFontStyle;
FString: String;
...
FString := '';
for TFStyle := fsBold to fsStrikeOut do
if TFStyle in Canvas.Font.Style then
Fstring := Fstring+fsTextName[TFStyle]+',';
if FString<>'' then
dec(FString[0]); { убираем лишний разделитель ',' }
something := FString;
FString := fpTextName[Canvas.Font.Pitch];
something := FString;
|
Примерно также нужно поступить и с именованными цветами типа
TColor. |
Свойства шрифта Style и Color в
виде строки