mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-04-06 08:37:56 +02:00
49 lines
1.1 KiB
ObjectPascal
49 lines
1.1 KiB
ObjectPascal
unit SourceSynWrap;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
interface
|
|
|
|
uses SynEditWrappedView, SynEditViewedLineMap, SynEdit, LazSynEditText, SynEditFoldedView, Classes;
|
|
|
|
type
|
|
|
|
{ TLazSynSourceEditLineWrapPlugin }
|
|
|
|
TLazSynSourceEditLineWrapPlugin = class(TLazSynEditLineWrapPlugin)
|
|
public
|
|
constructor Create(AnOwner: TComponent); override;
|
|
end;
|
|
|
|
implementation
|
|
|
|
{ TLazSynSourceEditLineWrapPlugin }
|
|
|
|
constructor TLazSynSourceEditLineWrapPlugin.Create(AnOwner: TComponent);
|
|
var
|
|
Syn: TSynEdit absolute AnOwner;
|
|
Fld: TSynEditStringsLinked;
|
|
ALineMapView: TSynEditLineMappingView;
|
|
FldIdx: Integer;
|
|
begin
|
|
Fld := Syn.TextViewsManager.SynTextViewByClass[TSynEditFoldedView];
|
|
|
|
ALineMapView := TSynEditLineMappingView(Syn.TextViewsManager.SynTextViewByClass[TSynEditLineMappingView]);
|
|
if ALineMapView = nil then
|
|
ALineMapView := TSynEditLineMappingView.Create
|
|
else
|
|
Syn.TextViewsManager.RemoveSynTextView(ALineMapView);
|
|
|
|
if Fld <> nil then
|
|
FldIdx := Syn.TextViewsManager.IndexOf(Fld)
|
|
else
|
|
FldIdx := Syn.TextViewsManager.Count;
|
|
|
|
Syn.TextViewsManager.AddTextView(ALineMapView, FldIdx);
|
|
|
|
inherited Create(AnOwner);
|
|
end;
|
|
|
|
end.
|
|
|