paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-10 16:56:03 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: using only one copy of editoropts

Browse Source 
git-svn-id: trunk@22174 -
This commit is contained in:
mattias 2009-10-14 14:40:20 +00:00
parent d1d342eb3c
commit b336463cc3
4 changed files with 19 additions and 27 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/codetools/laz_xmlcfg.pas
View File

@ -100,15 +100,18 @@ uses SysUtils;
constructor TXMLConfig.Create(const AFilename: String);
begin
//DebugLn(['TXMLConfig.Create ',AFilename]);
inherited Create(nil);
SetFilename(AFilename);
end;
constructor TXMLConfig.CreateClean(const AFilename: String);
begin
//DebugLn(['TXMLConfig.CreateClean ',AFilename]);
inherited Create(nil);
fDoNotLoad:=true;
SetFilename(AFilename);
FModified:=FileExistsCached(AFilename);
end;
destructor TXMLConfig.Destroy;

3
components/education/eduenvoptsframe.pas
View File

@ -93,14 +93,11 @@ end;
procedure TEduEnvFrame.ReadSettings(AOptions: TAbstractIDEOptions);
begin
debugln(['TEduEnvFrame.ReadSettings ',EduGeneralOptions.Enabled]);
EnableCheckBox.Checked:=EduGeneralOptions.Enabled;
DebugLn(['TEduEnvFrame.ReadSettings ',EnableCheckBox.Checked,' ',EduGeneralOptions.Enabled]);
end;
procedure TEduEnvFrame.WriteSettings(AOptions: TAbstractIDEOptions);
begin
debugln(['TEduEnvFrame.WriteSettings ',EnableCheckBox.Checked]);
EduGeneralOptions.Enabled:=EnableCheckBox.Checked;
if EducationOptions.Save<>mrOk then
DebugLn(['TEduEnvFrame.WriteSettings Failed']);

20
ide/frames/codetools_linesplitting_options.pas
View File

@ -89,18 +89,14 @@ procedure TCodetoolsLineSplittingOptionsFrame.UpdatePreviewSettings;
var
Options: TEditorOptions;
begin
Options := TEditorOptions.Create;
try
if Assigned(OnSaveIDEOptions) then
OnSaveIDEOptions(Self, Options);
SplitPreviewSynEdit.Highlighter := GetHighlighter(Options);
Options.GetSynEditPreviewSettings(SplitPreviewSynEdit);
SplitPreviewSynEdit.Gutter.Visible := False;
SplitPreviewSynEdit.Options := SplitPreviewSynEdit.Options + [eoNoCaret, eoNoSelection];
SplitPreviewSynEdit.ReadOnly := True;
finally
Options.Free;
end;
Options := EditorOpts;
if Assigned(OnSaveIDEOptions) then
OnSaveIDEOptions(Self, Options);
SplitPreviewSynEdit.Highlighter := GetHighlighter(Options);
Options.GetSynEditPreviewSettings(SplitPreviewSynEdit);
SplitPreviewSynEdit.Gutter.Visible := False;
SplitPreviewSynEdit.Options := SplitPreviewSynEdit.Options + [eoNoCaret, eoNoSelection];
SplitPreviewSynEdit.ReadOnly := True;
end;
procedure TCodetoolsLineSplittingOptionsFrame.WriteBeautifyCodeOptions(Options: TBeautifyCodeOptions);

20
ide/frames/codetools_space_options.pas
View File

@ -93,18 +93,14 @@ procedure TCodetoolsSpaceOptionsFrame.UpdatePreviewSettings;
var
Options: TEditorOptions;
begin
Options := TEditorOptions.Create;
try
if Assigned(OnSaveIDEOptions) then
OnSaveIDEOptions(Self, Options);
SpacePreviewSynEdit.Highlighter := GetHighlighter(Options);
Options.GetSynEditPreviewSettings(SpacePreviewSynEdit);
SpacePreviewSynEdit.Gutter.Visible := False;
SpacePreviewSynEdit.Options := SpacePreviewSynEdit.Options + [eoNoCaret, eoNoSelection];
SpacePreviewSynEdit.ReadOnly := True;
finally
Options.Free;
end;
Options := EditorOpts;
if Assigned(OnSaveIDEOptions) then
OnSaveIDEOptions(Self, Options);
SpacePreviewSynEdit.Highlighter := GetHighlighter(Options);
Options.GetSynEditPreviewSettings(SpacePreviewSynEdit);
SpacePreviewSynEdit.Gutter.Visible := False;
SpacePreviewSynEdit.Options := SpacePreviewSynEdit.Options + [eoNoCaret, eoNoSelection];
SpacePreviewSynEdit.ReadOnly := True;
end;
procedure TCodetoolsSpaceOptionsFrame.WriteBeautifyCodeOptions(