[sariman]

Точно, спасибо!

Код:

ID_FULLPATH..ID_HIDEPATH:
begin
case ((GetMenuState(Menu, LOWORD(wParam), MF_BYCOMMAND) and
MF_CHECKED) = MF_CHECKED) of
True:
begin
CheckMenuRadioItem(Menu, ID_FULLPATH, ID_HIDEPATH, LOWORD(wParam),
MF_BYCOMMAND);
if LoWord(wParam) = ID_FULLPATH then
ViewType := 1;
if LoWord(wParam) = ID_ONLYNAME then
ViewType := 2;
if LoWord(wParam) = ID_HIDEPATH then
ViewType := 3;
end;
False:
begin
CheckMenuRadioItem(Menu, ID_FULLPATH, ID_HIDEPATH, LOWORD(wParam),
MF_BYCOMMAND);
end;
end;

Не работает Подскажите что не так...

[angvelem]

Почему не так?

Код:

ID_FULLPATH..ID_HIDEPATH:
begin
  case wParam of
    ID_FULLPATH : ViewType := 1;
    ID_ONLYNAME : ViewType := 2;
    ID_HIDEPATH : ViewType := 3;
  end;
  CheckMenuRadioItem(Menu, ID_FULLPATH, ID_HIDEPATH, LOWORD(wParam), MF_BYCOMMAND);
end;

[sariman]

Спасибо! Вот надо же в программе как то хранить настройки, думаю INI - подходящий вариант, а вот как сохранять состояние элементов? (радио-элементов, чек-элементов), и потом же при старте программы их устанавливать? Заранее благодарен!

[angvelem]

Создать отдельные процедуры считывания/сохранения и действовать.

[sariman]

Так и сделаю, спасибо!