Bitmap-Grafik in einer VCL-Formularanwendung in der Vollbildansicht anzeigen

Aus RAD Studio
Wechseln zu: Navigation, Suche

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 in der Vollbildansicht angezeigt. Für die Anzeige in der Vollbildansicht werden die Eigenschaften Height und Width des Bitmap-Objekts entsprechend zugewiesen. Folgende Schritte werden ausgeführt:

  1. Ein VCL-Formular mit einer Schaltfläche erstellen.
  2. Eine Bitmap-Grafik bereitstellen.
  3. Quelltext für die OnClick-Ereignisbehandlungsroutine der Schaltfläche schreiben, um eine Bitmap-Grafik zu laden und anzuzeigen.
  4. Die Anwendung compilieren und ausführen.

So erstellen Sie ein VCL-Formular und eine Schaltfläche:

  1. 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.
  2. Ziehen Sie aus der Seite Standard der Tool-Palette eine TButton-Komponente in das Formular.
  3. Geben Sie im Objektinspektor für die Eigenschaft Caption den Wert Vollbild und für die Eigenschaft Name den Wert FullView ein.

So stellen Sie eine Bitmap-Grafik bereit:

  1. Legen Sie ein Verzeichnis an, in dem die Projektdateien gespeichert werden.
  2. Suchen Sie auf der lokalen Festplatte Ihres Rechners nach einer Bitmap-Grafik, und kopieren Sie diese in das Projektverzeichnis.
  3. Speichern Sie alle Projektdateien in dem Projektverzeichnis.

So schreiben Sie die Behandlungsroutine für das Ereignis OnClick:

  1. 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.FullViewClick (Delphi) bzw. TForm1::FullViewClick (C++).
  2. Geben Sie folgenden Quelltext für die Ereignisbehandlungsroutine ein, wobei Sie MyFile.bmp durch den Namen der 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,Bitmap.Width,Bitmap.Height));
      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, Bitmap->Width, Bitmap->Height ) );
} __finally {
  Form1–>Canvas->Brush->Bitmap = NULL;
  Bitmap->Free();
}

Anmerkung: In C++ Projekten wird davon ausgegangen, dass sich das Zielverzeichnis im Projektverzeichnis befindet.

  1. Fügen Sie in Delphi dem var-Block folgende Variablendeklaration hinzu:
Bitmap : TBitmap;s

So führen Sie das Programm aus:

  1. Wählen Sie Start > Ausführen.
  2. Klicken Sie auf die Schaltfläche, um die Bitmap-Grafik in einem Rechteck in der oberen linken Ecke des Formulars anzuzeigen.

Siehe auch