Platzierungs Problem bei Scrollbox

[mimi]

Hallo,
ich habe da vermutlich ein kleines problem mit der Srcollbox, sicher bin ich mir nicht aber nach meinen test zuurteieln liegt es eindeutig an der Scrollbox.
also ersteinmal der code;

Delphi-Quellcode:

procedure TForm1.AddUserColors(Color:TColor);
var
  Shape:TShape;
  Count:Integer;
  l:Integer;
  c:TComponent;
begin

  Colors.Add(ColorToString(Color));
  Colors.SaveToFile(GetExeDir + '\' + uColor);

  Count:=GetUserColorShape;

  Shape:=TShape.Create(Form1);
  l:=-18;
  if Count = 0 then
    Shape.Left:=0
  else begin
    c:=TShape(FindComponent('T' + IntToStr(Count-1)));

    if c <> NIL then
      l:= GetOrdProp(c,'Left');

    Shape.Top:=((Count) div ColorDisplayCount)*18;

    if Count = ((Count) div ColorDisplayCount)*ColorDisplayCount then
      l:=0
    else
      l:=l+18;

    ShowMessage(IntToStr(Shape.Top) + '\' + IntToStr(l));

    Shape.Left:=l;

  end;


  Shape.Name:='T'+IntToStr(Count) ;


  Shape.Width:=16;
  Shape.Height:=16;
  Shape.Parent:=ScrollBox2;
  Shape.Brush.Color:=color;
  Shape.OnMouseDown:=Shape3MouseDown;
end;

diese code soll jetzt folgendes machen:
Er soll mir ein Shape zur laufzeit hinzufügen(funktiniert)
ColorDisplayCount bedeutet einfach nur das er 5 shappe in eine reihe anzeigt
ColorDisplayCount hat den wert 5 zu testzwecken bekommen normalerweise sollte es bei mir 70 sein.
die ersten 5 zeilen funktinieren einwand frei dann geht es los:
Die erste komponente wird noch richtig platziert aber die zweite in dieser zeile nicht mehr die wird um ca 2 pixel nach unten verscchoben und die nachfolgeden sogar um ca 18 pixel weiter nach unten so das große lücken entstehen.

(ich hoffe ihr könnt nachvollziehen was ich meine)
das seltsamme ist: ich nutzte die formel zur berechnung(selbst ausgedacht) in zwei weiteren funktionen dort funtkioniert es die sind zum laden da d.h. sie laden die farbwerte aus einer Datei in die Scrollbox1 und scrollbox2 rein. und ich habe es mit dem windows Taschenrechner nachgerechnet. Ich kann ja nicht gut mahte aber das müste ich noch können meiner meinung nach.

Also wer den fehler findet dem währe ich richtig dankbar.

!!!Vielen dank schonmal im vorraus !!!

PS:
seltsamm das ist schon heute das zweite problem wo ich mich im gleichem programm festgefahren habe und es nicht selbst lösen kann. ich glaube ich gehe besser ins Bett. Morgen ist ja auch noch ein Tag *G*

[ChrisE]

Hallo Mimi,

also ich hab den Quelltext nahezu übernommen und kann dir eine gute / schlechte Nahricht bringen: Bei mir gehts

Nun zu den Unterschieden von meinem Quelltext zu deinem Quelltext:

Delphi-Quellcode:

procedure TForm1.AddUserColors(Color:TColor);
var
  Shape:TShape;
  Count:Integer;
  l:Integer;
  c:TComponent;
begin
  // muss ich ja nicht machen
  //Colors.Add(ColorToString(Color));
  //Colors.SaveToFile(GetExeDir + '\' + uColor);

  Count:=GetUserColorShape(ScrollBox1);  // siehe unten

  Shape:=TShape.Create(Form1);
  l:=-18;
  if Count = 0 then
    Shape.Left:=0
  else begin
    c:=TShape(FindComponent('T' + IntToStr(Count-1)));  // Warum ist C nicht TShape und heißt s. Würde es leichter machen. Aber egal

    if c <> NIL then
      l:=  TControl(c).Left;//,'Left');  // die von Dir verwendete Methode habe ich so ersetzt

    Shape.Top:=((Count) div 5)*18;   // Fixe Größe für ColorDisplayCount

    if Count = ((Count) div 5)*5 then  // dito
      l:=0
    else
      l:=l+18;

    ShowMessage(IntToStr(Shape.Top) + '\' + IntToStr(l));

    Shape.Left:=l;

  end;


  Shape.Name:='T'+IntToStr(Count) ;


  Shape.Width:=16;
  Shape.Height:=16;
  Shape.Parent:=ScrollBox1;
  Shape.Brush.Color:=color;
  //Shape.OnMouseDown:=Shape3MouseDown;  // Brauchte ich auch nicht für meinen Test
end;


// Gibt mir den Count der Shapes zurück
function TForm1.GetUserColorShape(AParent: TWinControl): Integer;
var
  i : Integer;
begin
  result := 0;
  for i := 0 to ComponentCount -1 do
    if (Components[i] is TShape) then
      if TShape(Components[i]).Parent = AParent then inc(result);
end;

Vielleicht bringt es dir ja was, wenn ich Dir diesen Code gebe der bei mir tut. Kann den Fehler eben leider so nicht reproduzieren.

Gruß und viel Erfolg beim Fehler suchen.

Chris

P.S.: Das einzige was die Eigenschaft von Top wirklich beeinflußt, sind die Vars Count und ColorDisplayCount. Versuche Dir einfach mal eine Listbox mit einer Zeile ala
ListBox1.Items.Add(Format('Count = %8d | ColorDisplayCount = %8d' ,[Count, ColorDisplayCount])); auszugeben.
Und noch was zu der Zeile:
if Count = ((Count) div ColorDisplayCount)*ColorDisplayCount then Dies entspricht einer Abfrage, ob in der Zeile bereits ColorDisplayCount Elemente enthalten sind oder anders Formuliert, ob bei der Teilung von Count durch ColorDisplayCount ein Rest entsteht. Daraus folgt eine einfache Formulierung
if (Count mod ColorDisplayCount) = 0 then // hat die Teilung keinen Rest, dann... Aber das nur zur Info.

[mimi]

vielen dank für den versuch mir zu helfen, aber leider kommt der fehler wieder.
Der fehler kommt nicht in den ersten zeilen der fehler kommt erst später. ich glaube das war ab zeile 5 und dann versuche mal bis 6 zu kommen.

Ich habe deinen qullcode übernommen.
(Leicht angepasst weil es bei mir Scrollbox2 ist) ich vermute der fehler liegt an der Scollbox.

Wenn du schon ein einges projekt hast versuche mal folgendes:
Stelle displayCount auf 5 leere die liste(falst du eine hast) und füge farben hinzu.
sagen wir mal 35 farben(manuell) der fehler sollte schon vor 35 auftretten.
Weil dann werden die Shaps falsch plaziert.
Übrings vielen dank für den tip mit der zählung der Shaps die idee hatte ich nicht.

[ChrisE]

Look @ this (Anhang)

Hatte Dein Problem wirklich soweit getestet. Nur versuche mal das mit der Listbox wie ich es gemacht habe. Das sind die zwei Größen, die Top ändern können. Vielleicht verschiebt/ändert es die ja.

Gruß, Chris

[mimi]

stelle mal die scrollbox höhe bei dir etwas runter z.b. auf 69 und breite 553 dann wird das problem evlt. auch auftrenten, und wenn liegt es an der scollbox !