Bild wird nicht in drawgrid geladen

[St0rmhunter]

Ich versuche eine bmp-Datei in ein Segment eines drawgrids zu laden wie es hier beschrieben ist : http://www.delphipraxis.net/3009-im-...r-groesse.html

Jedoch funktioniert das nicht bei mir. Das Programm hängt sich einfach auf und es gibt keine Fehlermeldung 0o

Danke jetzt schonmal für eure Hilfe =)

[Coffeecoder]

Hi, Zeig mal bitte dein Code.
Ist dein Pfad zum Bild korrekt?

[St0rmhunter]

Das Bild liegt im selben Ordner wie das Programm / exe-Datei und Units.

Code ist beim Button-Click Ereignis eingefügt. Das drawgrid ist 5x5 Felder groß.

Delphi-Quellcode:

procedure TForm1.Button1.Click(Sender: TObject);
var
bild:TBitmap;
begin
bild:=TBitmap.Create;
bild.LoadFromFile('logo.bmp');
DrawGrid1.Canvas.Draw(0,0,logo);
end;

[Bernhard Geyer]

1, Du gibtst dein Bitmap nicht mehr frei

2, Ohne Pfadangabe das Bild zu laden wird nicht immer funktionieren.

3, Die Variable heiß bild. Woher kommt die verwendete variable "logo"?

4, Hast du auch die kommentare in deinem Verlinkten Thread durchgelesen?

5, Dein Bild würde immer auf die Koordinaten 0/0 gezeichnet

[ibp]

Delphi-Quellcode:

procedure TForm1.Button1.Click(Sender: TObject);
var
bild:TBitmap;
begin
bild:=TBitmap.Create;
bild.LoadFromFile('logo.bmp');
DrawGrid1.Canvas.Draw(0,0,logo);
end;

du solltest das Bild "bild" auch dem Grid zuweisen und nicht "logo"!

Delphi-Quellcode:

DrawGrid1.Canvas.Draw(0,0,bild);

[St0rmhunter]

@Bernhard
1. was meinst du mit freigeben?
2. Wenn das Bild im Verzeichnis des Programms / der Units und Projektdateien liegt müsste es doch eigentlich so geladen werden können.
3. Das war wohl ein flüchtigkeitsfehler die Variable ist und bleibt bild, die Bilddatei heißt logo.bmp (Kann man in eine Bitmap eigentlich auch andere Dateitypen laden wie jpg oder png?)
4. Ja habe ich durchgelesen was ist mit denen?
5. Das weiß ich soll ja auch so sein.

Jetzt der Code ohne flüchtigkeitsfehler :D

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var bild: TBitmap;
begin
bild:=TBitmap.Create;
bild.loadfromfile('logo.bmp');
drawgrid1.Canvas.Draw(0,0,bild);
end;

[Perlsau]

Zitat:

Zitat von St0rmhunter (Beitrag 1147237)

@Bernhard
1. was meinst du mit freigeben?

Freigeben heißt, daß man ein mit Create erstelltes Objekt vor Verlassen der Procedure wieder freigeben muß. Das geschieht am besten durch FreeAndNil. Schau mal in deiner Online-Hilfe. Bei mir funktioniert dieser Code einwandfrei:

Delphi-Quellcode:

procedure TFormMain.DrawGrid1Click(Sender: TObject);
var
   bild:TPicture;
begin
   bild:=TPicture.Create;
   bild.LoadFromFile(Pfad + 'logo.bmp');
   DrawGrid1.Canvas.Draw(0,0,bild.Graphic);
   FreeAndNil(bild);
end;

Erklärung:

1. Die Draw-Methode der Zeichenfläche (Canvas) erwartet ein TGraphic und nicht ein TBitmap. Das kannst du ebenfalls in deiner Online-Hilfe nachlesen.

2. Wenn du das zu ladende Bild immer im Anwendungsordner hast, dann ist es sinnvoll, diesen Ordner bei Programmstart in einem String abzuspeichern:

