Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Повернуть DBNavigator [D5, IB4.x, Paradox]

restless © (2002-08-09 15:30:00)
Уважаемые знатоки!
Подскажите есть ли возможность повернуть DBNavigator в вертикальное положение, а может есть такой компонент.

AlexeY_SAVAS (2002-08-14 13:02:00) [1]
Спасибо 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:00) [2]
Спасибо 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_SV (2002-08-14 12:58:00) [3]
Спасибо 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;

Всего доброго, удачи.

Leran2002 (2002-08-12 13:25:00) [4]
Хоть это был не мой вопрос но всер Спасибо, мне понравилось, классно придумано...

> Mighty (12.08.02 13:14)

Mighty (2002-08-12 13:14:00) [5]
;0) не помню - давно так делаю ;0)
Вообще-то если по взрослому, так очень часто ипользую "AS" при обращении к компонентам - много всего интересного может получиться - дерзай...

With all regards, Motorin Sergey, mighty@mail.ru

Leran2002 (2002-08-12 11:53:00) [6]

> Mighty (12.08.02 11:49)

Да, да спасибо я уже сам убедился... Сам придумал???

Mighty (2002-08-12 11:49:00) [7]
>А так вроде и глифы можно поменять, шас пробывать буду... ;-))
Пожалуйста -
(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:46:00) [8]

> Mighty (12.08.02 11:41)

А так вроде и глифы можно поменять, шас пробывать буду... ;-))

Mighty (2002-08-12 11:41:00) [9]
Ой, чуть не забыл - на OnShow формы этот кусок повесь и изголяйся как хочешь!
With all regards, Motorin Sergey, mighty@mail.ru

Leran2002 (2002-08-12 11:40:00) [10]

> Mighty (12.08.02 11:12)

Классно, красота!!!!!!!!!!!

Mighty (2002-08-12 11:12:00) [11]
Почти элементарно ;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

turusov (2002-08-12 09:46:00) [12]
Используй TActionList

Leran2002 (2002-08-12 08:51:00) [13]

> Alexandr © (12.08.02 08:35)

Покидать их на панельку и выставить у всех Align=alTop... ;-))

Alexandr (2002-08-12 08:35:00) [14]
нет.
проще монитор повернуть...

Или взять несколько навигаторов, поместить их друг под другом и на каждом сделать активной только одну кнопку.

:)

3JIA9I CyKA (2002-08-09 16:30:00) [15]
Есть! ToolBar называется.

SaS13 (2002-08-09 15:32:00) [16]
в ip2000 есть компонент, но зачем мучаться, сделай свои кнопки и повесь на них Action

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »