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

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

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

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

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

←   Май 2002   →
 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

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

Новые компоненты   |x|
  • TBSkin+ v.1.0.14 (404kb) (19.05.02 00:38)
    Добавляет скиновую возможность (включая стили OfficeXP, WindowsXP) к компоненту Toolbar2000 (версия 2.0.14), а также перспективные свойства типа градиентного выбора.
    Новая версия компоненты
    С исходными текстами
    Компонента из раздела: Bars and Status Bars: Tool Bars
    Источник: www.torry.net   Автор: Mihail Haralabos http://tbskin.flatstyle2k.de
    -= · VCL · Samples · =- [Перевел: Mark S. Zheleznyak]
  • MinModal (53Kb) (19.05.02 00:36)
    Минимизатор для модальных окон. В самом деле, разве невозможно минимизировать приложение, если активно модальное окно? Достаточно разместить этот компонент на форме.
    С исходными текстами
    Источник: www.delphipages.com   Автор: Sergey Zimin http://www.zecos.com/components
    -= · VCL · Samples · =- [Перевел: Mark S. Zheleznyak]
  • jvDialogs library v.2.1 (21Kb) (19.05.02 00:34)
    Эта библиотека (прежде называлась psvDialogs Library) содержит компоненты, основанные на недокументированных функциях Windows и является теперь частью проекта JEDI VCL. Компоненты: TJvExitWindowsDialog, TJvRunDialog,
    TJvOrganizeFavoritesDialog, TJvFormatDialog, TJvComputerNameDialog,
    TJvBrowseFolderDialog, TJvControlPanelDialog, TJvAppletDialog, TJvChangeIconDialog, TJvShellAboutDialog, TJvOutOfMemoryDialog,
    TJvObjectPropertiesDialog, TJvNewLinkDialog, TJvAddHardwareDialog,
    TJvOpenWidthDialog, TJvDiskFullDialog.
    С исходными текстами
    Источник: www.delphipages.com   Автор: Serhiy Perevoznyk http://www.delphi-jedi.org
    -= · VCL · Samples · =- [Перевел: Mark S. Zheleznyak]
  • Для уменьшения объема писем здесь публикуется не весь список новых компонент, потому заглядывайте и на сайт!
Лучшее из нашего FAQ   |x|
Число цветов (цветовая палитра) у данного компьютера
Эта функция возвращает число бит на точку у данного компьютера. Так, например, 8 - 256 цветов, 4 - 16 цветов ...

function GetDisplayColors : integer;
var tHDC  : hdc;
begin
 tHDC:=GetDC(0);
 result:=GetDeviceCaps(tHDC, 12)* GetDeviceCaps(tHDC, 14);
 ReleaseDC(0, tHDC);
end;

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

Советы по программированию в Дельфи

3) Шифрование строки методом XOR с результатом, содержащим только печатные символы

procedure EncryptXor(s,pass:string;var s1:string);
var i,j,k:integer;
begin
if (Length(s)=0) or (Length(pass)=0) then exit;
for i:=1 to Length(s) do
 s[i]:=Chr(Ord(s[i]) xor Ord(pass[1+(i mod Length(pass))]));
case Length(s) mod 3 of
 1: s:=s+#255#255;
 2: s:=s+#255;
end;
s1:='';
for i:=1 to Length(s) div 3 do begin
 j:=(ord(s[3*i-2]) and 252) shr 2;
 s1:=s1+chr(j+48);
 j:=(ord(s[3*i-2]) and 3) shl 4;
 k:=(ord(s[3*i-1]) and 240) shr 4;
 s1:=s1+chr((j or k)+48);
 j:=(ord(s[3*i-1]) and 15) shl 2;
 k:=(ord(s[3*i]) and 192) shr 6;
 s1:=s1+chr((j or k)+48);
 k:=(ord(s[3*i]) and 63);
 s1:=s1+chr(k+48);
end;
end;

