Свойства шрифта Style/Color в виде строки
Как мне получить значение 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.
- Dennis Passmore [000850]
