Hintergrung einer TForm ein Bild zeichen

[smart]

Wie kann man ohne TImage, ein Bitmap auf eine TForm zeichnen? Ist das überhaupt möglich?

[Keldorn]

Hallo

Eine Form hat auch eine Canvas zum zeichnen und ein onpaint-ereignis.

Mfg Frank

[smart]

Leider bin ich noch Anfänger. Kannst Du bitte ein wenig deutlicher werden? Canvas steht zwar in der Hilfe, aber viel kann man damit nicht anfangen.

[Keldorn]

Zitat:

Delphi 5 Enterprise

Zitat von smart:

Leider bin ich noch Anfänger.

das widerspricht sich ein wenig ...

Delphi-Quellcode:

type
  TForm1 = class(TForm)
  private
    { Private-Deklarationen }
    bmp:Tbitmap;  //<<<<---- 
...
procedure TForm1.FormCreate(Sender: TObject);
begin
  //bitmap erzeugen und Test-bild laden
  bmp:=TBitmap.Create;
  bmp.LoadFromFile(ExtractFilePath(Application.ExeName)+'\test.bmp');
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  //bitmap freigeben
  bmp.free;
end;

procedure TForm1.FormPaint(Sender: TObject);
begin
  //zeichnen
  canvas.Draw(0,0,bmp);
end;

[smart]

Vielen Dank für den Code. Ich habe zuvor mit VB programmiert. Ein Kollege hatte mir sein Delphi 5 überlassen weil er sich Delphi 2005 zugelegt hat. Für mich ist es eine ganz schöne Umstellung.

[dizzy]

Mit Betonung auf schön hoff ich doch

[smart]

Bei TImage kann man mit TImage.Stretch das Bild strecken. Gibt es bei TBitmap eigendlich auch so eine Funktion, so dass man immer eine ganze Form ausfüllen kann?

[Keldorn]

canvas+f1 zu draw anschauen, siehe auch anklicken und canvas.stretchdraw finden. Du hast allerdings keine möglichkeit, wie beim image durch setzen der proportional eigenschaft die proportionen beizubehlaten, das mußt du selbst erledigen.
Form.clientrect kannst du auch noch gebrauchen