Советы по Delphi

       

Свойства шрифта Style/Color в виде строки


Как мне получить значение Font.Style и Font.Color в виде строки, я хотел бы присвоить его заголовку компонента Label, но style и color не являются строковыми величинами.

Есть масса способов это сделать, но я использую следующий способ:

constfsTextName: array[TFontStyle] of string[11] = ('fsBold', 'fsItalic', 'fsUnderline', 'fsStrikeOut');fpTextName: array[TFontPitch] of string[10] = ('fpDefault','fpVariable','fpFixed');

Позже, в коде, я так использую эти имена:

varTFPitch: TFontPitch;TFStyle: TFontStyle;FString: String;

FString := '';for TFStyle := fsBold to fsStrikeOut doif TFStyle in Canvas.Font.Style thenFstring := Fstring+fsTextName[TFStyle]+',';if FString<>'' thendec(FString[0]); { убираем лишний разделитель ',' }something := FString;
FString := fpTextName[Canvas.Font.Pitch];something := FString;

Примерно также нужно поступить и с именованными цветами типа TColor.

- Dennis Passmore [000850]



Содержание раздела