|
|
@@ -151,6 +151,8 @@ begin
|
|
|
Scripting.RegisterScriptFunction('EditSelectAll',@GenericScriptFunction,ARegister);
|
|
|
Scripting.RegisterScriptFunction('EditSelectionFit',@GenericScriptFunction,ARegister);
|
|
|
Scripting.RegisterScriptFunction('IsSelectionMaskEmpty',@GenericScriptFunction,ARegister);
|
|
|
+ Scripting.RegisterScriptFunction('IsSelectionLayerEmpty',@GenericScriptFunction,ARegister);
|
|
|
+ Scripting.RegisterScriptFunction('IsLayerEmpty',@GenericScriptFunction,ARegister);
|
|
|
|
|
|
Scripting.RegisterScriptFunction('LayerHorizontalFlip',@GenericScriptFunction,ARegister);
|
|
|
Scripting.RegisterScriptFunction('LayerVerticalFlip',@GenericScriptFunction,ARegister);
|
|
|
@@ -228,6 +230,8 @@ begin
|
|
|
if f = 'EditSelectAll' then SelectAll else
|
|
|
if f = 'EditSelectionFit' then SelectionFit else
|
|
|
if f = 'IsSelectionMaskEmpty' then AVars.Booleans['Result'] := Image.SelectionMaskEmpty else
|
|
|
+ if f = 'IsSelectionLayerEmpty' then AVars.Booleans['Result'] := Image.SelectionLayerIsEmpty else
|
|
|
+ if f = 'IsLayerEmpty' then AVars.Booleans['Result'] := Image.CurrentLayerEmpty else
|
|
|
if f = 'LayerHorizontalFlip' then HorizontalFlip(foCurrentLayer) else
|
|
|
if f = 'LayerVerticalFlip' then VerticalFlip(foCurrentLayer) else
|
|
|
if f = 'LayerGetId' then AVars.Integers['Result'] := Image.LayerId[Image.CurrentLayerIndex] else
|
johann