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?