Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

отображение файлов в листбоксе [D7, 2003]

TruePunk © (2007-06-27 19:33:00)
И снова здрасте! Как в листбокс вывести список всек картинок в папке N?

Kostafey (2007-06-28 14:54:00) [1]
> Ну и где тут "Как в листбокс вывести список всек картинок
> в папке N?"

Подразумевается, что перечень расширений файлой, воспринимаемых как картинки будет указан.

Германн (2007-06-28 03:53:00) [2]

> Kostafey © (28.06.07 03:32) [15]

Ну и где тут "Как в листбокс вывести список всек картинок в папке N?"

Kostafey (2007-06-28 03:32:00) [3]
Кстати, из перечня

> DDL_ARCHIVE +
> DDL_DIRECTORY +
> DDL_DRIVES +
> DDL_EXCLUSIVE +
> DDL_HIDDEN +
> DDL_READONLY +
> DDL_READWRITE +
> DDL_SYSTEM,

достаточно оставить только
DDL_READONLY +
DDL_READWRITE,

Kostafey (2007-06-28 03:28:00) [4]
> А ремень всё-таки лучше :)

> Имхо, пора Борису взяться за ремень :)

:)

Кстати кто такой Борис ?

Германн (2007-06-28 03:14:00) [5]

> Kostafey © (28.06.07 03:05) [12]
>
> Если я правильно понял:
>
> procedure TForm1.Button1Click(Sender: TObject);
> var
> D: PChar;
> begin
> D := 'C:\*.bmp'; //и так далее по нужным расширениям
> SendMessage(ListBox1.Handle,
> LB_DIR,
> DDL_ARCHIVE +
> DDL_DIRECTORY +
> DDL_DRIVES +
> DDL_EXCLUSIVE +
> DDL_HIDDEN +
> DDL_READONLY +
> DDL_READWRITE +
> DDL_SYSTEM,
> Integer(D));
> end;
>

А ремень всё-таки лучше :)

Kostafey (2007-06-28 03:05:00) [6]
Если я правильно понял:
procedure TForm1.Button1Click(Sender: TObject); var D: PChar; begin D := 'C:\*.bmp'; //и так далее по нужным расширениям SendMessage(ListBox1.Handle, LB_DIR, DDL_ARCHIVE + DDL_DIRECTORY + DDL_DRIVES + DDL_EXCLUSIVE + DDL_HIDDEN + DDL_READONLY + DDL_READWRITE + DDL_SYSTEM, Integer(D)); end;

Германн (2007-06-28 03:01:00) [7]
Имхо, пора Борису взяться за ремень :)

Германн (2007-06-28 02:58:00) [8]

>
> TruePunk © (27.06.07 19:33)
>
> И снова здрасте! Как в листбокс вывести список всек картинок
> в папке N?
>

А что такое "картинки"?

{RASkov} (2007-06-28 01:25:00) [9]
1 > отображение файлов в листбоксе

2> список всек картинок в папке N

Определись уж в конец, что нужно-то?
По первому смотри [1]+Гугл или [8]
по 2 - давай конкретнее, что именно не получается, а рисовать("выводить картинки") можно по событию OnDrawItem...

Правильный Вася (2007-06-27 22:01:00) [10]
findfirst
findnext
findclose
tsearchrec

TruePunk (2007-06-27 21:41:00) [11]
[3]-стебатель

Malik (2007-06-27 20:49:00) [12]

> TruePunk © (27.06.07 20:45) [5]
>
> что-то я не вижу в коде упоминаний о листбоксе или так надо?
>

Орешник по тебе плачет чел!!!

TruePunk (2007-06-27 20:45:00) [13]
что-то я не вижу в коде упоминаний о листбоксе или так надо?

oldman (2007-06-27 20:33:00) [14]

> TruePunk © (27.06.07 20:12) [2]
> вы уж извините ламера, но можно поподробнее

Главное, что ник сооиветствует вопросу...

Malik (2007-06-27 20:30:00) [15]
.... if (LB_DIR+google)=TRUE_FINDER then begin SendMessage(I.Brain.handel,MY_MUSTREAD,0,0); end; ....
—должно сработать!!!

TruePunk (2007-06-27 20:12:00) [16]
вы уж извините ламера, но можно поподробнее

Anatoly Podgoretsky (2007-06-27 19:58:00) [17]
> TruePunk (27.06.2007 19:33:00) [0]

Послать сообщение LB_DIR

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »