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

Статистика

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

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


Информационный Канал Subscribe.Ru
Ежедневная рассылка сайта Мастера DELPHI

DELPHI.mastak.ru

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

Кое-что из нашей кладовки   |x|
  • MAILDOR(v0.1) dor artemdor@mail.ru   (09.11.02 16:55)
    Отличная почтовая программа.Похожа на TheBat
    »»» Скачать: исходные тексты демонстрационный EXE файл
  • КАЛЬКУЛЯТОР v 3.1 Vityanya myllo@ukr.net   (09.11.02 01:42)
    Красивый и функциональный калькулятор. Мигающие кнопки,
    возможность набора с клавиатуры, без глюков. Обновленная версия.
    P.S. С помощью фотошопа можно легко поменять цвета клавиш.
    »»» Скачать: исходные тексты (94кб)
Лучшее из нашего 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 TheMe!
ssage = 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
   &!
nbsp;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|
  • Проблема с отключением копа
    Написал небольшую прогу, которая загружается вместе с ОС, она в неактивном состоянии висит в трее. но при попытке ...
  • Как удалить запись из TString'а
    Подскажите пожалйста самый простой и удобный способ. Спасибо.
  • OnCloseQuery
    У формы есть обработчик OnCloseQuery: If MessageDlg('Bal bla bla',mtConfirmation,[mbYes,mbNo],0)=mrYes then ...
  • Программирование PCI и АЦП.................
    У меня есть прибор, который подключается через АЦП к шине PCI, мне надо снять с АЦП цифровые данные, как мне это ...
  • SQLDialect
    Всем привет! Мое приложение работает с БД InterBase 6, SQL-диалект 3. Подключаюсь к БД с помощью TDatabase. При этом ...
  • Шина I2C
    Привет Всем! Подскажите где найти компоненту на Дельфи для работы с шиной I2C. В Инете нашел 5 штук ,но установить не ...
  • Фильтрация
    Пусть имеется поле типа DateTime, через TTable необходимо отфильтровать только по году
У нас большой выбор статей   |x|
COM. Автоматизация - от простого к сложному (часть I)
В данной статье речь пойдёт об одной из COM-ориентированных технологий, которая занимает одно из ведущих мест при разработке программных средств, использующих технологию COM. Итак, разговор пойдёт об автоматизации.
...
Я ориентировал данную статью на неискушённых в COM-программировании людей, попросту говоря, на новичков в данной области, поэтому я намеренно не вдавался в объяснения некоторых деталей, понимание которых может только запутать неискушённого читателя. По этой же причине (ориентированности на НЕпрофессионалов), некоторые вещи (очевидные для опытных людей) я разобрал с особой тщательностью.
Новинки книжного рынка   |x|
Delphi: специальный справочник
В книге содержится обширный справочный материал по основным элементам языка, включающий в себя наиболее употребительные функции, классы и объекты. Последовательно и подробно изложен процесс создания баз данных, Windows-приложений и динамических библиотек. Приложения с описанием различных кодов ошибок выполнения программ делает книгу полезной не только начинающим программистам, но и пользователям, активно работающим с Delphi
Автор: Б. Карпов
Другие сайты о DELPHI   |x|
http://sedoy-tzar.by.ru
Сайт Delpher-Hacker-a, есть его программулины типа Чата для локалки и примера вируса трояна!!!
Заходите и вы не пожелеете!!!!
» Оценка сайта: 2
Опрос населения :)
Как часто вы заглядываете на наш сайт?
»»» Регулярно
»»» Раз в неделю
»»» Когда нужна помощь
»»» По почтовой рассылке
»»» Сделал стартовой страницей
Журнал "RSDN Magazine"  |x|

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

Для души

Хокку дня
Осколки неба
Склеены наспех
Черными ветками.

Афоризмы
Ссылка на авторитет - не довод...

Фраза дня
Из рекламы шампуня: "Раньше мои волосы были сухими и безжизненными, а теперь они сырые и шевелятся".

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

И на закуску коротенький анекдот
Вслед за водкой и проституток обложили таким высоким налогом, что бедняжки вынуждены продавать себя ниже себестоимости!

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

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

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