Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.12.26;
Скачать: [xml.tar.bz2];

Вниз

Хочу расширить панель 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... ( )


 
Calm   (2002-12-16 12:38) [11]

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

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

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



 
FreeLancer   (2002-12-16 12:42) [12]


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

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


 
FreeLancer   (2002-12-16 12:44) [13]

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


 
Calm   (2002-12-16 13:19) [14]

2 FreeLancer © (16.12.02 12:44)
Работает :)
Просто класс. Всегда так хотел :)) Спасибо!



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.12.26;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.6 MB
Время: 0.038 c
1-85948
race1
2002-12-15 14:05
2002.12.26
image


3-85792
Dbrf
2002-12-05 10:46
2002.12.26
Выбор столбца из таблицы


1-85912
OlDemon
2002-12-16 14:55
2002.12.26
Диалог


14-86162
Алексей2002
2002-12-05 15:05
2002.12.26
Помогите преодолеть titan btrieve...


14-86139
angelant
2002-12-05 13:24
2002.12.26
Как вы думаете, сколько % населения знают кто такой ХАКЕР???





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский