Раньше мне эта затея DeMoN-777 казалась глупой :(

← →
kronprince © (2002-12-03 10:26) [0]

Но теперь, посмотрев на десктопы, пришел к выводу - что это еще одно качество характера людей.
Даже классификацию придумал :)

1. ХаРе-шники - любители нового - они балдеют от Luna до такой степени что не уберут эту схему до следующей винды.
1а. ХаРе-шник вырожденный - то же но со сменой картинки по умолчанию :)
2. Цветочники - любители яркой жизни - украшают десктоп разными картинками - чем ярче и загадочнее тем лучше - наверно в жизни им чего то не хватает :(
3. Ярлычники - вроде понятно - стараются максимально упростить себе жизнь (надеюсь не за счет других?) при этом еще больше ее запутывая.
3а. - Ярлычник-групировщик - старается организовать линки согласно собственному ощущению Дзен
4. Модификаторы - улучшенная версия п.3 - любители нескольких десктопов, всяких панелек быстрого запуска и т.п. - почти не нуждается в лечении :)
5. Трудоголики - отличаются чистым десктопом одного цвета с беспорядочно раскиданными иконками - если смешать с п.2 то получется идеальное сочетание :)))
6. Даркеры - десктоп чисто черного цвета RGB(0, 0, 0) - не лечиться :(

В жизни, как правило, встречаются комбинации нескольких типов :)

С уважением, воин Бога - kronprince.

← →
AL2002 © (2002-12-03 11:27) [1]

Кто ж я тогда, с десктопом 0,128,128 и парою иконок на нём?

← →
Lola © (2002-12-03 11:43) [2]

Я, как видно, отношусь к смеси упрощенного 3-го типа данной классификации (в панели быстрого запуска 6 иконок) и анти- 2-го (wallpaper-ы неяркие, затемненные, никак не загадочная графика, меняю примерно раз в неделю). Больше на десктопе ничего нет.

← →
down (2002-12-03 11:53) [3]

Ха, я даркер-трудоголик!

← →
kaif © (2002-12-03 12:26) [4]

Вообще проект меня поразил. Хотя я и не послал свой десктоп (он грязно-голубой по умолчанию, почти без ярлыков, т.е неинтересный)
Но такого ощущения богатства и многогранности природы и жизни я давно не испытывал... Галерея убийственная! Это новый вид искусства - коллекционирование десктопов. Я считаю, что нужно проводить выставки в больших залах - отбою не будет.
Спасибо автору идеи. Реализация тоже отменная.

← →
Странник © (2002-12-03 13:07) [5]

Ну а я, выходит смесь 5,4, 3а.
Почти пустой десктоп, длиннющая панель быстрого запуска, от десяти до двадцати одновременно запущенных приложений (из-за которых к десктопу не добраться).

Так что по всему выходит Demon 777-й интереснейшую коллекцию придумал и реализовал.

← →
AL2002 © (2002-12-03 13:15) [6]

> Так что по всему выходит Demon 777-й интереснейшую коллекцию
> придумал и реализовал.

А где на неё можно посмотреть?

← →
Lola © (2002-12-03 13:23) [7]

Что-то ты, Саша, совсем перестал ловить мышей ;))) http://delphi.mastak.ru/cgi-bin/forum.pl?look=1&id=1036312303&n=3

← →
Ihor Osov'yak © (2002-12-03 13:26) [8]

> десяти до двадцати одновременно запущенных приложений

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

Зы, а мой дестоп там тоже есть,правда я его бросил с левого мыла, соотв. подписан он как от Igor_p ( http://www.dcsoft.narod.ru/screen/igor_p/screen.htm)

Кстати, DeMoN-777, можете исправить ник, не обижусь :-)

← →
Дремучий © (2002-12-03 13:37) [9]

глупая идея...
нет, конечно не глупая...
:))

← →
DeMoN-777 © (2002-12-03 13:50) [10]

>2ALL
Спасибо за поддержку.
Для тех кто ещё не знает, коллекция находится по адресу http://www.dcsoft.narod.ru/ в разделе скриншоты.

← →
Странник © (2002-12-03 14:03) [11]

> Ihor Osov"yak © (03.12.02 13:26)
Не расстраивайтесь :)
Для Вашего успоения могу даже перечислить примерный перечень запущенного: 2-3 фара, С++Билдер, VC, JBuilder, VSS, Word, Acrobat, 2-4 IE, WinAmp, IB | MSSQL | MySQL. Плюс к этому то, что отлаживается в данный момент - а это, как обычно - до 4-х сервисов, на которые вешается отлаживаемый клиент + какой-нить эмулятор-имитатор.

← →
Ihor Osov'yak © (2002-12-03 14:06) [12]

2 Странник © (03.12.02 14:03)

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

← →
AL2002 © (2002-12-03 14:17) [13]

> Lola © (03.12.02 13:23)

:)
Спасибо, Л. Да, два выходных на каждый день — ушёл в даун немного.

Слышь, Демон, ты не хошь этот проект на моём сайте выложить?
Можно сделать, чтобы люди сразу свои скриншоты закачивали.
Классно, правда, радикальный фон тяготит немного.

← →
SteelHorse#hotbox.ru (2002-12-03 14:21) [14]

2 Ihor Osov"yak © (03.12.02 13:26)

Я, конечно, дико извиняюсь, но как Вам удается панель компонентов разместить в несколько рядов? Еще раз извините, меня глупого, но сколько не мучаюсь :(( - ничего не выходит...

← →
Странник © (2002-12-03 14:33) [15]

Поддерживаю вопрос

2 SteelHorse#hotbox.ru (03.12.02 14:21)
2 Странник © (03.12.02 14:33)

Было когда-то утянуто для четвертых с
My Expert v1.00 (01.feb.1999)

http://www.geocities.com/SiliconValley/Peaks/6789/pdfindex.html
http://members.xoom.com/tkcham/pdfindex.html

для пятых - изменений кажется два три символа ... (задревностью - не помню)...

Если там эого уже нету - пишите osi_тут_жаба_osi.te.ua - сброшу

_тут_жаба_ = @ :-)

Я - минималист.
Обои - Масяня из депрессняка и 3 иконки. Думаю, АЛ из той же серии :))

сорри, ссылка бытая, рискну брросить сюда, может не убьют

package MyExp40;

{$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 4"}
{$DESIGNONLY}
{$IMPLICITBUILD ON}

requires
vcl50;

contains
MyExpert in "MyExpert.pas";

end.

unit MyExpert;

{ my.Expert v1.00 - freeware stand-alone Expert for Delphi 4 (.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.

2 AL2002 © (03.12.02 15:07)

Эт я не в распале работы, только приготовился, а тогда просто по инет чего-то ищу, заодно на мастаки заглянул... (Немножко саморекламы :-)

Раньше мне эта затея DeMoN-777 казалась глупой :( Найти похожие ветки