iwunit1.pas

来自「一些关于电子邮件SMTP`POP3 MIME`的源码·个人感觉还不错」· PAS 代码 · 共 44 行

unit IWUnit1;
{PUBDIST}

interface

uses
  IWAppForm, IWApplication, IWTypes, DB, Controls, IWControl, IWGrids,
  IWDBGrids, Classes, DBTables, IWCompCheckbox, IWExtCtrls, jpeg;

type
  TformMain = class(TIWAppForm)
    IWImage1: TIWImage;
    IWTimer1: TIWTimer;
    IWCheckBox1: TIWCheckBox;
    procedure IWTimer1Timer(Sender: TObject);
    procedure IWCheckBox1Click(Sender: TObject);
  public
  end;

implementation
{$R *.dfm}

uses
  ServerController;

procedure TformMain.IWTimer1Timer(Sender: TObject);
var
Temp:integer;
begin
  Temp:=IWImage1.JpegOptions.CompressionQuality;
  Temp:=Temp+1;
  if Temp>=100 then   Temp:=0;
  IWImage1.JpegOptions.CompressionQuality:=Temp;
end;

procedure TformMain.IWCheckBox1Click(Sender: TObject);
begin
  if IWCheckBox1.Checked then
      IWImage1.JpegOptions.Smoothing:=True
  else
      IWImage1.JpegOptions.Smoothing:=False;
end;

end.