Font.Style ins Clientdataset Laden

[Sir Rufo]

Da TFontStyle ein Set ist, kann man so ein Set als string (z.B. "[fsBold,fsItalic]") darstellen (Funktionen gibt es dafür in beide Richtungen).

Am einfachsten ist es aber - weil es ein Set ist - den Wert in einen Integer zu überführen.

Delphi-Quellcode:

var
  FontStyleAsInt : integer;
begin
  // in einen Integer
  FontStyleAsInt := Integer( MyFont.Style );
  // und wieder zurück
  Integer( MyFontStyle ) := FontStyleAsInt;
end;

Schon brauchen wir uns nicht mehr fragen, wie bekommen wir den TFontStyle in die Datenbank, sondern einen Integer-Wert.

@Perlsau

Wenn ich das machen sollte, dann würde mir spontan das hier einfallen

Delphi-Quellcode:

begin
  PuP_Red_Normal.Checked := ( DBRichEd_Inhalt.SelAttributes.Style = [] );
  PuP_Red_Fett.Checked := ( fsBold in DBRichEd_Inhalt.SelAttributes.Style );
  PuP_Red_Kursiv.Checked := ( fsItalic in DBRichEd_Inhalt.SelAttributes.Style );
  PuP_Red_ULine.Checked := ( fsUnderline in DBRichEd_Inhalt.SelAttributes.Style );
end;