Отправляет email-рассылки с помощью сервиса Sendsay

Мастера DELPHI. Новости мира компонент, FAQ, статьи...

Рассылка закрыта

При закрытии подписчики были переданы в рассылку "Delphi - проблемы и решения" на которую и рекомендуем вам подписаться.

Вы можете найти рассылки сходной тематики в Каталоге рассылок.

←   Декабрь 2001   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Автор
Сергей

Статистика

13.577 подписчиков
-18 за неделю
←   Все выпуски   →

Мастера DELPHI. Новости мира компонент, FAQ, статьи...


Служба Рассылок Subscribe.Ru
Ежедневная рассылка сайта Мастера DELPHI

DELPHI.mastak.ru

Выпуск от 15.12.01 09:04

Новые компоненты   |x|
  • Tmp3Tag v.1.0 (162kb) (15.12.01 09:02)
    Компонента для просмотра/записи mp3 инфо-тэгов (Название, Артист, Альбом и т.д.) из файла, буфера или потока.
    Прост в использовании. Позволяет создать собственный mp3-проигрыватель с помощью Tmp3Tag и TMediaPlayer.

    С исходными текстами
    Компонента из раздела: Effects and Multimedia: Audio
    Источник: www.torry.net   Автор: Mats Asplund http://go.to/masdp
    -= · VCL · =- [Перевел: Сергей Зинин]
  • TYearPlanner v.2.61 (76kb) (15.12.01 08:58)
    Новая версия компоненты-планировщика.
    Обладает следующими особенностями:
    Даты могут иметь собственные всплывающие подсказки и цвета.
    Возможно выделение сразу нескольких ячеек в таблице.
    Исходный код может быть, при необходимости, полностью отредактирован.
    Всплывающее меню может быть связано с любым контролом.
    Работает под Windows 95, NT и 2000.
    Небольшой размер, занимает лишь 54 KB при компилляции под Delphi 1.0 (44 KB в Delphi 5.0).


    Новая версия компоненты
    С исходными текстами
    Компонента из раздела: Date and Time: Schedulers
    Источник: www.torry.net   Автор: Jonathan Hosking http://www.the-hoskings.freeserve.co.uk/
    -= · VCL · Samples · =- [Перевел: Сергей Зинин]
  • ATComponents v.1.03 (307kb) (14.12.01 13:48)
    Компонент для дизайна приложения в стиле Microsoft Windows XP или Microsoft Office XP.

    XPHover label:
    -эмуляция гиперссылки;
    -поддерживает ссылку на картинку;
    -можно изменить фоновый цвет.

    XPPanel:
    -два цвета как в Windows XP;
    -фоновый цвет;
    -возможность перемещения.

    XPTask:
    -стиль Windows XP или Office XP (видимо, для окон приложения);
    -невидимый заголовок;
    -автоматическое сворачивание/разворачивание окна со звуком.

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

    С исходными текстами
    Компонента из раздела: Component Packs: Multi-purpose Lite
    Источник: www.torry.net   Автор: Arpad Toth
    -= · VCL · Samples · =- [Перевел: Сергей Касаткин]
  • TVSSIRMan v.1.0 (12kb) (14.12.01 13:33)
    TVSSIRMan - интерфейсный компонент для пульта управления на ИК-лучах IRMan (IRMan infrared remote control receiver device). Подключается к управляемому (через пульт) устройству и возбуждает событие, когда приходит ИК-код от удаленного устройства. Используйте этот контроль для старта/остановки программ или любых других действий, основанных на полученном ИК-коде.

    С исходными текстами
    Компонента из раздела: Communications: Other
    Источник: www.torry.net   Автор: Visual Software Solutions http://www.vss.co.nz/
    -= · VCL · Samples · =- [Перевел: Сергей Касаткин]
  • TBSkin+ v.1.00 b11 (343kb) (14.12.01 13:21)
    TBSkin+ это freeware Toolbar2000 с поддержкой вида а-ля Office XP и Windows XP Menu/Toolbars (панели инструментов) и т.д.

    Новая версия компоненты
    С исходными текстами
    Компонента из раздела: Bars and Status Bars: Tool Bars
    Источник: www.torry.net   Автор: Mihail Haralabos http://tbskin.flatstyle2k.com/
    -= · VCL · Samples · =- [Перевел: Сергей Касаткин]
  • TMxOutLookBar v.1.43 (798kb) (14.12.01 13:19)
    Компонент со многими возможностями для поддержки интерфейса в духе Microsoft Outlook и Office 97.
    Возможности:
    -Поддержка вида а-ля Microsoft Office 97;
    -Scrolling заголовка;
    -Выделение иконок;
    -Маленькие и большие иконки;
    -Подложка в виде градиента или картинки;
    -Работает в design time;
    -Заголовки закладок (tabs) могут иметь индивидуальный шрифт, выравнивание, цвет;
    -Поддержка новых bevels, включенных в Delphi 6;
    -и т.д...

    Новая версия компоненты
    С исходными текстами
    Компонента из раздела: Bars and Status Bars: Outlook Style
    Источник: www.torry.net   Автор: Lajos Farkas http://www.geocities.com/maxcomponents
    -= · VCL · Samples · =- [Перевел: Сергей Касаткин]
  • Полный список компонент смотрите на сайте...
