Скачать: CL | DM;

Повернуть 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 вся ветка

Скачать: CL | DM;



Память: 0.49 MB
Время: 0.015 c