Хочу расширить панель components ....

← →
dnkSoftWare (2002-12-16 11:08) [0]

Хочу расширить панель components так, что бы не крутить их каждый раз. Использовал раньше BUTools1.4 когда он был коммерческий. Теперь есть BUTools 2.0 ? но он что то никак не ставиться. Можт кто знает как это можно сделать другими средствами!
Заранне благодарен, Дмитрий!

← →
Reindeer Moss Eater (2002-12-16 11:11) [1]

Средством D7 например

← →
dnkSoftWare (2002-12-16 11:22) [2]

Нужно это всё для D5 !!!

← →
Calm © (2002-12-16 11:28) [3]

Да, вопрос очень интересный. Отсутвие такой возможности в Delphi просто удивляет :(
Мне тоже хочется расширить палитру, но не знаю как

← →
Ihor Osov'yak © (2002-12-16 11:32) [4]

package MyExp50;

{$R *.RES}
{$ALIGN ON}
{$ASSERTIONS ON}
{$BOOLEVAL OFF}
{$DEBUGINFO ON}
{$EXTENDEDSYNTAX ON}
{$IMPORTEDDATA ON}
{$IOCHECKS ON}
{$LOCALSYMBOLS ON}
{$LONGSTRINGS ON}
{$OPENSTRINGS ON}
{$OPTIMIZATION ON}
{$OVERFLOWCHECKS OFF}
{$RANGECHECKS OFF}
{$REFERENCEINFO OFF}
{$SAFEDIVIDE OFF}
{$STACKFRAMES OFF}
{$TYPEDADDRESS OFF}
{$VARSTRINGCHECKS ON}
{$WRITEABLECONST ON}
{$MINENUMSIZE 1}
{$IMAGEBASE $400000}
{$DESCRIPTION "my.Expert v1.00 - Multi-Line Component Palette for Delphi 5"}
{$DESIGNONLY}
{$IMPLICITBUILD ON}

requires
vcl50;

contains
MyExpert in "MyExpert.pas";

end.

========

unit MyExpert; { my.Expert v1.00 - freeware stand-alone Expert for Delphi 5 (.BPL) } { ----------02.feb.1999------------------------ written -by- tkcham } { 1) Multi-Line Component Palette for Delphi 4 } { enable = just add this package to Delphi 4 } { disable = un-check this package to Delphi 4 } { *note* original source code from GExpert 0.96.1 } { ----------------------------------------- mailto:gongxi@tm.net.my } { ------------ VISION Software (M) Sdn. Bhd. (393369-T) ----------- } { } { [ my.Delphi Home ] Developer Home Page for Delphi } { http://www.geocities.com/SiliconValley/Peaks/6789/delphi.html } { http://members.xoom.com/tkcham/delphi.html } { } { [ PasPDF Home ] Native PDF Creation for Delphi } { http://www.geocities.com/SiliconValley/Peaks/6789/pdfindex.html } { http://members.xoom.com/tkcham/pdfindex.html } { } { ----------------------------------------------------------------- } {$ifndef ver130} !! error !! "my.Expert" for Delphi 5 only end. {$endif} interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, ExtCtrls, Forms, Dialogs, ComCtrls; implementation type TMyExpertObject = Class(TObject) public procedure ResizeMultiLineComponentPalette ( Sender: TObject ); end; var MyExpertObject1 : TMyExpertObject; { original source code from GExpert 0.96.1 } procedure TMyExpertObject.ResizeMultiLineComponentPalette ( Sender: TObject ); var AHeight: Integer; begin with Sender as TTabControl do begin AHeight := Height - ( DisplayRect.Bottom - DisplayRect.Top ) + 29; // AHeight := ( Trunc ( AHeight / 26 ) + 1 ) * 26; Constraints.MinHeight := AHeight; ( ( Sender as TTabControl ).Parent as TWinControl ).Constraints.MaxHeight := AHeight; end; end; procedure SetMultiLineComponentPalette ( _multiLine :boolean ); var App: TForm; TabControl: TTabControl; begin App := TForm(Application.FindComponent ( "AppBuilder" ) ); if App <> nil then begin // ShowMESSAGE("1"); TabControl:=TTabControl ( App.FindComponent ( "TabControl" ) ); if TabControl <> nil then begin TabControl.MultiLine := _multiLine; if _multiLine then TabControl.OnResize := MyExpertObject1.ResizeMultiLineComponentPalette else TabControl.OnResize := nil; end; End; (* ShowMESSAGE("2_0"); App := TForm(Application.FindComponent ( "AppBuilder" ) ); if App <> nil then begin ShowMESSAGE("2"); TabControl:=TTabControl ( App.FindComponent ( "TabControl" ) ); if TabControl <> nil then begin ShowMESSAGE("3"); TabControl.MultiLine := _multiLine; if _multiLine then TabControl.OnResize := MyExpertObject1.ResizeMultiLineComponentPalette else TabControl.OnResize := nil; end; End; *) end; initialization { "Enable" at the beginning } MyExpertObject1 := TMyExpertObject.Create; SetMultiLineComponentPalette ( True ); finalization { "Disable" at the end or un-check } SetMultiLineComponentPalette ( False ); MyExpertObject1.Free; end.

← →
Calm © (2002-12-16 11:38) [5]

2 Ihor Osov"yak © (16.12.02 11:32)
А что делать, если D6?
Я в текст не вчитывался. Если не затруднит, укажите где-что подправить. Если, конечно, можно подправить... Или достаточно указать
requires
vcl60
?

И такой еще вопросик. Как Вы это все узнали? Разбирали исходниики? Или есть литература на эту тему? Если есть - киньте ссылочку, пожалуйста. Очень интересно, как работать с IDE

← →
Ihor Osov'yak © (2002-12-16 11:53) [6]

2 Calm © (16.12.02 11:38)
requires
vcl60 - думаю, что да. Если ,борланды в IDE не заюзали других компонент и не переименовали их... Если да - тогда нужно подправить исходник...
Зы - проект не мой, стянул для D4. Адаптацию для D5 делал уже сам, но не помню, ограничилось ли это дело vcl40 -> vcl50, или немного больше - типа уточнения имен искомых компонент FindComponent ( "AppBuilder" ), ets - дело было давно ...
ЗЫ - Сайт, откуда тянул - уже там его нету ...

← →
Calm © (2002-12-16 11:59) [7]

2 Ihor Osov"yak © (16.12.02 11:53)
Cпасибо...

← →
FreeLancer © (2002-12-16 12:17) [8]

Господа, а как же GExpert?
Вы что, ничего о нем не слышали?

:-)

