Basic
Integration in das Hardcopy-Fenster

Sie können Ihre Basic-Scripte in das Hardcopy-Fenster integrieren, dadurch haben Sie die Möglichkeit Ihre Basic-Scripte über das Hardcopy-Menü aufzurufen
oder mit einem Klick über die Symbolleiste zu starten.
Welche Scripte Sie starten möchten können Sie über "Einstellungen Optionen Basic" festlegen.

Beim Start der Scripte 1 bis 6 wird ein Rechteck angefordert.
Die dadurch erzeugten Daten (X, Y,... s.u.) stehen dem Script zur Verfügung.

Die Scripte 7 bis 10 werden direkt ausgeführt.
Daten, die den Scripten zur Verfügung stehen:

Positionen des Rechtecks, welches mit dem Mauszeiger ausgewählt wurde:
     __LastPointStartX
     __LastPointStartY
     __LastPointEndX
     __LastPointEndY


Ausgewählte Breite:
     __PenWidth


Ausgewählte Farben:
     __ForegroundColor
     __BackgroundColor


Verwendete Maus-Taste:
     __LastMouseButton

     Folgende Inhalte sind möglich:
     _LeftMouseButton
     _RightMouseButton
     _MiddleMouseButton

Das nachfolgende Beispiel zeichnet eine Linie mit einem Pfeil.
(Die rote Linie in dem Bild auf dieser Seite wurde mit diesem Basic-Script gezeichnet.)
  • Zeichnen Sie das Rechteck mit der linken Maustaste, dann wird die Linie in der ausgewählten Vordergrundfarbe gezeichnet.
  • Zeichnen Sie das Rechteck mit der rechten Maustaste, dann wird die Linie in der ausgewählten Hintergrundfarbe gezeichnet.
  • Zeichnen Sie das Rechteck mit der mittleren Maustaste, dann wird die Linie in der ausgewählten Vordergrundfarbe, transparent gezeichnet.
     Pen.GradientMode = _GradientModeForwardDiagonal
     Pen.Width  = __PenWidth
     Pen.EndCap = _LineCapArrowAnchor

     if __LastMouseButton = _LeftMouseButton Then
     		Pen.StartColor   = __ForegroundColor
     		Pen.EndColor     = __ForegroundColor
     else	
	if __LastMouseButton = _RightMouseButton Then
		Pen.StartColor   = __BackgroundColor
		Pen.EndColor     = __BackgroundColor
	else	
		Pen.StartColor   = __ForegroundColor
		Pen.EndColor     = __ForegroundColor
		Pen.StartTolerance = 128
		Pen.EndTolerance   = 128
	endif  
     endif

     Image(0).Line( __LastPointStartX,__LastPointStartY,  __LastPointEndX,__LastPointEndY )





Letzte Änderung / Last update: 07.05.2024 16:21:57