frm_setpic.pas

来自「delphi语言开发的矢量图形处理对象」· PAS 代码 · 共 62 行

unit frm_setPic;

interface

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

type
  TfrmSetPic = class(TForm)
    GroupBox1: TGroupBox;
    edtWidth: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    edtHeight: TEdit;
    Label3: TLabel;
    pnlBk: TPanel;
    Label4: TLabel;
    pnlFore: TPanel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    dlgBk: TColorDialog;
    Button1: TButton;
    Button2: TButton;
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure edtWidthKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmSetPic: TfrmSetPic;

implementation

{$R *.dfm}

procedure TfrmSetPic.SpeedButton1Click(Sender: TObject);
begin
  dlgBk.Color :=pnlBk.Color;
  if dlgBk.Execute then
  pnlBk.Color :=dlgBk.Color;
end;

procedure TfrmSetPic.SpeedButton2Click(Sender: TObject);
begin
  dlgBk.Color :=pnlFore.Color;
  if dlgBk.Execute then
  pnlFore.Color :=dlgBk.Color;
end;

procedure TfrmSetPic.edtWidthKeyPress(Sender: TObject; var Key: Char);
begin
  if not (key in ['0'..'9',#8]) then
  key:=#0;
end;

end.