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

Материал из DRKB

Свойства шрифта 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;
begin
  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.


Примечание Vit: Описанный здесь способ относится скорее к тем которые указывают как не надо делать. Эта задача решается намного изящнее здесь:

Как получить строковое значение перечисляемого типа?


Source: Взято с http://delphiworld.narod.ru
ID: 01950