Кое-что из нашей кладовки   |x|
  • Language Support sikander sikander@course-as.ru   (14.12.01 22:57)
    Компонент который держит языки в отдельных *.lng файлах.
    Как использовать:
    1. Положить на основную форму
    2. Скомпилировать
    3. Скопировать english.lng, например, в russia.lng и отредактировать    
        последний.

    Можно подключать MainMenu, PopupMenu, куда будет встраиваться дополнительный пункт Language.

    Исходники вложены.
    Примеры вложены.

    Для Delphi 5 и выше.
    Для Builder 5 и выше 8-)))

    Если понравился или нашли ошибки или способы улучшения компонента - пишите: sikander@course-as.ru
    »»» Скачать: исходные тексты (727кб)
  • Alternative Odigo Resource File Editor Lite Roman_ r_kulish@yahoo.com   (14.12.01 20:05)
    Утилитка для редактирования ресурсных файлов (скины, языковой профайл) мессенджера Odigo. Полностью рабочая, просто у меня нет времени ею заниматься. При разработке редактора на ее основе просьба в раздел "О программе" вставить строчку: "Based on original source codes of Alternative ORE by Roman Kulish <r_kulish@yahoo.com>"
    Будут вопросы - мыльте мыло.

    Что интересного:
    * пример как перемалевать StringGrid: разная высота ячеек, инвертированный курсор и т.д.
    * небольшой пример работы с XML + вывод в встроенном броузере.
    * пример как запихивать HTML файлы в ресурсы и показывать их.
    * немного DHTML
    * работа с файлами на Дельфях.
    * немного интересных алгоритмов.

    Редактор был написан за 6 ночей. Поэтому если что то непонятно - пишите. Есть исходжник и более продвинутой версии: исправлено куча багов, боковая панелька с тулзами, букмарк...
    »»» Скачать: исходные тексты (364кб) посмотреть скриншот
Лучшее из нашего FAQ   |x|
Как перевести RTF в HTML?
Здесь процедура, которую я использую для конвертации содержимого RichEdit в код SGML. Она не создает полноценный HTML-файл, но Вы можете расширить функциональность, указал, какие RTF-коды Вы желаете конвертировать в какие-либо HTML-тэги.

