Hallo Leute,
ich programmiere im Moment einen Chat. Dabei werden die verschiedenen Nachrichten (TFrame) untereinander in einem GridPanel dargestellt. Das funktioniert auch schon sehr gut, nur habe ich ein Problem wenn ich ältere Nachrichtet oben anfügen möchte (dynamisches nachladen).
Egal was ich mache, die neuen Einträge werden immer in der letzten Reihe eingefügt. Außerdem scheint es das ich Reihen nur austauschen kann. Ich muss also den neuen Eintrag mit jedem Eintag aus dem Gridpanel tauschen um ihn an die erste Stelle zu bekommen. Das dauert allerdings bei vielen Nachrichten zu Lange...
Delphi-Quellcode:
procedure SortLastControlOfGridPanel(inGridPanel: TGridPanel);
var
lICurrentRow : Integer;
begin
lICurrentRow := inGridPanel.ControlCount - 1;
while (lICurrentRow > 0) and (CompareStr(inGridPanel.ControlCollection.Controls[0, lICurrentRow].Name, inGridPanel.ControlCollection.Controls[0, lICurrentRow-1].Name) < 0) do
begin
inGridPanel.ControlCollection.ControlItems[0, lICurrentRow].Row := inGridPanel.ControlCollection.ControlItems[0, lICurrentRow-1].Row;
lICurrentRow := inGridPanel.ControlCollection.ControlItems[0, lICurrentRow-1].Row;
end;
end;
Im Moment füge ich die neuen Nachrichten so ein:
Delphi-Quellcode:
lFrameNotizVorschau := TFrameNotizVorschau.Create(nil);
lFrameNotizVorschau.BedienerZiel := inSBedienerZiel;
//GridPanelVorschau.ControlCollection.AddControl(lFrameNotizVorschau, 0, 0); // friert Anwendung ein
lFrameNotizVorschau.Parent := GridPanelVorschau;
//GridPanelVorschau.ControlCollection.AddControl(lFrameNotizVorschau, 0, 0); // Kein Effekt
lFrameNotizVorschau.Name := 'NotizVorschau_' + LCSFormatDateTime('yyyymmdd', inNotiz.Datum) + '_' + LCSFormatDateTime('hhmmss', inNotiz.Zeit);
SortLastControlOfGridPanel(GridPanelVorschau); //Zu langsam da alle Einträge im Gridpanel verschoben werden müssen
Kennt Jemand eine Möglichkeit Einträge in der 1. Reihe einzufügen?