|
#1
|
|||
|
|||
ComboBox и TImage
Приветствую всех. Друзья помогите справится с задачей. Надо чтоб при выборе в компоненте 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; Последний раз редактировалось Macrobot, 02.03.2015 в 22:52. |
#2
|
||||
|
||||
Корректно, но можно короче:
Код:
if ComboBox1.ItemIndex <> -1 then Image1.Picture.LoadFromFile(IntToStr(ComboBox1.ItemIndex) + '.jpg') Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |
Этот пользователь сказал Спасибо angvelem за это полезное сообщение: | ||
Macrobot (03.03.2015)
|
#3
|
|||
|
|||
Лучше загружать не из файла, а заранее поместить картинки в TImageList. Оттуда потом брать по индексу.
|
Этот пользователь сказал Спасибо AlexSku за это полезное сообщение: | ||
Macrobot (03.03.2015)
|
#4
|
|||
|
|||
Если можно строчку кода напишите чтоб извлекать в Timage
примерно так? Код:
var Index: integer; //индекс картинки в ImageList begin Index:=0; // берем 1-ю картинку и вставляем в Image1 Imagelist1.GetBitmap(Index, Image1.Picture.Bitmap); end; Не совсем получается через Imagelist картинки очень мелкие становятся. А по умалчанию 200пикселов они. Где поменять в свойствах чтоб размер реальный был? Последний раз редактировалось Macrobot, 03.03.2015 в 13:32. |
#5
|
|||
|
|||
Может кто подсказать почему картинки в Imagelist становятся маленькими. хотелось бы чтоб они были оригинальными
|
#6
|
|||
|
|||
все картинки в ImageList одинакового размера. У самого ImageList есть свойства, определяющие высоту и ширину картинки. ImageList полезен, когда у тебя небольшие (по физ. размерам) картинки одинакового размера. Если данное условие не соблюдается, то лучше при старте программы просто загрузить картинки в массив или список и потом просто копировать их в TImage (ну или брать из ресурсов, но это, как я понимаю, для тебя пока высший пилотаж).
|