Leinwandobjekt: Unterschied zwischen den Versionen

Aus AquaSoft Wiki
Zur Navigation springenZur Suche springen
 
(5 dazwischenliegende Versionen von 3 Benutzern werden nicht angezeigt)
Zeile 1: Zeile 1:
 
Das Leinwandbjekt ist vom Typ '''ICanvas''' und leitet von '''[[ISlideShowObject]]''' ab. Es bietet die Möglichkeit, einfache geometrische Formen zeichnen zu lassen.
 
Das Leinwandbjekt ist vom Typ '''ICanvas''' und leitet von '''[[ISlideShowObject]]''' ab. Es bietet die Möglichkeit, einfache geometrische Formen zeichnen zu lassen.
−
    
+
 
−
= Methoden =
+
<code>
−
* Breite der Leinwand in Pixeln
+
   ICanvas '''inherits from''' [[ISlideShowObject]]
 +
    function GetWidth: Integer;
 +
    procedure SetWidth(const Value: Integer); 
 +
    function  GetHeight: Integer;
 +
    procedure SetHeight(const Value: Integer);
 +
    procedure SetBrush(Color: Integer);
 +
    procedure SetPen(Color: Integer);
 +
    procedure DrawRect(top, left, bottom, right: Integer);
 +
    procedure DrawRectF(top, left, bottom, right: Single);
 +
    procedure DrawEllipse(top, left, bottom, right: Integer);
 +
    procedure DrawBitmap(Bitmap: ICanvas; DTop, DLeft, STop, SLeft, SBottom, SRight: Integer);
 +
    procedure DrawPolygon(points: TPointFArray; fillStyle: TFillStyle);
 +
  end;
 +
</code>
 +
 
 +
= Methoden =
 +
 
 +
*Objekt-Erzeugung
 +
<code>
 +
  function CreateBitmap: ICanvas;
 +
</code>
 +
*Erzeugt ein Leinwandobjekt durch laden einer Bilddatei. Die Bilddateien werden im Diashow Presets Ordner gesucht.
 +
<code>
 +
function CreateBitmapFromFile(FileName: string): ICanvas;
 +
</code>
 +
 
 +
<code></code>
 +
 
 +
<code></code>
 +
 
 +
<code></code>
 +
 
 +
<code></code>
 +
 
 +
<code></code>
 +
 
 +
*Breite der Leinwand in Pixeln
 +
 
 +
<code></code>
 +
 
 +
<code></code>
 +
 
 +
<code></code>
 +
 
 +
<code></code>
 +
 
 +
<code></code>
 +
 
 +
<code></code>
 +
 
 
<code>
 
<code>
 
   function GetWidth: Integer;
 
   function GetWidth: Integer;
−
  procedure SetWidth(const Value: Integer);
+
procedure SetWidth(const Value: Integer);
 
</code>
 
</code>
  
 +
<code></code>
 +
 +
<code></code>
 +
 +
<code></code>
 +
 +
<code></code>
 +
 +
<code></code>
  
−
* Höhe der Leinwand in Pixeln
+
<code></code>
−
<code>  
+
 
 +
<br>
 +
 
 +
*Höhe der Leinwand in Pixeln
 +
 
 +
<code></code>
 +
 
 +
<code></code>
 +
 
 +
<code></code>
 +
 
 +
<code></code>
 +
 
 +
<code></code>
 +
 
 +
<code></code>
 +
 
 +
<code>
 
   function  GetHeight: Integer;
 
   function  GetHeight: Integer;
−
  procedure SetHeight(const Value: Integer);
+
procedure SetHeight(const Value: Integer);
 
</code>
 
</code>
  
 +
<code></code>
 +
 +
<code></code>
 +
 +
<code></code>
 +
 +
<code></code>
 +
 +
<code></code>
 +
 +
<code></code>
 +
 +
<br>
 +
 +
