Unit GuC2IMainUnit; // GuColor2Int, 0.3, Delphi Rad Xe6, GuSoft (C), 2014
Interface
Uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, Vcl.StdCtrls, Vcl.Clipbrd;
Type
  TGuColor2IntMainForm = class(TForm)
    Timer1: TTimer;
    Panel1: TPanel;
    ColorDialog1: TColorDialog;
    Panel2: TPanel;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    Button1: TButton;
    Label1: TLabel;
    Panel3: TPanel;
    RadioButton3: TRadioButton;
    Edit1: TEdit;
    Button2: TButton;
    Label2: TLabel;
    procedure Timer1Timer(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
    procedure RadioButton3Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Label2Click(Sender: TObject);
  private
    { Private declarations }
    Procedure Gu(Const Color:TColor);
    Function DskColor(Const x,y: NativeInt): TColor;
  public
    { Public declarations }
  end;
Var GuColor2IntMainForm: TGuColor2IntMainForm;
Implementation
{$R *.dfm}
Function TGuColor2IntMainForm.DskColor(Const x,y: NativeInt): TColor;
Var c:TCanvas;
begin
c:=TCanvas.Create;c.Handle:=GetWindowDC(GetDesktopWindow);Result:=GetPixel(c.Handle,x,y);c.Free;
end;
procedure TGuColor2IntMainForm.Button1Click(Sender: TObject);
begin
if ColorDialog1.Execute then Gu(ColorDialog1.Color);
end;
procedure TGuColor2IntMainForm.RadioButton1Click(Sender: TObject);
begin
Timer1.Enabled:=true;Button1.Enabled:=False;Button2.Enabled:=False;
end;
procedure TGuColor2IntMainForm.RadioButton2Click(Sender: TObject);
begin
Timer1.Enabled:=False;Panel2.Caption:='Выбор. Выберите цвет из палитры';Button1.Enabled:=True;
Panel1.Caption:='Ожидание выбора';Panel3.Color:=clBtnFace;panel3.Font.Color:=clBlack;Button2.Enabled:=False;
end;
procedure TGuColor2IntMainForm.RadioButton3Click(Sender: TObject);
begin
Timer1.Enabled:=False;Panel2.Caption:='Перевод. Примеры ввода: 12345, clRed, $AB123F';Button1.Enabled:=False;Button2.Enabled:=True;
Panel1.Caption:='Ожидание ввода';Panel3.Color:=clBtnFace;Panel3.Font.Color:=clBlack;
end;
procedure TGuColor2IntMainForm.Button2Click(Sender: TObject);
begin
Try
if Edit1.Text'' then Gu(StringToColor(Edit1.Text));
Except
Panel3.Color:=clBtnFace;Panel1.Caption:='Ошибка перевода';Panel3.Font.Color:=clBlack;
End;
end;
procedure TGuColor2IntMainForm.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
if (Shift=[ssCtrl])and(Key=85){U} then Clipboard.AsText:=Panel2.Caption+' - '+Panel1.Caption;
end;
Procedure TGuColor2IntMainForm.Gu(Const Color:TColor);
Var R,G,B:byte; S:String;
begin
R:=GetRValue(Color); G:=GetGValue(Color); B:=GetBValue(Color); If Not ColorToIdent(Color,s) then s:='' else s:=', Str: '+s;
Panel1.Caption:='Int: '+IntToStr(Color)+', RGB: '+IntToStr(r)+':'+IntToStr(g)+':'+IntToStr(b)+', Hex: '+IntToHex(color,6)+s;
Panel3.Color:=Color; Panel3.Font.Color:=Color Xor $FFFFFF;
end;
procedure TGuColor2IntMainForm.Timer1Timer(Sender: TObject);
Var pos:TPoint;
begin
GetCursorPos(Pos); Gu(DskColor(pos.x, pos.y));
Panel2.Caption:='X: '+IntToStr(pos.x)+' ('+IntToStr(Screen.Width)+'), Y:'+IntToStr(pos.y)+' ('+IntToStr(Screen.Height)+')';
end;
end.