Platzierungs Problem bei Scrollbox

[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.