SynEdit TFontStyles aus INI lesen?

[Grolle]

Hallo,
kann mir jemand sagen, wie ich die TFontStyles die von den SynEdit-Highlightern in eine INI geschrieben werden parsen
kann? Für die verschiedenen Stile nehme ich Checkboxen. Allerdings stehe ich beim auslesen auf'm Schlauch. Die Werte
werden als Integer in die INI geschrieben.
Viele Grüße...

[SirThornberry]

Hast du schon versucht den Integer einfach auf TFontStyles zu casten?

[Grolle]

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);

[Blackheart]

Wie SirThornberry sagte Das kannst Du doch mit dem Integerwert lösen, Ich hab das mal so gelöst noch mit extra Anzeige.

Delphi-Quellcode:

WriteInteger('Textdatei', 'Style', Integer(TFontStyle(Form1.SynEdit1.Font.Style))); 

....

  dummy:= (ReadInteger('Textdatei', 'Style', 0));
  if dummy=0 then Label7.Caption:='[Standard]';
  if dummy=1 then Label7.Caption:='[Fett]';
  if dummy=2 then Label7.Caption:='[Kursiv]';
  if dummy=3 then Label7.Caption:='[Fett, Kursiv]';
  if dummy=4 then Label7.Caption:='[Standard, Unterstrichen]';
  if dummy=5 then Label7.Caption:='[Fett, Unterstrichen]';
  if dummy=6 then Label7.Caption:='[Kursiv, Unterstrichen]';
  if dummy=7 then Label7.Caption:='[Fett, Kursiv, Unterstrichen]';
  if dummy=8 then Label7.Caption:='[Standard, Durchgestrichen]';
  if dummy=9 then Label7.Caption:='[Fett, Durchgestrichen]';
  if dummy=10 then Label7.Caption:='[Kursiv, Durchgestrichen]';
  if dummy=11 then Label7.Caption:='[Fett, Kursiv, Durchgestrichen]';
  if dummy=12 then Label7.Caption:='[Standard, Durch und Unterstrichen]';
  if dummy=13 then Label7.Caption:='[Fett, Durch und Unterstrichen]';
  if dummy=14 then Label7.Caption:='[Kursiv, Durch und Unterstrichen]';
  if dummy=15 then Label7.Caption:='[Fett, Kursiv, Durch und Unterstrichen]';

[Grolle]

Ok, so geht's natürlich auch. Sind die Int-Werte Standard für TFontStyles?
Viele Grüße...

[Muetze1]

Omg, da wird man doch blöde bei dem Code. Set Of stellt eine Bitmaske dar und von daher lässt es sich genauso einfach in eine solche ablegen.

Delphi-Quellcode:

Function FontStyleToInt(Const AFontStyles: TFontStyle): Integer;
Begin
  Result := 0;

  if fsBold in y then 
    Result := Result Or $01;

  if fsItalic in y then 
    Result := Result Or $02;

  if fsUnderline in y then 
    Result := Result Or $04;

  if fsStrikeout in y then 
    Result := Result Or $08;
End;

Function IntToFontStyle(Const AInt: Integer): TFontStyle;
Begin
  Result := [];

  If ( AInt And $01 ) <> 0 Then
    Include(Result, fsBold);

  If ( AInt And $02 ) <> 0 Then
    Include(Result, fsItalic);

  If ( AInt And $04 ) <> 0 Then
    Include(Result, fsUnderline);

  If ( AInt And $08 ) <> 0 Then
    Include(Result, fsStrikeOut);
End;

[Luckie]

Ich habe jetzt versucht Motzis Lösung zu nehmen. Allerdings wo kommt bei FontStyleToInt das y her? Ersetze ich es durch AFontStyles, bekomme ich den Fehler:

Zitat:

[Pascal Error] SaveLoadCls.pas(239): E2015 Operator not applicable to this operand type

:gruebel:

[bigg]

moin,

einfach über Synedit.Highlighter.LoadFromFile() einlesen.

[Luckie]

Ich habe keine SynEdit-Komponente. ;) Aber ich denke, es muss so aussehen:

