Form1.Canvas.Assign funktioniert nicht ?!?

[alcaeus]

Hi! Ich versuche mit folgendem Code, eine beliebige Grafik auf ein Form zu kopieren:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  Background := TBitmap.Create;
  try
    Background.Width := ClientWidth div 2;
    Background.Height := ClientHeight div 2;
    Image1.Width := ClientWidth div 2;
    Image1.Height := ClientHeight div 2;
    Background.Canvas.Brush.Style := bsSolid;
    Background.Canvas.Brush.Color := clBlack;
    Background.Canvas.FillRect(Rect(0,0,Width,Height));
    Image1.Canvas.Assign(Background.Canvas);
    Form1.Canvas.Assign(Background.Canvas);
  finally
    Background.Free;
  end;
end;

Background ist eine Private-Variable des Forms, Image1 ist eine TImage-Kompo auf dem Form. Auf dem Image zeigt es mir den Inhalt des Background-Bitmaps an (derzeit ein weißes Rechteck), aber auf dem Form keine Spur. Kann mir hier irgendjemand weiterhelfen?

[Robert Marquardt]

Warum sollte das funktionieren?
Ich habe mal nachgeschaut und TCanvas hat kein eigenes Assign, also kommt AssignTo zum Zuge und damit wiederum TCanvas das auch kein AssignTo hat.
Es passiert also garnichts.

[alcaeus]

Aber wieso funktioniert es dann beim TCanvas der Image-Kompo? Ist TCanvas nicht gleich TCanvas?

[SirThornberry]

warum machst du nicht einfach form1.canvas.draw oder du könntest auch BitBlt verwenden

[Robert Marquardt]

Das mit dem Canvas eines TImage ist heftig vertrackt. Steig doch einfach mal den VCL Sourcen nach.

Insgesamt ist es eigentlich ein bischen merkwuerdig eine Leinwand (Canvas) der anderen zuweisen zu wollen.
Wie SirThornberry bereits angemerkt hat will man doch eigentlich auf die Leinwand malen.

[Jens Schumann]

Zitat von alcaeus:

Background ist eine Private-Variable des Forms, Image1 ist eine TImage-Kompo auf dem Form. Auf dem Image zeigt es mir den Inhalt des Background-Bitmaps an (derzeit ein weißes Rechteck), aber auf dem Form keine Spur. Kann mir hier irgendjemand weiterhelfen?

Wie machst Du das. Wenn ich Deinen Source starte bekomme in der Zeile Image1.Canvas.Assign(Background.Canvas); Die Fehlermeldung TBitmapCanvas kann nicht zu TBitmapCanvas zu gewiesen werden.

!!! Du müsstest aber ein schwarzes Rechteck sehen. Das würde mich stutzig machen !!!

[alcaeus]

Also dann macht D7 Ent da wohl einen Unterschied. Irgendwie muss es ja gehen, alles in einem Bitmap vorzuzeichnen und dann aufs Form zu geben? Ich will nämlich nicht auf jedes Form eine eigene Image-Property geben. Das Problem tritt daher auf, da ich beim normalen Paint auf einem Canvas ja neu zeichnen muss, falls etwas drübergeht. Deshalb hätte ich das ganze gern auf diese Art gelöst. Ich schau mir auf alle Fälle die VCL-Sourcen an.
@Jens: Das schwarze Rechteck sehe ich, allerdings nur das in der TImage, und nicht auf dem Form.
Kann mir jemand den Befehl CopyRect in diesem Zusammenhang näher erklären? Ich habs mit dem versucht, hat aber auch nicht funktioniert. Vielleicht habe ich ihn aber nur falsch verstanden

[alcaeus]

Also, ich könnte mein Delphi zum Fenster rauswerfen! Zuerst funktioniert der ganze Käse, jetzt plötzlich nicht mehr. So, zu der Draw-Funktion habe ich noch eine Frage. Kann mir jemand ganz schnell sagen, wie ich ein TCanvas-Objekt in ein TGraphic-Objekt umwandle?

[dizzy]

Gar nicht.
Was du vor hast ist irgendwie nicht so optimal. Das beste wäre, wenn du via BitBlt oder Draw dein Bitmapinhalt auf das Form zeichnest. Du musst dies aber immer beim OnPaint des Formulars erneut machen! (Ähnlich wie bei der Paintbox)

IMHO wäre es echt einfacher einfach eine Image-Kompo auf die Forms zu schmeissen, und da dann mit 1x Assign das Bitmap rein, und gut ist.
Wenn es viele dynamisch erzeugte Forms sind, kannst du dir ja eine Klasse von TForm ableiten die schon gleich ein TImage mitbringt - und dann davon instanzieren.

gruss,
dizzy