VPF::Как сменить картинки на TDBNavigator?

Poseidon

Дата 18.5.2005, 17:21 (ссылка)

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

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

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

Код

procedure ChangeDBNavImage(DBnav: TDbNavigator); 
var 
  i: Integer; 
  tempGlyph: TBitmap; 
  ExePath: string; 
begin 
  ExePath := ExtractFilePath(Application.ExeName); 
  tempGlyph := TBitmap.Create; 
  try 
    with DBNav do 
    begin 
      for i := 0 to ControlCount - 1 do 
      begin 
        if Controls[i].ClassName = 'TNavButton' then 
        begin 
          case TNavButton(Controls[i]).Index of 
            nbFirst: tempGlyph.LoadFromFile(ExePath + 'first.bmp'); 
            nbPrior: tempGlyph.LoadFromFile(ExePath + 'previous.bmp'); 
            nbNext: tempGlyph.LoadFromFile(ExePath + 'Next.bmp'); 
            nbLast: tempGlyph.LoadFromFile(ExePath + 'Last.bmp'); 
            nbInsert: tempGlyph.LoadFromFile(ExePath + 'Insert.bmp'); 
            nbDelete: tempGlyph.LoadFromFile(ExePath + 'Delete.bmp'); 
            nbEdit: tempGlyph.LoadFromFile(ExePath + 'Edit.bmp'); 
            nbPost: tempGlyph.LoadFromFile(ExePath + 'Post.bmp'); 
            nbCancel: tempGlyph.LoadFromFile(ExePath + 'Cancel.bmp'); 
            nbRefresh: tempGlyph.LoadFromFile(ExePath + 'Refresh.bmp'); 
          end; 
          TNavButton(Controls[i]).Glyph := tempGlyph; 
        end; 
      end; 
    end; 
  finally 
    tempGlyph.Free; 
  end; 
end; 

procedure TForm1.Button1Click(Sender: TObject); 
begin 
  ChangeDBNavImage(DBNavigator1); 
end;

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

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

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