[Macrobot]

Приветствую всех. Друзья помогите справится с задачей. Надо чтоб при выборе в компоненте ComboBox менялась картинка в компоненте TImage
Как поменять цвет например самого обьекта form разобрался а как к картинкам привязать не пойму.
Картинки находятся в папке image

С изменением цвета код такой

Код:

procedure TForm1.ComboBox1Change(Sender: TObject);
var
i: integer;
begin
i:=combobox1.ItemIndex;
case i of

 0: color:= clred;
 1: color:= clblue;
 2: color:= clgreen;
end;
end;
end.

Админ: Пользуемся тегами для оформления кода!

Впринципе разобрался. Но на сколько корректно подскажите.

Код:

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
if ComboBox1.ItemIndex = 0 then
    Image1.Picture.LoadFromFile('1.jpg')

  else if ComboBox1.ItemIndex = 1 then
    Image1.Picture.LoadFromFile('2.jpg')

  else if ComboBox1.ItemIndex = 2 then
    Image1.Picture.LoadFromFile('3.jpg')

  else if ComboBox1.ItemIndex = 3 then
    Image1.Picture.LoadFromFile('4.jpg')

   else if ComboBox1.ItemIndex = 4 then
    Image1.Picture.LoadFromFile('5.jpg')

 end;

[angvelem]

Корректно, но можно короче:

Код:

if ComboBox1.ItemIndex <> -1 then
  Image1.Picture.LoadFromFile(IntToStr(ComboBox1.ItemIndex) + '.jpg')

[AlexSku]

Лучше загружать не из файла, а заранее поместить картинки в TImageList. Оттуда потом брать по индексу.

[Macrobot]

Если можно строчку кода напишите чтоб извлекать в Timage
примерно так?

Код:

var
 Index: integer;  //индекс картинки в ImageList
begin
 Index:=0; // берем 1-ю картинку и вставляем в Image1
  Imagelist1.GetBitmap(Index, Image1.Picture.Bitmap);
end;

Не совсем получается через Imagelist картинки очень мелкие становятся. А по умалчанию 200пикселов они. Где поменять в свойствах чтоб размер реальный был?

[Macrobot]

Может кто подсказать почему картинки в Imagelist становятся маленькими. хотелось бы чтоб они были оригинальными

[lmikle]

все картинки в ImageList одинакового размера. У самого ImageList есть свойства, определяющие высоту и ширину картинки. ImageList полезен, когда у тебя небольшие (по физ. размерам) картинки одинакового размера. Если данное условие не соблюдается, то лучше при старте программы просто загрузить картинки в массив или список и потом просто копировать их в TImage (ну или брать из ресурсов, но это, как я понимаю, для тебя пока высший пилотаж).