Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Звук, графика и видео > Пишу курсовую, есть вопросы

Автор: ahito1 15.5.2009, 21:18

Пишу софтину для просмотра графики (png, ico, jpeg, tiff, bmp, gif), могу загружать изображение в программу, сохранять его и т.д., но не могу реализовать такой вот механизм(скриншот в приложенном файле).
Механизм заключается в том что в программу можно добавить н-ное количество картинок и все они будут минимизированно отображатся в нижней части программы, обязательно со скролбаром если не умещаются, а в центре две картинки: 1)исходная, 2)эта же но уже после применения эффектов(сепия, чернобелый и т.д.).

Заранее благодарю!

Автор: Alexeis 15.5.2009, 21:24

Модератор: Название темы должно отражать ее суть!

Автор: Keeper89 16.5.2009, 03:25

ahito1, если вас интересует только наличие полос прокруток в окнах Image, смотрите, например, вот http://www.greatis.com/delphicb/tips/lib/components-scrollimage.html, хотя, думаю, на форуме это тоже обсуждалось.
А так формулируйте вопрос более точно. ;)

Автор: ahito1 16.5.2009, 16:33

Keeper89, спасибо поковыряю, ещё напишу.

Автор: ahito1 17.5.2009, 18:25

Вопрос такой: С помощью какого кода создается новый TImage(их много) как дочерний элемен скроллбокса?

Автор: Keeper89 17.5.2009, 21:05

Код


procedure TForm1.Button1Click(Sender: TObject);
const
  IMG_COUNT = 9;
var
  myImages: array[0..IMG_COUNT] of TImage;
  i: Integer;
begin
  for i := Low(myImages) to High(myImages) do
  begin
    myImages[i] := TImage.Create(ScrollBox1);
    myImages[i].Parent := ScrollBox1;
    with myImages[i] do
    begin
      Width := 20;
      Height := 20;
      Left := 0;
      Top := 30 * i;
      Visible := True;
      Picture.LoadFromFile('F:\1.bmp');
    end;
  end;
end;