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

[DeddyH]

Man muss aber auch daran denken, im OnPaint zu zeichnen

[SearchBot]

Hm.. das mit dem TPanel -> Canvas rausnehmen funktioniert zwar, aber das Malen nicht.

Ich will testweise beim irgendwo klicken, daß es mir dort einen Punkt hinmalt. Mit dem Umgebauten Panel klappt das aber nicht - wahrscheinlich, weil das Panel im Entwurfsmodus nicht das gleiche ist, das ich "ausgehebelt" habe...?

Wenn ich im OnPaint zeichnen soll, ist das aber ungeschickt, weil ich auf den Klick reagieren will und nur dann was zeichnen will (OnClick).

Und TPaintbox erscheint garnicht bzw. ich male dann direkt auf die Form...

[Uwe Raabe]

Im TPaintBox.OnPaint soll auch nur das aktuelle Bild (und zwar immer das ganze) gezeichnet werden. Wie das auszusehen hat ist eine andere Geschichte.

Allerdings funktioniert das mit dem Zeichnen auf TImage.Picture.Bitmap.Canvas schon. Wichtig dabei ist aber ein vorheriges SetSize, um die Bitmap auch so groß zu machen, wie das Image.

Etwas Code wäre hilfreich.

[SearchBot]

Zitat von Uwe Raabe:

Allerdings funktioniert das mit dem Zeichnen auf TImage.Picture.Bitmap.Canvas schon. Wichtig dabei ist aber ein vorheriges SetSize, um die Bitmap auch so groß zu machen, wie das Image.

Ja, das ist klasse. So mache ich da jetzt auch.
Derzeit bin ich aber an dem Problem daran, die Bitmap wieder zu leeren, um neue Informationen darauf darzustellen.

Im Forum fand ich den Hinweis, die Bitmap.width:=0 zu setzen; danach mache ich wieder setsize, aber das Bild von zuvor ist immernoch da
Irgendwie scheine ich nach links zu gucken und rechts zu pinseln...

Aktueller Stand:

Code:

procedure TForm2.FormShow(Sender: TObject);
var Can:TBitmap;

 function FRect(x,y,x2,y2:word):TRect;
 begin
   result.Left:=x;
   result.Right:=x2-x;
   result.Top:=y;
   result.Bottom:=y2-y;
 end;

begin
// panel1 ist ein TImage;
 with panel1 do begin
  Top:=0;
  Left:=0;
  Width:=screen.DesktopWidth;
  Height:=screen.DesktopHeight;
 end;
 Can:=panel1.Picture.Bitmap;
 
 Can.SetSize(0,0);            //Bild löschen geht so nicht
 Can.Width:=0; Can.Height:=0; //Bild löschen geht so auch nicht
 
 Can.SetSize(panel1.Width, panel1.Height);
 Can.Canvas.Brush.Color:=clBlack;
 Can.Canvas.FillRect(FRect(0,0,panel1.Width,panel1.Height));
end;

(aus einem bestimmten Grund nutze ich nicht panel1.align:=alClient !)

Und so male ich auf dem Bitmap:

Code:

procedure TForm2.FormClick(Sender: TObject);
var p:TPoint; can:TCanvas;
const size=10;

begin
  Can:=Panel1.Picture.Bitmap.Canvas;
  getCursorPos(p);
  p:=ScreentoClient(p);
  Can.Brush.Color := clRed;
  Can.Pen.Color := clBlack;
 with p do begin
  r.Left:=x-size; r.Top:=y-size;
  r.Bottom:=y+size; r.Right:=x+size;
  Can.Ellipse( r.left, r.Top,r.Right,r.Bottom);
 end;
end;

Was läuft falsch, wenn ich das dann nicht mehr aus dem BitMap weg bekomme?