Библиотека по работе с изображениями

[Должно быть имя?]

Сообщение от ZuBy

Сделай изображение монохромным потом будут цвета совпадать

еще бы знать как я тут просто обрезать изображения не могу Хотя я уже нашел нужные пиксели, тут я и узнал что чтения не сверху в низ, а на оборот

[Должно быть имя?]

У меня проблема, после выполнения этого кода, на всем пк пропадает прозрачность картинок! Где косяк ?

unit Unit1;

interface

uses
  Winapi.Windows, Vcl.Forms, Vcl.Dialogs, FastDIB, System.SysUtils,
  System.Classes, Vcl.ExtCtrls, Vcl.Controls, jpeg, Vcl.StdCtrls, Graphics ;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
  public
  end;

var
  Form1: TForm1;
  GameFast:TFastDIB;
  GameHandle:HWND;


implementation

{$R *.dfm}

function ScrWindows(Wnd:HWND; SrcDC: HDC; X, Y, Width, Height,
                            XSrc, YSrc: Integer; Rop: DWORD = SRCCOPY): Boolean;
Var
  DC : HDC;
begin
  Result := false;
  DC := GetDC(Wnd);
  if DC <> 0 then
  begin
    if BitBlt(SrcDC, X, Y, Width, Height, DC, XSrc, YSrc, Rop) then
      Result := true;
    ReleaseDC(Wnd, DC);
  end;
end;

function GetHandleTRect(GHandle:HWND; out Rect:TRect):Boolean;
begin
  Result := False;
  if IsWindow(GHandle) then
    Result := Winapi.Windows.GetClientRect(GHandle, Rect);
end;

function GetGameScr(out Faft : TFastDIB; ClWnd:PAnsiChar):Boolean;
var
  RectWidth, RectHeight : Integer;
  Rect                  : TRect;
begin
  Result := false;
  GameHandle := FindWindowA(ClWnd, nil);
  if GetHandleTRect(GameHandle, Rect) then
  begin
    RectWidth := Rect.right - Rect.left;
    RectHeight := (Rect.bottom - Rect.top) div 2;
    Faft := TFastDIB.Create(RectWidth, RectHeight, 24);
    Result := ScrWindows(GameHandle, Faft.hDC, 0, 0, RectWidth, RectHeight, 0, RectHeight);
    if not Result then
      FreeAndNil(Faft);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  Faft : TFastDIB;
begin
  if GetGameScr(Faft, '5th Street') then
  begin
    Faft.SaveToFile('TestScr.bmp');
    FreeAndNil(Faft);
  end;
end;


end.