Mam problem, jak zapisać czionke do ini???
Jeśli chodzi Ci tylko o nazwę czcionki to :
[code]
try
INI:=TINIFile.create(ścieżka do pliku INI);
INI.writeString(sekcja,wartość,nazwa_czcionki);
finally
INI.free;
end;
[/code]
Najlepiej tak:
INI := TINIFile.Create(plik);
INI.WriteString('sekcja', 'czcionka-typ', x.Font.Name);
INI.WriteInteger('sekcja', 'czcionka-rozmiar', x.Font.size);
if (x.Font.style = [fsBold]) and not (x.Font.style = [fsItalic]) then
INI.WriteBool('sekcja', 'czcionka-bold', True)
else
INI.WriteBool('sekcja', 'czcionka-bold', False);
if (x.Font.style = [fsItalic]) and not (x.Font.style = [fsBold]) then
INI.WriteBool('sekcja', 'czcionka-italic', True)
else
INI.WriteBool('sekcja', 'czcionka-italic', False);
if (x.Font.style = [fsBold] + [fsItalic]) then
INI.WriteBool('sekcja', 'czcionka-bolditalic', True)
else
INI.WriteBool('sekcja', 'czcionka-bolditalic', False);
INI.Free;
Gdzie x to dowolny komponent z czcionką.
//uzywaj tagow delphi
if (x.Font.style = [fsBold]) and not (x.Font.style = [fsItalic]) then
INI.WriteBool('sekcja', 'czcionka-bold', True)
else
INI.WriteBool('sekcja', 'czcionka-bold', False);
Detox, naprwdę nie rozumiem dlaczego tak kręcisz z tymi and not. Przykład :
if fsBold in x.Font.style then .........
i teraz jako że [b]fsBold in x.Font.style[/b] zwraca nam typ boolowski możemy nasz problem zapisać tak :
INI.WriteBool('sekcja', 'czcionka-bold', fsBold in x.Font.style );