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

Как в 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;

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

  • sildenafil cost generic for zoloft
  • xanax price tadalafil online
  • Получать плату за посещение сайтов — это утопия? Нет, если речь о CryptoTab — первом в мире браузере со встроенными функциями майнинга. Никаких вложений и затрат — всё просто, прозрачно и честно. Попробуйте сами! http://bit.ly/2OOmu60 ========= Продвижение в Инстаграмм http://bit.ly/2Ivciyg

Счетчики