paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-20 14:19:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

MG: fixed editor opts general flags

Browse Source 
git-svn-id: trunk@1448 -
This commit is contained in:
lazarus 2002-02-20 16:01:43 +00:00
parent 832fde69c3
commit fe40fb8aee
2 changed files with 25 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
ide/editoroptions.pp
View File

@ -1963,13 +1963,13 @@ begin
// general // general
SetOption(AltSetsColumnModeCheckBox,eoAltSetsColumnMode); SetOption(AltSetsColumnModeCheckBox,eoAltSetsColumnMode);
SetOption(AutoIndentCheckBox,eoAutoIndent); SetOption(AutoIndentCheckBox,eoAutoIndent);
SetOption(BracketHighlightCheckBox,eoBracketHighlight); //SetOption(BracketHighlightCheckBox,eoBracketHighlight);
SetOption(DragDropEditingCheckBox,eoDragDropEditing); SetOption(DragDropEditingCheckBox,eoDragDropEditing);
SetOption(DropFilesCheckBox,eoDropFiles); SetOption(DropFilesCheckBox,eoDropFiles);
SetOption(HalfPageScrollCheckBox,eoHalfPageScroll); SetOption(HalfPageScrollCheckBox,eoHalfPageScroll);
SetOption(KeepCaretXCheckBox,eoKeepCaretX); SetOption(KeepCaretXCheckBox,eoKeepCaretX);
SetOption(NoCaretCheckBox,eoNoCaret); //SetOption(NoCaretCheckBox,eoNoCaret);
SetOption(NoSelectionCheckBox,eoNoSelection); //SetOption(NoSelectionCheckBox,eoNoSelection);
SetOption(ScrollByOneLessCheckBox,eoScrollByOneLess); SetOption(ScrollByOneLessCheckBox,eoScrollByOneLess);
SetOption(ScrollPastEoFCheckBox,eoScrollPastEoF); SetOption(ScrollPastEoFCheckBox,eoScrollPastEoF);
SetOption(ScrollPastEoLCheckBox,eoScrollPastEoL); SetOption(ScrollPastEoLCheckBox,eoScrollPastEoL);
@ -4250,11 +4250,28 @@ end;
procedure TEditorOptionsForm.OkButtonClick(Sender:TObject); procedure TEditorOptionsForm.OkButtonClick(Sender:TObject);
var res: TModalResult; var res: TModalResult;
SynOptions: TSynEditorOptions;
begin begin
SaveCurCodeTemplate; SaveCurCodeTemplate;
// save all values // save all values
SynOptions:=PreviewEdits[1].Options;
if BracketHighlightCheckBox.Checked then
Include(SynOptions,eoBracketHighlight)
else
Exclude(SynOptions,eoBracketHighlight);
if NoCaretCheckBox.Checked then
Include(SynOptions,eoNoCaret)
else
Exclude(SynOptions,eoNoCaret);
if NoSelectionCheckBox.Checked then
Include(SynOptions,eoNoSelection)
else
Exclude(SynOptions,eoNoSelection);
PreviewEdits[1].Options:=SynOptions;
EditorOpts.SetSynEditSettings(PreviewEdits[1]); EditorOpts.SetSynEditSettings(PreviewEdits[1]);
PreviewEdits[1].Options:=SynOptions-[eoBracketHighlight]
+[eoNoCaret,eoNoSelection];
// general // general
EditorOpts.UndoAfterSave:=UndoAfterSaveCheckBox.Checked; EditorOpts.UndoAfterSave:=UndoAfterSaveCheckBox.Checked;

5
ide/main.pp
View File

@ -1449,6 +1449,8 @@ begin
itmProjectBuildAll.OnClick := @mnuBuildAllProjectClicked; itmProjectBuildAll.OnClick := @mnuBuildAllProjectClicked;
mnuRun.Add(itmProjectBuildAll); mnuRun.Add(itmProjectBuildAll);
mnuRun.Add(CreateSeperator);
itmProjectRun := TMenuItem.Create(Self); itmProjectRun := TMenuItem.Create(Self);
itmProjectRun.Name:='itmProjectRun'; itmProjectRun.Name:='itmProjectRun';
itmProjectRun.Caption := 'Run'; itmProjectRun.Caption := 'Run';
@ -6000,6 +6002,9 @@ end.
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.226 2002/02/20 16:01:43 lazarus
MG: fixed editor opts general flags
Revision 1.225 2002/02/18 22:46:10 lazarus Revision 1.225 2002/02/18 22:46:10 lazarus
Implented TMenuItem.ShortCut (not much tested). Implented TMenuItem.ShortCut (not much tested).