Ich stoße immer wieder auf folgendes Problem:
Ich möchte per Skript den Dialog Ausschneiden mit vorgegebenen Schnittmarken zum proportionalen Beschneiden aufrufen. Wenn dabei ein querformatiger Beschnitt bei einem hochformatigen Bild oder ein hochformatiger Beschnitt bei einem querformatigen Bild erfolgen soll, sind die Schnittmarken nicht richtig gesetzt. Erst wenn man im Dialog Hoch/Quer betätigt, sind sie richtig. Ich helfe mir dann im Skript mit folgendem Code:
Der Anwender ist also gefordert. Man kann dann im Skript durch Abfrage der Parameter kontrollieren, ob der Anwender der Anweisung Folge geleistet hat, gut ist die Lösung aber nicht.
Hat jemand einen Vorschlag oder kann Joachim hier etwas ändern?
Ich möchte per Skript den Dialog Ausschneiden mit vorgegebenen Schnittmarken zum proportionalen Beschneiden aufrufen. Wenn dabei ein querformatiger Beschnitt bei einem hochformatigen Bild oder ein hochformatiger Beschnitt bei einem querformatigen Bild erfolgen soll, sind die Schnittmarken nicht richtig gesetzt. Erst wenn man im Dialog Hoch/Quer betätigt, sind sie richtig. Ich helfe mir dann im Skript mit folgendem Code:
Code:
'Markierungsauswahl (nur zur Erläuterung):
'0 - Markierung "Aus", Beschnitt nicht proportional (hier nicht zulässig)
'1 - Markierung "Goldener Schnitt", Beschnitt proportional
'2 - Markierung "Drittel", Beschnitt proportional
'3 - Markierung "Deutschland ab 10", Beschnitt proportional
'4 - Markierung "Deutschland bis 9", Beschnitt proportional
'5 - Markierung "Aus", Beschnitt proportional
Markierung = 5
if Schnittbreite > Schnitthoehe then SollHoch = 1 else SollHoch = 0
if Bildbreite > Bildhoehe then IstHoch = 1 else IstHoch = 0
if Schnittbreite = Schnitthoehe then SollHoch = 1 : IstHoch = 1
if (SollHoch Xor IstHoch) = 1 then
if IstHoch = 1 then
msg = "Ein querformatiges Bild soll hochformatig beschnitten werden."
else
msg = "Ein hochformatiges bzw. quadratisches Bild soll querformatig beschnitten werden."
end if
msgbox msg & vbNewLine & "Daher muss im folgenden Dialog die Taste 'Hoch/Quer' betätigt werden!", _
vbInformation,"Unbedingt beachten!"
FF_SetParam "0,0," & Schnittbreite & "," & Schnitthoehe & "," & Bildhoehe & "," & Bildbreite & "," & Markierung & ",1"
else
FF_SetParam "0,0," & Schnittbreite & "," & Schnitthoehe & "," & Bildbreite & "," & Bildhoehe & "," & Markierung & ",1"
end if
Antwort = FF_MultiDialog ("MultiCanvas",2)
if Antwort < 0 then
msgbox "Das Bild wurde nicht beschnitten!",vbInformation,"Hinweis"
end if
Hat jemand einen Vorschlag oder kann Joachim hier etwas ändern?
Zuletzt bearbeitet: