Позвольте представить - Delphi Widget Library

[BOBAH13]

Приветствую. Представляю ( пока только предосмотр ) библиотеки для использования "виджетов" для построения быстрых и удобных окон в дельфи. Библиотека разрабатывается на Delphi 7 и будет OpenSource. В данный момент это только начало и разрабатывается сайт для поддержки данной библиотеки. Библиотека разрабатывается с использованием GDI+.

Виджет - фактически это окно виндовс с поддержкой слоев которое может хранить в себе другие виджеты.

собственно пример в аттаче и вот как выглядит он, а именно инициализация виджетов... вся информация и описание будет на сайте, пока только ознакомление:

WidgetForm - простой класс от TObject хранящий обработчики событий.

begin
  WidgetForm := TWidgetForm.Create;
  
  WPanel := TWidgetWindow.Create;
  WPanel.WidgetName := 'Panel';
  WPanel.WidgetVisible := True;
  WPanel.WidgetMoveOnMouse := True;
  WPanel.WidgetLeft := 100;
  WPanel.WidgetTop := 100;
  WPanel.SetRender(ExtractFilePath(ParamStr(0)) + 'Graphics\dwidget.png', 'bckg');
  WPanel.UseRenderAsSize('bckg');
  WidgetApplication.AddWidget(WPanel);

  WButton := TWidgetWindow.Create;
  WButton.WidgetName := 'Button';
  WButton.WidgetVisible := True;
  WButton.WidgetLeft := 10;
  WButton.WidgetTop := 3;
  WButton.OnClick := WidgetForm.OnClick;
  WButton.OnMouseDown := WidgetForm.OnMouseDown;
  WButton.OnMouseUp := WidgetForm.OnMouseDown;
  WButton.OnMouseEnter := WidgetForm.OnMouseEnter;
  WButton.OnMouseLeave := WidgetForm.OnMouseEnter;
  WButton.OnDrawRender := WidgetForm.OnRender;
  WButton.SetRender(ExtractFilePath(ParamStr(0)) + 'Graphics\startnormal.png', 'normal');
  WButton.SetRender(ExtractFilePath(ParamStr(0)) + 'Graphics\startover.png', 'over');
  WButton.SetRender(ExtractFilePath(ParamStr(0)) + 'Graphics\startpressed.png', 'press');
  WButton.UseRenderAsSize('normal');
  WPanel.AddWidget(WButton);

  WLabel := TWidgetWindow.Create;
  WLabel.WidgetName := 'Label';
  WLabel.WidgetVisible := True;
  WLabel.SetWidgetRect2(645, 20, 115, 20);
  WLabel.SetTimer('timer', 500, WidgetForm.OnTimer, False);
  WLabel.OnAfterDrawRender := WidgetForm.OnAfterRender;
  WPanel.AddWidget(WLabel);
  WLabel.SetTimerState('timer', True);

  WClock := TWidgetWindow.Create;
  WClock.WidgetName := 'Clock';
  WClock.WidgetVisible := True;
  WClock.WidgetMoveOnMouse := True;
  WClock.WidgetLeft := 100;
  WClock.WidgetTop := 100;
  WClock.OnMouseEnter := WidgetForm.OnClockMouseEnter;
  WClock.OnMouseLeave := WidgetForm.OnMouseLeave;
  WClock.SetRender(ExtractFilePath(ParamStr(0)) + 'Graphics\clock.png', 'bckg');
  WClock.UseRenderAsSize('bckg');
  WidgetApplication.AddWidget(WClock);
  
  WClose := TWidgetWindow.Create;
  WClose.WidgetName := 'Close';
  WClose.OnMouseLeave := WidgetForm.OnMouseLeave;
  WClose.SetRender(ExtractFilePath(ParamStr(0)) + 'Graphics\closebtn.png', 'bckg');
  WClose.UseRenderAsSize('bckg');
  WClose.WidgetLeft := WClock.WidgetWidth - 5;
  WClose.WidgetTop := 5 - WClose.WidgetHeight;
  WClock.AddWidget(WClose);
  
  WidgetApplication.Run; // это цикл, подобный TApplication.Run.. требуется если вы не используите модуль Forms.pas
  WidgetForm.Free;
end.

Реализация проекта на дельфи - Я
Идея и разработка сайта - LightPhoeniX7

думаю кому то все-таки понравится идея - т.к. еще никогда не было так легко и быстро делать окна используя слои виндовс

28.11.2008
Кому надо ссылка на проект с исходными кодами [скачать]

[Toxa]

а я не могу запустить, подскажите что надо сделать, ругаеться на DirectDraw

[beegl]

скачай http://ftp.heanet.ie/disk1/sourcefor...tX92_Apr07.exe и кинь DirectDraw в папку либс. Заработает.

[BOBAH13]

Ссылка на страничку проекта http://nemecsx.narod.ru/widgetlib/slideshow/index.htm

[Iv_]

А можно к этому всему делу прикрутить компонент вэб-браузера???
Тогда можно как фон использовать png файл, а внутри делать различные фишечки с помощью простого html+javascript

[Kotofff]

BOBAH13, просто супер. Сам когда то пробовал ,но гораздо большими усилиями ... и все равно не то ...
Еще раз благодарю !!!

[JTG]

Симпатичненько, вот тока переезжайте с этого унылого народа прям срочно, хотя б на ayola.net или юкоз на крайняк. А то страница уже 15 минут загрузиться не может, 0.2 кб/с

[BOBAH13]

Смотрю спрос маленький есть... там есть баги, перемещение к примеру, или когда много виджетов (окон). Будет свободное время (когда даже представить не могу) может допишу и обновлю.

[Kotofff]

может допишу и обновлю

Лично я буду ждать ...

[Usov]

Скомпилил пример, на ХР запустилось нормально, а на Win7 запустилось но не отобразилось, пришлось в процессах убивать.