Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.03.11;
Скачать: CL | DM;

Вниз

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;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.03 c
6-1159851979
YurkaT
2006-10-03 09:06
2007.03.11
из памяти клиенту в браузер


4-1160470572
AlexT1000
2006-10-10 12:56
2007.03.11
Запрет запуска приложений. Как реализовать?


15-1171583511
vasIZmax
2007-02-16 02:51
2007.03.11
Вопрос для знающих....


15-1171519470
kolyann..
2007-02-15 09:04
2007.03.11
Есть ли жизнь после HDD low level format ????


15-1171529494
red_imp
2007-02-15 11:51
2007.03.11
ICQ