Собственный класс диалогового окна на чистом WinApi в Delphi

[Iber]

так все кажись разобрался тока грузин скажи плз как компонент называется контрол каторый в делфи а то я его найти не могу

[rpy3uH]

не понял. какой тебе нужен компонент из Delphi?

[Iber]

Сообщение от rpy3uH

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

вот этот контрол))

[rpy3uH]

тебе подойдёт TreeView. вот тут написано про него

[Iber]

помоему listview намного функциональнее удобнее и нагляднее...и по заданию она мне больше подходит почитал ману про нее на том же сайте не понял ничего...2 вапроса на даный момент как создать столбцы в ней и как в нее даные записывать?

[Iber]

разобрался с созданием еси несложно напиши пажалуста как вывод организовать а то я савсем незнаю как делать (

[Iber]

мдя ну лана тогда перефразирую

1 - Как добавить колонки в listview?
2 - Как организовать добавление итемов в listview?

[Iber]

Вобшем с добавлением столбцов разобрался. остался второй вопрос как добавить итемы в listview скажем чтоб итемы были файлы текущего каталога...

2rpy3uH
сылку что ты давал там это все есть но там на С и я не смог разобратся

[rpy3uH]

что-то я как-то потерял эту тему ....

Сообщение от Iber

Вобшем с добавлением столбцов разобрался.
(

как сделал? через LVM_INSERTCOLUMN

Сообщение от Iber

остался второй вопрос как добавить итемы в listview скажем чтоб итемы были файлы текущего каталога...
(

LVM_INSERTITEM

Сообщение от Iber

2rpy3uH
сылку что ты давал там это все есть но там на С и я не смог разобратся

Деваться не куда, учи языки С/С++, большинство примеров на С/С++.

[Iber]

как сделал? через LVM_INSERTCOLUMN

   ListView1 := CreateWindowEx(
    WS_EX_CLIENTEDGE,
    WC_LISTVIEW,
    nil,
    WS_CHILD or WS_VISIBLE or LVS_REPORT or LVS_SINGLESEL,
    5, 40, 460, 465, wnd, 0, hInstance, nil);
    Font := GetStockObject( ANSI_FIXED_FONT );
    SendMessage(ListView1,WM_SETFONT, Font, 0);

    lvc.mask := (LVCF_WIDTH or LVCF_TEXT or LVCF_SUBITEM);
    lvc.cx := 225;
    lvc.fmt := LVCFMT_LEFT;
    lvc.iSubItem := 0;
    lvc.pszText :=PChar(Headers[1]);
    ListView_InsertColumn(Listview1, 0, lvc);

    lvc.iSubItem := 1;
    lvc.pszText :=PChar(Headers[2]);
    ListView_InsertColumn(Listview1, 1, lvc);