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

IDE: formatting

Browse Source 
git-svn-id: trunk@35774 -
This commit is contained in:
juha 2012-03-06 16:20:32 +00:00
parent b644d7d6d8
commit dfc80e1895
1 changed files with 9 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
ide/sourceeditor.pp
View File

@ -6821,8 +6821,7 @@ begin
Result:=FSourceEditorList.Count;
end;
function TSourceNotebook.IndexOfEditor(aEditor: TSourceEditorInterface
): integer;
function TSourceNotebook.IndexOfEditor(aEditor: TSourceEditorInterface): integer;
begin
Result := FSourceEditorList.IndexOf(aEditor);
end;
@ -7786,8 +7785,7 @@ begin
Result := TSourceEditorWindowInterface(FSourceWindowByFocusList[Index]);
end;
procedure TSourceEditorManagerBase.SetActiveSourceWindowIndex(
const AValue: integer);
procedure TSourceEditorManagerBase.SetActiveSourceWindowIndex(const AValue: integer);
begin
ActiveSourceWindow := SourceWindows[AValue];
end;
@ -7808,7 +7806,6 @@ begin
FSourceWindowByFocusList.Remove(AValue);
FSourceWindowByFocusList.Insert(0, AValue);
if Assigned(OnCurrentCodeBufferChanged) then
OnCurrentCodeBufferChanged(nil);
FChangeNotifyLists[semWindowActivate].CallNotifyEvents(FActiveWindow);
@ -7870,8 +7867,7 @@ begin
FChangeNotifyLists[semEditorStatus].CallNotifyEvents(AEditor);
end;
function TSourceEditorManagerBase.GetSourceEditors(Index: integer
): TSourceEditorInterface;
function TSourceEditorManagerBase.GetSourceEditors(Index: integer): TSourceEditorInterface;
var
i: Integer;
begin
@ -7974,8 +7970,7 @@ begin
end;
end;
function TSourceEditorManagerBase.GetEditorControlSettings(EditControl: TControl
): boolean;
function TSourceEditorManagerBase.GetEditorControlSettings(EditControl: TControl): boolean;
begin
Result:=true;
if EditControl is TSynEdit then begin
@ -7986,8 +7981,7 @@ begin
end;
end;
function TSourceEditorManagerBase.GetHighlighterSettings(Highlighter: TObject
): boolean;
function TSourceEditorManagerBase.GetHighlighterSettings(Highlighter: TObject): boolean;
begin
Result:=true;
if Highlighter is TSynCustomHighlighter then begin
@ -8424,14 +8418,12 @@ begin
Result := TSourceEditor(inherited SourceEditors[Index]);
end;
procedure TSourceEditorManager.SetActiveSourceNotebook(
const AValue: TSourceNotebook);
procedure TSourceEditorManager.SetActiveSourceNotebook(const AValue: TSourceNotebook);
begin
inherited ActiveSourceWindow := AValue;
end;
function TSourceEditorManager.GetSourceNotebook(Index: integer
): TSourceNotebook;
function TSourceEditorManager.GetSourceNotebook(Index: integer): TSourceNotebook;
begin
Result := TSourceNotebook(inherited SourceWindows[Index]);
end;
@ -8483,9 +8475,8 @@ begin
AForm.Name:=aFormName;
end;
procedure TSourceEditorManager.GetDefaultLayout(Sender: TObject;
aFormName: string; out aBounds: TRect; out DockSibling: string; out
DockAlign: TAlign);
procedure TSourceEditorManager.GetDefaultLayout(Sender: TObject; aFormName: string;
out aBounds: TRect; out DockSibling: string; out DockAlign: TAlign);
var
i: LongInt;
p: Integer;