Повернути DBNavigator

Шановні знавці! Підкажіть, чи є можливість повернути 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]

←→turusov (2002-08-12 09:46) [5]

←→Mighty (2002-08-12 11:12) [6]

Майже елементарно; 0)

for i:=0 до DBNavigator1.ControlCount-1 до початку (DBNavigator1.Controls[i] як TSpeedButton).Align:=alTop; (DBNavigator1.Controls[i] як TSpeedButton).Caption:="Ghbdtn"; (DBNavigator1.Controls[i] як TSpeedButton).Height:=20; end;

With all regards, Motorin Sergey, [email protected]

←→Leran2002 (2002-08-12 11:40) [7]

←→Mighty (2002-08-12 11:41) [8]

Ой, мало не забув - на OnShow форми цей шматок повіш і виголяйся як хочеш! З усіма рекардсами, Motorin Sergey, [email protected]

←→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, [email protected]

←→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, [email protected]

←→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); з (DBNavigator1.Controls[i] як TSpeedButton) до початку 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); з (DBNavigator1.Controls[i] як TSpeedButton) до початку Align:=alTop; Casei 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 за пораду. Я зовсім трохи модернізував код.

---