VPF::Настраиваемая панель инструментов

ST_Falcon

Дата 25.5.2005, 01:08 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 330
Регистрация: 14.11.2003
Где: Львов

Репутация: нет
Всего: 1

Для конструктора електронного учебника хочу сделать такую фичу, как возможность добавлять на панель интсрументов свои кнопки со своими иконками...
кнопка может выполнять только два действия:
- запустить файл;
- сделать выборку с SQL таблицы;
все... теперь терзаюсь вопросом как это реализовать поизящнее...

может кто то делал такое? или есть хорошие идеи. буду очень признателен за помощь.

--------------------

моё портфолио :: мой блог :: мой любимый проект

<Spawn>

Дата 25.5.2005, 05:22 (ссылка)

(нет голосов)

Загрузка ...

Око кары:)

Профиль
Группа: Экс. модератор
Сообщений: 2776
Регистрация: 29.1.2003
Где: Екатеринбург

Репутация: 44
Всего: 64

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

Мне видиться это примерно так:

Код


type
  TButtonType = (btFileExecute, btQueryExecute);

  PButtonInfo = ^TButtonInfo;
  TButtonInfo = record
    IconFileName: string;
    ButtonType: TButtonType;
    case Integer of
      0: (FileName: string[255]);
      1: (SQLText: string[255]);
  end;

  TButtonsList = class(TList)
    //Переопределяешь методы для работы с PButtonInfo, либо используешь имитацию шаблона
  end;

  TForm1 = class(TForm)
    ...
  private
    FButtonsList: TButtonsList;
  end;

procedure TForm1.LoadExtentionButtons(ButtonsList: TButtonsList);
begin
  //Получаешь все данные о дополнительных кнопках, думаю это сам напишешь
end;

procedure TForm1.SaveExtentionButtons(ButtonsList: TButtonsList);
begin
  //Сохраняешь все данные о дополнительных кнопках, и это тоже
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  i: integer;
  ButtonIcon: TIcon;
begin
  LoadExtentionButtons(FButtonsList);
  for i := 0 to FButtonsList.Count - 1 do
  begin
    with TToolButton.Create(Self) do
    begin
      Parent := TToolBar1;
      if FButtonsList[i]^.ButtonType = btFileExecute then
        OnClick := ToolButtonFileExecute
      else
        OnClick := ToolButtonQueryExecute;
      Tag := i; //Сохраняем индекс инфы ассоциированной с кнопкой
      ButtonIcon := TIcon.Create;
      ButtonIcon.LoadFromFile(IconFileName);
      ImageIndex := ImageList.AddIcon(ButtonIcon);
    end;
  end;
end;

procedure TForm1.ToolButtonFileExecute(Sender: TObject);
begin
  with FButtonsList[TToolButton(Sender).Tag]^ do
    ShellExecute(Handle, 'open', PAnsiChar(FileName), nil, nil);
end;

procedure TForm1.ToolButtonQueryExecute(Sender: TObject);
begin
  with FButtonsList[TToolButton(Sender).Tag]^, SomeQuery do
  try
    if Active then
      Close;
    SQL.Text := SQLText;
    Open;
    //Что то делаешь с данными
  finally
    SomeQuery.Close;
  end;
end;

Добавлять будет совсем не трудно - создаешь какие нить диалоги формирорования данных для кнопки(т.е. FileName или SQLText) и потом добавляешь сформированную инфу в FButtonsList, например:

Код


procedure TForm1.bntAddFileExecToolButton(Sender: TObject);
var
  NewButtonInfo: PButtonInfo;
begin
  with TfAddExecToolButton.Create(Self) do //Допустим, что это форма с выбором файла и иконки
  try
    if ShowModal = mrOk then
    begin
      GetMem(NewButtonInfo, SizeOf(TButtonInfo));
      //Заполняешь структуру тут
      FButtonsList.Add(NewButtonInfo);
    end;
  finally
    Free;
  end;
end;

Писал все без Delphi, т.к. не было возможности проверять по причине отсутствия времени, но думю идея понятна.

--------------------

"Для некоторых людей программирование является такой же внутренней потребностью, подобно тому, как коровы дают молоко, или писатели стремятся писать" - Николай Безруков.

ST_Falcon

Дата 25.5.2005, 18:47 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 330
Регистрация: 14.11.2003
Где: Львов

Репутация: нет
Всего: 1

<Spawn>
Спасибо! Вечером проверю.
зы. кажется можно еще стандартными средствами дельфи это решить. буду пробовать.

--------------------

моё портфолио :: мой блог :: мой любимый проект

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »