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

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


Информационный Канал Subscribe.Ru

Ежедневная рассылка сайта Мастера DELPHI

DELPHIMASTER.ru

Выпуск от 17.12.03 10:57

Новые компоненты   |x|
  • Keyboard Macro Manager v.1.0 (13kb) (16.12.03 16:03)
    Улучшение Delphi IDE для сохранения / восстановление клавиатурных макросов.
    Источник: www.torry.net   Автор: Daniel Cunningham
    -= · Tools · =- [Перевел: Владимир Андреев]

  • Delphi Collections v.1.0 (861kb) (16.12.03 15:57)
    Delphi Collections - это набор классов для Delphi 5 и Delphi 7, откомпилированных с исходными кодами, файлами помощи, тестовыми примерами и документацией. Протестировано только для Delphi 5 и 7 Professional. Использует лишь стандартный набор RTL классов, что должно обеспечивать совместимость со Standard, Enterprise и Delphi 6 версиями, но это не достоверно. Это не design-time пакет, т.к. не содержит компоненты. Delphi Collections - это разновидность библиотеки, которая существует в других языках, но отсутствует в Delphi: библиотека стандартных типов.
    Источник: www.torry.net   Автор: Matthew Greet http://www.warmachine.u-net.com/delphi_collections
    -= · Tools · Samples · =- [Перевел: Владимир Андреев]

  • FastScript 1.3 (15.12.03 11:16)
    FastScript - библиотека для выполнения скриптов. Она будет полезна
    разработчикам, желающим добавить возможности исполнения скриптовых
    программ в свои проекты.
    В новой версии:
    + Добавлены BasicScript и JScript
    + Автоопределение языка по сигнатуре
    + возможность создания и исполнения мультиязычных скриптов (как внутри
     одного скрипта так и при подключении модулей с разными скриптовыми
     языками)
    * изменения в парсере и объявлениях языка
    * улучшенная грамматика C++Script
    * оптимизация скорости
    - исправлена ошибка в методе SetILCode
    Автор: Fast Reports
    -= · Tools · =-

  • Для уменьшения объема писем здесь публикуется не весь список новых компонент, потому заглядывайте и на сайт!
Кое-что из нашей кладовки   |x|
  • MyButton Ivolg Vano_nono@mail.ru   (15.12.03 12:52)
    Простая кнопка наследница Tbutton.Есть свойство которое считает сколько раз нажата кнопка!
    »»» Скачать: исходные тексты
  • Модуль для записи числа словами Бабичев Сергей sergjp@rambler.ru   (16.12.03 21:42)
    Обновленный вариант модуля записи чисел прописью на русском языке. Исправлены некоторые глюки, спасибо Out'у.

    По многочисленным просьбам в архив вложен и JavaScript.
    »»» Скачать: исходные тексты (4кб)
  • крипто-алгоритм... -= @ndrew =- alexandart@mail.ru   (17.12.03 10:31)
    Сама программа при шифровании, заменяет все символы исходного текста на один, наугад выбранный. Есть функция выбора символа.
     Шифруемый текст не должен привышать 255 символов. После сохранения кодированного текста создаются 4-файла:
       
    1   - непосредственно зашифрованный текст.
    2,3 - массивы чисел расположения шифруемых символов в алфавите.
    4   - ключи необходимые при расшифровке (чтобы не забывали :).
    »»» Скачать: исходные тексты (22кб) демонстрационный EXE файл (230кб)
Лучшее из нашего FAQ   |x|
Как ограничить длинну текста, вводимого в TEdit, так чтобы ширина текста не превышала
ширину TEdit'а?

В примере приведено два способа ограничить длинну текста в TEdit так чтобы она не превышала ширину клиентской области окна TEdit'а и не появлялась прокрутка текста. Первый способ устанавливает свойство TEdit'а MaxLength равным числу букв "W", которые поместятся в TEdit. "W" выбрана потому, что является, наверное, самой широкой буквой в любом шрифте. Этот метод сносно работает для шрифтов с фиксированной шириной букв, но для шрифтов с переменной шириной букв вряд ли сгодится. Второй способ перхватывает событие KeyPress TEdit'а и измеряет ширину уже введенного текста и ширину нового символа. Если ширина больше чем клиентская область TEdit'а новый символ отбрасывается и вызывается MessageBeep.
Пример:

