Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/Option.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.39 by yoffy, Sat Jun 5 14:34:11 2004 UTC revision 1.40 by yoffy, Thu Jun 10 18:07:03 2004 UTC
# Line 183  type Line 183  type
183      GroupBox5: TGroupBox;      GroupBox5: TGroupBox;
184      BrowserMaxLabel: TLabel;      BrowserMaxLabel: TLabel;
185      BrowserMaxCombo: TComboBox;      BrowserMaxCombo: TComboBox;
     TabSheet5: TTabSheet;  
     GroupBox17: TGroupBox;  
     SpaceToNBSPCheckBox: TCheckBox;  
     AmpToCharRefCheckBox: TCheckBox;  
186                  procedure FormCreate(Sender: TObject);                  procedure FormCreate(Sender: TObject);
187                  procedure FormDestroy(Sender: TObject);                  procedure FormDestroy(Sender: TObject);
188                  procedure ApplyButtonClick(Sender: TObject);                  procedure ApplyButtonClick(Sender: TObject);
# Line 792  begin Line 788  begin
788    AddResAnchorCheckBox.Checked := GikoSys.Setting.AddResAnchor;    AddResAnchorCheckBox.Checked := GikoSys.Setting.AddResAnchor;
789          DeleteSyriaCheckBox.Checked := GikoSys.Setting.DeleteSyria;          DeleteSyriaCheckBox.Checked := GikoSys.Setting.DeleteSyria;
790    
         // エディタ  
         SpaceToNBSPCheckBox.Checked     := GikoSys.Setting.SpaceToNBSP;  
         AmpToCharRefCheckBox.Checked    := GikoSys.Setting.AmpToCharRef;  
   
791  end;  end;
792    
793  procedure TOptionDialog.SaveSetting;  procedure TOptionDialog.SaveSetting;
# Line 1023  begin Line 1015  begin
1015          GikoSys.Setting.ShowNGLinesNum := ShowNGLineCheckBox.Checked;          GikoSys.Setting.ShowNGLinesNum := ShowNGLineCheckBox.Checked;
1016          GikoSys.Setting.AddResAnchor := AddResAnchorCheckBox.Checked;          GikoSys.Setting.AddResAnchor := AddResAnchorCheckBox.Checked;
1017                  GikoSys.Setting.DeleteSyria := DeleteSyriaCheckBox.Checked;                  GikoSys.Setting.DeleteSyria := DeleteSyriaCheckBox.Checked;
   
         // エディタ  
         GikoSys.Setting.SpaceToNBSP             := SpaceToNBSPCheckBox.Checked;  
         GikoSys.Setting.AmpToCharRef    := AmpToCharRefCheckBox.Checked;  
1018  end;  end;
1019    
1020  procedure TOptionDialog.SettingApply;  procedure TOptionDialog.SettingApply;

Legend:
Removed from v.1.39  
changed lines
  Added in v.1.40

Back to OSDN">Back to OSDN
ViewVC Help
Powered by ViewVC 1.1.26