[SOLVED] TScrollBox and panel order

[superc]

Hello,

I have a perhaps stupid problem but I can't solve it: I have a TScrollBox with 'alTop' aligned panels inside; I put them in a specific order but now they are all messed up: how can I order them the way I want? thank you in advance

[balazsszekely]

Hello,

I have a perhaps stupid problem but I can't solve it: I have a TScrollBox with 'alTop' aligned panels inside; I put them in a specific order but now they are all messed up: how can I order them the way I want? thank you in advance

At design time just drag drop each panel to its place.
At runtime try something like this:

Code: Pascal  [Select][+][-]

1. var
2.   I: Integer;
3. begin
4.   for I := 0 to ScrollBox1.ControlCount - 1 do
5.     if (ScrollBox1.Controls[I] is TPanel) then
6.       (ScrollBox1.Controls[I] as TPanel).Align := alNone;
7.  
8.  
9.   for I := 0 to ScrollBox1.ControlCount - 1 do
10.   begin
11.     if (ScrollBox1.Controls[I] is TPanel) then
12.     begin
13.       (ScrollBox1.Controls[I] as TPanel).Align := alTop;
14.       (ScrollBox1.Controls[I] as TPanel).Top := (ScrollBox1.Controls[I] as TPanel).Tag*((ScrollBox1.Controls[I] as TPanel).Height + 1);
15.     end;
16.   end;
17. end;

See attached project for more details.

[superc]

Hello,

I have a perhaps stupid problem but I can't solve it: I have a TScrollBox with 'alTop' aligned panels inside; I put them in a specific order but now they are all messed up: how can I order them the way I want? thank you in advance

At design time just drag drop each panel to its place.
At runtime try something like this:

Code: Pascal  [Select][+][-]

1. var
2.   I: Integer;
3. begin
4.   for I := 0 to ScrollBox1.ControlCount - 1 do
5.     if (ScrollBox1.Controls[I] is TPanel) then
6.       (ScrollBox1.Controls[I] as TPanel).Align := alNone;
7.  
8.  
9.   for I := 0 to ScrollBox1.ControlCount - 1 do
10.   begin
11.     if (ScrollBox1.Controls[I] is TPanel) then
12.     begin
13.       (ScrollBox1.Controls[I] as TPanel).Align := alTop;
14.       (ScrollBox1.Controls[I] as TPanel).Top := (ScrollBox1.Controls[I] as TPanel).Tag*((ScrollBox1.Controls[I] as TPanel).Height + 1);
15.     end;
16.   end;
17. end;

See attached project for more details.

so to do a safe and precise sorting I have to assign a tag... right?

[KodeZwerg]

I have not tried wp's way of doing, I am kinda do the same except that my "Top" is just increasing by 1 for each element.
Exemplary:

Code: Pascal  [Select][+][-]

1. (ScrollBox1.Controls[I] as TPanel).Top := Succ(i);

[balazsszekely]

@superc

so to do a safe and precise sorting I have to assign a tag... right? 

Yes.