[sariman]

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

Код:

GetClientRect(hwnd, rct);
FillRect(dc, rct, GetStockObject(WHITE_BRUSH));

Не помогает.

[NumLock]

используй правильные контекст устройства и дестриптор окна - проверено, работает.

[sariman]

В этом же сообщении WM_ERASEBKGND, вместо WM_PAINT попробовал заливать фон - все норм.

[angvelem]

В WM_PAINT используй ps.hdc

[sariman]

Код:

WM_PAINT:
begin
  GetClientRect(Wnd, aRect);
  FillRect(PS.hdc, aRect, COLOR_BTNFACE);
end;

Не помогло.
---------------------
Сделал так:

Код:

WM_PAINT:
begin
  GetClientRect(Wnd, aRect);
  DC := BeginPaint(Wnd, PS);
  FillRect(PS.hdc, aRect, COLOR_BTNFACE);
  EndPaint(Wnd, PS);
end;

Все работает!

[sariman]

Код:

ID_FULLPATH..ID_HIDEPATH:
CheckMenuRadioItem(Menu, ID_FULLPATH, ID_HIDEPATH, LOWORD(wParam), MF_BYCOMMAND);

Как я понял, эта процедура отвечает за радио-метки. Тут появился вопрос: как их обрабатывать? То есть в зависимости от выбранной радио-метки выполнять определенные действия?

[angvelem]

Твоя беда в том, что не желаешь пользоваться справкой. Многие вопросы сразу бы отпали.

1. Этого достаточно

Код:

WM_PAINT:
begin
  BeginPaint(Wnd, PS);
  FillRect(PS.hdc, PS.rcPaint, GetSysColorBrush(COLOR_BTNFACE));
  EndPaint(Wnd, PS);
end;

2. 2..4 параметром указываются 3 параметра, первая радиокнопка, последняя и выставляемая.

[sariman]

Справку я смотрю, правда не всегда там все бывает понятно.

2. 2..4 параметром указываются 3 параметра, первая радиокнопка, последняя и выставляемая.

Это я понял, я имею ввиду как в зависимости от состоянии элемента выполнять какие-либо действия?

[angvelem]

Можешь после этой строки добавить

Код:

  case wParam of
    ID_FULLPATH : ; // действие
    ID_ONLYNAME : ; // действие
    ID_HIDEPATH : ; // действие
  end;

[sariman]

Спасибо, подскажите почему не работает процедура которая форматирует имена файлов плейлиста? Может я что-то не так делаю?:

Код:

procedure UpdatePlayListNames;
var
  I: Integer;
  FullPath, OnlyName,
  HidePath: string;
begin
  for I := 0 to LV_Count(PlayList) - 1 do
  begin
    FullPath := LV_GetItemText(PlayList, I, 1);
    OnlyName := ChangeFileExt(ExtractFileName(LV_GetItemText(PlayList, I, 1)), '');
    HidePath := ExtractFileName(LV_GetItemText(PlayList, I, 1));
    case ViewType of
      1: LV_SetItemText(PlayList, I, 1, FullPath);
      2: LV_SetItemText(PlayList, I, 1, OnlyName);
      3: LV_SetItemText(PlayList, I, 1, HidePath)
    end
  end
end;

[angvelem]

Вот теперь представь логику работы данной процедуры. Получил OnlyName и присвоил ListView. Как в следующий раз получить из короткого имени FullPath и как запустить на проигрывание не зная путь? ListView должен только отображать разные варианты имени файла, а хранится всё должно в другом месте, к примеру, в записи.

[sariman]

Я это прекрасно понимаю, у меня будет StringList с полными путями к файлам, просто не понимаю почему не работает.

[angvelem]

Здесь явных ошибок нет (не считая кривости алгоритма), смотри дальше.

[sariman]

Чем кривоват этот алгоритм?

[angvelem]

Смотри сам: в каждом цикле 3 раза идёт чтение строки из ListView, 3 раза преобразование этой строки.

Код:

procedure UpdatePlayListNames;
var
  I  : Integer;
  St : String;
begin
  for I := 0 to LV_Count(PlayList) - 1 do
  begin
    St := LV_GetItemText(PlayList, I, 1);
    case ViewType of
      1: LV_SetItemText(PlayList, I, 1, St);
      2: LV_SetItemText(PlayList, I, 1, ChangeFileExt(ExtractFileName(St), ''));
      3: LV_SetItemText(PlayList, I, 1, ExtractFileName(St));
    end;
  end;
end;