Hi,
ich habs so probiert, was aber nicht hingehauen hat:
Delphi-Quellcode:
procedure TForm3.readstyles(y : TFontStyles);
begin
if fsBold in y then Checkbox1.Checked;
if fsItalic in y then Checkbox2.Checked;
if fsUnderline in y then Checkbox3.Checked;
if fsStrikeout in y then Checkbox4.Checked;
end;
und:
style := TFontStyles(TFontStyle(ti.ReadInteger(f, 'Style', 0)));
readstyles(style);