Rechtecke auf TCanvas "verteilen"

[Thorben_Ko]

Ich bin jedes Element durch gegangen und hab auf die Werte geprüft

Delphi-Quellcode:

    for x1 := 0 to fColCount - 1 do
    begin
      for y1 := 0 to fRowCount - 1 do
      begin
        if (Y > fItems[x1,y1].Top) and (Y <  fItems[x1,y1].Height + fItems[x1,y1].Top) and
          (x > fItems[x1,y1].Left) and (X < fItems[x1,y1].Left + fItems[x1,y1].Width)  then
        begin
          Field := fItems[x1,y1];
          found := True;
          Break;
        end;
      end;
      if found then
        Break;
    end;

Wobei:


  fItems : Array of array of TField; TField zeichner einfach das Rechteck auf den Canvas.

Aber noch was anderes...

Ich dachte es wird kein probleme das die die elemente die selben "Aussenlienen" teilen, leide wurde es soeben doch eines...
Ich hab die Höhe und breite einfach um eins zu verkleinern, leider gab das nur ein durscheinander auf dem Canvas...

Hat jemand ne idee?