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

IDE: Build in FpDoc edit, add word wrap / amend some SynEdit opts

Browse Source 
git-svn-id: trunk@63296 -
This commit is contained in:
martin 2020-06-05 00:13:02 +00:00
parent 30c89b1f2f
commit 56b4fca0a9
2 changed files with 780 additions and 755 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
ide/fpdoceditwindow.lfm
View File

@ -12,7 +12,7 @@ object FPDocEditor: TFPDocEditor
OnDestroy = FormDestroy
OnKeyDown = FormKeyDown
OnShow = FormShow
LCLVersion = '1.9.0.0'
LCLVersion = '2.1.0.0'
object PageControl: TPageControl
Left = 32
Height = 326
@ -727,6 +727,9 @@ object FPDocEditor: TFPDocEditor
Lines.Strings = (
'DescrSynEdit'
)
Options = [eoAutoIndent, eoBracketHighlight, eoGroupUndo, eoHideRightMargin, eoKeepCaretX, eoTabsToSpaces, eoTrimTrailingSpaces, eoDragDropEditing, eoDoubleClickSelectsLine]
Options2 = [eoCaretSkipTab, eoOverwriteBlock]
MouseOptions = [emDragDropEditing, emDoubleClickSelectsLine]
VisibleSpecialChars = [vscSpace, vscTabAtLast]
ScrollBars = ssAutoBoth
SelectedColor.BackPriority = 50
@ -1351,6 +1354,9 @@ object FPDocEditor: TFPDocEditor
Lines.Strings = (
'ErrorsSynEdit'
)
Options = [eoAutoIndent, eoBracketHighlight, eoGroupUndo, eoHideRightMargin, eoKeepCaretX, eoTabsToSpaces, eoTrimTrailingSpaces, eoDragDropEditing, eoDoubleClickSelectsLine]
Options2 = [eoCaretSkipTab, eoOverwriteBlock]
MouseOptions = [emDragDropEditing, emDoubleClickSelectsLine]
VisibleSpecialChars = [vscSpace, vscTabAtLast]
ScrollBars = ssAutoBoth
SelectedColor.BackPriority = 50
@ -1943,6 +1949,9 @@ object FPDocEditor: TFPDocEditor
Lines.Strings = (
'SeeAlsoSynEdit'
)
Options = [eoAutoIndent, eoBracketHighlight, eoGroupUndo, eoHideRightMargin, eoKeepCaretX, eoTabsToSpaces, eoTrimTrailingSpaces, eoDragDropEditing, eoDoubleClickSelectsLine]
Options2 = [eoCaretSkipTab, eoOverwriteBlock]
MouseOptions = [emDragDropEditing, emDoubleClickSelectsLine]
VisibleSpecialChars = [vscSpace, vscTabAtLast]
ScrollBars = ssAutoBoth
SelectedColor.BackPriority = 50
@ -2094,7 +2103,6 @@ object FPDocEditor: TFPDocEditor
OnEnter = TopicControlEnter
ScrollWidth = 168
TabOrder = 1
TopIndex = -1
end
end
object Panel3: TPanel
@ -2647,6 +2655,9 @@ object FPDocEditor: TFPDocEditor
ClickDir = cdDown
Command = emcStartDragMove
end>
Options = [eoAutoIndent, eoBracketHighlight, eoGroupUndo, eoHideRightMargin, eoKeepCaretX, eoTabsToSpaces, eoTrimTrailingSpaces, eoDragDropEditing, eoDoubleClickSelectsLine]
Options2 = [eoCaretSkipTab, eoOverwriteBlock]
MouseOptions = [emDragDropEditing, emDoubleClickSelectsLine]
VisibleSpecialChars = [vscSpace, vscTabAtLast]
SelectedColor.BackPriority = 50
SelectedColor.ForePriority = 50

16
ide/fpdoceditwindow.pas
View File

@ -38,7 +38,7 @@ uses
LResources, StdCtrls, Buttons, ComCtrls, Controls, Dialogs,
ExtCtrls, Forms, Graphics, LCLType, LCLProc,
// Synedit
SynEdit, SynHighlighterXML,
SynEdit, SynHighlighterXML, SynEditFoldedView, SynEditWrappedView,
// codetools
FileProcs, CodeCache, CodeToolManager, CTXMLFixFragment,
// IDEIntf
@ -248,6 +248,15 @@ begin
end;
procedure TFPDocEditor.FormCreate(Sender: TObject);
procedure UpdateSynEdit(ASynEd: TSynEdit);
var
fld: TSynEditFoldedView;
begin
fld := TSynEditFoldedView(ASynEd.TextViewsManager.SynTextViewByClass[TSynEditFoldedView]);
if fld <> nil then
fld.FoldProvider.Enabled := False;
TLazSynEditLineWrapPlugin.Create(ASynEd);
end;
begin
Caption := lisCodeHelpMainFormCaption;
@ -307,6 +316,11 @@ begin
SourceEditorManagerIntf.RegisterChangeEvent(semEditorStatus, @DoEditorUpdate);
SourceEditorManagerIntf.RegisterChangeEvent(semEditorMouseUp, @DoEditorMouseUp);
UpdateSynEdit(TopicDescrSynEdit);
UpdateSynEdit(DescrSynEdit);
UpdateSynEdit(ErrorsSynEdit);
UpdateSynEdit(SeeAlsoSynEdit);
FollowCursor:=true;
IdleConnected:=true;
end;