procedure TEditorForm.BoardTopClick(Sender: TObject);
var
- ini: TIniFile;
+ ini: TMemIniFile;
begin
- ini := TIniFile.Create(GikoSys.Setting.GetFileName);
+ ini := TMemIniFile.Create(GikoSys.Setting.GetFileName);
try
BoardtopTab.TabVisible := BoardTop.Checked;
ini.WriteBool('EditorForm', 'BoardTopTab', BoardtopTab.TabVisible);
+ ini.UpdateFile;
finally
ini.Free;
end;