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

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

Поддержка сайта

Привод для откатных ворот узнать больше.

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

  • http://www.scoop.it/t/demetrius1984politics/p/4085390895/2017/09/23/download-rollercoaster-tycoon-2-for-mac-updated-hniqebshxe https://bitbucket.org/snippets/santowiebe1998u5/7KpjGg/ use a key finder. https://bitbucket.org/snippets/ottominick1999s9/pjRa7j/ https://storify.com/...
  • https://bitbucket.org/snippets/alexandermiguel1963s7/BEAGbk/ https://storify.com/jamesszabo971i3/download-german-charts-top-100-free-download-pnapa View full description. https://bitbucket.org/snippets/sidkorth1972u3/z68zrB/ https://storify.com/jonaliteld197z6/stereochemistry-of-organic-compounds-...
  • https://storify.com/ruselkeler19880/download-hollywood-movies-in-300mb-free-download-h https://bitbucket.org/snippets/geraldmaynard1982g9/XxMeGM/ Memory: 512MB RAM Hard Drive: At least 150MB free space. https://bitbucket.org/snippets/ottominick1999s9/LEAXbd/ http://www.scoop.it/t/carroll1977monitor...

Счетчики