Sfoglia il codice sorgente

esc to close image browser

Johann ELSASS 4 anni fa
parent
commit
271bb89f9b
1 ha cambiato i file con 5 aggiunte e 0 eliminazioni
  1. 5 0
      lazpaint/dialog/ubrowseimages.pas

+ 5 - 0
lazpaint/dialog/ubrowseimages.pas

@@ -385,6 +385,11 @@ begin
     ResetDirectory(false, true);
     SelectFile(Edit_Filename.Text);
     Key := 0;
+  end else
+  if (KEY = VK_ESCAPE) then
+  begin
+    Close;
+    Key := 0;
   end;
 end;