TstringGrid Problem

[marabu]

Hallo Klaus,

der Typ TRect wird schon gefunden, da die Unit Windows eingebunden ist.

Interessant wäre den fehlerhaften Aufruf von Rect() in Zeile 71 (wie vom Compiler gemeldet) zu sehen.

Freundliche Grüße

[SaFu]

vielleicht hilft das

[donmarkus]

also habe jetzt "Types" eingebuden. Nun kommt eine andere Fehlermeldung: "not enough parameters" ->

Canvas.Draw(Rect.Left + 5, Rect.Top + 5, bm);

Wisst ihr weiter?

[marabu]

Hallo Markus,

die Zeile für sich genommen ist in Ordnung. Du musst mal den Kontext (die Funktion oder Prozedur) zeigen. Markiere die fehlerhafte Zeile mit einem Zeilenendekommentar. Und zeige auch deine Uses-Klausel.

Freundliche Grüße

[donmarkus]

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, StdCtrls, ImgList,Types, Menus;

Code:

procedure TMines.Button1Click(Sender: TObject);
var bm: TBitmap;
begin
  if Sender <> NIL then
  with Sender as TStringGrid do
  begin
    bm := TBitmap.Create;
    try
      ImageList1.GetBitmap(0, bm);  
      Canvas.Draw(Rect.Left + 5, Rect.Top + 5, bm);    //hier kommt die oben genannte fehlermeldung
    finally
      FreeAndNil(bm);
    end;
  end;
end;

wie gesagt will ich in eine Zelle ein kleines bildchen einfügen.Eine Imagelist habe ich erstellt.

[marabu]

Mensch Markus,

hast du nicht bemerkt, dass dir René in Beitrag #4 den Code für das Ereignis OnDrawCell() gezeigt hat? Du kannst diesen Code nicht einfach in die ButtonClick() Prozedur einbauen.

Freundliche Grüße

[smudo]

Hallo donmarkus,

ich hoffe, dass klingt jetzt nicht oberlehrerhaft.
Aber wie wärs, erstmal mit etwas einfachem anzufangen.
Ich meine, das Ondraw-Ereignis einer Componente abzufangen und mit Canvas zu zeichnen ist ja nicht grad das kleine 1x1