Форум: "Начинающим";
Текущий архив: 2007.03.11;
Скачать: [xml.tar.bz2];

Вниз

DBNavigator   Найти похожие ветки 

← →
Sapos ©   (2007-02-21 14:12) [0]

Подскажите можно ли в DBNavigator поменять изображения на кнопках?

---

← →
Elen ©   (2007-02-21 14:32) [1]

> Sapos ©   (21.02.07 14:12)

А если свой нарисовать?

---

← →
UMU ©   (2007-02-21 22:02) [2]

Изменить иконки для TDBNavigator
-----------------------------------------------------------------------------

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;

//Delphi world

---

Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2007.03.11;
Скачать: [xml.tar.bz2];

Наверх

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