Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.014 c