function rtf2sgml (text : string) : string;
{Funktion for att konvertera en RTF-rad till SGML-text.}
var
temptext : string;
start : integer;
begin
text := stringreplaceall (text,'&','##amp;');
text := stringreplaceall (text,'##amp','&');
text := stringreplaceall (text,'\'+chr(39)+'e5','a');
text := stringreplaceall (text,'\'+chr(39)+'c5','A');
text := stringreplaceall (text,'\'+chr(39)+'e4','a');
text := stringreplaceall (text,'\'+chr(39)+'c4','A');
text := stringreplaceall (text,'\'+chr(39)+'f6','o');
text := stringreplaceall (text,'\'+chr(39)+'d6','O');
text := stringreplaceall (text,'\'+chr(39)+'e9','e');
text := stringreplaceall (text,'\'+chr(39)+'c9','E');
text := stringreplaceall (text,'\'+chr(39)+'e1','a');
text := stringreplaceall (text,'\'+chr(39)+'c1','A');
text := stringreplaceall (text,'\'+chr(39)+'e0','a');
text := stringreplaceall (text,'\'+chr(39)+'c0','A');
text := stringreplaceall (text,'\'+chr(39)+'f2','o');
text := stringreplaceall (text,'\'+chr(39)+'d2','O');
text := stringreplaceall (text,'\'+chr(39)+'fc','u');
text := stringreplaceall (text,'\'+chr(39)+'dc','U');
text := stringreplaceall (text,'\'+chr(39)+'a3','?');
text := stringreplaceall (text,'\}','#]#');
text := stringreplaceall (text,'\{','#[#');
text := stringreplaceall (text,'{\rtf1\ansi\deff0\deftab720','');{Skall alltid tas bort}
text := stringreplaceall (text,'{\fonttbl',''); {Skall alltid tas bort}
text := stringreplaceall (text,'{\f0\fnil MS Sans Serif;}','');{Skall alltid tas bort}
text := stringreplaceall (text,'{\f1\fnil\fcharset2 Symbol;}','');{Skall alltid tas bort}
text := stringreplaceall (text,'{\f2\fswiss\fprq2 System;}}','');{Skall alltid tas bor!
t}
text := stringreplaceall (text,'{\colortbl\red0\green0\blue0;}','');{Skall alltid tas bort}
{I version 2.01 av Delphi finns inte \cf0 med i RTF-rutan. Tog darfor bort
det efter \fs16 och la istallet en egen tvatt av \cf0.}
//temptext := hamtastreng (text,'{\rtf1','\deflang');
//text := stringreplace (text,temptext,''); {Hamta och radera allt fran start till deflang}
text := stringreplaceall (text,'\cf0','');
temptext := hamtastreng (text,'\deflang','\pard');{Plocka fran deflang till pard for att fa }
text := stringreplace (text,temptext,'');{oavsett vilken lang det ar. Norska o svenska ar olika}
{Har skall vi plocka bort fs och flera olika siffror beroende pa vilka alternativ vi godkanner.}
//text := stringreplaceall (text,'\fs16','');{8 punkter}
//text := stringreplaceall (text,'\fs20','');{10 punkter}
{Nu stadar vi istallet bort alla tvasiffriga fontsize.}
while pos ('\fs',text) >0 do
  begin
    application.processmessages;
    start := pos ('\fs',text);
    Delete(text,start,5);
  end;
text := stringreplaceall (text,'\pard\plain\f0 ','<P>');
text := stringreplaceall (text,'\par \plain\f0\b\ul ','</P><MELLIS>');
text := stringreplaceall (text,'\plain\f0\b\ul ','</P><MELLIS>');
text := stringreplaceall (text,'\plain\f0','</MELLIS>');
text := stringreplaceall (text,'\par }','</P>');
text := stringreplaceall (text,'\par ','</P><P>');
text := stringreplaceall (text,'#]#','}');
text := stringreplaceall (text,'#[#','{');
text := stringreplaceall (text,'\\','\');
result := text;
end;

//This is cut directly from the middle of a fairly long save routine that calls the above function.
//I know I could use streams instead of going through a separate file but I have not had the time to change this

            utfilnamn := mditted.exepath+stringreplace(stringrepla!
ce(extractfilename(pathname),'.TTT',''),'.ttt','') + 'ut.RTF';
             brodtext.lines.savetofile (utfilnamn);
             temptext := '';
             assignfile(tempF,utfilnamn);
             reset (tempF);
             try
                while not eof(tempF) do
                  begin
                     readln (tempF,temptext2);
                     temptext2 := stringreplaceall (temptext2,'\'+chr(39)+'b6','');
                     temptext2 := rtf2sgml (temptext2);
                     if temptext2 <>'' then temptext := temptext+temptext2;
                     application.processmessages;
                  end;
             finally
                    closefile (tempF);
             end;
             deletefile (utfilnamn);
             temptext := stringreplaceall (temptext,'</MELLIS> ','</MELLIS>');
             temptext := stringreplaceall (temptext,'</P> ','</P>');
             temptext := stringreplaceall (temptext,'</P>'+chr(0),'</P>');
             temptext := stringreplaceall (temptext,'</MELLIS></P>','</MELLIS>');
             temptext := stringreplaceall (temptext,'<P></P>','');
             temptext := stringreplaceall (temptext,'</P><P></MELLIS>','</MELLIS><P>');
             temptext := stringreplaceall (temptext,'</MELLIS>','<#MELLIS><P>');
             temptext := stringreplaceall (temptext,'<#MELLIS>','</MELLIS>');
             temptext := stringreplaceall (temptext,'<P><P>','<P>');
             temptext := stringreplaceall (temptext,'<P> ','<P>');
             temptext := stringreplaceall (temptext,'<P>-','<P>_');
             temptext := stringreplaceall (temptext,'<P>_','<CITAT>_');
             while pos('<CITAT>_',temptext)>0 do               begin
                 application.processmessages;
                 temptext2 := hamtastreng (temptext,'<CITAT>_','</P>');
                 temptext := stringreplace (temptext,temptext2+'</P>',temptext2+'</CITAT>');
                 temptext := stringreplace (temptext,'<CITAT>_','<CITAT>-');
               end;
             writeln (F,'<BRODTEXT>'+temptext+'</BRODTEXT>');

Author: johan@lindgren.pp.se

»»» Прислать свои комментарии

Обсуждается в конференциях   |x|
У нас большой выбор статей   |x|
DirectX (Игровой SDK) Часть 7
Часть 7 (Использование класса DDCanvas, Улучшение нашего изображения,
А что по поводу палитр?)
Новинки книжного рынка   |x|
Delphi 6 в подлиннике
Delphi 6 - новая версия популярной системы быстрой разработки приложений. В книге описываются инструментальные средства среды Delphi 6, приводятся основы языка программирования Object Pascal и рассматриваются компоненты, свойства, методы и события, необходимые для разработки широкого спектра программ. Особое внимание уделяется работе с базами данных. Показывается использование как локальных, так и удаленных баз данных, включая создание многоуровневых информационных систем и публикацию результатов запросов через Интернет. Благодаря большому количеству затронутых тем, подробному изложению и многочисленным примерам книга будет полезна как начинающим, так и опытным программистам.
Автор: Гофман В.
Другие сайты о DELPHI   |x|
В мире Delphi
Коллекция FAQ, Исходники, программы, компоненты. Все что вы увидеите на етом сайте является безплатным!
Опрос населения :)
Готовится к выпуску журнал "Мастера DELPHI". За какую сумму вы готовы его покупать?
»»» 80р.
»»» 100р.
»»» 120р.
»»» 150р.
Журнал "Мастера DELPHI"  |x|
Давно витающая в воздухе нашего сайта идея создания журнала, посвященного всеми нами любимой среде разработки Delphi, похоже, обретает зримую форму. Несомненно, ваше мнение о необходимости такого журнала, содержании рубрик и темах отдельных статей поможет сделать журнал более полезным и интересным. Высказать свое мнение, проголосовать или же подписаться вы можете на сайте. Без вашего участия, нам будет трудно сделать правильный журнал!
Для души

Хокку дня
Осколки неба
Склеены наспех
Черными ветками.

Афоризмы
Эрудиция - пыль, вытряхнутая из книги в пустой череп...(А. Бирс)

Фраза дня
Ищу выход из Интеpнета...

И на закуску коротенький анекдот
Посетитель ресторана говорит:
- Водки не надо, я за рулем.
Через некоторое время официант приносит графин с водкой:
- Можете пить: вашу машину угнали.

Фотоприколы.
Начните день с хорошего настроения!
http://delphi.mastak.ru/cgi-bin/prikol.pl?id=247

На этом позвольте откланяться и пожелать вам удачного дня.
Искренне ваш, Алексей (delphi@mastak.com)

Добро пожаловать на сайт -= Мастера DELPHI =- 
http://subscribe.ru/
E-mail: ask@subscribe.ru 		Отписаться
Убрать рекламу
В избранное