Отправляет 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
Автор
Сергей

Статистика

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

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


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

DELPHI.mastak.ru

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

Обновился дайджест по FAQ. Скачать можно здесь
Кое-что из нашей кладовки   |x|
  • AVPCHECK v.2.0 MARcoDEN marcoden@comail.ru   (17.11.01 21:19)
    This utility checks a completeness of anti-virus bases for a very powerful and popular antivirus program - Antiviral Toolkit Pro. This information AVPCHECK gets from the file AVP.set. Also it displays the contents of this file and folder with bases. If AVPCHECK detects superfluous (repeated or old) bases, it will remove them, organize bases and display detailed report. The utility has a nice GUI interface and "hints". AVPCHECK will be especially useful for users who download bases manually.
    »»» Скачать: исходные тексты (342кб)
Лучшее из нашего FAQ   |x|
Как перехватить сообщения прокрутки в TScrollBox?
Следующий пример перехватывает сообщения о прокрутке компонента TScrollBox и
синхронизирует обе линейки прокрутки. Сообщения прокрутки перехватываются с помощью
переопределения окнной процедуры (WinProc) ScrollBox'а.

Пример:

type
{$IFDEF WIN32}
    WParameter = LongInt;
{$ELSE}
    WParameter = Word;
{$ENDIF}
    LParameter = LongInt;

{Declare a variable to hold the window procedure we are replacing}
var
    OldWindowProc : Pointer;

function NewWindowProc(WindowHandle : hWnd;
    TheMessage   : WParameter;
    ParamW : WParameter;
    ParamL : LParameter) : LongInt
{$IFDEF WIN32} stdcall; {$ELSE} ; export; {$ENDIF}
var
    TheRangeMin : integer;
    TheRangeMax : integer;
    TheRange : integer;
begin
    if TheMessage = WM_VSCROLL then
    begin
        {Get the min and max range of the horizontal scroll box}
        GetScrollRange(WindowHandle, SB_HORZ, TheRangeMin, TheRangeMax);
        {Get the vertical scroll box position}
        TheRange := GetScrollPos(WindowHandle, SB_VERT);
        {Make sure we wont exceed the range}
        if TheRange < TheRangeMin then
        TheRange := TheRangeMin else
        if TheRange > TheRangeMax then
        TheRange := TheRangeMax;
        {Set the horizontal scroll bar}
        SetScrollPos(WindowHandle, SB_HORZ, TheRange, true);
    end;
    if TheMessage = WM_HSCROLL then
    begin
        {Get the min!
 and max range of the horizontal scroll box}
        GetScrollRange(WindowHandle, SB_VERT, heRangeMin, TheRangeMax);
        {Get the horizontal scroll box position}
        TheRange := GetScrollPos(WindowHandle, SB_HORZ);
        {Make sure we wont exceed the range}
        if TheRange < TheRangeMin then
            TheRange := TheRangeMin
        else
            if TheRange > TheRangeMax then
                TheRange := TheRangeMax;
            {Set the vertical scroll bar}
            SetScrollPos(WindowHandle, SB_VERT, TheRange, true);
    end;

    {Call the old Window procedure to allow processing of the message.}
    NewWindowProc := CallWindowProc(OldWindowProc, WindowHandle, TheMessage,
                    ParamW, ParamL);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
    {Set the new window procedure for the control and remember 
                the old window procedure.}
    OldWindowProc := Pointer(SetWindowLong(ScrollBox1.Handle, GWL_WNDPROC,
                LongInt(@NewWindowProc)));
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
    {Set the window procedure back to the old window procedure.}
    SetWindowLong(ScrollBox1.Handle, GWL_WNDPROC, LongInt(OldWindowProc));
end;



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

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

Обсуждается в конференциях   |x|
У нас большой выбор статей   |x|
Использование HTTP в Delphi.
Данная статья посвящена программированию на Borland Delphi с использованием одного из самых популярных Интернет-протоколов - HTTP.
А именно, здесь мы рассмотрим компонент TNMHTTP (NetMasters HTTP), который можно обнаружить на вкладке FastNet палитры компонентов Дельфи.
Новинки книжного рынка   |x|
Delphi 5 для профессионалов
Эта книга поможет вам овладеть программированием в Delphi, включая язык Object Pascal, компоненты Delphi (как работу с существующими компонентами, так и разработку ваших собственных), поддержку баз данных и приложений клиент/сервер, базовые элементы программирования в среде Windows и разработку COM-приложений, а также Web-программирование. Для чтения этой книги нет необходимости в глубоких знаниях какой-либо из этих тем, но что вам действительно понадобится — это основы программирования на Паскале.
Автор: М. Кэнту
Другие сайты о DELPHI   |x|
Сайт Грюндика, Московского Программиста
На сайте программы, компонеты, FAQ того самого Грюндика!
Опрос населения :)
Образование программиста?
»»» Высшее
»»» Незаконченное высшее
»»» Среднее специальное
»»» Среднее
Журнал "Мастера DELPHI"  |x|
Давно витающая в воздухе нашего сайта идея создания журнала, посвященного всеми нами любимой среде разработки Delphi, похоже, обретает зримую форму. Несомненно, ваше мнение о необходимости такого журнала, содержании рубрик и темах отдельных статей поможет сделать журнал более полезным и интересным. Высказать свое мнение, проголосовать или же подписаться вы можете на сайте. Без вашего участия, нам будет трудно сделать правильный журнал!
Для души

Хокку дня
капли дождя
на стеклах ее очков: весна
уже недалеко

Афоризмы
"Лилипуты всегда были невысокого мнения о гулливерах." (Михаил Генин)

Фраза дня
Я умираю, но об этом - позже...

И на закуску коротенький анекдот
- Ты уже 10 лет женат, и ни разу не изменил! Почему?
- Ну... на то есть две причины...
- Наверное любовь и верность?
- Нет, лень и порносайты!

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

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

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