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

IdeIntf: Remove a useless HandlerType parameter from DoCallShowDesignerFormOfSourceHandler. Flag lihtShowDesignerFormOfSource is used always.

Browse Source 
git-svn-id: trunk@62078 -
This commit is contained in:
juha 2019-10-18 21:49:21 +00:00
parent a384c1ed14
commit 1440ad1a1e
2 changed files with 6 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
components/ideintf/lazideintf.pas
View File

@ -302,10 +302,8 @@ type
var Handled: boolean): TModalResult;
procedure DoCallNotifyHandler(HandlerType: TLazarusIDEHandlerType;
Sender: TObject); overload;
procedure DoCallShowDesignerFormOfSourceHandler(
HandlerType: TLazarusIDEHandlerType;
Sender: TObject; AEditor: TSourceEditorInterface;
AComponentPaletteClassSelected: Boolean);
procedure DoCallShowDesignerFormOfSourceHandler(Sender: TObject;
AEditor: TSourceEditorInterface; AComponentPaletteClassSelected: Boolean);
procedure DoCallBuildingFinishedHandler(HandlerType: TLazarusIDEHandlerType;
Sender: TObject; BuildSuccessful: Boolean);
@ -719,14 +717,13 @@ begin
FLazarusIDEHandlers[HandlerType].CallNotifyEvents(Sender);
end;
procedure TLazIDEInterface.DoCallShowDesignerFormOfSourceHandler(
HandlerType: TLazarusIDEHandlerType; Sender: TObject;
procedure TLazIDEInterface.DoCallShowDesignerFormOfSourceHandler(Sender: TObject;
AEditor: TSourceEditorInterface; AComponentPaletteClassSelected: Boolean);
var
i: Integer;
Handler: TMethodList;
begin
Handler:=FLazarusIDEHandlers[HandlerType];
Handler:=FLazarusIDEHandlers[lihtShowDesignerFormOfSource];
i := Handler.Count;
while Handler.NextDownIndex(i) do
TShowDesignerFormOfSourceFunction(Handler[i])(Sender, AEditor,

5
ide/main.pp
View File

@ -5377,8 +5377,7 @@ begin
begin
// previous active form was designer form
ShowDesignerForm(Screen.CustomFormsZOrdered[1]);
DoCallShowDesignerFormOfSourceHandler(lihtShowDesignerFormOfSource,
Screen.CustomFormsZOrdered[1], nil, True);
DoCallShowDesignerFormOfSourceHandler(Screen.CustomFormsZOrdered[1], nil, True);
end else
DoShowDesignerFormOfCurrentSrc(True);
end;
@ -8988,7 +8987,7 @@ var
begin
DoShowDesignerFormOfSrc(SourceEditorManager.ActiveEditor, LForm);
if LForm <> nil then
DoCallShowDesignerFormOfSourceHandler(lihtShowDesignerFormOfSource, LForm, SourceEditorManager.ActiveEditor, AComponentPaletteClassSelected);
DoCallShowDesignerFormOfSourceHandler(LForm, SourceEditorManager.ActiveEditor, AComponentPaletteClassSelected);
end;
procedure TMainIDE.DoShowDesignerFormOfSrc(AEditor: TSourceEditorInterface);