Listbox.ItemIndex und Nebenwirkungen

[Rainer Wolff]

Hallo,

ich weiss gar nicht, wie ich mein Problem am besten beschreiben soll, da Teil eines komplexen Systems.

Ich benutze Spring4d mitsamt ORM. Dort hole ich eine Liste von Rezepten ab. Die Rezepte haben eine Liste von Schritten.
Die Rezepte werden in einer ersten Listbox gespeichert, und zwar mit Text und mit der Liste der Vorgänge als Object.

Sobald in der ersten Liste ein Eintrag selektiert wird, wird eine zweite Listbox mit den Schritten als sortierte Liste gefüllt (CurrentList.Ordered()-Funktion aus Spring).
Diese Schritte haben alle x-y Koordinaten und ein Bild. Diese werden skaliert auf eine Paintbox gezeichnet.

Das Zeichnen läuft in einer "for Schritt in Liste"-Schleife.

Sobald ich nun innerhalb dieser Schleife auch nur eine Zeile mit

Code:

Listbox2.ItemIndex;

schreibe, verschiebt es meine Grafikskalierung und mein Bild stimmt nicht mehr (Zugriff auf Itemindex, da der aktuell angewählte Schritt auch grafisch hervorgehoben werden soll).

Umgehen lässt sich das Problem dadurch, daß ich im Listbox2.Click Event den ItemIndex und das Schritt-Objekt des aktuellen Eintrags zwischenspeichere und diese Werte dann in meiner Schleife verwende).

Ich vermute, daß irgendwo mit den IList<Schritt>-Elementen und Enumeration was schief geht.

Kann mir jemand vielleicht einen Hinweis geben, wie ich weiter suchen kann? Ich kann auch gerne weitere Details oder Code zeigen, nur ist das halt ziemlich verschachtelt, vor allem, wenn es in die Untiefen der grafischen Darstellung geht.

Delphi-Version übrigens Berlin, da muss die Forensoftware mal aktualisiert werden

[Fritzew]

Kannst Du mal den code Zeigen an dem die Listbox2 gefüllt wird?

[Rainer Wolff]

Zitat von Fritzew:

Kannst Du mal den code Zeigen an dem die Listbox2 gefüllt wird?

Code:

procedure TFormStanzprogrammeditor.ListBox1Click(Sender: TObject);
var
  Stanzschritt: TStanzschritt;
begin
  ListBox2.Items.Clear;
  CurrentProgram := (ListBox1.Items.Objects[ListBox1.ItemIndex] as TStanzprogramm).Steps;

  for Stanzschritt in CurrentProgram.Ordered(
    function(const left, right: TStanzschritt): Integer
    begin
      result:=Sign(right.PosX-Left.PosX);
    end) do
  begin
    ListBox2.Items.AddObject('PosX:'+Stanzschritt.PosX.ToString+' PosY:'+Stanzschritt.PosY.ToString, Stanzschritt)
  end;
  CurrentIndex:=ListBox2.ItemIndex;
  MyPaintbox1.Invalidate;
end;

Zeichnen dann (vereinfacht) hier:

Code:

procedure TFormStanzprogrammeditor.ZeichnePlatine;
var
  Stanzschritt: TStanzschritt;
begin
  if not Assigned(CurrentProgram) then
    Exit;
  for Stanzschritt in CurrentProgram do
  begin
    if Stanzschritt.Werkzeug.wmfgrafik.mmwidth > 0 then
    begin
      MyPaintbox1.DrawBitmap(Stanzschritt.AbsPosX(Platine), Stanzschritt.AbsPosY(Platine),  Stanzschritt.Werkzeug.wmfgrafik);
    end
// sobald diese Zeile aktiv ist, stimmt die Grafik nicht mehr
    ListBox2.ItemIndex;
    if CurrentIndex<0 then
       continue;
     if Stanzschritt.OID=currentObject.OID then // Hier wollte ich auf die Listbox2 mit dem aktuellen Objekt zugreifen
     begin
     MyPaintbox1.Bitmap.Canvas.Pen.Color:=clRed;
     MyPaintbox1.Circle(Stanzschritt.AbsPosX(Platine)+imgwidth, Stanzschritt.AbsPosY(Platine) ,8);
     MyPaintbox1.Bitmap.Canvas.Pen.Color:=clBlack;
     end;

  end;
end;

[Aviator]

Zitat von Rainer Wolff:

Delphi-Version übrigens Berlin, da muss die Forensoftware mal aktualisiert werden

Warum das denn? Siehe Anhang.

[Uwe Raabe]

Zitat von Aviator:

Zitat von Rainer Wolff:

Delphi-Version übrigens Berlin, da muss die Forensoftware mal aktualisiert werden

Warum das denn? Siehe Anhang.

Er meint die Delphi-Version zum aktuellen Thema, nicht die im eigenen Profil.

[Rainer Wolff]

Genau die, die im Profil geht

[Fritzew]

Also direkt sehe ich da nichts was mit Spring zu tun hat.

Delphi-Quellcode:

 procedure TFormStanzprogrammeditor.ListBox1Click(Sender: TObject);
snip.....
CurrentIndex:=ListBox2.ItemIndex; // Ist das so gewollt? Müsste ja nach ListBox2.Items.Clear -1 sein

Hast Du Eventhandler mit der Listbox2 verbunden?

[Rainer Wolff]

Zitat von Fritzew:

Also direkt sehe ich da nichts was mit Spring zu tun hat.

Die Listen werden über Spring/Marshmallow geladen und sind vom Typ Spring.Collections.IList<TStanzschritt>

Zitat von Fritzew:

Hast Du Eventhandler mit der Listbox2 verbunden?

Nix ausser dem OnClick

[Fritzew]

Sorry da habe ich mich wohl nicht richtig ausgedrückt.
Gemeint war: Ich sehe da nichts was als Problem auf Spring4d zurückzuführen wäre.

Jetzt hilft nur noch der Debugger. Mit debug dcu kompilieren und durchsteppen beim zugriff auf Listbox2.Itemindex

[Aviator]

Zitat von Uwe Raabe:

Zitat von Aviator:

Zitat von Rainer Wolff:

Delphi-Version übrigens Berlin, da muss die Forensoftware mal aktualisiert werden

Warum das denn? Siehe Anhang.

Er meint die Delphi-Version zum aktuellen Thema, nicht die im eigenen Profil.

Ok. Hat er ja auch im nächsten Beitrag bestätigt. Nur hatte er, als ich meinen Beitrag geschrieben hatte, in seinem Profil noch Seattle stehen. Von daher ging ich davon aus, dass er diese Einstellung meint. Die Profileinstellung hat er ja mittlerweile angepasst.