Вопросы по графике

Как в Delphi использовать картинки формата JPEG?

Чтобы начать работать с картинками формата JPEG, необходимо в разделе USES подключить соответствующий модуль jpeg

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, jpeg;
 
...
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  Image1.Picture.LoadFromFile('c:/windows.jpg');
end;

Как добиться, чтобы изображение в PaintBox не пропадало, когда сворачиваем и разворачиваем окно?

Чтобы изображение в PaintBox не стиралось, нужно рисовать в процедуре, вызываемой на событие PaintBox.OnPaint. Когда картинка должна поменяться вызывать PaintBox.Invalidate()

Как сделать снимок всего экрана?

Снимок экрана, в расположенный на форме Image, можно сделать следующей процедурой:

procedure TForm1.Button1Click(Sender: TObject);
var
DeskTopDC: HDc;
DeskTopCanvas: TCanvas;
DeskTopRect: TRect;
 
 
begin
DeskTopDC := GetWindowDC(GetDeskTopWindow);
DeskTopCanvas := TCanvas.Create;
DeskTopCanvas.Handle := DeskTopDC;
 
 
DeskTopRect := Rect(0,0,Screen.Width,Screen.Height);
 
 
Image1.Canvas.CopyRect(DeskTopRect,DeskTopCanvas,DeskTopRect);
 
 
ReleaseDC(GetDeskTopWindow,DeskTopDC);
 
end;

Как узнать текущее разрешение экрана?

Использовать свойства
Screen.Width, Screen.Height

Как можно сделать форму прозрачной?

Для этого необходимо пеpеопpеделить обpаботчик события OnCreate:

  procedure TForm1.FormCreate(Sender: TObject);
  begin
     Brush.Style:=bsClear;
  end;

Последние комментарии

  • интернет казино Вулкан интернет казино Вулкан казино Вулкан игровые автоматы казино Вулкан игровые автоматы игровое казино Вулкан vulka78798 казино Вулкан онлайн казино Вулкан игры интернет казино Вулкан казино Вулкан игры казино Вулкан игровые автоматы
  • проститутки нижнего новгорода купить наркотики через тор детское порно видео онлайн проститутки иркутска детское порно вк купить наркотики через тор зоофилы видео скачать детское порно зоо порно смотреть онлайн зоо порно бесплатно проститутки уфы
  • Интересные веб ресурсы: http://gektorstroi.ru/forum/index.php?PAGE_NAME=profile_view&UID=44374 http://autorolla.ru/forum/?PAGE_NAME=profile_view&UID=645 http://www.your-people.ru/forum/user/1449/ http://ww.8marta.com/forum/index.php?PAGE_NAME=profile_view&UID=299640 https://avrora24.ru/...

Счетчики