Delphi-Quellcode:

  function FontStyleToInt(const AFontStyles: TFontStyles): Integer;
  begin
    Result := 0;
    if fsBold in AFontStyles then
      Result := Result or $01;
    if fsItalic in AFontStyles then
      Result := Result or $02;
    if fsUnderline in AFontStyles then
      Result := Result or $04;
    if fsStrikeout in AFontStyles then
      Result := Result or $08;
  end;

Und so:

Delphi-Quellcode:

  function IntToFontStyle(const AInt: Integer): TFontStyles;
  begin
    Result := [];
    if (AInt and $01) <> 0 then
      Include(Result, fsBold);
    if (AInt and $02) <> 0 then
      Include(Result, fsItalic);
    if (AInt and $04) <> 0 then
      Include(Result, fsUnderline);
    if (AInt and $08) <> 0 then
      Include(Result, fsStrikeOut);
  end;

[bigg]

oh, Luckie hab deinen Post gar nicht gelesen. Bin vom Thread-Ersteller ausgegangen. :mrgreen:

[Muetze1]

Oh, ja, richtig, ein Fehler in meinem Code. Luckie hat es ja richtig korrigiert.

Aber eins würde mich noch interessieren: Wer ist Motzi?

[Deathman]

Hi Leute

Also ich hab jetzt die Daten inner INI gespeichert. hat alles super geklappt.

Problem ist dass ich die Daten jetzt abrufen wollte und mein Programm sich aufhängt.

Delphi-Quellcode:

procedure TNotdienstanzeige.FormActivate(Sender: TObject);
var Ini:TInifile;
begin
Ini.Create(Extractfilepath(Paramstr(0))+'ablauf.ini');
Label3.Font.Color:=StringToColor(Ini.ReadString('schrift','farbe','$00336600'));
Label3.Font.Name:=ini.ReadString('schrift','art','Arial');
Label3.Font.Size:=ini.ReadInteger('schrift','größe',10);
Label3.Font.Style:=EinStellung.IntToFontStyle(ini.ReadInteger('schrift','Style',0));
ini.Free;
end;

[bigg]

Was hat dein Problem noch mit Synedit zu tun? :?:
Wenn du Probleme mit der Klasse "TINI" hast, erstelle einen neuen Thread.

[Muetze1]

Wenn das Schreiben in die INI funktioniert, dann wette ich mir dir um ein Ü-Ei, dass die Instanziierung beim Schreiben der Werte deutlich anders aussah als diese Zeile beim Einlesen:

Delphi-Quellcode:

Ini.Create(Extractfilepath(Paramstr(0))+'ablauf.ini');

Delphi Grundlagen lernen!

Empfehlung: Resourcen-Schutzblock aus Try/Finally rumbauen.

[Deathman]

1. Sorry dass ich erst jetzt antworte
2. sorry dass ich hier gepostet habe aber es ging halt um das schreiben und lesen von fontStyle Eigenschaftem

3. die Zeile sa so aus da ich nur eine INI aus Übersichtsgründen verwende.

Der Fehler taucht auf wenn ich die Form aktiviere also sobald er die Procedur ausführt.

THX

[Muetze1]

Zitat:

Zitat von Deathman

3. die Zeile sa so aus da ich nur eine INI aus Übersichtsgründen verwende.

Wenn du sie so wie du es dort oben gepostet hast, auch in deinem Quellcode hast, dann ist der Absturz komplett erklärbar. Auch die Lösung sollte schon vorhanden sein, da ich geschrieben habe, wo diese findest.

Mein Hinweis auf die OOP/Delphi Grundlagen erklären den Fehler gleichermassen und sollten ebenso auf den korrekten Code führen.

[Deathman]

Tut mir Leid habs echt net gesehn als ich deinen post gelesen hatte und den Quelltext nochmal angeguckt hab war es mir dann auch klar.

[Muetze1]

Sehr schön - wenn man es selber findet lernt man eh mehr als wenn ich dir einfach nur die Lösung geschrieben hätte.