Delphi-Quellcode:

Pfad := ExtractFilePath(Application.ExeName);

. Ansonsten könnte es nämlich nach der Verwendung eines Dateidialogs wie z.B. Opendialog nicht mehr gefunden werden, weil dabei das Verzeichnis gewechselt wurde.

[Coffeecoder]

Zitat:

Zitat von St0rmhunter (Beitrag 1147237)

3. Das war wohl ein flüchtigkeitsfehler die Variable ist und bleibt bild, die Bilddatei heißt logo.bmp (Kann man in eine Bitmap eigentlich auch andere Dateitypen laden wie jpg oder png?)

Wenn du das machen willst, wäre es besser ein TImage zunehmen anstelle von TBitmap.

[Perlsau]

Zitat:

Zitat von Coffeecoder (Beitrag 1147252)

Zitat:

Zitat von St0rmhunter (Beitrag 1147237)

3. Das war wohl ein flüchtigkeitsfehler die Variable ist und bleibt bild, die Bilddatei heißt logo.bmp (Kann man in eine Bitmap eigentlich auch andere Dateitypen laden wie jpg oder png?)

Wenn du das machen willst, wäre es besser ein TImage zunehmen anstelle von TBitmap.

TImage benötigt er nicht, es genügt TPicture, das verlangt keine Zuweisung eines Owners.

[St0rmhunter]

Vielen dank Leute klappt jetzt =)

Kleine Interessensfrage was is der Unterschied zwischen TImage und TPicture?

Nochmals danke =)

[Luckie]

Zeig noch mal bitte deinen funktionierenden Code, nur zur Sicherheit.

[Perlsau]

Zitat:

Zitat von St0rmhunter (Beitrag 1147260)

Vielen dank Leute klappt jetzt =)

Kleine Interessensfrage was is der Unterschied zwischen TImage und TPicture?

Nochmals danke =)

Ein TImage ist eine Komponente, die du auf ein Form pflanzen kannst. TPicture ist eine Eigenschaft von TImage. Ein TPicture ist ein Objekt, das auch ohne TImage generiert werden kann. Schau doch mal in deine Online-Hilfe, dort wird alles haarklein erklärt.

[St0rmhunter]

@Luckie Tschuldigung für den verspäteten Post hab deine Bitte erst zu spät gesehn

Das ist der funktionierende Code:

Delphi-Quellcode:

procedure TFormMain.DrawGrid1Click(Sender: TObject);
var
   bild:TPicture;
begin
   bild:=TPicture.Create;
   bild.LoadFromFile('logo.bmp');
   DrawGrid1.Canvas.Draw(Feld.CellRect(0,0).left,Feld.CellRect(0,0).top,bild.Graphic);
end;

[DeddyH]

Da Delphi nicht über einen GC verfügt, sollte man die angeforderten Ressourcen nach Gebrauch auch wieder freigeben.

Delphi-Quellcode:

procedure TFormMain.DrawGrid1Click(Sender: TObject);
var
   bild:TPicture;
begin
   bild:=TPicture.Create;
   try
      bild.LoadFromFile('logo.bmp');
      DrawGrid1.Canvas.Draw(Feld.CellRect(0,0).left,Feld.CellRect(0,0).top,bild.Graphic);
   finally
      bild.Free;
   end;
end;

[Perlsau]

Zitat:

Zitat von St0rmhunter (Beitrag 1147947)

@Luckie Tschuldigung für den verspäteten Post hab deine Bitte erst zu spät gesehn

Das ist der funktionierende Code:

Delphi-Quellcode:

procedure TFormMain.DrawGrid1Click(Sender: TObject);
var
   bild:TPicture;
begin
   bild:=TPicture.Create;
   bild.LoadFromFile('logo.bmp');
   DrawGrid1.Canvas.Draw(Feld.CellRect(0,0).left,Feld.CellRect(0,0).top,bild.Graphic);
end;

