Crazy_Snake
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Здраствуйте!
Подскажите пожалуйста возможно ли из ListBox'a загружать разные картинки в несколько объектов "Image" при нажатии только на одну из строчек LB_ITEMS .
Код такой:
On Preload
Код:
LB = "ListBox1";
ListBox.DeleteItem(LB, LB_ALLITEMS);
tFiles = File.Find("AutoPlay\\Images\\", "*.jpg", false, false, nil);
if tFiles then
for nIndex, sFilePath in tFiles do
sData = sFilePath;
sText = String.SplitPath(sFilePath).Filename;
ListBox.AddItem(LB, sText, sData);
end
end
|
Здесь заполняется весь ЛистБокс, в нем появляются название файлов из папки картинок.
On Select на LB
Код:
LB = "ListBox1";
tSelected = ListBox.GetSelected(LB);
if tSelected then
sFile = ListBox.GetItemData(LB, tSelected[1]);
maxWidth = 822;
maxHeight = 580;
xPos = 230;
yPos = 121;
ResizeImage("Image1", sFile, maxWidth, maxHeight,xPos,yPos);
else
Dialog.Message("Error", "There is no item selected.");
end
|
А Здесь, когда щелкаешь на это название, загружается картинка в Image1.
Так вот вопрос такой: Можно щелкать на одно название файла картинки из ЛистБокса, и при этом нажатии подгружать сразу еще одну в дугое окно?
Наглядно это так:
Есть два окна картинок и один ЛистБок
В листбоксе есть строчка 4, при нажатии на нее в окнах картинки появляется 2 и 2...
Добавлено:
Еще один вопрос. Как реализовать такое проект:
ComboBox1 заполнен списком. Выбираем из списка строчку, щелкаем на нее и у нас загружается картинка в объект "Image".
Добавлено:
Вот, на второй вопрос ответ, сам сделал, вроде работает.
Код:
CB = "ComboBox1";
ComboBox.DeleteItem(CB, LB_ALLITEMS) ;
tFiles = File.Find("AutoPlay\\Images\\", "*.jpg", false, false, nil);
if tFiles then
for nIndex, sFilePath in tFiles do
sData = sFilePath;
sText = String.SplitPath(sFilePath).Filename;
ComboBox.AddItem(CB, sText, sData);
end
end
|
Код:
CB = "ComboBox1";
tSelected = ComboBox.GetSelected(CB);
if tSelected then
sFile = ComboBox.GetItemData(CB, tSelected);
maxWidth = 102;
maxHeight = 76;
xPos = 123;
yPos = 92;
ResizeImage("Image2", sFile, maxWidth, maxHeight,xPos,yPos);
else
Dialog.Message("Error", "There is no item selected.");
end
|
|
Всего записей: 29 | Зарегистр. 08-11-2008 | Отправлено: 18:38 08-11-2008 | Исправлено: Crazy_Snake, 18:55 08-11-2008 |
|
