paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 05:39:24 +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
SetOption(AltSetsColumnModeCheckBox,eoAltSetsColumnMode);
SetOption(AutoIndentCheckBox,eoAutoIndent);
SetOption(BracketHighlightCheckBox,eoBracketHighlight);
//SetOption(BracketHighlightCheckBox,eoBracketHighlight);
SetOption(DragDropEditingCheckBox,eoDragDropEditing);
SetOption(DropFilesCheckBox,eoDropFiles);
SetOption(HalfPageScrollCheckBox,eoHalfPageScroll);
SetOption(KeepCaretXCheckBox,eoKeepCaretX);
SetOption(NoCaretCheckBox,eoNoCaret);
SetOption(NoSelectionCheckBox,eoNoSelection);
//SetOption(NoCaretCheckBox,eoNoCaret);
//SetOption(NoSelectionCheckBox,eoNoSelection);
SetOption(ScrollByOneLessCheckBox,eoScrollByOneLess);
SetOption(ScrollPastEoFCheckBox,eoScrollPastEoF);
SetOption(ScrollPastEoLCheckBox,eoScrollPastEoL);
@ -4250,11 +4250,28 @@ end;
procedure TEditorOptionsForm.OkButtonClick(Sender:TObject);
var res: TModalResult;
SynOptions: TSynEditorOptions;
begin
SaveCurCodeTemplate;
// 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]);
PreviewEdits[1].Options:=SynOptions-[eoBracketHighlight]
+[eoNoCaret,eoNoSelection];
// general
EditorOpts.UndoAfterSave:=UndoAfterSaveCheckBox.Checked;

5
ide/main.pp
View File

@ -1449,6 +1449,8 @@ begin
itmProjectBuildAll.OnClick := @mnuBuildAllProjectClicked;
mnuRun.Add(itmProjectBuildAll);
mnuRun.Add(CreateSeperator);
itmProjectRun := TMenuItem.Create(Self);
itmProjectRun.Name:='itmProjectRun';
itmProjectRun.Caption := 'Run';
@ -6000,6 +6002,9 @@ end.
{ =============================================================================
$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
Implented TMenuItem.ShortCut (not much tested).