Hallo zusammen,
ich habe momentan ein dringendes Problem mit einem StringGrid.
Auf einem StringGrid werden innerhalb einer Schleife mehrere Panels erzeugt und positioniert:
Delphi-Quellcode:
with TPanel.Create(self) do
begin
t_caption:='blabla';
Name:='PNL'+IntToStr(t_panelnr);
Parent:=PlanGrid;
Alignment:=taLeftJustify;
Caption:=t_caption;
Color:=clBelegt;
Height := PlanGrid.DefaultRowHeight;
Top := t_raumzeile * (PlanGrid.DefaultRowHeight+1);
Left := Round((PlanGrid.DefaultColWidth+1) / 120 * t_beginn) + PlanGrid.ColWidths[0];
Width := Round((PlanGrid.DefaultColWidth+1) / 120 * t_dauer);
BevelInner:=bvLowered;
Visible:=true;
OnMouseDown:=DummypanelMouseDown;
OnMouseMove:=DummypanelMouseMove;
OnMouseUp:=DummypanelMouseUp;
end;
Nun tritt zur Laufzeit folgendes Problem auf:
Das StringGrid ist immer länger als angezeigt werden kann. Beim ersten Aufruf wird bis zur letzten sichtbaren Zeile alles richtig dargestellt. Wird nun mit der Maus nach nach unten gescrollt, werden die Panels zerstückelt, da der neue sichtbare Bereich offensichtlich nicht automatisch neu gezeichnet wird. Beim Zerstückeln gibt es den selben Effekt.
Bei welchem Ereignis kann ich das Neuzeichnen des Panels mit Repaint anstoßen?
Oder welche Ursache vermutet ihr für die falsche Darstellung nach dem Scrollen?
Noch zur Info: Die Panels werden extra so erzeugt, damit sie anschließend per Drag&Drop verschoben werden können. Dies funktioniert soweit...
Danke,
storfi