Integerfeld-Refactoring

[Delbor]

Hi Hoika

Zitat von hoika:

Wie hast Du dann das hinbekommen, durch welche Refactoring-Methode?
Gibt es die Variablen vielleicht schon in TScanningFrame?

Nein. Der aktuelle Stand:

Delphi-Quellcode:

type
  TScanningFrame = class(TFrame)
    PnlTop: TPanel;
    BtnScanWithDialog: TButton;
    BtnScanWithoutDialog: TButton;
...(Einige weitere Drag&Drop Komponenten)
    procedure BtnScanWithDialogClick(Sender: TObject);
    procedure BtnReloadSourcesClick(Sender: TObject);
    procedure RadioGroup1Click(Sender: TObject);
  private
    { Private-Deklarationen }
    Twain: TDelphiTwain;
    FOnFinishedBmpScanEvent : TFinishedBmpScanEvent;

    FTargetExtension: string;
    FWidth: Integer;
    FHeight: Integer;

    procedure ReloadSources;
    procedure TwainTwainAcquire(Sender: TObject; const Index: Integer;
      Image: TBitmap; var Cancel: Boolean);

  protected

  public
    { Public-Deklarationen }
    procedure InitTargetExtension;
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
    property OnFinishedBmpScanEvent : TFinishedBmpScanEvent read FOnFinishedBmpScanEvent write FOnFinishedBmpScanEvent;
  end;

Eingefügt wuurden die Felder trotz der Warnungen.


Gruss
Delbor