浏览代码

screenshot command with brackets

Johann ELSASS 3 年之前
父节点
当前提交
d22da608dd
共有 1 个文件被更改,包括 1 次插入0 次删除
  1. 1 0
      lazpaint/ucommandline.pas

+ 1 - 0
lazpaint/ucommandline.pas

@@ -439,6 +439,7 @@ begin
         if lowerCmd = 'resample' then begin if not NextAsFuncParam or not DoResample then exit end else
         if copy(lowerCmd,1,4)='new(' then begin if not DoNew then exit end else
         if lowerCmd = 'new' then begin if not NextAsFuncParam or not DoNew then exit end else
+        if lowerCmd.StartsWith('screenshot(') then begin if not DoScreenShot then exit end else
         if lowerCmd = 'screenshot' then begin if not NextAsFuncParam or not DoScreenShot then exit end else
         if lowerCmd = 'script' then
         begin