procedure TForm1.FormCreate(Sender: TObject);
var
   cRect : TRect;
   bm : TBitmap;
   s : string;
begin
   Windows.GetClientRect(Edit1.Handle, cRect);
   bm := TBitmap.Create;
   bm.Width := cRect.Right;
   bm.Height := cRect.Bottom;
   bm.Canvas.Font := Edit1.Font;
   s := 'W';
   while bm.Canvas.TextWidth(s) < CRect.Right do
   s := s + 'W';
   if length(s) > 1 then
   begin
       Delete(s, 1, 1);
       Edit1.MaxLength := Length(s);
   end;
end;

{Другой вариант}

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var
   cRect : TRect;
   bm : TBitmap;
begin
   if ((Ord(Key) <> VK_TAB) and (Ord(Key) <> VK_RETURN) and
       (Ord(Key) <> VK_LEFT) and (Ord(Key) <> VK_BACK)) then
   begin
       Windows.GetClientRect(Edit1.Handle, cRect);
       bm := TBitmap.Create;
       bm.Width := cRect.Right;
       bm.Height := cRect.Bottom;
       bm.Canvas.Font := Edit1.Font;
       if bm.Canvas.TextWidth(Edit1.Text + Key) > CRect.Right then
       begin
           Key := #0;
           MessageBeep(-1);
       end;
       bm.Free;
   end;
end;


Источник: Дельфи. Вокруг да около.

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

Обсуждается в конференциях   |x|
У нас большой выбор статей   |x|
Перемещение Image по форме во время работы программы
Многие из вас, наверное, сталкивались с проблемой перемещения Image'a по форме. Решить ее можно, по крайней, мере тремя способами...
Новинки книжного рынка   |x|
Экстремальное программирование: постановка процесса. С первых шагов и до победного конца
Экстремальное программирование задает простой вопрос: «Каким образом небольшая группа самых обыкновенных, заурядных разработчиков может создать программный продукт, во всех отношениях удовлетворяющий требованиям заказчика?» Эта книга отвечает на данный вопрос. Авторы не любят вдаваться в методологические дискуссии. Конечно же, в свое время они прислушивались к самым разнообразным доводам. Они анализировали их, разделяли их на части, пытались применить их частично и в целом. Сейчас они знают, что работает, а что — нет. Они также знают, почему.
Автор: Ken Auer, Roy Miller
Наши друзья   |x|
Сертификация специалистов
∙ Как устроиться на высокооплачиваемую работу?
  Как получить прибавку к зарплате?
  Как завоевать уважение коллег?
∙ Пройти сертификацию и продемонстрировать свой профессионализм. Подробнее…
Другие сайты о DELPHI   |x|
Программы и статьи для всех!
На сайте Вы можете найти кучу полезной информации по разным языкам программирования, а также закачать программы по обучению иностранным языкам.
Очень был бы рад, если бы Вы зашли на досуге на ...

» Оценка сайта: 2
Опрос населения :)
Стоит ли сделать англоязычную версию этого сайта?
»»» Да
»»» Нет
Для души

Хокку дня
Придавленные
шумом водопада,
смолкают люди.

Афоризмы
Министры падают со своих кресел, как бутерброды с маслом: лучшей стороной вниз...

Фраза дня
...и написал Иисус конвертер water2wine, и стал раздавать его freeware...

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

И на закуску коротенький анекдот
- Что такое "дипломатия"?
- Дипломатия - это искусство произносить фразу "хороший песик" до тех пор, пока под руку не попадется хороший булыжник.

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


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

Добро пожаловать на сайт -= Мастера DELPHI =- 


http://subscribe.ru/
E-mail: ask@subscribe.ru
Отписаться
Убрать рекламу

В избранное