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

Советы » Шрифты » Свойства шрифта 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.

Другое по теме:

Категории

Статьи

Советы

Copyright © 2022 - All Rights Reserved - www.delphirus.com