Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Мультимедиа в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 15.04.2011, 04:26   #1
Lokos
Форумчанин
 
Регистрация: 29.09.2009
Сообщений: 587
По умолчанию Создание скриншета заданного размера

Здравствуйте.
Пытаюсь делать так
Код:
procedure ScreenShot(PathToSave: string);
begin
  with TBitmap.Create do
  begin
    Width := 1030;//Screen.Width; // указываем размеры
    Height := 777; //Screen.Height;

    BitBlt(Canvas.Handle, FormKartochka.Left, FormKartochka.Top, Width, Height,
       GetDC(GetDesktopWindow),  FormKartochka.Left, FormKartochka.Top, SRCCOPY);

    SaveToFile(PathToSave); // сохраняем на диск
    Free; // освобождаем
  end;
end;
но скрин создается от координат 0,0 а необходимо чтоб от свойств формы left и Top
Lokos вне форума Ответить с цитированием
Старый 15.04.2011, 10:08   #2
asmodey1
Подтвердите свой е-майл
 
Регистрация: 19.12.2010
Сообщений: 808
По умолчанию

Если правильно написать слово "скриншОт", то
http://programmersforum.ru/showthrea...E8%ED%F8%EE%F2
asmodey1 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Интерпретатор заданного языка DaNiemand Помощь студентам 2 07.09.2010 14:56
Зависимость размера рисунка от размера формы Hippie Мультимедиа в Delphi 3 18.05.2010 10:46
Определить максимальную сумму квадратов заданного размера в исходном файле ulaza Помощь студентам 1 10.02.2010 09:48
Сумма не больше заданного числа LENA_M Microsoft Office Excel 9 01.05.2009 16:06