Bitmap-Grafik in einer VCL-Formularanwendung anzeigen
Nach oben zu So erstellen Sie eine VCL-Formularanwendung mit Grafiken
Mit den folgenden Schritten wird eine Bitmap-Grafik aus einer Datei geladen und in einem VCL-Formular angezeigt:
- Ein VCL-Formular mit einer Schaltfläche erstellen.
- Eine Bitmap-Grafik bereitstellen.
- Quelltext für die OnClick-Ereignisbehandlungsroutine der Schaltfläche schreiben, um eine Bitmap-Grafik zu laden und anzuzeigen.
- Die Anwendung compilieren und ausführen.
So erstellen Sie ein VCL-Formular und eine Schaltfläche:
- Wählen Sie Datei > Neu > Weitere > Delphi-Projekte oder C++Builder-Projekte, und doppelklicken Sie auf das Symbol VCL-Formularanwendung.Der VCL-Formular-Designer wird angezeigt.
- Ziehen Sie aus der Seite Standard der Tool-Palette eine TButton-Komponente in das Formular.
So stellen Sie eine Bitmap-Grafik bereit:
- Legen Sie ein Verzeichnis an, in dem die Projektdateien gespeichert werden.
- Suchen Sie auf der lokalen Festplatte Ihres Rechners nach einer Bitmap-Grafik, und kopieren Sie diese in das Projektverzeichnis.
- Speichern Sie alle Projektdateien in dem Projektverzeichnis.
So schreiben Sie die Behandlungsroutine für das Ereignis OnClick:
- Doppelklicken Sie im Objektinspektor auf der Registerkarte Ereignisse auf das Ereignis OnClick für Button1.Der Quelltext-Editor wird angezeigt. Der Cursor befindet sich bereits im Block der Ereignisbehandlungsroutine TForm1.Button1Click (Delphi) bzw. TForm1::Button1Click (C++).
- Geben Sie folgenden Quelltext für die Ereignisbehandlungsroutine ein, wobei Sie MyFile.bmp durch den Pfad für die Bitmap-Datei in Ihrem Projektverzeichnis ersetzen müssen:
Bitmap := TBitmap.Create;
try
Bitmap.LoadFromFile('MyFile.bmp');
Form1.Canvas.Brush.Bitmap := Bitmap;
Form1.Canvas.FillRect(Rect(0,0,100,100));
finally
Form1.Canvas.Brush.Bitmap := nil;
Bitmap.Free;
end;
Graphics::TBitmap *Bitmap = new Graphics::TBitmap();
try {
Bitmap->LoadFromFile( "..\\MyFile.bmp" );
Form1->Canvas->Brush->Bitmap = Bitmap;
Form1->Canvas->FillRect( Rect(0,0,100,100) );
} __finally {
Form1->Canvas->Brush->Bitmap = NULL;
Bitmap->Free();
}
Anmerkung: In C++ Projekten wird davon ausgegangen, dass sich das Zielverzeichnis im Projektverzeichnis befindet.
Tip: Sie können die Größe des anzuzeigenden Rechtecks anpassen, indem Sie die Parameterwerte für Rect ändern.
- Fügen Sie in Delphi dem var-Block folgende Variablendeklaration hinzu:
Bitmap : TBitmap;
So führen Sie das Programm aus:
- Wählen Sie Start > Start.
- Klicken Sie auf die Schaltfläche, um die Bitmap-Grafik in einem Rechteck der Größe 100 x 100 Pixel in der oberen linken Ecke des Formulars anzuzeigen.