Форум программистов
 
Расширенный поиск
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Delphi > Компоненты Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Ответ
 
Опции темы
Старый 23.11.2008, 12:21   #1
BOBAH13
Android Developer
Профессионал
 
Аватар для BOBAH13
 
Регистрация: 19.02.2007
Адрес: Los Angeles, USA
Сообщений: 3,712
Репутация: 1443
По умолчанию Позвольте представить - Delphi Widget Library

Приветствую. Представляю ( пока только предосмотр ) библиотеки для использования "виджетов" для построения быстрых и удобных окон в дельфи. Библиотека разрабатывается на 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
Кому надо ссылка на проект с исходными кодами [скачать]
Вложения
Тип файла: zip Example.zip (109.0 Кб, 158 просмотров)
__________________
Home | Android for food | XWindows Dock | github

Последний раз редактировалось mihali4; 16.02.2009 в 16:25. Причина: Слияние постов
BOBAH13 вне форума   Ответить с цитированием
Старый 29.11.2008, 10:03   #2
Toxa
Участник клуба
 
Аватар для Toxa
 
Регистрация: 01.12.2006
Адрес: Таганрог
Сообщений: 518
Репутация: 211

icq: 240909912
По умолчанию

а я не могу запустить, подскажите что надо сделать, ругаеться на DirectDraw
__________________
Пишу на Delphi за еду
Toxa вне форума   Ответить с цитированием
Старый 29.11.2008, 12:32   #3
beegl
Программ Аналитик
Профессионал
 
Аватар для beegl
 
Регистрация: 24.05.2008
Адрес: Днепропетровск, Ukraine
Сообщений: 1,267
Репутация: 456

icq: 62754415
skype: stepanext
По умолчанию

скачай http://ftp.heanet.ie/disk1/sourcefor...tX92_Apr07.exe и кинь DirectDraw в папку либс. Заработает.
beegl вне форума   Ответить с цитированием
Старый 30.11.2008, 02:58   #4
BOBAH13
Android Developer
Профессионал
 
Аватар для BOBAH13
 
Регистрация: 19.02.2007
Адрес: Los Angeles, USA
Сообщений: 3,712
Репутация: 1443
По умолчанию

Ссылка на страничку проекта http://nemecsx.narod.ru/widgetlib/slideshow/index.htm
__________________
Home | Android for food | XWindows Dock | github
BOBAH13 вне форума   Ответить с цитированием
Старый 16.02.2009, 16:11   #5
Iv_
Новичок
 
Регистрация: 16.02.2009
Сообщений: 1
Репутация: 10
По умолчанию

А можно к этому всему делу прикрутить компонент вэб-браузера???
Тогда можно как фон использовать png файл, а внутри делать различные фишечки с помощью простого html+javascript
Iv_ вне форума   Ответить с цитированием
Старый 17.02.2009, 10:41   #6
Kotofff
Профессионал
 
Аватар для Kotofff
 
Регистрация: 11.01.2009
Адрес: Россия. Кубань.
Сообщений: 1,916
Репутация: 1296
По умолчанию

BOBAH13, просто супер. Сам когда то пробовал ,но гораздо большими усилиями ... и все равно не то ...
Еще раз благодарю !!!
__________________
Кому iPhone и Swarovski, кому Афон и Саровский...
Kotofff вне форума   Ответить с цитированием
Старый 17.02.2009, 14:13   #7
JTG
я получил эту роль
Профессионал
 
Аватар для JTG
 
Регистрация: 25.05.2007
Адрес: тут темно и с потолка капает
Сообщений: 3,695
Репутация: 2224

icq: III 37373860
По умолчанию

Симпатичненько, вот тока переезжайте с этого унылого народа прям срочно, хотя б на ayola.net или юкоз на крайняк. А то страница уже 15 минут загрузиться не может, 0.2 кб/с
__________________
пыщь
JTG вне форума   Ответить с цитированием
Старый 17.02.2009, 19:07   #8
BOBAH13
Android Developer
Профессионал
 
Аватар для BOBAH13
 
Регистрация: 19.02.2007
Адрес: Los Angeles, USA
Сообщений: 3,712
Репутация: 1443
По умолчанию

Смотрю спрос маленький есть... там есть баги, перемещение к примеру, или когда много виджетов (окон). Будет свободное время (когда даже представить не могу) может допишу и обновлю.
__________________
Home | Android for food | XWindows Dock | github
BOBAH13 вне форума   Ответить с цитированием
Старый 17.02.2009, 19:13   #9
Kotofff
Профессионал
 
Аватар для Kotofff
 
Регистрация: 11.01.2009
Адрес: Россия. Кубань.
Сообщений: 1,916
Репутация: 1296
По умолчанию

Цитата:
может допишу и обновлю
Лично я буду ждать ...
__________________
Кому iPhone и Swarovski, кому Афон и Саровский...
Kotofff вне форума   Ответить с цитированием
Старый 03.01.2010, 17:52   #10
Usov
Форумчанин
 
Аватар для Usov
 
Регистрация: 29.09.2009
Сообщений: 228
Репутация: 78

icq: 105089890
По умолчанию

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



Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
ACL (API Controls Library) kiloz Win Api 4 25.06.2009 19:56
Microsoft Visual C++ Library (Runtime Error!) Карась Свободное общение 2 26.12.2008 00:31
Windows Layer Library BOBAH13 Мультимедиа в Delphi 1 23.08.2008 19:42
Ищу FlexGraphics Library 1.4 Full alexray Компоненты Delphi 1 30.01.2008 13:59
MSDN library KJIOyH Общие вопросы C/C++ 4 21.10.2007 13:17




14:34.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.

купить трафик


как улучшить посещаемость, а также решения по монетизации сайтов, видео и приложений

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru