Форум: "Базы";
Текущий архив: 2002.09.05;
Скачать: [xml.tar.bz2];
ВнизПовернуть DBNavigator Найти похожие ветки
← →
restless (2002-08-09 15:30) [0]Уважаемые знатоки!
Подскажите есть ли возможность повернуть DBNavigator в вертикальное положение, а может есть такой компонент.
← →
SaS13 (2002-08-09 15:32) [1]в ip2000 есть компонент, но зачем мучаться, сделай свои кнопки и повесь на них Action
← →
3JIA9I CyKA (2002-08-09 16:30) [2]Есть! ToolBar называется.
← →
Alexandr (2002-08-12 08:35) [3]нет.
проще монитор повернуть...
Или взять несколько навигаторов, поместить их друг под другом и на каждом сделать активной только одну кнопку.
:)
← →
Leran2002 (2002-08-12 08:51) [4]
> Alexandr © (12.08.02 08:35)
Покидать их на панельку и выставить у всех Align=alTop... ;-))
← →
turusov (2002-08-12 09:46) [5]Используй TActionList
← →
Mighty (2002-08-12 11:12) [6]Почти элементарно ;0)
for i:=0 to DBNavigator1.ControlCount-1 do begin
(DBNavigator1.Controls[i] as TSpeedButton).Align:=alTop; {расположение}
(DBNavigator1.Controls[i] as TSpeedButton).Caption:="Ghbdtn";
{текст можешь каждой кнопке отдельно присваивать}
(DBNavigator1.Controls[i] as TSpeedButton).Height:=20;
{высота ;0)}
end;
With all regards, Motorin Sergey, Mighty@mail.ru
← →
Leran2002 (2002-08-12 11:40) [7]
> Mighty (12.08.02 11:12)
Классно, красота!!!!!!!!!!!
← →
Mighty (2002-08-12 11:41) [8]Ой, чуть не забыл - на OnShow формы этот кусок повесь и изголяйся как хочешь!
With all regards, Motorin Sergey, mighty@mail.ru
← →
Leran2002 (2002-08-12 11:46) [9]
> Mighty (12.08.02 11:41)
А так вроде и глифы можно поменять, шас пробывать буду... ;-))
← →
Mighty (2002-08-12 11:49) [10]>А так вроде и глифы можно поменять, шас пробывать буду... ;-))
Пожалуйста -
(DBNavigator1.Controls[i] as TSpeedButton).Glyph:=nil;
или
(DBNavigator1.Controls[i] as TSpeedButton).Glyph:=какой хочешь
With All regards, Motorin Sergey, mighty@mail.ru
← →
Leran2002 (2002-08-12 11:53) [11]
> Mighty (12.08.02 11:49)
Да, да спасибо я уже сам убедился... Сам придумал???
← →
Mighty (2002-08-12 13:14) [12];0) не помню - давно так делаю ;0)
Вообще-то если по взрослому, так очень часто ипользую "AS" при обращении к компонентам - много всего интересного может получиться - дерзай...
With all regards, Motorin Sergey, mighty@mail.ru
← →
Leran2002 (2002-08-12 13:25) [13]Хоть это был не мой вопрос но всер Спасибо, мне понравилось, классно придумано...
> Mighty (12.08.02 13:14)
← →
Alexey_SV (2002-08-14 12:58) [14]Спасибо Mighty за совет. Я совсем немножко модернизировал код.
i:=DBNavigator1.ControlCount;
while i<>0 do begin
Dec(i);
with (DBNavigator1.Controls[i] as TSpeedButton) do begin
Align:=alTop;
Case i of
9 : s:="Обновить ";
8 : s:="Отменить ";
7 : s:="Сохранить ";
6 : s:="Редактировать";
5 : s:="Удалить ";
4 : s:="Добавить ";
3 : s:="Последняя ";
2 : s:="Следующая ";
1 : s:="Предыдущая ";
0 : s:="Первая ";
else
s:="";
end;
Caption:=s;
Font.Name:="Courier";
Layout:=blGlyphLeft;
Height:=30;
end;
end;
Всего доброго, удачи.
← →
alexey_savas (2002-08-14 13:01) [15]Спасибо Mighty за совет. Я совсем немножко модернизировал код.
i:=DBNavigator1.ControlCount;
while i<>0 do begin
Dec(i);
with (DBNavigator1.Controls[i] as TSpeedButton) do begin
Align:=alTop;
Case i of
9 : s:="Обновить ";
8 : s:="Отменить ";
7 : s:="Сохранить ";
6 : s:="Редактировать";
5 : s:="Удалить ";
4 : s:="Добавить ";
3 : s:="Последняя ";
2 : s:="Следующая ";
1 : s:="Предыдущая ";
0 : s:="Первая ";
else
s:="";
end;
Caption:=s;
Font.Name:="Courier";
Layout:=blGlyphLeft;
Height:=30;
end;
end;
Всего доброго, удачи.
← →
AlexeY_SAVAS (2002-08-14 13:02) [16]Спасибо Mighty за совет. Я совсем немножко модернизировал код.
i:=DBNavigator1.ControlCount;
while i<>0 do begin
Dec(i);
with (DBNavigator1.Controls[i] as TSpeedButton) do begin
Align:=alTop;
Case i of
9 : s:="Обновить ";
8 : s:="Отменить ";
7 : s:="Сохранить ";
6 : s:="Редактировать";
5 : s:="Удалить ";
4 : s:="Добавить ";
3 : s:="Последняя ";
2 : s:="Следующая ";
1 : s:="Предыдущая ";
0 : s:="Первая ";
else
s:="";
end;
Caption:=s;
Font.Name:="Courier";
Layout:=blGlyphLeft;
Height:=30;
end;
end;
Всего доброго, удачи.
Страницы: 1 вся ветка
Форум: "Базы";
Текущий архив: 2002.09.05;
Скачать: [xml.tar.bz2];
Память: 0.48 MB
Время: 0.007 c