Verständnisfrage: TImage

[SearchBot]

Hm..

Ich habe im Entwurfsmodus eine TImage auf eine Form geklickt.
Wird diese dann ohne mein Zutun created und bei Programmende destroyed?

Während ich das Programm laufen lasse, male ich im canvas darauf herum.

Normal geht das auch.
Jetzt bekomme ich schon beim Aufruf einen EOutOfResources.

Hinweis: Mein TImage heißt panel1 (weil ich eigentlich auf einem TPanel malen wollte, das aber nicht ging und dann nur den Namen angepasst habe )

Code:

 
 panel1.Top:=0;
 panel1.Left:=0;
 panel1.Width:=screen.DesktopWidth;
 panel1.Height:=screen.DesktopHeight; 
 panel1.Canvas.Brush.Color:=clblack; //hier bleibt es mit dem EOutOfResources hängen ("Erste Gelegenheit..")
 panel1.Canvas.FloodFill(0,0,clblack,fsSurface);

Also wird da wohl etwas nicht korrekt destroyed?
Oder kann das sein, wenn ich aus dem Debugger das Programm (Strg+F2) ausknipse, daß dann auch die Resourcen nicht freigegeben werden?

Oder noch ein anderer Denkfehler?

[Uwe Raabe]

Du solltest nicht auf dem Canvas des Image malen, sondern auf panel1.Picture.Bitmap.Canvas:

Delphi-Quellcode:

 
 panel1.Top:=0;
 panel1.Left:=0;
 panel1.Width:=screen.DesktopWidth;
 panel1.Height:=screen.DesktopHeight;
 panel1.Picture.Bitmap.SetSize(panel1.Width, panel1.Height);
 panel1.Picture.Bitmap.Canvas.Brush.Color:=clblack;
 panel1.Picture.Bitmap.Canvas.FloodFill(0,0,clblack,fsSurface);

TImage ist nur ein Container für eine Grafik, die wiederum im Property Picture enthalten ist. Zum Malen verwendet man dann dessen Bitmap-Property.

[Helmi]

Zitat von Uwe Raabe:

TImage ist nur ein Container für eine Grafik, die wiederum im Property Picture enthalten ist. Zum Malen verwendet man dann dessen Bitmap-Property.

Oder man nimmt eine Malkasten-Komponente (TPaintBox)

[DeddyH]

Übrigens hat auch ein Panel einen Canvas, nur ist der protected. Man kommt aber da ran, wenn man will.

Delphi-Quellcode:

type
  TPanel = class(ExtCtrls.TPanel)
  public
    property Canvas;
  end;

  TForm1 = class(TForm)
    Panel1: TPanel;
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

Damit kann man nun schön auf dem Panel herummalen.

[SearchBot]

Aww wie cool, danke für eure Antworten

TPaintBox war auch meine erste Überlegung, hat aber überhaupt nicht funktioniert - darum bin ich über TPanel zur TImage gekommen.

[Helmi]

Zitat von SearchBot:

TPaintBox war auch meine erste Überlegung, hat aber überhaupt nicht funktioniert

Was hat denn nicht funktioniert?

Eine PaintBox ist zum Zeichnen da