Bild wird nicht in drawgrid geladen

[Luckie]

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

[Perlsau]

Zitat von St0rmhunter:

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 von 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;

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!
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 von 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;

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 (Du solltest aber unbedingt noch auf absolute Pfade umstellen).

[Perlsau]

Zitat von St0rmhunter:

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