VPF::DBnavigator - Форум программистов

heskey

Дата 1.3.2005, 17:22 (ссылка)

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

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 61
Регистрация: 3.12.2004

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

Привет! Подскажите как мне изменить картинки на кнопках DBnavigator?? Вместо стандартных стрелок и прочего поместить свои bmp!

SPrograMMer

Дата 1.3.2005, 17:35 (ссылка)

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

Загрузка ...

Спамер :)

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

Репутация: 2
Всего: 6

Имхо на стандартном DBNavigator видимо не получиться.
Если очень надо свои bmp`шки... ну.. моно например использовать одиночные BitBtn`ы или SppedButton`ы. (несколько штук - вряд)

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

животное = зверь
законченный гентушник

_hunter

Дата 1.3.2005, 17:46 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 15
Всего: 98

проще компонент переписать ( или свой написать )

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

Tempora mutantur, et nos mutamur in illis...

Александра

Дата 1.3.2005, 18:02 (ссылка)

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

Загрузка ...

Бывалый

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

Репутация: 7
Всего: 12

отредактируй картинки в файле ресурсов DBCtrls.res

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

Vit

Дата 1.3.2005, 21:38 (ссылка)

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

Загрузка ...

Vitaly Nevzorov

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

Репутация: 48
Всего: 207

Доступ к кнопкам:

Код


var 
  c: shortint; 
  s: string; 
begin 
  s := 'A'; 
  with DBNavigator1 do 
    for c := 0 to ControlCount - 1 do 
      if Controls[c] is TNavButton then 
        with TNavButton(Controls[c]) do 
        begin 
          ListBox1.Items.Add(Name); 
          Glyph := nil; 
          Caption := s; 
          Inc(s[1]); 
        end; 
end;

Или так:

Код


type TFake=class(TDBNavigator); 

procedure TForm1.Button1Click(Sender: TObject); 
begin 
  TFake(DBNavigator1).buttons[nbNext] <- тут чего хочешь с кнопкой делай
end;

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

With the best wishes, Vit
I have done so much with so little for so long that I am now qualified to do anything with nothing
Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru

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