procedure TForm_Settings.FormCreate(Sender: TObject);
var Temp:TStringList;
begin
  Temp:=TStringList.Create;
  Temp.LoadFromFile(GutterFile);
  with SMemoSample.Gutter do
    begin
    DigitCount:=StrToInt(Temp[0]);
    LeadingZeros:=Temp[1] = 'True';
    LeftOffset:=StrToInt(Temp[2]);
    RightOffset:=StrToInt(Temp[3]);
    ShowLineNumbers:=Temp[4] = 'True';
    UseFontStyle:=Temp[5] = 'True';
    Visible:=Temp[6] = 'True';
    Width:=StrToInt(Temp[7]);
    ZeroStart:=Temp[8] = 'True';
    end;
  Temp.Free;
end;

procedure TForm_Settings.FormShow(Sender: TObject);
begin
  with SMemoSample.Gutter do
    begin
    Gutter_Leading0.Checked:=LeadingZeros;
    Gutter_Line.Checked:=ShowLineNumbers;
    Gutter_UseFont.Checked:=UseFontStyle;
    Gutter_Visible.Checked:=Visible;
    Gutter_Width.Value:=Width;
    Gutter_Start0.Checked:=ZeroStart;
    end;
end;

procedure TForm_Settings.FormClose(Sender: TObject; var Action: TCloseAction);
var Temp:TStringList;
begin
  Temp:=TStringList.Create;
  with SMemoSample.Gutter do
    begin
    Temp.Add(IntToStr(DigitCount));
    Temp.Add(BoolToStr(LeadingZeros,True));
    Temp.Add(IntToStr(LeftOffset));
    Temp.Add(IntToStr(RightOffset));
    Temp.Add(BoolToStr(ShowLineNumbers,True));
    Temp.Add(BoolToStr(UseFontStyle,True));
    Temp.Add(BoolToStr(Visible,True));
    Temp.Add(IntToStr(Width));
    Temp.Add(BoolToStr(ZeroStart,True));
    end;
  Temp.SaveToFile(GutterFile);
  Temp.Free;
end;