فهرست منبع

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