отображение файлов в листбоксе

← →
TruePunk © (2007-06-27 19:33) [0]

И снова здрасте! Как в листбокс вывести список всек картинок в папке N?

← →
Anatoly Podgoretsky © (2007-06-27 19:58) [1]

> TruePunk (27.06.2007 19:33:00) [0]

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

← →
TruePunk © (2007-06-27 20:12) [2]

вы уж извините ламера, но можно поподробнее

← →
Malik © (2007-06-27 20:30) [3]

.... if (LB_DIR+google)=TRUE_FINDER then begin SendMessage(I.Brain.handel,MY_MUSTREAD,0,0); end; ....
—должно сработать!!!

← →
oldman © (2007-06-27 20:33) [4]

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

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

← →
TruePunk © (2007-06-27 20:45) [5]

что-то я не вижу в коде упоминаний о листбоксе или так надо?

← →
Malik © (2007-06-27 20:49) [6]

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

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

← →
TruePunk © (2007-06-27 21:41) [7]

[3]-стебатель

← →
Правильный Вася (2007-06-27 22:01) [8]

findfirst
findnext
findclose
tsearchrec

← →
{RASkov} © (2007-06-28 01:25) [9]

1> отображение файлов в листбоксе

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

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

← →
Германн © (2007-06-28 02:58) [10]

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

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

← →
Германн © (2007-06-28 03:01) [11]

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

← →
Kostafey © (2007-06-28 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 © (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;
>

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

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

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

:)

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

Кстати, из перечня

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

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

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

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

отображение файлов в листбоксе Найти похожие ветки