mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-06-11 09:58:17 +02:00
IDE: clean up
git-svn-id: trunk@42094 -
This commit is contained in:
parent
5c1d17ee94
commit
032f86f34a
@ -404,8 +404,8 @@ const
|
|||||||
TEditorOptionsDividerRecord =
|
TEditorOptionsDividerRecord =
|
||||||
( (Count: 0; Info: nil), // none
|
( (Count: 0; Info: nil), // none
|
||||||
(Count: 0; Info: nil), // text
|
(Count: 0; Info: nil), // text
|
||||||
(Count: 9; Info: {$IFDEF FPC}@{$ENDIF}EditorOptionsDividerInfoPas[0]), // Freepas
|
(Count: 9; Info: @EditorOptionsDividerInfoPas[0]), // Freepas
|
||||||
(Count: 9; Info: {$IFDEF FPC}@{$ENDIF}EditorOptionsDividerInfoPas[0]), // pas
|
(Count: 9; Info: @EditorOptionsDividerInfoPas[0]), // pas
|
||||||
(Count: 0; Info: nil), // lfm
|
(Count: 0; Info: nil), // lfm
|
||||||
(Count: 0; Info: nil), // xml
|
(Count: 0; Info: nil), // xml
|
||||||
(Count: 0; Info: nil), // html
|
(Count: 0; Info: nil), // html
|
||||||
@ -601,11 +601,11 @@ const
|
|||||||
TEditorOptionsFoldRecord =
|
TEditorOptionsFoldRecord =
|
||||||
( (Count: 0; Info: nil), // none
|
( (Count: 0; Info: nil), // none
|
||||||
(Count: 0; Info: nil), // text
|
(Count: 0; Info: nil), // text
|
||||||
(Count: 23; Info: {$IFDEF FPC}@{$ENDIF}EditorOptionsFoldInfoPas[0]), // Freepas
|
(Count: 23; Info: @EditorOptionsFoldInfoPas[0]), // Freepas
|
||||||
(Count: 23; Info: {$IFDEF FPC}@{$ENDIF}EditorOptionsFoldInfoPas[0]), // pas
|
(Count: 23; Info: @EditorOptionsFoldInfoPas[0]), // pas
|
||||||
(Count: 3; Info: {$IFDEF FPC}@{$ENDIF}EditorOptionsFoldInfoLFM[0]), // lfm
|
(Count: 3; Info: @EditorOptionsFoldInfoLFM[0]), // lfm
|
||||||
(Count: 5; Info: {$IFDEF FPC}@{$ENDIF}EditorOptionsFoldInfoXML[0]), // xml
|
(Count: 5; Info: @EditorOptionsFoldInfoXML[0]), // xml
|
||||||
(Count: 3; Info: {$IFDEF FPC}@{$ENDIF}EditorOptionsFoldInfoHTML[0]), // html
|
(Count: 3; Info: @EditorOptionsFoldInfoHTML[0]), // html
|
||||||
(Count: 0; Info: nil), // cpp
|
(Count: 0; Info: nil), // cpp
|
||||||
(Count: 0; Info: nil), // perl
|
(Count: 0; Info: nil), // perl
|
||||||
(Count: 0; Info: nil), // java
|
(Count: 0; Info: nil), // java
|
||||||
@ -614,7 +614,7 @@ const
|
|||||||
(Count: 0; Info: nil), // php
|
(Count: 0; Info: nil), // php
|
||||||
(Count: 0; Info: nil), // sql
|
(Count: 0; Info: nil), // sql
|
||||||
(Count: 0; Info: nil), // jscript
|
(Count: 0; Info: nil), // jscript
|
||||||
(Count: 3; Info: {$IFDEF FPC}@{$ENDIF}EditorOptionsFoldInfoDiff[0]), // Diff
|
(Count: 3; Info: @EditorOptionsFoldInfoDiff[0]), // Diff
|
||||||
(Count: 0; Info: nil), // Bat
|
(Count: 0; Info: nil), // Bat
|
||||||
(Count: 0; Info: nil), // Ini
|
(Count: 0; Info: nil), // Ini
|
||||||
(Count: 0; Info: nil) // PO
|
(Count: 0; Info: nil) // PO
|
||||||
|
@ -3848,8 +3848,8 @@ begin
|
|||||||
end;
|
end;
|
||||||
|
|
||||||
initialization
|
initialization
|
||||||
RegisterKeyCmdIdentProcs({$IFDEF FPC}@{$ENDIF}IdentToIDECommand,
|
RegisterKeyCmdIdentProcs(@IdentToIDECommand,
|
||||||
{$IFDEF FPC}@{$ENDIF}IDECommandToIdent);
|
@IDECommandToIdent);
|
||||||
|
|
||||||
end.
|
end.
|
||||||
|
|
||||||
|
@ -8588,12 +8588,12 @@ constructor TSynEditPlugin1.Create(AOwner: TComponent);
|
|||||||
Begin
|
Begin
|
||||||
inherited Create(AOwner);
|
inherited Create(AOwner);
|
||||||
FEnabled := True;
|
FEnabled := True;
|
||||||
ViewedTextBuffer.AddChangeHandler(senrLineCount, {$IFDEF FPC}@{$ENDIF}LineCountChanged);
|
ViewedTextBuffer.AddChangeHandler(senrLineCount, @LineCountChanged);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
destructor TSynEditPlugin1.Destroy;
|
destructor TSynEditPlugin1.Destroy;
|
||||||
begin
|
begin
|
||||||
ViewedTextBuffer.RemoveChangeHandler(senrLineCount, {$IFDEF FPC}@{$ENDIF}LineCountChanged);
|
ViewedTextBuffer.RemoveChangeHandler(senrLineCount, @LineCountChanged);
|
||||||
inherited Destroy;
|
inherited Destroy;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
@ -1584,7 +1584,7 @@ begin
|
|||||||
TSynEditMarkupManager(MarkupMgr).AddMarkUp(FMarkupIfDef);
|
TSynEditMarkupManager(MarkupMgr).AddMarkUp(FMarkupIfDef);
|
||||||
|
|
||||||
FPaintArea := TSourceLazSynSurfaceManager.Create(Self, FPaintArea);
|
FPaintArea := TSourceLazSynSurfaceManager.Create(Self, FPaintArea);
|
||||||
GetCaretObj.AddChangeHandler({$IFDEF FPC}@{$ENDIF}SrcSynCaretChanged);
|
GetCaretObj.AddChangeHandler(@SrcSynCaretChanged);
|
||||||
|
|
||||||
FTopInfoDisplay := TSourceLazSynTopInfoView.Create;
|
FTopInfoDisplay := TSourceLazSynTopInfoView.Create;
|
||||||
FTopInfoDisplay.NextView := ViewedTextBuffer.DisplayView;
|
FTopInfoDisplay.NextView := ViewedTextBuffer.DisplayView;
|
||||||
@ -1752,9 +1752,9 @@ procedure TIDESynGutterLOvProviderPascal.BufferChanged(Sender: TObject);
|
|||||||
begin
|
begin
|
||||||
TSynEditStringList(Sender).RemoveHanlders(self);
|
TSynEditStringList(Sender).RemoveHanlders(self);
|
||||||
TSynEditStringList(TextBuffer).AddGenericHandler(senrHighlightChanged,
|
TSynEditStringList(TextBuffer).AddGenericHandler(senrHighlightChanged,
|
||||||
TMethod({$IFDEF FPC}@{$ENDIF}HighlightChanged));
|
TMethod(@HighlightChanged));
|
||||||
TSynEditStringList(TextBuffer).AddGenericHandler(senrTextBufferChanged,
|
TSynEditStringList(TextBuffer).AddGenericHandler(senrTextBufferChanged,
|
||||||
TMethod({$IFDEF FPC}@{$ENDIF}BufferChanged));
|
TMethod(@BufferChanged));
|
||||||
//LineCountChanged(nil, 0, 0);
|
//LineCountChanged(nil, 0, 0);
|
||||||
HighlightChanged(nil,-1,-1);
|
HighlightChanged(nil,-1,-1);
|
||||||
end;
|
end;
|
||||||
@ -1932,9 +1932,9 @@ begin
|
|||||||
Color := $D4D4D4;
|
Color := $D4D4D4;
|
||||||
Color2 := $E8E8E8;
|
Color2 := $E8E8E8;
|
||||||
TSynEditStringList(TextBuffer).AddGenericHandler(senrHighlightChanged,
|
TSynEditStringList(TextBuffer).AddGenericHandler(senrHighlightChanged,
|
||||||
TMethod({$IFDEF FPC}@{$ENDIF}HighlightChanged));
|
TMethod(@HighlightChanged));
|
||||||
TSynEditStringList(TextBuffer).AddGenericHandler(senrTextBufferChanged,
|
TSynEditStringList(TextBuffer).AddGenericHandler(senrTextBufferChanged,
|
||||||
TMethod({$IFDEF FPC}@{$ENDIF}BufferChanged));
|
TMethod(@BufferChanged));
|
||||||
end;
|
end;
|
||||||
|
|
||||||
destructor TIDESynGutterLOvProviderPascal.Destroy;
|
destructor TIDESynGutterLOvProviderPascal.Destroy;
|
||||||
@ -2434,13 +2434,13 @@ begin
|
|||||||
AddPopUpItem(cLineCaption);
|
AddPopUpItem(cLineCaption);
|
||||||
|
|
||||||
If HasFolds then
|
If HasFolds then
|
||||||
AddPopUpItem(synfUnfoldAllInSelection).OnClick := {$IFDEF FPC}@{$ENDIF}PopClickedUnfoldAll;
|
AddPopUpItem(synfUnfoldAllInSelection).OnClick := @PopClickedUnfoldAll;
|
||||||
If HasCollapsedComments then
|
If HasCollapsedComments then
|
||||||
AddPopUpItem(synfUnfoldCommentsInSelection).OnClick := {$IFDEF FPC}@{$ENDIF}PopClickedUnfoldComment;
|
AddPopUpItem(synfUnfoldCommentsInSelection).OnClick := @PopClickedUnfoldComment;
|
||||||
If HasFoldableComments then
|
If HasFoldableComments then
|
||||||
AddPopUpItem(synfFoldCommentsInSelection).OnClick := {$IFDEF FPC}@{$ENDIF}PopClickedFoldComment;
|
AddPopUpItem(synfFoldCommentsInSelection).OnClick := @PopClickedFoldComment;
|
||||||
If HasHideableComments then
|
If HasHideableComments then
|
||||||
AddPopUpItem(synfHideCommentsInSelection).OnClick := {$IFDEF FPC}@{$ENDIF}PopClickedHideComment;
|
AddPopUpItem(synfHideCommentsInSelection).OnClick := @PopClickedHideComment;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
end.
|
end.
|
||||||
|
Loading…
Reference in New Issue
Block a user