Обучалки - Графика

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

admin — Mon, 08 Aug 2011 10:07:43 +0000

Чтобы начать работать с картинками формата 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 не пропадало, когда сворачиваем и разворачиваем окно?

admin — Sat, 02 Jul 2011 10:07:29 +0000

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

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

admin — Sat, 18 Jun 2011 15:37:49 +0000

Снимок экрана, в расположенный на форме 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;

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

admin — Sat, 18 Jun 2011 15:17:18 +0000

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

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

admin — Sat, 18 Jun 2011 15:10:11 +0000

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

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

Можно ли получить растровое изображение формы с заголовком и рамкой?

admin — Sat, 18 Jun 2011 15:03:13 +0000

Стандартные средства Delphi позволяют получать растровое изображение только внутренней части окна. Для получения изображения всего окна с заголовком и рамкой необходимо воспользоваться функциями API.

Во-первых, получаем контекст всего окна функцией:

function GetWindowDC(Wnd: HWnd): HDC;

Затем копируем растровое изображение окна в компонент TImage (для примера). И освобождаем полученный контекст окна:

function ReleaseDC(Wnd: HWnd; DC: HDC): Integer;

Пример:

procedure TForm1.Button1Click(Sender: TObject);
VAR DC: hDC;
begin
 
 DC := GetWindowDC(Handle);
 Image1.Picture.BitMap.Height := Height;
 Image1.Picture.BitMap.Width := Width;
 BitBlt(Image1.Picture.BitMap.Canvas.Handle, 0, 0, Width, Height, 
        DC, 0, 0, SRCCOPY);
 ReleaseDC(Handle, DC);
 
end;

Как получить растровое изображение формы?

admin — Sat, 18 Jun 2011 12:28:59 +0000

В компоненте TForm уже есть метод возвращающий растровое изображение формы, так что, для получения изображения достаточно вызвать его:

function GetFormImage: TBitmap;

Пример:

 Image1.Picture.BitMap := GetFormImage;

Можно ли из Delphi рисовать в любой части экрана или в чужом окне?

admin — Sat, 18 Jun 2011 11:58:15 +0000

Для этого надо воспользоваться функциями API. Получить контекст чужого окна, либо всего экрана:

function GetDC(Wnd: HWnd): HDC;

где Wnd - указатель на нужное окно, или 0 для получения контекста всего экрана.

И далее, пользуясь функциями API, нарисовать все что надо.

Пример:

PROCEDURE DrawOnScreen; 
 VAR ScreenDC: hDC; 
 BEGIN 
 
 ScreenDC := GetDC(0); {получить контекст экрана} 
 Ellipse(ScreenDC, 0, 0, 200, 200); {нарисовать} 
 ReleaseDC(0,ScreenDC); {освободить контекст} 
 
END;

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

admin — Sat, 18 Jun 2011 11:51:53 +0000

Эффект "прозрачного" фона достигается методом BrushCopy объекта Canvas:

Пример:

В качестве фонового, для изображения, цвета выбирается цвет его левой нижней точки (именно эта точка является "фоновой" при рисовании глифов для кнопок в Delphi).

BrushCopy( Bounds(10, 10, Bitmap.Width, Bitmap.Height), Bitmap,  
           Bounds(0, 0, Bitmap.Width, Bitmap.Height), 
           Bitmap.Canvas.Pixels[0, Bitmap.Height - 1]);