FontStyle To String

[resident]

Здрасть )
Подскажите, почему не работает преобразование множества TFontStyles в Byte?

Код: Выделить всё

function MyFontStyleToString(FS: TFontStyles): string;
  var
    B: Byte;
  begin
    B := byte(FS); // <<< Illegal type conversion
    Result := '$' + HexStr(B, 6);
  end;  

[sign]

Потому что, Integer(Font.Style);

[resident]

Спасиб

[alexs]

resident
А почему не воспользоваться процедурой GetStrProp из модуля typinfo.
Получится гораздо красивее - будет прям строкое представление - как в lfm-файлах.

[resident]

alexs
Интересная возможность. Но пробую, и что-то не получается - выводит пустую строку.

Код: Выделить всё

procedure Test;
  var
    Font: TFont;
  begin
    Font := TFont.Create;
    Font.Style := [fsBold, fsItalic];
    ShowMessage('Font Styles = ' +  GetStrProp(Font, 'Style'));
  end; 

[alexs]

Объект должен быть наследнком от TPersistent
Например:
ShowMessage('Font Styles = ' + GetStrProp(Form1, 'Style'));

В качестве пример хорош видно как это работает при сохранении свойтс в бъектах LazReport-а. Методы SaveToXML

[resident]

Работает, спасиб

Код: Выделить всё

function FontToReadableStr(Font: TFont): string;
begin
  Result := SetToString(GetPropInfo(Font, 'Style'), Integer(Font.Style), False);
end;

procedure Test;
  var
    F: TFont;
  begin
    F := TFont.Create;
    F.Style := [fsBold, fsItalic];
    ShowMessage('Font Styles = ' + FontToReadableStr(F));
  end;