Цитата:
|
Сообщение от lmikle
Ну, для начала, можно и так.
Потом же человеку захочется больших возможностей.
Не считая того, что, если мне не изменяет память, этот пример написан через BDE, а тащить эту хреновину нынче не комильфо.
Я бы сделал какую-нить структурку описания и файлы на диске.
|
Ага, не козырно
Короче сделай так:
Создай папку "AUTO", в нее закидывай папки с маркой авто (н-р, "BMW 5 серии"), в свою очередь в эти же папки закинь фото авто ("BROWSE.JPG") и текстовое описание ("README.TXT"). Теперь в Delphi на форму кинь ListBox, Image и Memo, расположи их так как тебе надо. В OnCreate формы добавь поиск и добавление в ListBox имен подкаталогов каталога AUTO. На обработчик клика по ListBox повесь примерно следующий код:
Код:
Memo1.Lines.LoadFromFile(ExtractFilePath(ParamStr(0)) + ListBox1.Items.Strings[ListBox1.ItemIndex] + '\README.TXT');
Image1.Picture.LoadFromFile(ExtractFilePath(ParamStr(0)) + ListBox1.Items.Strings[ListBox1.ItemIndex] + '\BROWSE.JPG');
В USES добавь JPEG, возможно, понадобится проверка при выборе элементов из списка, чтобы не выскакивала ошибка о выходе значения за рамки диапозона.