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

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

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 18.11.2012, 13:17   #1
DGiv
 
Регистрация: 06.11.2011
Сообщений: 4
По умолчанию Screen помещён в Clipboard.Assign(bmp)//Нужно сохраненный Screen вывести из буфера снова на экран(Width,Height)

Screen помещён в Clipboard.Assign(bmp)//Нужно сохраненный Screen вывести из буфера и снова поместить поверх на экран монитора (Width,Height).
Фактически, просто наложить картинку.
Подскажите что дописать. среда - Delphi7
Цитата:
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Clipbrd, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
bmp: TBitmap;
DC: HDC;
begin
bmp := TBitmap.Create;
try
bmp.Width := Screen.Width;
bmp.Height := Screen.Height;
DC:=GetDC(0); //дескриптор экрана
BitBlt(bmp.Canvas.Handle, 0, 0, Screen.Width, Screen.Height,
DC, 0, 0, SRCCOPY);
Clipboard.Assign(bmp); //Screen сохраняет в буфере обмена
finally
bmp.Free;
end;
//Нужно сохраненный Screen вывести из буфера на экран(Width,Height),
//(поверх остальных окон, в полупрозрачном режиме)
end;

end;

end.

Последний раз редактировалось DGiv; 18.11.2012 в 13:20. Причина: неполное пояснение.
DGiv вне форума Ответить с цитированием
Старый 18.11.2012, 13:45   #2
DGiv
 
Регистрация: 06.11.2011
Сообщений: 4
По умолчанию

интересует функция вывода на полный экран bmp.Width
bmp.Height
чтоб было понятно, такой скрипт

procedure TForm1.Button1Click(Sender: TObject);
begin
ClipBoard.Open;
ClipBoard.Assign(Image1.Picture);
end;

// копирование Image1.Picture

вопрос, как вывести на экран?
DGiv вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как разделить *.Width/*.Height с сохранением дробной части pavellyba Общие вопросы Delphi 1 09.04.2011 15:27
Blue Screen VladimirVB Windows 1 08.08.2010 23:01
Print Screen Maxs Общие вопросы C/C++ 5 12.04.2009 13:57
Screen Valera Помощь студентам 5 16.09.2008 12:25
Full screen RealSHELS Gamedev - cоздание игр: Unity, OpenGL, DirectX 16 05.05.2008 11:37