Canvas: "erlaubt kein Zeichnen"

[Sir Rufo]

So ich habe das mal eben compiliert und ausgeführt ... und das läuft perfekt

Im Anhang nochmals die Quellen und die EXE

[VkPenguin]

.. Du hast Recht, ich hatte einen anderen Fehler gemacht, tut mir leid.

Das Testprogramm funktioniert so aber immernoch nicht, mache noch irgendetwas falsch. Fügt man die eingeklammerte Zeile hinzu geht es, aber ich will das Bild ja nicht auf dem Desktop haben, das hab ich nur beim lesen gerade gefunden. Scheint immernoch der am Anfang bereits genannte Fehler zu sein, ich weiß nur nicht, wie ich der Canvas das beibringen soll.. vielleicht find ichs ja noch

Delphi-Quellcode:

Program test;
uses
  ExtCtrls,
  Variants,
  mmsystem,
  sysutils,
  Windows,
  Messages,
  Classes,
  Graphics,
  Controls,
  Forms,
  Math,
  Dialogs,
  StdCtrls,
  JPEG,
  IniFiles;


{W A R T E}

procedure wait(t: extended);
  var
    a: extended;
  begin
    a := GetTickCount;
    repeat
      Application.ProcessMessages;
    until (GetTickCount > a+t);
  end;

VAR
Beispiel :TCanvas;
Bild:Tbitmap;
x,y:Integer;
Begin
  Beispiel:=Tcanvas.create;
  // 2. Objekt erzeugen
  bild := TBitMap.Create;
  // 3. BitMap aus Datei laden, damit wird Größe gesetzt
  bild.LoadFromFile('abc.bmp');
  // 4. Eigenschaften einstellen
  bild.Transparent := true;
   x := 5; y :=5;
  // 5. Bitmap anzeigen
 // Beispiel.Handle := GetWindowDC(0);
  Beispiel.Draw(x,y,bild);



  wait(1500);
  // 6. Speicher freigeben
  bild.free;
 Beispiel.free
end.

[Sir Rufo]

Zitat von VkPenguin:

.. Du hast Recht, ich hatte einen anderen Fehler gemacht, tut mir leid.

Ja, du hast eben nicht das Beispiel genommen, sondern Auszüge daraus ohne zu verstehen, was da eigentlich passiert und warum.

Zitat von VkPenguin:

Das Testprogramm funktioniert so aber immernoch nicht, mache noch irgendetwas falsch. Fügt man die eingeklammerte Zeile hinzu geht es, aber ich will das Bild ja nicht auf dem Desktop haben, das hab ich nur beim lesen gerade gefunden.

Aber wo willst du das Bild denn gemalt haben? Mir ist das nicht klar und dem Computer - treudoof wie der ist - ist das schon mal gar nicht klar.

Zitat von VkPenguin:

Scheint immernoch der am Anfang bereits genannte Fehler zu sein, ich weiß nur nicht, wie ich der Canvas das beibringen soll.. vielleicht find ichs ja noch

Der Canvas brauchst du nichts beibringen, du musst ihr das nur mitteilen.

Du solltest eigentlich gelernt haben:

• aha, wenn ich der Canvas einen DC-Handle zuweise (ok, war der vom Desktop), dann geht da was
• ich brauche also ein DC-Handle von dem, wo ich das gemalt haben will

Somit müsstest du jetzt eigentlich nur noch auf der Suche nach diesem DC-Handle sein.

Also, wo soll das Bild denn gemalt werden, dann finden wir ja evtl. das richtige DC-Handle

[himitsu]

Zitat von Sir Rufo:

dann finden wir ja evtl. das richtige DC-Handle

Und vielleicht sogar schon ein vorhandenes/fertiges Canvas.

[Perlsau]

Zitat von himitsu:

Zitat von Sir Rufo:

dann finden wir ja evtl. das richtige DC-Handle

Und vielleicht sogar schon ein vorhandenes/fertiges Canvas.

Gerüchten zufolge sollen ja TImage und TPaintBox über je ein bereits vordefiniertes Canvas verfügen. Toll, dieses Delphi

[VkPenguin]

Guten Morgen,
danke für Eure Antworten.
@ SirRufo: Genau das wollte ich mit meinem Post sagen, tut mir leid, wenn ich mich so missverständlich ausgedrückt habe

Das Problem ist, dass ich es selbst nicht so genau weiß. Ich arbeite seit einiger Zeit an einem Infoprogramm, das vom Ergebnis her inzwischen garnicht so schlecht ist (find ich als völliger Anfänger zumindest). Bei dem Spiel möchte ich nun die handgezeichneten Kreise durch wesentlich hübschere Bilder ersetzen, die sich dann über den Bildschirm bewegen. Das DC-Handle, das ich suche muss also die bereits gezeichneten Dinge in meinem Programm übermalen, insonfern sie nicht schon gelöscht sind und sich auch übermalen lassen. Ich bin allerdings noch nicht dahinter gekommen, wie ich rausfinde, welche Ebene ich dazu bearbeiten muss - wie gesagt bin ich im moment aber auch erstmal mehr nach einem grundlegenderen Tutorial auf der Suche, damit sich das

Zitat:

[...]Ja, du hast eben nicht das Beispiel genommen, sondern Auszüge daraus ohne zu verstehen, was da eigentlich passiert und warum[...]

ändert.

[Medium]

@Perlsau: TPaintbox nicht! Die reicht nur an das Canvas des Parents durch.

@VkPenguin: Du muss doch irgendwie wissen, wo du hin zeichnest, was du bisher malst Zeig doch mal das Zeichnen deiner alten Kreise auszugsweise als Code. Nicht exemplarisch - echtes Copy&Paste aus deinen Quellen bitte