e27.pas

来自「delphi的学习资料」· PAS 代码 · 共 54 行

unit E27;

interface

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

type
  TForm1 = class(TForm)
    Shap: TShape;
    btnEnLarge: TBitBtn;
    btnReduce: TBitBtn;
    btnVarColor: TBitBtn;
    procedure btnVarColorClick(Sender: TObject);
    procedure btnEnLargeClick(Sender: TObject);
    procedure btnReduceClick(Sender: TObject);
  end;

var
  Form1: TForm1;

  kk: single=1.2;


////////////////////////////////////////////////////////////////////////////////
implementation

{$R *.dfm}

procedure TForm1.btnEnLargeClick(Sender: TObject);
begin
  shap.Width:=Enlarge(shap.Width, kk);
  shap.Height:=shap.Width;
end;

procedure TForm1.btnReduceClick(Sender: TObject);
begin
  shap.Width:=Reduce(shap.Width, kk);
  shap.Height:=shap.Width;
end;


procedure TForm1.btnVarColorClick(Sender: TObject);
var cc: TColor;
begin
  cc:=shap.Brush.Color;
  cc:=VarColor(cc);
  shap.Brush.Color:=cc;
end;


end.