procedure DecryptXor(s,pass:string;var s1:string);
var i,j,k:integer;
begin
if (Length(s)=0) or (Length(pass)=0) then exit;
s1:='';
for i:=1 to Length(s) div 4 do begin
 k:=(ord(s[4*i-3])-48) shl 2;
 j:=((ord(s[4*i-2])-48) and 48) shr 4;
 s1:=s1+chr(k or j);
 k:=((ord(s[4*i-2])-48) and 15) shl 4;
 j:=((ord(s[4*i-1])-48) and 60) shr 2;
 s1:=s1+chr(k or j);
 k:=((ord(s[4*i-1])-48) and 3) shl 6;
 j:=(ord(s[4*i])-48);
 s1:=s1+chr(k or j);
end;
while s1[Length(s1)]=#255 do delete(s1,Length(s1),1);
for i:=1 to Length(s1) do
 s1[i]:=Chr(Ord(s1[i]) xor Ord(pass[1+(i mod length(pass))]));
end;

Автор: Б. Новгородов (MBo)

Обсуждается в конференциях   |x|
У нас большой выбор статей   |x|
Загрузка и анализ документа XML
Обмен информацией в формате XML - это чрезвычайно удобный механизм, позволяющий свести к минимуму проблемы внутрифирменных форматов данных. Эти проблемы сводятся к сложностям при обмене информацией с контрагентами фирмы.
Язык XML позволяет разрабатывать форматы описания данных, которые могут стать тем мостиком, котрый свяжет всех контрагентов и устранит технические и психологические барьеры, неизбежно возникающие при приспособлении к чужим технологиям.
Новинки книжного рынка   |x|
Самоучитель Kylix
Книга посвящена новому продукту фирмы Borland - объектно-ориентированной среде для быстрой разработки приложений под Linux. Рассматривается версия Kylix 1.0 Server Developer.
Приводятся приемы работы с графическими компонентами, принципы создания приложений баз данных и собственных компонентов.
Дается краткое описание языка программирования Object Pascal. Последняя часть книги посвящена проблеме создания межплатформенных приложений, которые работают как в среде Linux, так и в Windows.
Изложение сопровождается многочисленными примерами и фрагментами кода.Для программистов
Автор: Понамарев В.
Другие сайты о DELPHI   |x|
Polaris Software
Сайт для программистов на Delphi, С++Builder и СУБД IB Database. Русификация Delphi, BDE. Библиотека компонент Polaris Library, библиотека функций для IB rFunc Library.
» Оценка сайта: 5
Опрос населения :)
Новый журнал для программистов "RSDN Magazine". Согласны ли вы его покупать ежемесячно?
»»» Да
»»» Нет
Журнал "RSDN Magazine"  |x|

Дорогие друзья! Мы рады представить вам новый совместный проект сайтов www.rsdn.ru, delphi.mastak.ru и www.optim.ru - профессиональный журнал для программистов RSDN Magazine.
Несомненно, ваше мнение о необходимости такого журнала, содержании рубрик и темах отдельных статей поможет сделать журнал более полезным и интересным. Высказать свое мнение, проголосовать или же подписаться вы можете на сайте. Без вашего участия, нам будет трудно сделать правильный журнал!
На сайте выложен анонс пилотного выпуска журнала, вступительное слово от редакции.

Для души

Хокку дня
Бушует морской простор!
Далеко, до острова Садо,
Стелется Млечный Путь.

Афоризмы
На каждом перекрестке толпятся ревнители традиций. Не обращайте на них внимание....

Фраза дня
4 Mb - это не память. Это склероз.

Дурацкие законы (информация предоставлена сайтом kurilka.com)
В Айдахо (США) запрещено рыбачить, сидя на верблюде.
В Балтиморе (США) не разрешается приходить в театр со львами.

И на закуску коротенький анекдот
- Вы рождены в законном браке?
- Да, наполовину.
- Наполовину? Как это понять?
- Мой отец был женат, а мать нет.

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

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

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