paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-11 09:58:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: clean up

Browse Source 
git-svn-id: trunk@42094 -
This commit is contained in:
mattias 2013-07-15 20:06:27 +00:00
parent 5c1d17ee94
commit 032f86f34a
4 changed files with 21 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
ide/editoroptions.pp
View File

@ -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

4
ide/keymapping.pp
View File

@ -3848,8 +3848,8 @@ begin
end; end;
initialization initialization
RegisterKeyCmdIdentProcs({$IFDEF FPC}@{$ENDIF}IdentToIDECommand, RegisterKeyCmdIdentProcs(@IdentToIDECommand,
{$IFDEF FPC}@{$ENDIF}IDECommandToIdent); @IDECommandToIdent);
end. end.

4
ide/sourceeditor.pp
View File

@ -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;

18
ide/sourcesyneditor.pas
View File

@ -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.