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

Docked-form-designer: fix access after free / use SrcEditIntf events instead of hacking into IDE hooks. Should fix issue #39741

Browse Source
This commit is contained in:
Martin 2025-04-22 20:08:49 +02:00
parent 55dcbec511
commit e037015ad6
2 changed files with 6 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/dockedformeditor/source/dockedmainide.pas
View File

@ -423,6 +423,7 @@ var
LPageCtrl: TSourcePageControl;
LSourceWindowIntf: TSourceEditorWindowInterface;
LDesignForm: TDesignForm;
w: TSourceWindow;
begin
if Sender is TSourceEditorInterface then
begin
@ -494,6 +495,10 @@ begin
LDesignForm.HideWindow;
LPageCtrl.InitPage;
end;
w := SourceWindows.SourceWindow[LSourceWindowIntf];
if w <> nil then
w.NoteBookPageChanged(nil);
end else begin
{$IFDEF DEBUGDOCKEDFORMEDITOR} DebugLn('TDockedMainIDE.EditorActivated [' + DbgSName(Sender) + '] - not a Source Editor!');{$ENDIF}
end;

24
components/dockedformeditor/source/dockedsourcewindow.pas
View File

@ -42,15 +42,12 @@ type
TSourceWindow = class
private
FActiveDesignForm: TDesignForm;
FDefaultNotebookPageChanged: TNotifyEvent;
FLastActiveSourceEditor: TSourceEditorInterface;
FLastTopParent: TControl;
FNotebook: TExtendedNotebook;
FPageControlList: TSourcePageControls;
FSourceWindowIntf: TSourceEditorWindowInterface;
function GetActiveEditor: TSourceEditorInterface;
procedure HookIntoOnPageChanged;
procedure NoteBookPageChanged(Sender: TObject);
procedure SetActiveDesignForm(const AValue: TDesignForm);
procedure UpdateEditorPageCaption(Sender: TObject);
public
@ -58,6 +55,7 @@ type
destructor Destroy; override;
procedure AddPageCtrl(APageControl: TSourcePageControl);
procedure AdjustPageControl;
procedure NoteBookPageChanged(Sender: TObject);
function FindPageControl(ASourceEditor: TSourceEditorInterface): TSourcePageControl;
procedure RemoveActiveDesignForm;
procedure RemovePageCtrl(ASourceEditor: TSourceEditorInterface);
@ -109,27 +107,11 @@ implementation
{ TSourceWindow }
procedure TSourceWindow.HookIntoOnPageChanged;
var
i: Integer;
begin
for i := 0 to FSourceWindowIntf.ControlCount - 1 do
if FSourceWindowIntf.Controls[i] is TExtendedNotebook then
begin
FNotebook := TExtendedNotebook(FSourceWindowIntf.Controls[i]);
Break;
end;
if not Assigned(FNotebook) then Exit;
FDefaultNotebookPageChanged := FNotebook.OnChange;
FNotebook.OnChange := @NoteBookPageChanged;
end;
procedure TSourceWindow.NoteBookPageChanged(Sender: TObject);
var
LPageCtrl: TSourcePageControl;
begin
{$IFDEF DEBUGDOCKEDFORMEDITOR} DebugLn('TSourceWindow.NoteBookPageChanged SourceWindow[' + FSourceWindowIntf.Caption + ']'); {$ENDIF}
FDefaultNotebookPageChanged(Sender);
LPageCtrl := FindPageControl(ActiveEditor);
if not Assigned(LPageCtrl) then Exit;
if LPageCtrl.DesignerPageActive then
@ -193,15 +175,11 @@ begin
FLastActiveSourceEditor := nil;
FSourceWindowIntf := ASourceWindowIntf;
FPageControlList := TSourcePageControls.Create;
FNotebook := nil;
HookIntoOnPageChanged;
FSourceWindowIntf.AddUpdateEditorPageCaptionHandler(@UpdateEditorPageCaption);
end;
destructor TSourceWindow.Destroy;
begin
if Assigned(FNotebook) then
FNotebook.OnChange := FDefaultNotebookPageChanged;
FPageControlList.Free;
inherited Destroy;
end;