Улучшение Delphi IDE для сохранения / восстановление клавиатурных макросов.
Источник: www.torry.net
Автор: Daniel Cunningham -= · Tools · =- [Перевел: Владимир Андреев]
Delphi Collections - это набор классов для Delphi 5 и Delphi 7, откомпилированных с исходными кодами, файлами помощи, тестовыми примерами и документацией. Протестировано только для Delphi 5 и 7 Professional. Использует лишь стандартный набор RTL классов, что должно обеспечивать совместимость со Standard, Enterprise и Delphi 6 версиями, но это не достоверно. Это не design-time пакет, т.к. не содержит компоненты. Delphi Collections - это разновидность библиотеки, которая существует в других языках, но отсутствует в Delphi: библиотека стандартных типов.
Источник: www.torry.net
Автор: Matthew Greethttp://www.warmachine.u-net.com/delphi_collections -= · Tools · Samples · =- [Перевел: Владимир Андреев]
FastScript - библиотека для выполнения скриптов. Она будет полезна разработчикам, желающим добавить возможности исполнения скриптовых программ в свои проекты. В новой версии: + Добавлены BasicScript и JScript + Автоопределение языка по сигнатуре + возможность создания и исполнения мультиязычных скриптов (как внутри одного скрипта так и при подключении модулей с разными скриптовыми языками) * изменения в парсере и объявлениях языка * улучшенная грамматика C++Script * оптимизация скорости - исправлена ошибка в методе SetILCode
Автор: Fast Reports -= · Tools · =-
Для уменьшения объема писем здесь публикуется не весь список новых компонент, потому заглядывайте и на сайт!
Сама программа при шифровании, заменяет все символы исходного текста на один, наугад выбранный. Есть функция выбора символа. Шифруемый текст не должен привышать 255 символов. После сохранения кодированного текста создаются 4-файла:
1 - непосредственно зашифрованный текст. 2,3 - массивы чисел расположения шифруемых символов в алфавите. 4 - ключи необходимые при расшифровке (чтобы не забывали :).
»»» Скачать: исходные тексты (22кб) демонстрационный EXE файл (230кб)
Как ограничить длинну текста, вводимого в 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;
как остановить сервис из самого сервиса
Привет всем! Такой вопрос: нужно остановить сервис из самого сервиса,можно ли это сделать? Заранее всем большое спасибо.
Экстремальное программирование: постановка процесса. С первых шагов и до победного конца
Экстремальное программирование задает простой вопрос: «Каким образом небольшая группа самых обыкновенных, заурядных разработчиков может создать программный продукт, во всех отношениях удовлетворяющий требованиям заказчика?» Эта книга отвечает на данный вопрос. Авторы не любят вдаваться в методологические дискуссии. Конечно же, в свое время они прислушивались к самым разнообразным доводам. Они анализировали их, разделяли их на части, пытались применить их частично и в целом. Сейчас они знают, что работает, а что — нет. Они также знают, почему.
Автор: Ken Auer, Roy Miller
Сертификация специалистов ∙ Как устроиться на высокооплачиваемую работу? Как получить прибавку к зарплате? Как завоевать уважение коллег? ∙ Пройти сертификацию и продемонстрировать свой профессионализм. Подробнее…
Программы и статьи для всех! На сайте Вы можете найти кучу полезной информации по разным языкам программирования, а также закачать программы по обучению иностранным языкам. Очень был бы рад, если бы Вы зашли на досуге на ...
» Оценка сайта: 2
Хокку дня
Придавленные шумом водопада, смолкают люди.
Афоризмы
Министры падают со своих кресел, как бутерброды с маслом: лучшей стороной вниз...
Фраза дня
...и написал Иисус конвертер water2wine, и стал раздавать его freeware...
Дурацкие законы (информация предоставлена сайтом kurilka.com)
В городе Вотерлу в Небраске (США) брадобреям и парикмехерам запрещено есть лук с 7-ми утра до 7-ми вечера.
В Небраске (США), где и моря и в помине нет, запрещается ловить китов.
И на закуску коротенький анекдот
- Что такое "дипломатия"? - Дипломатия - это искусство произносить фразу "хороший песик" до тех пор, пока под руку не попадется хороший булыжник.