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

Статистика

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

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


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

DELPHI.mastak.ru

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

Кое-что из нашей кладовки   |x|
Лучшее из нашего FAQ   |x|
Копирование экрана 

unit ScrnCap;
interface
uses WinTypes, WinProcs, Forms, Classes, Graphics, Controls;

 { Копирует прямоугольную область экрана }
function CaptureScreenRect(ARect : TRect) : TBitmap;
 { Копирование всего экрана }
function CaptureScreen : TBitmap;
 { Копирование клиентской области формы или элемента }
function CaptureClientImage(Control : TControl) : TBitmap;
 { Копирование всей формы элемента }
function CaptureControlImage(Control : TControl) : TBitmap;

{===============================================================}
implementation
function GetSystemPalette : HPalette;
var
 PaletteSize  : integer;
 LogSize      : integer;
 LogPalette   : PLogPalette;
 DC           : HDC;
 Focus        : HWND;
begin
 result:=0;
 Focus:=GetFocus;
 DC:=GetDC(Focus);

try
   PaletteSize:=GetDeviceCaps(DC, SIZEPALETTE);
   LogSize:=SizeOf(TLo!
gPalette)+(PaletteSize-1)*SizeOf(TPaletteEntry);
   GetMem(LogPalette, LogSize);
   try
     with LogPalette^ do
     begin
       palVersion:=$0300;
       palNumEntries:=PaletteSize;
       GetSystemPaletteEntries(DC, 0, PaletteSize, palPalEntry);
     end;
     result:=CreatePalette(LogPalette^);
   finally
     FreeMem(LogPalette, LogSize);
   end;
 finally
   ReleaseDC(Focus, DC);
 end;
end;


function CaptureScreenRect(ARect : TRect) : TBitmap;
var
 ScreenDC : HDC;
begin
 Result:=TBitmap.Create;
 with result, ARect do begin
  Width:=Right-Left;
  Height:=Bottom-Top;
  ScreenDC:=GetDC(0);
  try
    BitBlt(Canvas.Handle, 0,0,Width,Height,ScreenDC, Left, Top, SRCCOPY    );
  finally
    ReleaseDC(0, ScreenDC);

 end;
  Palette:=GetSystemPalette;
 end;
end;
function CaptureScreen : TBitmap;
begin
 with Screen do
  Result:=CaptureScreenRect(Rect(0,0,Width,Height));
end;

function CaptureClientImage(Control : TControl) : TBitmap;
begin
 with Control, Control.ClientOrigin do
  result:=CaptureScreenRect(Bounds(X,Y,ClientWidth,ClientHeight));
end;

function CaptureControlImage(Control : TControl) : TBitmap;
begin
 with Control do
  if Parent=Nil then
    result:=CaptureScreenRect(Bounds(Left,Top,Width,Height))
  else
   with Parent.ClientToScreen(Point(Left, Top)) do
    result:=CaptureScreenRect(Bounds(X,Y,Width,Height));
end;
end.


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

Обсуждается в конференциях   |x|
  • Программное нажатие клавиш CTRL+ALT+DELETE
    Возможно ли такое исполнить и если да, то как? Мастера, наставьте на путь истинный, PLZ...
  • Вид курсора при создании формы
    Если форма открываеся долго, то для создания формы такая процедура: procedure F1Create; var Save_Cursor: TCursor; ...
  • Вопрос о константах
    Всем доброго времени суток! Меня вот крайне заинтересовал такой вопрос. Когда мы в модуле в разделе описаний объявляем ...
  • ReadBinary...
    Снова доброго времени суток, мастера! Подскажите, как прочитать из реестра занчение типа rdBinary? Размер буфера ...
  • Если кто знает
    Привет всем! Хочу написать прогу для записи файлов на болванки. Может кто знает есть ли какие нибудь команды или ...
  • Как получить системные настройки
    Как получить системные настройки формата чисел и др. из Панели Управления-"Язык и стандарты"
  • Как определить ошибку BDE
    отрывается таблица try Table1.Open; except on EDBEngineError do //как дальше определить код ошибки? //т.е. ...
У нас большой выбор статей   |x|
Поддержка Windows Visual Styles (Themes) API в Ваших органах управления
В операционных системах (OC) компании Microsoft, начиная с Microsoft Windows XP, появились так называемые визуальные стили (visual styles), которые определяют внешний вид органов управления (controls) и других окон (windows) интерфейса пользователя.
В отличие от более ранних ОС компании Microsoft, органы управления теперь могут иметь не только иные цветовую схему и пропорции, но также иные методы прорисовки отдельных своих элементов оформления (parts).
Сами методы отрисовки различных стандартных элементов были выделены в отдельный модуль с расширением mst, который поставляется в составе визуального стиля. В комплект поставки Windows XP входит только один визуальный стиль ...
Новинки книжного рынка   |x|
Delphi: специальный справочник
В книге содержится обширный справочный материал по основным элементам языка, включающий в себя наиболее употребительные функции, классы и объекты. Последовательно и подробно изложен процесс создания баз данных, Windows-приложений и динамических библиотек. Приложения с описанием различных кодов ошибок выполнения программ делает книгу полезной не только начинающим программистам, но и пользователям, активно работающим с Delphi
Автор: Б. Карпов
Другие сайты о DELPHI   |x|
3D Megaengine - Создание 3D движков на OpenGL в Delphi
Сайт, посвященный разработке 3d движков на OpenGL в Delphi. Движок Megaengine c исходниками и многое другое.
» Оценка сайта: 2
Опрос населения :)
Стоит ли устраивать встречи программистов в реале? (пирушки :)
»»» Обязательно!
»»» Иногда можно
»»» Я туда не пойду
»»» Категорически нет
Журнал "RSDN Magazine"  |x|

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

Для души

Хокку дня
Дверь открываю
В зной груди
И вижу там себя.

Афоризмы
В китайском языке 15 тысяч иероглифов. Не дай Бог попасть на их "Поле Чудес", бессмысленное и беспощадное

Фраза дня
Естественный отбор денег

Дурацкие законы (информация предоставлена сайтом kurilka.com)
В Денвере (США) запрещается ездить по воскресеньям на машинах черного цвета.
В городе Стерлинг в Колорадо (США) запрещается выпускать кошек гулять, если они “не имеют сзади световых отражателей”.

И на закуску коротенький анекдот
- Аэропорт, аэропорт, я борт 57, терплю бедствие!
- Борт 57, борт 57, вас понял! Вычеркиваю!

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

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

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