Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2007.08.12;
Скачать: [xml.tar.bz2];

Вниз

Как узнать имя Picture   Найти похожие ветки 

 
Скарамуш ©   (2007-07-11 23:11) [0]

Вот ещё один вопрос нарисовался. Как бы узнать из программы, имя файла рисунка, загруженного в Image? Т.е., например щёлкаем по Image, а нам выдаётся имя загруженного в неё файла изображения. При этом надо упомянуть, что изображения загружаются на FormCreate, т.е. присутствуют в папке с программой.
Вообще можно это как-нибудь узнать?


 
Скарамуш ©   (2007-07-11 23:11) [1]

Заранее извиняюсь, если вопрос глупый.


 
{RASkov} ©   (2007-07-12 00:09) [2]

> [0] Скарамуш ©   (11.07.07 23:11)

Именно по твоему вопросу - никак.
Совет: См тот же TImageData из [5] поста твоей же ветки
http://delphimaster.net/view/2-1183880553/
при загрузке картинки сохраняй имя файла картинке в отдельной переменной...


 
{RASkov} ©   (2007-07-12 00:23) [3]

> картинке

*картинки

Ни TBitmap ни TGraphic ни TPicture ни TImage никто из них "не помнит" имя загруженного в них файла.
Более того в TImage вообще ничего не грузиться, т.е. он сам не содержит "картинку", а у него есть свойство тип класс TPicture
- "Графический контейнер". Который в свою очередь в своем свойстве тип TGraphic содержит Объект
который может быть TBitmap, TIcon или TMetafile (стандартно). Но опять же, никто из них не запоминает имя файла...
Посмотри в F1...


 
Скарамуш ©   (2007-07-12 01:01) [4]

Спсибо. Очень жаль.
Тогда ещё уж один вопрос касательно тех же Image-к:
Нельзя как нибудь создать переменную, соответствующую номеру Image?
Просто когда их много и они однотипны, каждой давать имя проблематично, да и неудобно. А вот можно ли как-то задать пременную, скажем X, чтобы потом использовать её вроде:
X:=3;
Image(X).top... (т.е. Image3.top получалось чтобы)
Ну что-то вроде этого... Никак?


 
Скарамуш ©   (2007-07-12 01:04) [5]


> при загрузке картинки сохраняй имя файла картинке в отдельной
> переменной...

Ага, а картинок 192 между прочим... И почти все разные...


 
Германн ©   (2007-07-12 01:15) [6]


> Скарамуш ©   (12.07.07 01:01) [4]
>
> Спсибо. Очень жаль.
> Тогда ещё уж один вопрос касательно тех же Image-к:
> Нельзя как нибудь создать переменную, соответствующую номеру
> Image?
> Просто когда их много и они однотипны, каждой давать имя
> проблематично, да и неудобно. А вот можно ли как-то задать
> пременную, скажем X, чтобы потом использовать её вроде:
> X:=3;
> Image(X).top... (т.е. Image3.top получалось чтобы)
> Ну что-то вроде этого... Никак?
>


var
 MyImages : array of TImage;


 
Германн ©   (2007-07-12 01:18) [7]


> Скарамуш ©   (12.07.07 01:04) [5]
>
>
> > при загрузке картинки сохраняй имя файла картинке в отдельной
> > переменной...
>
> Ага, а картинок 192 между прочим... И почти все разные..
> .
>

var
 St : String[255];
 ...
 St:=Полный_Путь_к_Файлу;
 ImageN.Tag:=Integer(St);


 
Германн ©   (2007-07-12 01:19) [8]

[7] - Ошибка.


 
{RASkov} ©   (2007-07-12 08:25) [9]

> [5] Скарамуш ©   (12.07.07 01:04)
>Ага, а картинок 192 между прочим... И почти все разные...

Да хоть мильён....
Ёлы-палы... ну ты что.... прикалываешся что-ли, внимательно перечитай ветку:
http://delphimaster.net/view/2-1183880553/
И завязывай давай с "глупыми вопросами" :) Все свойства стандартных классов есть в F1
В книжках, в F1, в инете... да везде можно найти, как добавить недостающее свойство классу. Или элементарные массивы, записи....


 
homm ©   (2007-07-12 10:39) [10]

> Ага, а картинок 192 между прочим... И почти все разные...

А у меня на диске 500 000 файлов, что не мешает мне хранить путь до любого из них в одной переменной.



Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2007.08.12;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.47 MB
Время: 0.043 c
2-1184426431
Kolan
2007-07-14 19:20
2007.08.12
Установка ActivePage у PageControl до перерисовки стирает&#133


15-1184528402
ari_9
2007-07-15 23:40
2007.08.12
есть ли хорошая дока по QuantumGrid, кроме стандартного хелпа ?


2-1184321070
Dddddddd
2007-07-13 14:04
2007.08.12
Обратная связь TcpServer - TcpClient


15-1184317254
TUser
2007-07-13 13:00
2007.08.12
Ошибка в 17й строке


15-1184329922
>>DEATH<<
2007-07-13 16:32
2007.08.12
работа с модемом





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский