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

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


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

DELPHI.mastak.ru

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

Кое-что из нашей кладовки   |x|
  • NetLoad Mixan mixanoid@mail.ru   (16.08.01 15:36)
    Скачка из интернета. Пока однопотоковый, но уже поддерживает очередь, ДОКАЧКУ, ведется лог соединения с сервером. Чуть доработать - и будет новый ReGet!
    ССЫЛКА НАКОНЕЦ-ТО РАБОТАЕТ
    Исходник взят с http://mixan.narod.ru
    »»» Скачать: исходные тексты (4кб) посмотреть скриншот
  • CGI-сканер Mixan mixanoid@mail.ru   (16.08.01 15:35)
    Маленький сканер CGI-скриптов. В базе сканера пока 619 скриптов. Поддержка прокси-сервера.
    ССЫЛКА НАКОНЕЦ-ТО РАБОТАЕТ
    Исходник взят с http://mixan.narod.ru
    »»» Скачать: исходные тексты (2кб) посмотреть скриншот
  • ProcessKiller Mixan mixanoid@mail.ru   (16.08.01 15:33)
    Показывает АБСОЛЮТНО все запущенные программы(даже скрытые и дочерние) и позволяет их завершать.
    ССЫЛКА НАКОНЕЦ-ТО РАБОТАЕТ
    Исходник взят с http://mixan.narod.ru
    »»» Скачать: исходные тексты (2кб) посмотреть скриншот
  • Resourse Scanner Mixan mixanoid@mail.ru   (16.08.01 15:32)
    Сканирует папку на наличие переименованных файлов. Находит скрытые MIDI, EXE, DLL, BMP, GIF, JPG, PCX, ZIP, WAV, ANI.
    ССЫЛКА НАКОНЕЦ-ТО РАБОТАЕТ
    Исходник взят с http://mixan.narod.ru
    »»» Скачать: исходные тексты (2кб) посмотреть скриншот
  • Colors Irenf Nick@tamb.ru   (16.08.01 13:38)
    Любителям Lines.
    »»» Скачать: исходные тексты (16кб)
Лучшее из нашего FAQ   |x|
Как изменить шрифт hint'а?
В примере перехватывается событие Application.OnShowHint и изменяется шрифт Hint'а.
Пример:

type
   TForm1 = class(TForm)
       procedure FormCreate(Sender: TObject);
   private
       {Private declarations}
   public
       procedure MyShowHint(var HintStr: string;
           var CanShow: Boolean;var HintInfo: THintInfo);
       {Public declarations}
end;

var
   Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.MyShowHint(var HintStr: string; var CanShow: Boolean;
                               var HintInfo: THintInfo);
var
   i : integer;
begin
   for i := 0 to Application.ComponentCount - 1 do
   if Application.Components[i] is THintWindow then
       with THintWindow(Application.Components[i]).Canvas do
           begin
               Font.Name:= 'Arial';
               Font.Size:= 18;
               Font.Style:= [fsBold];
               HintInfo.HintColor:= clWhite;
           end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
   Application.OnShowHint := MyShowHint;
end;



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

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

Обсуждается в конференциях   |x|
У нас большой выбор статей   |x|
MIDAS - multi-tired distributed application service suite
Подробно о MIDAS (multi-tired distributed application service suite). Создание сервера приложений. Создание "Тонкого клиента".
Другие сайты о DELPHI   |x|
Программирование на Дельфи и Паскаль
Конференция, Уроки, Компоненты и Программы с исходниками, Советы, Скоро будет ЧАТ !!!sЗаходите в гости !!!
Опрос населения :)
Образование программиста?
»»» Высшее
»»» Незаконченное высшее
»»» Среднее специальное
»»» Среднее
Для души

Хокку дня
Вечерним вьюнком
Я в плен захвачен… Недвижно
Стою в забытьи.

Афоризмы
На вопрос, начинающийся словом "сколько..", ответ не должен начинаться словами "потому что.." ....

Фраза дня
...со следами искусственного интеллекта на лице...

И на закуску коротенький анекдот
- У меня черный пояс по карате!
- А у меня желтая резинка от трусов по плаванию!

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


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

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


http://subscribe.ru/
E-mail: ask@subscribe.ru
Отписаться Рейтингуется SpyLog

В избранное