| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Хочу расширить панель components .... [D5, WinXP]
dnkSoftWare © (2002-12-16 11:08:00)Хочу расширить панель components так, что бы не крутить их каждый раз. Использовал раньше BUTools1.4 когда он был коммерческий. Теперь есть BUTools 2.0 ? но он что то никак не ставиться. Можт кто знает как это можно сделать другими средствами!
Заранне благодарен, Дмитрий!
Calm (2002-12-16 13:19:00) [1]2 FreeLancer © (16.12.02 12:44)
Работает :)
Просто класс. Всегда так хотел :)) Спасибо!
FreeLancer (2002-12-16 12:44:00) [2]Пардон, ты на закладке IDE Disable all IDE Enhansements отключил?
:-)
FreeLancer (2002-12-16 12:42:00) [3]
> а там все недоступно :((
> Что у меня не так?
По-моему, это связано с версий (билдом) D. Зайди на сайт, посмотри какой Gexpert под твою D + UpdatePacks
Calm (2002-12-16 12:38:00) [4]2 FreeLancer © (16.12.02 12:30)
Только что выкачал по ссылочке и поставил.
Захожу в
MainMenu -> Gexperts -> Gexperts Configuration -> Palette -> Component Palette:
а там все недоступно :((
Что у меня не так?
FreeLancer (2002-12-16 12:30:00) [5]> Всегда использую. Отличная вещь.
> Но вот как с помощью него расширить палитру, я не знаю.
> А выбор закладок и компонент через всякие там меню... Ну
> не то это, не это..
Ну, я, например, делаю это так:
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... ( )
Calm (2002-12-16 12:25:00) [6]2 FreeLancer © (16.12.02 12:17)
Всегда использую. Отличная вещь.
Но вот как с помощью него расширить палитру, я не знаю.
А выбор закладок и компонент через всякие там меню... Ну не то это, не это..
FreeLancer (2002-12-16 12:17:00) [7]Господа, а как же GExpert?
Вы что, ничего о нем не слышали?
:-)
http://www.gexperts.org/download.html
Calm (2002-12-16 11:59:00) [8]2 Ihor Osov"yak © (16.12.02 11:53)
Cпасибо...
Ihor Osov'yak (2002-12-16 11:53:00) [9]2 Calm © (16.12.02 11:38)
requires
vcl60 - думаю, что да. Если ,борланды в IDE не заюзали других компонент и не переименовали их... Если да - тогда нужно подправить исходник...
Зы - проект не мой, стянул для D4. Адаптацию для D5 делал уже сам, но не помню, ограничилось ли это дело vcl40 -> vcl50, или немного больше - типа уточнения имен искомых компонент FindComponent ( "AppBuilder" ), ets - дело было давно ...
ЗЫ - Сайт, откуда тянул - уже там его нету ...
Calm (2002-12-16 11:38:00) [10]2 Ihor Osov"yak © (16.12.02 11:32)
А что делать, если D6?
Я в текст не вчитывался. Если не затруднит, укажите где-что подправить. Если, конечно, можноподправить... Или достаточно указать
requires
vcl60
?
И такой еще вопросик. Как Вы это все узнали? Разбирали исходниики? Или есть литература на эту тему? Если есть - киньте ссылочку, пожалуйста. Очень интересно, как работать с IDE
Ihor Osov'yak (2002-12-16 11:32:00) [11]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:28:00) [12]Да, вопрос очень интересный. Отсутвие такой возможности в Delphi просто удивляет :(
Мне тоже хочется расширить палитру, но не знаю как
dnkSoftWare (2002-12-16 11:22:00) [13]Нужно это всё для D5 !!!
Reindeer Moss Eater (2002-12-16 11:11:00) [14]Средством D7 например
| |
