[SNike]

Поправил некоторые ошибки в пакете, перевыложил заново (Post #1)
Демки остались старые, их не перекомпилировал из-за отсутствия времени, сделаю чуть позже

[SNike]

Тогда, возможно, есть смысл убрать его из списка поддерживаемых компонентов

[SNike]

В TsDBLookupComboBox, при первом нажатии на знак прокрутки списка вниз/вверх все нормально, при повторном – список значений закрывается. Проблема кроется в TacScrollWnd.

Т.к. исходные коды класса TacScrollWnd закрыты, то поправить TsDBLookupComboBox можно закомментировав строки между Begin и End, или вообще поставив Exit после Inherited:

CODE

procedure TsDBLookupComboBox.DropDown;
begin
  inherited;
  if SkinData.Skinned and ListVisible and
  (TsDBLookupComboBox_(Self).FDataList nil) and (ListSW = nil) then
  begin
// ListSW := TacComboListWnd.Create(TsDBLookupComboBox_(Self).FDataList.Handle,
//                      nil, SkinData.SkinManager, s_Edit);
// TacComboListWnd(ListSW).SimplyBox := False;
  end;
end;

Эти поправки вносят небольшой косметический недостаток: при выпавшем списке кнопка открытия списка остается “нажатой”. Я, по крайней мере, этим пренебрег – зато можно спокойно прокручивать список значений, а после его закрытия кнопка снова нормально отрисуется.

Надеюсь, Support скоро поправит TacScrollWnd

[SNike]

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

[SNike]

QUOTE (Neon @ May 7 2009, 10:19 PM)

Не надо думать, что я не отличаю делфи от других сред разработки.

Да в общем-то и не думал об этом <img src="style_emoticons//smile.gif” style=”vertical-align:middle” emoid=”:)” border=”0″ alt=”smile.gif” />

QUOTE (Neon @ May 7 2009, 10:19 PM)

Не запустилась потому что у меня дельфя не в Program Files установлена.

По идее влиять не должно – ведь доступ к базе происходит по её алиасу.
Да суть и не в том – главное чтоб демка работала и можно было посмотреть что к чему.

[SNike]

Вылет демки потому что для нее нужна BDE с установленными демо-базами. Все это ставится при установке Delphi.
При установке Visual Studio этого нет.

[SNike]

QUOTE (stalker18 @ May 6 2009, 10:02 AM)

да, демка не помешает <img src="style_emoticons//smile.gif” style=”vertical-align:middle” emoid=”:)” border=”0″ alt=”smile.gif” />

Демка готова, см. первый пост

[SNike]

Да, компоненты для D7
Если нужно могу попозже отдельно для D2009 сделать.
Хотя, думаю это несложно и самому сделать – ведь все исходники присутствуют

Ставятся на любую версию АС где есть TsBitButton и TsSpeedButton <img src="style_emoticons//smile.gif” style=”vertical-align:middle” emoid=”:)” border=”0″ alt=”smile.gif” />

[SNike]

QUOTE (stalker18 @ May 5 2009, 11:48 PM)

может мне кто-нибудь разъяснить как пользоваться TDBListBox?

Список заполняешь сам (TDBListBox.Items), далее можно будет выбирать значение из списка, которое и будет сохраняться в базе. И, наверняка, там еще кроме DataSource указывается поле (Field) <img src="style_emoticons//wink.gif” style=”vertical-align:middle” emoid=”;)” border=”0″ alt=”wink.gif” />

Да, и еще: если кому станет нужно – могу слепить демку для своих контролов

[Author]

Posts