Свойства шрифта Style и Color в виде строки
Автор: 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.
|
