BGRABitmap tutorial/de

From Lazarus wiki
Revision as of 18:19, 12 March 2011 by Billyraybones (talk | contribs) (template added)
Jump to navigationJump to search

Deutsch (de) English (en) español (es) français (fr) русский (ru)

Dieses erste Tutorial zeigt, wie Sie die Bibliothek BGRABitmap einsetzen können.

Erzeugen Sie ein neues Projekt

Erzeugen Sie eine grafische Anwendung über den Menüpunkt Projekt > Neues Projekt....

Die Unit des Hauptformulars sollte so aussehen: <delphi>unit UMain;

{$mode objfpc}{$H+}

interface

uses

 Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs;

type

 { TForm1 }
 TForm1 = class(TForm)
 private
   { private declarations }
 public
   { public declarations }
 end; 

var

 Form1: TForm1; 

implementation

initialization

 {$I UMain.lrs}

end.</delphi>

Falls Sie sie nicht finden, zeigt Ihnen Strg-F12 eine Dateiliste an.

Speichern Sie Ihr Projekt in der Nähe der Bibliothek 'BGRABitmap' über den Menüpunkt Datei > Alles speichern.

Eine Referenz auf BGRABitmap hinzufügen

Fügen Sie in der Uses-Klausel gleich hinter 'Dialogs' eine Referenz auf BGRABitmap und BGRABitmapTypes ein.

<delphi>uses

 Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
 BGRABitmap, BGRABitmapTypes;</delphi>

Gehen Sie zu den Compileroptionen mit dem Menüpunkt Projekt > Projekteinstellungen > Compilereinstellungen. Im Pfad für 'Andere Units' fügen Sie den relativer Pfad zu BGRABitmap hinzu. Zum Beispiel, wenn BGRABitmap in einem Verzeichnis neben dem Ihres Projektes ist, würde der relative Pfad lauten: "..\BGRABitmap".

Wenn Sie die BGRABitmap-Dateien in Ihren Projektordner kopieren, brauchen Sie keinen solchen Suchpfad angeben. Dennoch, das ist nicht empfehlenswert, weil es bei mehreren Projekten, die diese Bibliothek verwenden, umständlich wäre, auf eine neue Version der Bibliothek zu aktualisieren.

Wenn Sie sich jetzt mit den relativen Pfaden verirrt haben, können Sie auch die Unit BGRABitmap zu Ihrem Projekt hinzufügen (und damit auch den relativen Pfad). Öffnen Sie dazu innerhalb Ihres Projektes die Datei 'bgrabitmap.pas'. Wählen Sie den Menüpunkt Projekt > Datei im Editor ins Projekt aufnehmen. Lazarus fragt Sie dann, ob Sie die Datei und das Verzeichnis zu Ihrem Projekt hinzufügen wollen.

Fügen Sie einige Zeichenbefehle hinzu

Fügen Sie ein Ereignis zum Zeichnen hinzu. Dazu klicken Sie auf das Formular, gehen zum Objektinspektor, zum Karteireiter Ereignisse und doppelklicken Sie auf die Zeile 'OnPaint'. Lazarus fügt der Unit des Hauptformulars automatisch einen FormPaint-Handler hinzu. Ergänzen Sie zum Beispiel den folgenden Code: <delphi>procedure TForm1.FormPaint(Sender: TObject); var bmp: TBGRABitmap; begin

 bmp := TBGRABitmap.Create(ClientWidth, ClientHeight, BGRABlack);
 bmp.FillRect(20, 20, 100, 40, BGRA(255,192,0), dmSet);  //fill an orange rectangle
 bmp.Draw(Canvas, 0, 0, True);                           //render BGRABitmap on the form
 bmp.Free;                                               //free memory

end;</delphi>

Wie Sie sehen, deklarieren wir eine Variable TBGRABitmap und erzeugen sie anschließend. Es gibt mehrere unterschiedliche Konstruktoren für TBGRABitmap. Dieser hier verwendete erzeugt eine Bitmap der Größe ClientWidth x ClientHeight und füllt sie mit Schwarz. ClientWidth und ClientHeight sind Eigenschaften des Formulars, die den für Zeichnungen verfügbaren Platz des Formulars angeben.

Die Prozedur FillRect erwartet die üblichen Parameter zum Zeichnen eines Rechtecks, das ist die obere, linke Ecke gefolgt von der unteren, rechten Ecke plus 1. Das bedeutet, dass das Pixel bei (100,40) vom Rechteck ausnommen ist.

Anschließend folgen ein Farbparameter mit den Komponenten rot/grün/blau und ein Zeichenmodus. Bei 'dmSet' werden einfach die Pixel ersetzt.

Vergessen Sie nicht, das Objekt nach der Verwendung wieder frei zu geben, um Speicherlecks zu vermeiden.

Resultierender Code

Sie sollten jetzt den folgenden Code haben: <delphi>unit UMain;

{$mode objfpc}{$H+}

interface

uses

 Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
 BGRABitmap, BGRABitmapTypes;

type

 { TForm1 }
 TForm1 = class(TForm)
   procedure FormPaint(Sender: TObject);
 private
   { private declarations }
 public
   { public declarations }
 end; 

var

 Form1: TForm1; 

implementation

{ TForm1 }

procedure TForm1.FormPaint(Sender: TObject); var bmp: TBGRABitmap; begin

 bmp := TBGRABitmap.Create(ClientWidth,ClientHeight,BGRABlack);
 bmp.FillRect(20,20,100,40,BGRA(255,192,0),dmSet);
 bmp.Draw(Canvas,0,0,True);
 bmp.Free;

end;

initialization

 {$I UMain.lrs}

end.</delphi>

Starten Sie das Programm

Sie sollten ein schwarz gefülltes Fenster mit einem orangen Rechteck darin erhalten.

Zum nächsten Tutorial (image loading)