Форум: "Потрепаться";
Текущий архив: 2002.12.23;
Скачать: [xml.tar.bz2];
ВнизРаньше мне эта затея 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]Поддерживаю вопрос
← →
Ihor Osov'yak (2002-12-03 14:48) [16]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 - сброшу
_тут_жаба_ = @ :-)
← →
Лохматый (2002-12-03 14:50) [17]Я - минималист.
Обои - Масяня из депрессняка и 3 иконки. Думаю, АЛ из той же серии :))
← →
Ihor Osov'yak (2002-12-03 14:54) [18]сорри, ссылка бытая, рискну брросить сюда, может не убьют
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.
← →
AL2002 (2002-12-03 15:07) [19]
> Ihor Osov"yak © (03.12.02 14:54)
Ничё такой скриншот получился.
← →
Ihor Osov'yak (2002-12-03 15:10) [20]2 AL2002 © (03.12.02 15:07)
Эт я не в распале работы, только приготовился, а тогда просто по инет чего-то ищу, заодно на мастаки заглянул... (Немножко саморекламы :-)
← →
AL2002 (2002-12-03 15:36) [21]2DeMoN-777
Я насчёт AL2002 © (03.12.02 14:17) вполне серьёзно.
Прочитай. Да повнимательней.
Страницы: 1 вся ветка
Форум: "Потрепаться";
Текущий архив: 2002.12.23;
Скачать: [xml.tar.bz2];
Память: 0.5 MB
Время: 0.008 c