paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-14 18:12:41 +02:00
Code Issues Packages Projects Releases Wiki Activity

EditorOptions: removed key-actions from preview / ensure folded block stays folded

Browse Source 
git-svn-id: trunk@21181 -
This commit is contained in:
martin 2009-08-11 23:55:33 +00:00
parent 389bc62b33
commit fab0df10cf
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
ide/frames/editor_color_options.pas
View File

@ -572,6 +572,7 @@ begin
GetCurColorScheme(PreviewSyn.LanguageName));
SetComboBoxText(FileExtensionsComboBox,
GetCurFileExtensions(PreviewSyn.LanguageName));
SetPreviewSynInAllPreviews;
with GeneralPage do
for a := Low(PreviewEdits) to High(PreviewEdits) do
begin
@ -579,12 +580,15 @@ begin
PreviewEdits[a].CaretXY := EditorOpts.HighlighterList[CurLanguageID].CaretXY;
PreviewEdits[a].TopLine := 1;
PreviewEdits[a].LeftChar := 1;
PreviewEdits[a].AfterLoadFromFile;
PreviewEdits[a].Keystrokes.Clear;
PreviewEdits[a].MouseActions.Clear;
end;
SetPreviewSynInAllPreviews;
InvalidatePreviews;
with GeneralPage do
for a := Low(PreviewEdits) to High(PreviewEdits) do
PreviewEdits[a].AfterLoadFromFile;
FillColorElementListBox;
FindCurHighlightElement;
InvalidatePreviews;
end;
end;
end
@ -1116,6 +1120,8 @@ begin
TopLine := 1;
LeftChar := 1;
AfterLoadFromFile;
Keystrokes.Clear;
MouseActions.Clear;
end;
LanguageComboBox.Text := PreviewSyn.LanguageName;