Отправляет 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

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

Кое-что из нашей кладовки   |x|
Лучшее из нашего FAQ   |x|
Как сделать родительское окно с фоновым рисунком в клиентской области?
Для того чтобы сделать это выполните следующие шаги:
      Срздайте новый проект.
Установите FormStyle формы в fsMDIForm
Разместите Image на форме и загрузите в него картинку.
Найдите { Private Declarations } в обьявлении формы и
добаьте следующие строки:

   FClientInstance : TFarProc;
   FPrevClientProc : TFarProc;
   procedure ClientWndProc(var Message: TMessage);

Добаьте следующие строки в разделе implementation:

 procedure TMainForm.ClientWndProc(var Message: TMessage);
 var
   Dc : hDC;
   Row : Integer;
   Col : Integer;
 begin
   with Message do
     case Msg of
       WM_ERASEBKGND:
       begin
      
  Dc := TWMEraseBkGnd(Message).Dc;
         for R!
ow := 0 to ClientHeight div Image1.Picture.Height do
           for Col := 0 to ClientWidth div Image1.Picture.Width do
             BitBlt(Dc,
                Col * Image1.Picture.Width,
                Row * Image1.Picture.Height,
                Image1.Picture.Width,
                Image1.Picture.Height,
                Image1.Picture.Bitmap.Canvas.Handle,
                0,
                0,
                SRCCOPY);
          
Result := 1;
       end;
       els!
e
         Result := CallWindowProc(FPrevClientProc,
                                  ClientHandle,
                                  Msg,
                                  wParam,
                                  lParam);
   end;
 end;

В методе формы OnCreate добавьте:

    FClientInstance := MakeObjectInstance(ClientWndProc);
    FPrevClientProc := Pointer(GetWindowLong(ClientHandle,
            
                  GWL_WNDPROC));
  !
  SetWindowLong(ClientHandle,
                  GWL_WNDPROC, LongInt(FClientInstance));

Добавьте к проекту новую форму и установите ее свойство FormStyle в
fsMDIChild.

У Вас получился  MDI-проект с "обоями" в клиентской области MDI формы.


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

Комментари от proton (avtograd) (NilSoft)
Такое делаетмя одной строкой.
 brush.bitmap := image1.picture.bitmap;
повесить это надо на onCreate.
и все, больше ни каких изврашений! :)

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

Обсуждается в конференциях   |x|
У нас большой выбор статей   |x|
Создание COM-объектов средствами Delphi. Часть 1
Как преодолеть отсутствие множественного наследования в Delphi.
Однако есть способ решения этих проблем: применение единого стандарта для организации связи между объектами, который не зависит от используемой платформы и языка. Именно такова разработанная Microsoft компонентная модель объекта COM (Component Object Model). Данная технология уже получила широкое внедрение: ведь на ее базе работают механизмы OLE и ActiveX.
Новинки книжного рынка   |x|
Delphi 5: учебный курс
В книге рассмотрены возможности системы программирования Delphi 5, описан язык программирования Object Pascal, рассмотрены визуальные компоненты системы и методы их создания. Особое внимание уделено принципам и практическим приемам создания сетевых приложений для разных архитектур и разработке программ, поддерживающих основные протоколы Интернета.Не требует специальной подготовки, может быть использована как пособие для изучающих основы программирования и сетевые технологии, а также как справочник по компонентам Delphi и пособие для самообразования.
Автор: С. Бобровский
Другие сайты о DELPHI   |x|
Programming Nest
Сайт посвященный программингу, содержит в себе много различных программ и их исходников. Будет полезен и интересен каждому, профессионалу или совсем делитанту.
» Оценка сайта: 2
Опрос населения :)
Какой сайт по Delphi лучший?
»»» Королевство Дельфи
»»» Этот сайт
»»» Дельфи. Вокруг да около
»»» Другой
»»» Чем больше, тем лучше!
Журнал "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=7008

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

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