Leinwandobjekt: Unterschied zwischen den Versionen

Aus AquaSoft Wiki
Zur Navigation springenZur Suche springen
Zeile 18: Zeile 18:
  
 
= Methoden =
 
= Methoden =
 +
 +
* Objekt-Erzeugung
 +
<code>
 +
  function CreateBitmapObject: ICanvas;
 +
</code>
 +
 
* Breite der Leinwand in Pixeln
 
* Breite der Leinwand in Pixeln
 
<code>
 
<code>

Version vom 21. August 2012, 14:03 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 CreateBitmapObject: 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);