StringGrid Zelle + TImage

[youuu]

Hi,

ich habe eine Frage ist es möglich in einer StringGrid Zelle ein TImage anzuzeigen?

Delphi-Quellcode:

StringGrid1.Cells[1,1]] := ImageLiniePositionen.Canvas.Lineto(round(200),round(0));

Funktioniert leider nicht und

Delphi-Quellcode:

ImageLiniePositionen.Canvas.Lineto(round(200),round(0));

StringGrid1.Cells[1,1]] := ImageLiniePositionen.Canvas.ToString;

funktioniert leider auch nicht.

[mkinzler]

Ein StringGrid kann von sich aus nur Text ( Strings) anzeigen. Du müsstest das Zeichenn des Bildes selber durchführen ( Stichwort OwnerDraw)

[youuu]

Hm,

Delphi-Quellcode:

if StringGridPositionen.Cells[3, Sell_Row_Count + 4] = '' then
     StringGridPositionen.Canvas.Lineto(round(200),round(0));

Im OnDrawCell Ereignis

Nur passiert dabei nicht in der Zelle und ich bin auch irgendwie nicht ganz zufriden mit meiner Formulierung.

Hast du einen Tipp

[mkinzler]

Du solltest dir die Hilfe zu diesem Event noch einmal genauer durchlesen

[youuu]

Also ganz ehrlich, bin ich nicht schlau aus der Hilfe geworden. Kannst du mir einen Denkanstoss geben?

[mkinzler]

Der Event wird für jede Zelle aufgerufen. in den Parametern ACol, ARow stehen dann die Indizes der Zelle.
Du musst also nur überprüfen, ob es sich um die gewünschte Zelle handelt. Im Parameter Rect erhälst du daie Begrenzungen der aktuellen Zelle.

[youuu]

Habe ich hinbekommen, denke das müsste auch richtig sein.

Delphi-Quellcode:

    if StringGridPositionen.Cells[ACol, ARow] = StringGridPositionen.Cells[3, Sell_Row_Count + 4]  then
    Begin
      StringGridPositionen.Canvas.MoveTo(Rect.Right,rect.Top);
      StringGridPositionen.Canvas.LineTo(Rect.left,rect.Top);
    End;

Zeichnet mir nun auf einmal mehrere Linien, aber normal dürfte es doch nur in einer Zelle eine Linie zusehen sein und nicht in fast allen?

[mkinzler]

Delphi-Quellcode:

if ACol = 3 and  ARow = Sell_Row_Count + 4 then ...

[DeddyH]

Und das dann noch geklammert, damit der Compiler nicht meckert.

Delphi-Quellcode:

if (ACol = 3) and ( ARow = Sell_Row_Count + 4) then ...

[youuu]

Super danke euch, hat geklappt.