Icon aus ImageList ins StringGrid laden!

[Alterauge]

Hallo,

habe da noch eine Frage !

1.) habe ein StringGrid
2.) habe eine ImageList

So, wenn im StringGrid sagen wir mal:

if StringGrid1.Cells [1, StringGrid1.FixedRows] ='Eingang' then begin // steht Dann möchte ich gerne in die 6 Spalte ein Icon zeichen!

Delphi-Quellcode:

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  if StringGrid1.Cells [1, StringGrid1.FixedRows] ='Eingang' then begin


  end;
end;

Was muss ich machen?
Finde leider nur Beispiele für ein DBGrid!

[Uwe Raabe]

Delphi-Quellcode:

var
  X, Y: Integer;
begin
  if (ACol = 6) and (ARow >= StringGrid1.FixedRows) and (StringGrid1.Cells [1, ARow] ='Eingang') then begin
    { eventuell noch zentrieren }
    X := Rect.Left;
    Y := Rect.Top;
    ImageList1.Draw(StringGrid1.Canvas, X, Y, 0, true);  { 0 = erstes Image in ImageList }
  end;
end;

[Alterauge]

Hallo Uwe Raabe,
danke läuft !

Wie mache ich das mit dem zentrieren?

Danke

[Uwe Raabe]

Zitat von Alterauge:

Wie mache ich das mit dem zentrieren?

Delphi-Quellcode:

var
  P: TPoint;


    P := CenterPoint(Rect);
    X := P.X - ImageList1.Width div 2;
    Y := P.Y - ImageList1.Height div 2;

[Alterauge]

hallo Uwe,

habe noch ein Problem, mit dem zentrieren

[Helmi]

wohl eher so:
(Klammern)

Delphi-Quellcode:

     X := (P.X - ImageList1.Width) div 2;
     Y := (P.Y - ImageList1.Height) div 2;

[Uwe Raabe]

Zitat von Helmi:

wohl eher so:
(Klammern)

Delphi-Quellcode:

     X := (P.X - ImageList1.Width) div 2;
     Y := (P.Y - ImageList1.Height) div 2;

Wohl eher nicht! Die linke Koordinate des Image bekommt man, wenn man vom Mittelpunkt die halbe Breite abzieht.

Beispiel: Rect(10, 10, 210, 210), ImageWidth = 100, ImageHeight = 100

P = CenterPoint(Rect) = (110, 110)
X = P.x - ImageWidth/2 = 110 - 50 = 60

Linke Kante des Bilds ist dann bei 60, was 50 von der linken Kante des Rechtecks (10) entfernt ist.
Rechte Kante des Bilds ist dann auf 60 + 100 = 160, was genau 50 von der rechten Kante (210) entfernt ist.

Mit deiner Formel käme man auf:

X = (P.x - ImageWidth)/2 = (105 - 100)/2 = 2.5

Damit liegt die linke Kante des Bilds schon mal außerhalb des Rechtecks...


was irgendwie nicht richtig aussieht.

[Helmi]

stimmt, sorry - du hast recht - das war zu schnell getippt