Текущий архив: 2003.11.20;
Скачать: CL | DM;
Вниз
Tool bar Найти похожие ветки
← →
Вадим © (2003-11-09 00:01) [0]
procedure TMainForm.SaveButtons;
var
SP: TTBSaveParams;
begin
SP.hkr := HKEY_CURRENT_USER;
SP.pszSubKey := "Software\SuperPuperProga\";
SP.pszValueName := "";
SendMessage(ToolBar.Handle, TB_SAVERESTORE, Integer(True), Longint(@SP));
end;
procedure TMainForm.RestoreButtons;
var
SP: TTBSaveParams;
begin
SP.hkr := HKEY_CURRENT_USER;
SP.pszSubKey := "Software\SuperPuperProga\";
SP.pszValueName := "";
SendMessage(ToolBar.Handle, TB_SAVERESTORE, Integer(False), Longint(@SP));
end;
procedure TMainForm.TBCustomize(Sender: TObject);
begin
SendMessage(ToolBar.Handle, TB_CUSTOMIZE, 0, 0);
end;
Вызываю TBCustomize, затем SaveButtons. Закрываю программу, потом снова запускаю ее, но настройки панели инструментов не восстанавливаются при вызове RestoreButtons. Что не так?
← →
Вадим © (2003-11-09 15:34) [1]Up!
Ни у кого не стояло задачи сохранить/восстановить порядок и видимость кнопок на панели инструментов? Как это лучше сделать?
← →
Вадим © (2003-11-10 02:42) [2]Никто не знает, да?
Страницы: 1 вся ветка
Текущий архив: 2003.11.20;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.015 c
