Przeglądałem kodzik ze 20 razy i nic.. dlaczego nic nie zapisuje do INI:
procedure TForm1.zapiszClick(Sender: TObject);
var
i,j: integer;
begin
INI := TINIFile.Create(ExtractFileDir(Application.ExeName) + '\marks.ini');
for i := 0 to Markers.ComponentCount -1 do
begin
if Markers.Components[i] is TSynCustomHighLighter then
begin
for j := 0 to (Markers.Components[i] as TSynCustomHighLighter).AttrCount -1 do
begin
INI.WriteInteger(Markers.Components[i].Name, (Markers.Components[i] as TSynCustomHighLighter).Attribute[j].Name + '_F', integer((Markers.Components[i] as TSynCustomHighLighter).Attribute[j].Foreground));
INI.WriteInteger(Markers.Components[i].Name, (Markers.Components[i] as TSynCustomHighLighter).Attribute[j].Name + '_B', integer((Markers.Components[i] as TSynCustomHighLighter).Attribute[j].Background));
end;
end;
end;
INI.Free;
end;
"Markers" to osobny Data Module gdzie trzymam HighLightery (SynEdit).
PS: jest to zapis kolorować wszytkich highligterów.