массив TImage в потоке

[Bayazet]

собственно вот в чем мой вопрос:
есть поток, который создает массив TImage на ScrollBox'е основной формы
поток работает, параметры в него заходят, все вроде бы хорошо, но на ScrollBox ничего не отображается.
Подскажите, в чем моя ошибка?

модуль потока:

type
  TInParams = record
    Paths : TStrings;
    ScrBox : TScrollBox;
  end;

  TImages = Array of TImage;

  TImgThread = class(TThread)
  private
    Paths : TStrings;
    ScrBox : TScrollBox;
    imgs : TImages;
  public
    constructor Create(params : TInParams);
    procedure Execute; override;
  end;

implementation

constructor TImgThread.Create(params : TInParams);
begin
  inherited Create(false);
  Paths := params.Paths;
  ScrBox := params.ScrBox;
end;

procedure TImgThread.Execute;
  var
    i : integer;
begin
    SetLength(imgs, Paths.Count);
    SetLength(lbls, Paths.Count);
    for i := 0 to Paths.Count-1 do
    begin
      imgs[i] := TImage.Create(ScrBox);
      imgs[i].Parent := ScrBox ;
      imgs[i].Picture.LoadFromFile(Paths.Strings[i]);
    end;
end;

и как я его вызываю:

procedure TForm1.Button1Click(Sender: TObject);
  var
    thr : TImgThread;
    params : TInParams;
begin
    params.Paths := Memo1.Lines;
    params.ScrBox := Form1.ScrollBox1;
    thr := TImgThread.Create(params);
end;

[Пепел Феникса]

1)такое в поток выносить нет смысла.
2)в потоке нарушено правило VCL.(читаем комментарий в пустом модуле потока)

[Bayazet]

1) смысл есть. я не стал нагружать вопрос всеми нюансами задачи. если в кратце, то это будет некий просмотрщик картинок, находящихся в папке. кликаем на первую папку, запускается поток, начинает отрисовывать все картинки, которые в этой папке. кликаем на другую папку, поток прерывается и начинается отрисовка картинок из другой папки.
2) не очень понял, что где читать?

[Пепел Феникса]

начинает отрисовывать все картинки

нет не начинает.
рисует основной поток, грузит то этот.
НО надо тогда сначало грузить картинку, а лишь потом ставить родителя.
кстати, а ошибка в том что не задаете размеры и координаты.

[Bayazet]

да. что-то я забыл про это. в смысле, когда вопрос публиковал. размеры и координаты я задаю. вот так:

procedure TImgThread.Execute;
  var
    i : integer;
begin
    SetLength(imgs, Paths.Count);
    for i := 0 to Paths.Count-1 do
    begin
      imgs[i] := TImage.Create(ScrBox);
      imgs[i].Parent := ScrBox;
      imgs[i].Stretch := true;
      imgs[i].Proportional := false;
      imgs[i].Width := ImgWidth;
      imgs[i].Height := ImgHeight;
      imgs[i].AutoSize := false;
      imgs[i].Left := (i mod (ScrBox.Width div ImgWidth))*(ImgWidth + 10);
      imgs[i].Top := (i div (ScrBox.Width div ImgWidth))*(ImgHeight + 20);
      imgs[i].Picture.LoadFromFile(Paths.Strings[i]);
  end;
end;

так много шелухи в позиционировании TImage чтобы они по ScrollBox'у распределялись в виде таблицы

ЗЫ: даже если Parent в самом конце метода устанавливать, все равно не рисуется

[3D Hunter]

Эх, молодежь....

procedure TImgThread.DrawImg;
var
  i: integer;
begin
    SetLength(imgs, Paths.Count);
    for i := 0 to Paths.Count-1 do
    begin
      imgs[i] := TImage.Create(ScrBox);
      imgs[i].Parent := ScrBox;
      imgs[i].Stretch := true;
      imgs[i].Proportional := false;
      imgs[i].Width := ImgWidth;
      imgs[i].Height := ImgHeight;
      imgs[i].AutoSize := false;
      imgs[i].Left := (i mod (ScrBox.Width div ImgWidth))*(ImgWidth + 10);
      imgs[i].Top := (i div (ScrBox.Width div ImgWidth))*(ImgHeight + 20);
      imgs[i].Picture.LoadFromFile(Paths.Strings[i]);
  end;
end;

procedure TImgThread.Execute;
begin
  Synchronize(DrawImg);
end;

[veniside]

procedure TImgThread.Execute;
begin
  Synchronize(DrawImg);
end;

этот набор операторов можно упростить:

DrawImg();

заодно избавившись от потока. Пользы будет в 5 раз больше.

Bayazet, не получится у вас рисовать не в главном потоке. Загрузить что-то, возможно, получится (не факт), рисовать — нет.

[Bayazet]

3D Hunter, все так же не рисует
как понимаю, других вариантов, кроме как потоком просто рисовать на канве основной формы каждую картинку, нет? не получится загрузить массив TImage

[Bayazet]

решение проблемы вот:
в цикле создаем TImage: imgs[i] := TImage.Create(nil);
а уже после всех настроек оного имаджа, загрузки в него картинки, вызываем метод
Synchronize(PostImg);
где

procedure TImgThread.PostImgLbl;
begin
  b_img.Parent := ScrBox;
end;