Neue Testversion 20.90b10

[Herbert123]

Got the basics working - I remembered the scripting documentation.
After discovering "SelectedLayers" it was smooth sailing from there. Very simple.

Dim pl
Dim doc
Dim layer
Dim layers

Set pl = CreateObject("PhotoLine.Application")
Set doc = pl.ActiveDocument

pl.Visible = True
If Not doc Is Nothing Then
Set layers = doc.SelectedLayers

If (Not layers Is Nothing) Then
For Each layer In layers
layer.DoOperation "Scale", "Mode", 5, "ValueX", 300, "ValueY", 300, "Interpolation", 6,"ShowDialog",true
Next
End If
End If

[Martin Huber]

Got the basics working - I remembered the scripting documentation.

I was too slow. The corresponding AppleScript looks like this:

Code: Alles auswählen

tell application "PhotoLine"
	try
		set doc to front document
	on error
		set doc to missing value
	end try
	if doc is not missing value then
		set selLayers to selected layers of doc
		repeat with actLayer in selLayers
			-- if type of layer is LTImage then
			-- 5 is the fitting scale mode, 6 is Catmull Rom interpolation
			actLayer do operation type "Scale" with options {|Mode|:5, |ValueX|:300, |ValueY|:300, |Interpolation|:6}
			--  end if
		end repeat
	end if
end tell

Martin

[Herbert123]

How do you call an input dialog? Can't seem to find it. ShowDialog displays a dialog (obviously) for each layer in the array.

[Herbert123]

No matter, I got it. I've never used VBA before, so I figured I'd read up on basic VBA dialogs.

This is what I got so far. Error checking I'll add tomorrow morning (it is late!). But this is fun, and it solves my problem with scaling multiple selected layers in one step! Scripting is super useful, and I am very thankful for the addition.

Option Explicit

Dim pl
Dim doc
Dim layer
Dim layers
Dim fsize
Dim scaleNum

Set pl = CreateObject("PhotoLine.Application")
Set doc = pl.ActiveDocument

pl.Visible = True

If Not doc Is Nothing Then
Set layers = doc.SelectedLayers
fsize=InputBox("Enter the width or height:","Scale Selected Layers","Enter number here")
scaleNum = CInt(fsize)

If (Not layers Is Nothing) Then
For Each layer In layers
layer.DoOperation "Scale", "Mode", 5, "ValueX", scaleNum, "ValueY", scaleNum, "Interpolation", 6
Next
Else
MsgBox("No Layers Selected!")
End If
End If

[Herbert123]

Actually, I could not sleep until I finished the script. Added some error checking, and handling of the cancel button. Still need to handle the input (check if it is numeric) and Ideally I'd like to create a more complex form in which the user can choose the interpolation mode and some other related options. Later
Again, I have to get used to VBA - never used it before. Google was my best friend tonight! But it proved to be pretty simple so far.

I attached the script for those who are interested (it proportionally scales all selected layers to a defined width or height).

[Martin Huber]

Actually, I could not sleep until I finished the script. Added some error checking, and handling of the cancel button. Still need to handle the input (check if it is numeric) and Ideally I'd like to create a more complex form in which the user can choose the interpolation mode and some other related options. Later
Again, I have to get used to VBA - never used it before. Google was my best friend tonight! But it proved to be pretty simple so far.

Yes, VBS is sometimes a bit strange, but overall quite simple.

I am planning to add a ShowOperationDialog command showing the dialog of an operation, but not executing it. Instead it will return the dialog settings which can be used for a DoOperation later on. So something like

Code: Alles auswählen

Dim dialogSettings

Set dialogSettings = layer.ShowOperationDialog("Scale")
layer.doOperation "Scale", dialogSettings

should work in the next beta.

One warning: I just discovered, that PhotoLine won't terminate correctly, if you are using "for each" with an IPLLayerArray. It will continue to run in the background after quit. I will fix that.

Martin

[Herbert123]

For some reason the mini browser scrolling and scroll bar are deactivated when I show the recent files list. Scrolling with the scrollwheel doesn't work either. When I zoom in more, it works again. And yes, there's overflowing content that is hidden, so the scrolling should be working.

When I open one of my favourite image folders, it works.

[Herbert123]

Bug custom rotation point reset

When a layer is rotated around a custom rotation point, and the rotation is reset, PhotoLine will use the top left corner instead of the custom rotation point to reset the rotation, causing the layer to move from its original position.

Ideally PhotoLine would use the same custom rotation point to reset the layer's rotation, and not changing the position.

I mentioned this issue a while ago, but I think I wasn't clear enough.

[Herbert123]

For some reason the mini browser scrolling and scroll bar are deactivated when I show the recent files list. Scrolling with the scrollwheel doesn't work either. When I zoom in more, it works again. And yes, there's overflowing content that is hidden, so the scrolling should be working.

When I open one of my favourite image folders, it works.

Weirdly enough it works again. Must have been a glitch.

[Herbert123]

Bug layer effect Shadow Inside

