Bladeren bron

#418 Prevent minimize of sub editor, bring to front main afterwards

circular17 3 jaren geleden
bovenliggende
commit
8b28e1203d
1 gewijzigde bestanden met toevoegingen van 6 en 1 verwijderingen
  1. 6 1
      lazpaint/lazpaintinstance.pas

+ 6 - 1
lazpaint/lazpaintinstance.pas

@@ -1263,6 +1263,7 @@ begin
     if bmp <> nil then subLaz.AssignBitmap(bmp);
     subLaz.AboutText := AboutText;
     subLaz.EmbeddedImageBackup := bmp;
+    subLaz.FMain.BorderIcons := subLaz.FMain.BorderIcons - [biMinimize];
     if AOnRun <> nil then
       AOnRun(subLaz);
     subLaz.Run;
@@ -1283,7 +1284,11 @@ begin
       ShowError('EditBitmap',ex.Message);
   end;
   ShowTopmost(topmostInfo);
-  if FMain <> nil then FMain.Enabled := true;
+  if FMain <> nil then
+  begin
+    FMain.Enabled := true;
+    FMain.BringToFront;
+  end;
   subLaz.Free;
 end;