ucolorform.pas

秘密阅读工具

unit UColorForm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls;

type
  TColorForm = class(TForm)
    image1: TImage;
    procedure FormShow(Sender: TObject);
    procedure image1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ColorForm: TColorForm;

implementation

uses Unit1;

{$R *.dfm}

procedure TColorForm.FormShow(Sender: TObject);
var
  Fullscreen: Tbitmap;
  FullscreenCanvas: TCanvas;
  dc: HDC;
begin
  self.DoubleBuffered := true;
  screen.Cursor := crCross;

  Fullscreen := Tbitmap.Create;
  Fullscreen.Width := screen.Width;
  Fullscreen.Height := screen.Height;

  dc := GetDC(0); //取得屏幕的 DC，参数0指的是屏幕
  FullscreenCanvas := TCanvas.Create;
  FullscreenCanvas.Handle := dc;
  Fullscreen.Canvas.CopyRect(Rect
    (0, 0, screen.Width, screen.Height), FullscreenCanvas,
    Rect(0, 0, screen.Width, screen.Height));

  FullscreenCanvas.Free;
  ReleaseDC(0, dc);

  Image1.Picture.Bitmap := Fullscreen;
  Image1.Width := Fullscreen.Width;
  Image1.Height := Fullscreen.Height;
  Fullscreen.Free;

  //foldx := -1;
  //foldy := -1;

  //flag := true;

end;

procedure TColorForm.image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
  var i:integer;
begin
  form1.ColorValue:= image1.Canvas.Pixels[x,y];
  i:= image1.Canvas.Pixels[x,y];
  with form1 do
  begin
    richedit1.Color:=i;
    richedit2.Color:=i;
    Panel2.Color:=i;
    panel1.Color:=i;
  end;
  screen.Cursor := crdefault;

  close;
  form1.Show;
  
end;

end.