TScrollBox & Array of TImage

[kirsan007]

Необходимо на TScrollBox разместить (программно) TImage. При добавлении новой картинки предыдущие смещать вниз на n пикселей(т.е одна над другой добавляется)
Я делал так

var y: integer;  mImage: Array[1..100500] of TImage; i:integer;

.................................

y:=y+1;

for i := 1 to y-1 do begin
mImage[i].Top := mImage[i].Top+77;
end;

mImage[y] := TImage.Create(nil);
mImage[y].Parent := ScrollBox1;
mImage[y].Top := 20;
mImage[y].Left := 40;
mImage[y].Width := 590;
mImage[y].Picture.LoadFromFile('someimage.bmp');

Где y порядковый номер Timage от 1 до n

Всё добавляется так как надо. НО когда прокручиваешь вниз скрулбокс и добавляешь ещё 1 картинку то она добавляется по верх других(т.е не сначала окошка скрулбокса, а с начала прокрученной области)

Надеюсь поймёте.

[ArtGrek]

даже не прадставляеш как хорошо понимаю тебя)))

mImage[i].Top := mImage[i].Top+77 - ScrollBox.Position;

[kirsan007]

Увы =( не помогло
Изменений особых не произошло.

Вот иллюстрации
Без прокрутки

Прокрутил


Как видно из иллюстраций, 8й пост добавился не над всеми а поверх 6го.

[ArtGrek]

даите весь код или залеите проект

[Rin]

По видимому значения ScrollBox.position не совпадает с значением Top.
Top измеряется в пикселях, а вот ScrollBox.position не знаю в чём, но видать не в пикселях.

var multiplication:extended; 
.............................
multiplication:=2;//подбери множитель

mImage[i].Top := mImage[i].Top+77 - (ScrollBox.Position*multiplication);

и всё в поряде будет)
P.S. Раз у тебя будут добавляться новые записи, то Position у скролбокса будет меняться, следовательно multiplication тоже.

[kirsan007]

Тоже не вышло =(
Видимо что то не то делаю
Вот примерный код (на форме 1 панель, на ней мемо + баттон, ну и сам скрулбокс

unit Unit10;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, jpeg, ExtCtrls, pngimage;

type
  TForm10 = class(TForm)
    ScrollBox1: TScrollBox;
    Panel1: TPanel;
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form10: TForm10;  x,y,z : integer;  mImage: Array[0..100500] of TImage; i:integer;

implementation

{$R *.dfm}

procedure TForm10.Button1Click(Sender: TObject);
var text:string; multiplication:extended;
begin
y:=y+1;
if y>1 then begin
multiplication:=190;
for i := 1 to y-1 do mImage[i].Top := mImage[i].Top+77 //- (ScrollBox.Position*multiplication);
end;

mImage[y] := TImage.Create(nil);
mImage[y].Parent := ScrollBox1;
mImage[y].Top := 20;
mImage[y].Left := 40;
mImage[y].Width := 590;
mImage[y].Picture.LoadFromFile('chat_bord1.bmp');
x:=-54;
with mImage[y].Canvas do
  begin
    Font.Color  := clWhite;
    Brush.Style := bsclear;
    Font.Size   := 12;
    TextOut(91, x+71, Memo1.Lines[0]);
  end;
  Memo1.Lines.Clear;
end;

procedure TForm10.FormCreate(Sender: TObject);
begin
y := 0;
end;

end.

Вложил картинку.

[Rin]

У меня добавляет куда надо, только вот затирая нижние.
13
12
11
10
9
8
7
6
5
4
3
2
1
опускаю скрол в самый низ, вписываю в мемо "14" и жмахаю по button
вставляет куда надо, только вот с 1 по 9 затирает.

[kirsan007]

Если не сложно скринами покажите(из сказанного мало что понял).
И как заставить этот код нормально работать?

[Rin]

при вставке "8" стирается "1".

[kirsan007]

Это мой код или вы дописали его? Если дописали то поделитесь пожалуйста.
Потому что у меня совсем другое получается(скрины уже выкладывал).

И если можете организовать данную задачу иным способом, или довести мой код до ума, то не могли бы вы сделать это?