Da versuch ich mal ein Testprogramm zu bauen, das aktuelle verwendet noch andere Units, die machen die Suche nur unübersichtlich. Ich baue ein neues Programm nur mit dem Grid.
Wo ist dieses Edit, das ich mir anschauen soll?
Hier!
So wie es vorher(aktuell ist) kann es nicht funktionieren.
Delphi-Quellcode:
l := TGridColumn(TStringList(FRowsContainer.Items[ARow]).Objects[ACol]).Left; // left wird l zugewiesen
t := TGridColumn(TStringList(FRowsContainer.Items[ARow]).Objects[ACol]).Top; // Top wird t zugewiesen
DrawRectangleClip(vscreen,l,t,l+w,t+h,ToColor(colBlack));
// Beide variablen werden nicht verwendet daher gehen diese Zuweisungen auf dieser Basis ins leere.
t := t + h; // t wird anschließend incrementiert aber nicht mehr benutzt weil die Variable t nicht global definiert ist und vorher nicht zugewiesen wird.
l := l + w; // l wird anschließend incrementiert aber nicht mehr benutzt weil die Variable l nicht global definiert ist und vorher nicht zugewiesen wird.
Du hättest es spätestens bemerkt wenn du über deinen Fehler hinweg gekommen wärst.