Du kopierst einfach meinen Code, paßt ihn ein wenig an und bedankst dich dann bei jemandem, der dir definitiv nicht weitergeholfen hat? Immerhin hab ich dir noch zusätzlich den Unterschiedn zwischen TImage und TBitmap erklärt! :cry:
Ein wenig soziale Kompentenz hin & wieder kann nicht schaden ... Ansonsten fühlen sich Leute, die dir uneigennützig und kostenlos weiterhelfen, schnell mal vor den Kopf gestoßen.

Vergiß es und verzeih, ich hab mich kurz vor dem Post über jemanden ganz furchtbar geärgert, da kam gerade die Benachrichtigung über ein neues Post zum Thema, und ich hab mich völlig unreflektiert einfach weitergeärgert. Das galt aber im Grunde nicht dir, war eine Übersprungshandlung von mir. Nichts für ungut.

Delphi-Quellcode:

procedure TFormMain.DrawGrid1Click(Sender: TObject);
var
   bild:TPicture;
begin
   bild:=TPicture.Create;
   bild.LoadFromFile(Pfad + 'logo.bmp');
   DrawGrid1.Canvas.Draw(0,0,bild.Graphic);
   FreeAndNil(bild);
end;

Dennoch hast du einen krassen Fehler in deiner Procedure. Wenn du deinen Code mit meinem noch einmal vergleichst, fällt er dir sicher selber auf.

[Perlsau]

Zitat:

Zitat von DeddyH (Beitrag 1147948)

Da Delphi nicht über einen GC verfügt, sollte man die angeforderten Ressourcen nach Gebrauch auch wieder freigeben.

Delphi-Quellcode:

procedure TFormMain.DrawGrid1Click(Sender: TObject);
var
   bild:TPicture;
begin
   bild:=TPicture.Create;
   try
      bild.LoadFromFile('logo.bmp');
      DrawGrid1.Canvas.Draw(Feld.CellRect(0,0).left,Feld.CellRect(0,0).top,bild.Graphic);
   finally
      bild.Free;
   end;
end;

Das Ganze in einen TRY-Block zu verpacken ist natürlich wesentlich besser, es könnte ja sein, daß beim Laden was schiefläuft.

[St0rmhunter]

Entschuldigung hätt ich nicht deinen funktionierenden Code übernehmen dürfen?

[DeddyH]

Zumindest meinen darfst Du übernehmen :mrgreen: (Du solltest aber unbedingt noch auf absolute Pfade umstellen).

[Perlsau]

Zitat:

Zitat von St0rmhunter (Beitrag 1148156)

Entschuldigung hätt ich nicht deinen funktionierenden Code übernehmen dürfen?

Ich hatte mich bereits entschuldigt:

"Vergiß es und verzeih, ich hab mich kurz vor dem Post über jemanden ganz furchtbar geärgert, da kam gerade die Benachrichtigung über ein neues Post zum Thema, und ich hab mich völlig unreflektiert einfach weitergeärgert. Das galt aber im Grunde nicht dir, war eine Übersprungshandlung von mir. Nichts für ungut."

[sx2008]

Mal so ganz grundsätzlich :!:
Auf einem Drawgrid zeichnet man nur aus dem Event OnDrawCell heraus.
Wenn man direkt auf das Grid zeichnet (also ausserhalb des Events), kann der Refresh des Drawgrids nicht richtig funktionieren.
Das analoge Prinzip gilt übrigens auch für die TPaintbox.

Wenn ein DrawGrid gezeichnet wird, dann ruft es für jede einzelne Zelle einmal OnDrawCell auf (natürlich nicht jedesmal für alle Zellen, sondern nur für diejenigen, die auch tatsächlich neu gezeichnet werden müssen). Man muss den Inhalt einer Zelle also im OnDrawCell Ereignis zeichnen, nicht vorher und nicht nachher.

Hier ein Beispiel von Embacadero:
http://docwiki.embarcadero.com/CodeS...l_%28Delphi%29