Changeset 58 for branches/ByteArray/Forms/FormDisassembler.pas

Timestamp:

Nov 23, 2023, 11:18:42 PM (6 months ago)

Author:

chronos

Message:

• Modified: Source editor with main menu can't be docked into another form with main menu. Source enditor and Screen have own main menu.

File:

• branches/ByteArray/Forms/FormDisassembler.pas (modified) (3 diffs)

branches/ByteArray/Forms/FormDisassembler.pas

@@ -12 +12 @@
   TFormDisassembler = class(TForm)
     MemoCode: TMemo;
+    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
     procedure FormCreate(Sender: TObject);
     procedure FormDestroy(Sender: TObject);
@@ -29 +30 @@
 {$R *.lfm}
 
+uses
+  Core;
+
 { TFormDisassembler }
 
@@ -34 +38 @@
 begin
   Disassembler := TDisassembler.Create;
+end;
+
+procedure TFormDisassembler.FormClose(Sender: TObject;
+  var CloseAction: TCloseAction);
+begin
+  if Core.Core.MainForm = Self then Application.Terminate;
 end;