*Füllfarbe setzen, 32Bit [https://de.wikipedia.org/wiki/Farbtiefe_%28Computergrafik%29 Farbtiefe]
 +
 +
<code></code>
 +
 +
<code></code>
 +
 +
<code></code>
 +
 +
<code></code>
 +
 +
<code></code>
 +
 +
<code></code>
  
−
* Füllfarbe setzen, 32Bit [https://de.wikipedia.org/wiki/Farbtiefe_%28Computergrafik%29 Farbtiefe] 
 
 
<code>
 
<code>
 
   procedure SetBrush(Color: Integer);
 
   procedure SetBrush(Color: Integer);
 
</code>
 
</code>
  
 +
<code></code>
 +
 +
<code></code>
 +
 +
<code></code>
 +
 +
<code></code>
 +
 +
<code></code>
 +
 +
<code></code>
 +
 +
<br>
 +
 +
*Linienfarbe setzen, 32Bit Farbtiefe
 +
 +
<code></code>
 +
 +
<code></code>
 +
 +
<code></code>
 +
 +
<code></code>
 +
 +
<code></code>
 +
 +
<code></code>
  
−
* Linienfarbe setzen, 32Bit Farbtiefe
 
 
<code>
 
<code>
 
   procedure SetPen(Color: Integer);
 
   procedure SetPen(Color: Integer);
−
</code>  
+
</code>
  
 +
<code></code>
  
−
* Rechtecke zeichnen, Angabe der oberen, linken, unteren und rechten Begrenzung in Pixeln, Sowohl Single als auch Integer-Werte möglich
+
<code></code>
−
<code>
+
 
 +
<code></code>
 +
 
 +
<code></code>
 +
 
 +
<code></code>
 +
 
 +
<code></code>
 +
 
 +
<br>
 +
 
 +
*Rechtecke zeichnen, Angabe der oberen, linken, unteren und rechten Begrenzung in Pixeln, Sowohl Single als auch Integer-Werte möglich
 +
 
 +
<code></code>
 +
 
 +
<code></code>
 +
 
 +
<code></code>
 +
 
 +
<code></code>
 +
 
 +
<code></code>
 +
 
 +
<code></code>
 +
 
 +
<code>
 
   procedure DrawRect(top, left, bottom, right: Integer);
 
   procedure DrawRect(top, left, bottom, right: Integer);
−
  procedure DrawRectF(top, left, bottom, right: Single);
+
procedure DrawRectF(top, left, bottom, right: Single);
 
</code>
 
</code>
  
 +
<code></code>
 +
 +
<code></code>
 +
 +
<code></code>
 +
 +
<code></code>
 +
 +
<code></code>
 +
 +
<code></code>
 +
 +
<br>
 +
 +
*Ellipse zeichnen, Angabe der oberen, linken, unteren und rechten Begrenzung (''BoundingBox'') in Pixeln
 +
 +
<code></code>
 +
 +
<code></code>
 +
 +
<code></code>
 +
 +
<code></code>
 +
 +
<code></code>
 +
 +
<code></code>
  
−
* Ellipse zeichnen, Angabe der oberen, linken, unteren und rechten Begrenzung (''BoundingBox'') in Pixeln
 
 
<code>
 
<code>
 
   procedure DrawEllipse(top, left, bottom, right: Integer);
 
   procedure DrawEllipse(top, left, bottom, right: Integer);
 
</code>
 
</code>
  
 +
<code></code>
 +
 +
<code></code>
 +
 +
<code></code>
 +
 +
<code></code>
 +
 +
<code></code>
 +
 +
<code></code>
 +
 +
<br>
 +
 +
*Ziehe Kreis vom Mittelpunkt unter Angabe des Raduis auf
 +
 +
<code></code>
 +
 +
<code></code>
 +
 +
<code></code>
 +
 +
<code></code>
  
−
* Ziehe Kreis vom Mittelpunkt unter Angabe des Raduis auf
+
<code></code>
−
<code>
+
 
 +
<code></code>
 +
 
 +
<code>
 
   procedure DrawCircleCenter(centerX, centerY, radius: Integer);
 
   procedure DrawCircleCenter(centerX, centerY, radius: Integer);
 
</code>
 
</code>
  
 +
<code></code>
 +
 +
<code></code>
 +
 +
<code></code>
 +
 +
<code></code>
 +
 +
<code></code>
 +
 +
<code></code>
 +
 +
<br>
 +
 +
*Passe maximalen Kreis in angegebene BoundingBox ein
 +
 +
<code></code>
 +
 +
<code></code>
 +
 +
<code></code>
 +
 +
<code></code>
 +
 +
<code></code>
 +
 +
<code></code>
  
−
* Passe maximalen Kreis in angegebene BoundingBox ein
 
 
<code>
 
<code>
 
   procedure DrawCircle(top, left, bottom, right: Integer);
 
   procedure DrawCircle(top, left, bottom, right: Integer);
 
</code>
 
</code>
  
 +
<code></code>
 +
 +
<code></code>
 +
 +
<code></code>
 +
 +
<code></code>
  
−
* Zeichne anderes Bild oder einen Ausschnitt dessen auf Leinwand
+
<code></code>
−
** '''Bitmap''': Anderes Leinwandobjekt
+
 
−
** '''DTop''', '''DLeft''': Linke, obere Koordinate der aktuellen Leinwand. Linke obere Ecke des zu zeichnenden Objektes wird dort liegen
+
<code></code>
−
** '''STop''', '''SLeft''', '''SBottom''', '''SRight''': Ausschnitt des zu zeichnenden Bildes
+
 
−
<code>  
+
<br>
 +
 
 +
*Zeichne anderes Bild oder einen Ausschnitt dessen auf Leinwand  
 +
**'''Bitmap''': Anderes Leinwandobjekt  
 +
**'''DTop''', '''DLeft''': Linke, obere Koordinate der aktuellen Leinwand. Linke obere Ecke des zu zeichnenden Objektes wird dort liegen  
 +
**'''STop''', '''SLeft''', '''SBottom''', '''SRight''': Ausschnitt des zu zeichnenden Bildes
 +
 
 +
<code></code>
 +
 
 +
<code></code>
 +
 
 +
<code></code>
 +
 
 +
<code></code>
 +
 
 +
<code></code>
 +
 
 +
<code></code>
 +
 
 +
<code>
 
   procedure DrawBitmap(Bitmap: ICanvas; DTop, DLeft, STop, SLeft, SBottom, SRight: Integer);
 
   procedure DrawBitmap(Bitmap: ICanvas; DTop, DLeft, STop, SLeft, SBottom, SRight: Integer);
−
</code>
+
</code>
 +
 
 +
<code></code>
 +
 
 +
<code></code>
 +
 
 +
<code></code>
 +
 
 +
<code></code>
 +
 
 +
<code></code>
 +
 
 +
<code></code>
  
 +
<br>
 +
 +
*Zeichne Polygone
 +
**'''Points''': array of TPointF, Liste von Punkten
 +
***TPointF kann mittels TPointF.Create(X, Y) für X, Y als Single angelegt werden
 +
**'''FillStyle''': ''OddEven'' oder ''Outer'', Füllmethode
 +
 +
<code></code>
 +
 +
<code></code>
 +
 +
<code></code>
 +
 +
<code></code>
 +
 +
<code></code>
 +
 +
<code></code>
  
−
* Zeichne Polygone
 
−
** '''Points''': array of TPointF, Liste von Punkten
 
−
*** TPointF kann mittels TPointF.Create(X, Y) für X, Y als Single angelegt werden
 
−
** '''FillStyle''': ''OddEven'' oder ''Outer'', Füllmethode
 
 
<code>
 
<code>
 
   procedure DrawPolygon(points: TPointFArray; fillStyle: TFillStyle);
 
   procedure DrawPolygon(points: TPointFArray; fillStyle: TFillStyle);
 
</code>
 
</code>
  
−
[[Kategorie:Scripting-API]]
+
<code></code>
 +
 
 +
<code></code>
 +
 
 +
<code></code>
 +
 
 +
<code></code>
 +
 
 +
<code></code>
 +
 
 +
<code></code>
 +
 
 +
[[Category:Scripting-API]]

Aktuelle Version vom 7. Dezember 2012, 09:54 Uhr

Das Leinwandbjekt ist vom Typ ICanvas und leitet von ISlideShowObject ab. Es bietet die Möglichkeit, einfache geometrische Formen zeichnen zu lassen. 

 ICanvas inherits from ISlideShowObject
   function GetWidth: Integer;
   procedure SetWidth(const Value: Integer);  
   function  GetHeight: Integer;
   procedure SetHeight(const Value: Integer); 
   procedure SetBrush(Color: Integer); 
   procedure SetPen(Color: Integer);
   procedure DrawRect(top, left, bottom, right: Integer);
   procedure DrawRectF(top, left, bottom, right: Single);
   procedure DrawEllipse(top, left, bottom, right: Integer);
   procedure DrawBitmap(Bitmap: ICanvas; DTop, DLeft, STop, SLeft, SBottom, SRight: Integer);
   procedure DrawPolygon(points: TPointFArray; fillStyle: TFillStyle);
 end;

Methoden

  • Objekt-Erzeugung

 function CreateBitmap: ICanvas;

  • Erzeugt ein Leinwandobjekt durch laden einer Bilddatei. Die Bilddateien werden im Diashow Presets Ordner gesucht.

function CreateBitmapFromFile(FileName: string): ICanvas;

  • Breite der Leinwand in Pixeln

 function GetWidth: Integer;
procedure SetWidth(const Value: Integer);


  • Höhe der Leinwand in Pixeln

 function  GetHeight: Integer;
procedure SetHeight(const Value: Integer);



 procedure SetBrush(Color: Integer);


  • Linienfarbe setzen, 32Bit Farbtiefe

 procedure SetPen(Color: Integer);


  • Rechtecke zeichnen, Angabe der oberen, linken, unteren und rechten Begrenzung in Pixeln, Sowohl Single als auch Integer-Werte möglich

 procedure DrawRect(top, left, bottom, right: Integer);
procedure DrawRectF(top, left, bottom, right: Single);


  • Ellipse zeichnen, Angabe der oberen, linken, unteren und rechten Begrenzung (BoundingBox) in Pixeln

 procedure DrawEllipse(top, left, bottom, right: Integer);


  • Ziehe Kreis vom Mittelpunkt unter Angabe des Raduis auf

 procedure DrawCircleCenter(centerX, centerY, radius: Integer);


  • Passe maximalen Kreis in angegebene BoundingBox ein

 procedure DrawCircle(top, left, bottom, right: Integer);


  • Zeichne anderes Bild oder einen Ausschnitt dessen auf Leinwand
    • Bitmap: Anderes Leinwandobjekt
    • DTop, DLeft: Linke, obere Koordinate der aktuellen Leinwand. Linke obere Ecke des zu zeichnenden Objektes wird dort liegen
    • STop, SLeft, SBottom, SRight: Ausschnitt des zu zeichnenden Bildes

 procedure DrawBitmap(Bitmap: ICanvas; DTop, DLeft, STop, SLeft, SBottom, SRight: Integer);


  • Zeichne Polygone
    • Points: array of TPointF, Liste von Punkten
      • TPointF kann mittels TPointF.Create(X, Y) für X, Y als Single angelegt werden
    • FillStyle: OddEven oder Outer, Füllmethode

 procedure DrawPolygon(points: TPointFArray; fillStyle: TFillStyle);

Abgerufen von „https://wiki.aquasoft.de/wiki/index.php?title=Leinwandobjekt&oldid=887“