frmconvbw.pas

来自「Apprehend Screen Capture Component Versi」· PAS 代码 · 共 55 行

{******************************************************************************}
{*                                                                            *}
{*                         Adirondack Software & Graphics                     *)
(*                                  ConvBW Unit                               *}
{*          (C) Copyright Adirondack Software & Graphics 1996-2001            *}
{*                                                                            *}
{******************************************************************************}

unit frmConvBW;

interface

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

type
   TfConvBW = class( TForm )
      RadioGroup1: TRadioGroup;
      Button1: TButton;
      Button2: TButton;
      GroupBox1: TGroupBox;
      Label1: TLabel;
      Edit1: TEdit;
      SpeedButton1: TSpeedButton;
    Panel1: TPanel;
      procedure RadioGroup1Click( Sender: TObject );
      procedure SpeedButton1Click( Sender: TObject );
   private
    { Private declarations }
   public
    { Public declarations }
   end;

var
   fConvBW: TfConvBW;

implementation

{$R *.DFM}

procedure TfConvBW.RadioGroup1Click( Sender: TObject );
begin
   GroupBox1.Enabled := RadioGroup1.ItemIndex = 0;
end;

procedure TfConvBW.SpeedButton1Click( Sender: TObject );
begin
   edit1.enabled := not SpeedButton1.Down;
   label1.enabled := not SpeedButton1.Down;
end;

end.