Небольшая коллекция компонент разработанных для того, чтобы сделать добавление ActiveX скриптов в программы наиболее простым и доступным. Для работы требуется Microsoft ActiveX Scripting Control.
Назначение OpenWire проекта ссотоит во внедрении простого пути для передачи данных или событий между различными VCL/CLX сомпонентами. Сделано подобно методам, использованным в LabView и HP VEE. Например, вы можете иметь генератор синусоидального колебания с передачей выходного потока на фильтр, а фильтрованный поток - на другое устройство через COM-порт. Проект находится в состоянии позднего beta-тестирования. Все подробности и картинки - на странице автора http://www.openwire.org.
Новая версия компоненты Свободно распространяемая библиотека с исходными текстами Компонента из раздела: Tools: Base classes
Источник: www.torry.net
Автор: Boian Mitovhttp://www.mitov.com -= · VCL · Apps · Samples · =- [Перевел: Сергей Касаткин]
Включает в себя: - dxButton (кнопка в стиле XP) Возможости: (dxButton) - Эффективный рендеринг в realtime - Установки различного качества - Дополнительные свойства
Что нового: + Добавлено свойство Glyph Layout + Добавлена поддержка нескольких строк + Изменена структура загрузки
С исходными текстами Screenshot: http://www.delphipages.com/uploads/screenshots/dxDemo.gif
Источник: www.delphipages.com
Автор: Marc Hoffmannhttp://www.apriori.de -= · VCL · Samples · =- [Перевел: Сергей Касаткин]
Для уменьшения объема писем здесь публикуется не весь список новых компонент, потому заглядывайте и на сайт!
Пакет переписанных заново TButton, TPanel, TCheckBox, TGroupBox, TScrollBar. Есть несколько новых компонентов, один из которых позволяет изменять системную палитру (с возможностью сохранения старой). В общем, посмотрите сами! P.S.: Прилагаются исходники и подробное описание.
»»» Скачать: исходные текстыпосмотреть скриншот
function GetIEFavourites(const favpath: string):TStrings; var searchrec:TSearchrec; str:TStrings; path,dir,filename:String; Buffer: array[0..2047] of Char; found:Integer; begin str:=TStringList.Create; //Get all file names in the favourites path path:=FavPath+'\*.url'; dir:=ExtractFilepath(path); found:=FindFirst(path,faAnyFile,searchrec); while found=0 dobegin //Get now URLs from files in variable files SetString(filename, Buffer, GetPrivateProfileString('InternetShortcut', PChar('URL'), NIL, Buffer, SizeOf(Buffer), PChar(dir+searchrec.Name))); str.Add(filename); found:=FindNext(searchrec); end; //unterordner finden found:=FindFirst(dir+'\*.*',faAnyFile,searchrec); while found=0
dobegin if ((searchrec.Attr and faDirectory) > 0) and (searchrec.Name[1]<>'.') then str.AddStrings(GetIEFavourites(dir+'\'+searchrec.name)); found:=FindNext(searchrec); end; FindClose(searchrec); Result:=str; end;
procedure TForm1.Button1Click(Sender: TObject); var pidl: PItemIDList; FavPath: array[0..MAX_PATH] of char; begin SHGetSpecialFolderLocation(Handle, CSIDL_FAVORITES, pidl); SHGetPathFromIDList(pidl, favpath); ListBox1.Items:=GetIEFavourites(StrPas(FavPath)); end;
Некоторые скажут используй SendMessage и все тут. Но нет! У SpeedButton'a нет свойства handle, поэтому sendMessage мы использовать не сможем. Опять воспользуемся методом Perform (он не раз нас уже выручал :)). Где вам надо программно нажать на кнопку напишите это: SpeedButton1.Perform(WM_LBUTTONDOWN, 0, 0); SpeedButton1.Perform(WM_LBUTTONUP, 0, 0); И чтобы можно было как-то отследить нажатие в обработчике события OnClick для вашей кнопки напишите: showmessage('произошло нажатие на кнопку');
Помогите отучить ADO сжирать память !
Возникла проблема. При открытии запроса, который содержит объединение двух Access'oвских таблиц, память начинает ...
Потомки TField
Использую в программе постоянные обьекты полей. При переносе программы клиенту у него может оказаться старая структура ...
Использование HTTP в Delphi.
Данная статья посвящена программированию на Borland Delphi с использованием одного из самых популярных Интернет-протоколов - HTTP. А именно, здесь мы рассмотрим компонент TNMHTTP (NetMasters HTTP), который можно обнаружить на вкладке FastNet палитры компонентов Дельфи.
Delphi: специальный справочник
В книге содержится обширный справочный материал по основным элементам языка, включающий в себя наиболее употребительные функции, классы и объекты. Последовательно и подробно изложен процесс создания баз данных, Windows-приложений и динамических библиотек. Приложения с описанием различных кодов ошибок выполнения программ делает книгу полезной не только начинающим программистам, но и пользователям, активно работающим с Delphi
Автор: Б. Карпов
FPC by RUssian Сайт, конечно, не совсем по Delphi, но тесно связан.
Сайт, посвященный программированию на языке Pascal с использованием кроссплатформенного open source компилятора Free Pascal aka FPC. ...
» Оценка сайта: 2
Дорогие друзья! Мы рады представить вам новый совместный проект сайтов www.rsdn.ru, delphi.mastak.ru и www.optim.ru - профессиональный журнал для программистов RSDN Magazine.
Несомненно, ваше мнение о необходимости такого журнала, содержании рубрик и темах отдельных статей поможет сделать журнал более полезным и интересным. Высказать свое мнение, проголосовать или же подписаться вы можете на сайте. Без вашего участия, нам будет трудно сделать правильный журнал!
На сайте выложен анонс пилотного выпуска журнала, вступительное слово от редакции.
Для души
Хокку дня
Погостила и ушла Светлая луна… Остался Стол о четырёх углах.
Афоризмы
Если невеста уходит к другу, то неизвестно, кому повезло....
Фраза дня
А все-таки она вертится!
Дурацкие законы (информация предоставлена сайтом kurilka.com)
Во Франции под угрозой штрафа запрещено фотографировать полицейских и даже полицейские машины.
В штате Нью Йорк (США) вам грозит штраф, если вы будете разговаривать в лифте, даже со знакомыми людьми.
И на закуску коротенький анекдот
Гуляет женщина в парке одна. Навстречу ей подходит знакомая семейная пара: - Ой, а почему это вы одна гуляете, где муж? - А он со своим четвероногим другом. - А мы и не знали, что вы собаку завели! - Какую собаку? Мы новый диван купили!