http://www.gexperts.org/download.html

← →
Calm © (2002-12-16 12:25) [9]

2 FreeLancer © (16.12.02 12:17)
Всегда использую. Отличная вещь.
Но вот как с помощью него расширить палитру, я не знаю.
А выбор закладок и компонент через всякие там меню... Ну не то это, не это..

← →
FreeLancer © (2002-12-16 12:30) [10]

> Всегда использую. Отличная вещь.
> Но вот как с помощью него расширить палитру, я не знаю.
> А выбор закладок и компонент через всякие там меню... Ну
> не то это, не это..

Ну, я, например, делаю это так:

MainMenu -> Gexperts -> Gexperts Configuration -> Palette -> Component Palette:
Multi-line tabs (v)
Scroll opposite ( )
Ragged right (v)
Show tabs as buttons (v)
Flat buttons (v)
Add component tab names... ( )

2 FreeLancer © (16.12.02 12:30)
Только что выкачал по ссылочке и поставил.

Захожу в
MainMenu -> Gexperts -> Gexperts Configuration -> Palette -> Component Palette:

а там все недоступно :((
Что у меня не так?

> а там все недоступно :((
> Что у меня не так?

По-моему, это связано с версий (билдом) D. Зайди на сайт, посмотри какой Gexpert под твою D + UpdatePacks

Пардон, ты на закладке IDE Disable all IDE Enhansements отключил?
:-)

Хочу расширить панель components .... Найти похожие ветки