Shadow inside with a soft border causes a rendering error (shadow is cut off).

[Martin Huber]

Bug layer effect Shadow Inside

Shadow inside with a soft border causes a rendering error (shadow is cut off).

Do you have a small sample document?

Martin

[Herbert123]

Bug layer effect Shadow Inside

Shadow inside with a soft border causes a rendering error (shadow is cut off).

Do you have a small sample document?

Martin

Yes, here is a simple example attached.

[Martin Huber]

Bug layer effect Shadow Inside

Shadow inside with a soft border causes a rendering error (shadow is cut off).

I will fix that.

Martin

[Martin Stricker]

Ich habe ein Wacom Intuos und habe eine der Seitentasten mit doppelklick belegt um bei Verwendung des Vektorlassos einfacher einen Punkt einzufügen. Das funktioniert unter High Sierra leider nicht richtig. Der Doppelklick mit dem Vektorlasso muss so genau gesetzt werden, dass es eher Zufall ist wenn es mal klappt. Unter Windows 7 hab ich mit meinem größeren Wacom kein Problem. Vielleicht könnt ihr da mal reinschauen, danke.

[asharpe]

Looking at an iPhone jpg in Browse, the thumbnail image is rotated automatically correctly (in my case, to portrait). When I use Show Image within Browse, the image is not rotated correctly (it is still landscape). And when I click on the Rotate Right button at the bottom of Show Image, the image I am viewing doesn't rotate, but the thumbnail in the Browse index does! However, after that closing and reopening the image with Show image, the rotation then matches the thumbnail.

If it helps, here's the exif:

$ exiftool-5.26 ~/Desktop/2018-05-27/IMG_1044.jpg
ExifTool Version Number : 10.73
File Name : IMG_1044.jpg
Directory : /Users/asharpe/Desktop/2018-05-27
File Size : 3.3 MB
File Modification Date/Time : 2017:12:28 12:07:18-08:00
File Access Date/Time : 2018:05:28 11:57:15-07:00
File Inode Change Date/Time : 2018:05:28 10:37:07-07:00
File Permissions : rwxr-xr-x
File Type : JPEG
File Type Extension : jpg
MIME Type : image/jpeg
Exif Byte Order : Big-endian (Motorola, MM)
Make : Apple
Camera Model Name : iPhone 5s
Orientation : Rotate 90 CW
X Resolution : 72
Y Resolution : 72
Resolution Unit : inches
Software : 11.1
Modify Date : 2017:12:28 12:07:18
Y Cb Cr Positioning : Centered
Exposure Time : 1/120
F Number : 2.2
Exposure Program : Program AE
ISO : 50
Exif Version : 0221
Date/Time Original : 2017:12:28 12:07:18
Create Date : 2017:12:28 12:07:18
Components Configuration : Y, Cb, Cr, -
Shutter Speed Value : 1/120
Aperture Value : 2.2
Brightness Value : 5.22029148
Exposure Compensation : 0
Metering Mode : Spot
Flash : Off, Did not fire
Focal Length : 4.2 mm
Subject Area : 1682 996 610 612
Run Time Flags : Valid
Run Time Value : 1179109701290750
Run Time Scale : 1000000000
Run Time Epoch : 0
Acceleration Vector : 0.07046475259 -0.8186275365 -0.5698596705
HDR Image Type : HDR Image
Image Unique ID : 94E39CAE-9D77-4527-A49B-AE0F3069F654
Sub Sec Time Original : 858
Sub Sec Time Digitized : 858
Flashpix Version : 0100
Color Space : sRGB
Exif Image Width : 3264
Exif Image Height : 2448
Sensing Method : One-chip color area
Scene Type : Directly photographed
Custom Rendered : HDR
Exposure Mode : Auto
White Balance : Auto
Focal Length In 35mm Format : 29 mm
Scene Capture Type : Standard
Lens Info : 4.15mm f/2.2
Lens Make : Apple
Lens Model : iPhone 5s back camera 4.15mm f/2.2
Compression : JPEG (old-style)
Thumbnail Offset : 1802
Thumbnail Length : 11582
Image Width : 3264
Image Height : 2448
Encoding Process : Baseline DCT, Huffman coding
Bits Per Sample : 8
Color Components : 3
Y Cb Cr Sub Sampling : YCbCr4:2:0 (2 2)
Aperture : 2.2
Image Size : 3264x2448
Megapixels : 8.0
Run Time Since Power Up : 13 days 15:31:49
Scale Factor To 35 mm Equivalent: 7.0
Shutter Speed : 1/120
Create Date : 2017:12:28 12:07:18.858
Date/Time Original : 2017:12:28 12:07:18.858
Thumbnail Image : (Binary data 11582 bytes, use -b option to extract)
Circle Of Confusion : 0.004 mm
Field Of View : 63.7 deg
Focal Length : 4.2 mm (35 mm equivalent: 29.0 mm)
Hyperfocal Distance : 1.82 m
Light Value : 10.2