Mein Programm hat nach dem start ein kleines Grafikproblem

[Daniel B]

Hallöchen,

ich habe heute nochmal ein bisschen damit rumgespielt.
1. Habe ich die LV von Funktionen gelöscht und das von Loks dahin kopiert, sodas es die gleiche Einstellungen hat.
- Leider nichts gebracht
2. Ich habe auf dem dritten PC die L gelöscht und einfach eine neue eingefügt. Nur vsReport, GridLines und Header eingeschaltet.
- Genauso schlimm

Eigentlich ist alles noch schlimmer geworden. Den, vorher kammen die nach dem zweiten Switchen auf das jeweilige PC, die Header wieder. Die ist jetzt gar nicht mehr der Fall. Egal ob bei der Kopierten, oder bei der neu eingefügten. Die LV auf dem vierten PC hat immernoch das verhalten, das nach dem zweiten Umschalten die Header gehen.

Weiterhin ist mir noch etwas aufgefallen. Siehe Anahng. Dies ist eine der neue LV. Die ganzen eingefügten Einträge sind ja gar nicht sichtbar. Nicht nur die Header.
Langsam mach ich mir ernthafte Sorgen...

Grüsse, Daniel

[Daniel B]

Zitat von Daniel B:

Weiterhin ist mir noch etwas aufgefallen. Siehe Anahng. Dies ist eine der neue LV. Die ganzen eingefügten Einträge sind ja gar nicht sichtbar. Nicht nur die Header.
Langsam mach ich mir ernthafte Sorgen...

Das problemchen am schluss das gar nichts mehr sichtbar ist, lag daran, das ich noch keine Columns hinzugefügt hatte.
Also, wieder nur das Problem wie von anfang an.
Und zwar egal ob ich die LV aus Loks kopiere und bei Funktionen einfüge, oder bei Weichenstarassen ein komplett neue hinsetze.
Nach dem zweiten anzeigen des TSheets, ist es weg und die Header wieder normal sichtbar.

Grüsse, Daniel

[Daniel B]

Ich habs!
Ich hab mir mal gedacht, schaust Dir mal genauer an, was Du in der ShowProz. überhaupt machst.
Am anfang rufe ich folgende Prozuder auf:

Delphi-Quellcode:

procedure TMainFormMC2004.LVFktFuellen;
//ListView KK Funktionen mit Daten aus dem Loks-Record füllen
var
  i: integer;
begin
  ListViewKKFkt.Clear;
  for i := 0 to MC2004.MenueInit.FktAnzahl -1 do
  begin
    ListViewKKFkt.Items.Add;
    with ListViewKKFkt.Items.Item[ListViewKKFkt.Items.Count -1] do
    begin
      Caption := IntToStr(MC2004.MenueInit.FktStamm[i].FktID);
      SubItems.Add(MC2004.MenueInit.FktStamm[i].FktName);
      SubItems.Add(IntToStr(MC2004.MenueInit.FktStamm[i].FktAdresse));
      SubItems.Add(IntToStr(i));
    end;
  end;
  Check;
end;

Ich füge den Inhalt des Arrays in die LV ein.
Hab mal die Proz. ausgeklammert und der Fehler ist weg.
Ach, ich bin so glücklich.

Die frage ist nun, wie umgehe ich das?
Ich brauch ja die Prozeduren da drin. Irgendwo verständlich da noch nichts im Array drin ist. Wenn ich vorher was in den Arrays lade und dann die TS umschalte ist das Problem nicht. Da auch Inhalt in den Arrays drin ist.
Hmm...
*grübel*

Grüsse, Daniel

[phlux]

Bringt da BeginUpdate und EndUpdate vllt irgendwas

[Daniel B]

Hi phlux,

nein, leider nicht.
Auch kein ReFresh, oder RePaint, oder LV.Canvas.ReFresh.
Alles nichts.

Grüsse, Daniel

[Daniel B]

Hallöchen,

ich habe den Fehler gefunden und behoben. Jetzt geht alles so wie es sollte.
Das Problem: LV.Clear;
Die Lösung: LV.Items.Clear;

*anshirnklatsch*

Grüsse, Daniel