Integerfeld-Refactoring

[Delbor]

Hi zusammen

Ich will erfahren, wie gross ein Bild ist, das mir meine Twain-Engine zurückliefert. Folgende Prozedur wird aufgerufen, wenn der Scanvorgang beendet wird:

Delphi-Quellcode:

procedure TScanningFrame.TwainTwainAcquire(Sender: TObject; const Index: Integer;
  Image: TBitmap; var Cancel: Boolean);
begin
  FWidth := Image.Width;
  FHeight := Image.Height;;

FWith und FHeight habe ich nicht deklariert, bevor ich sie hingeschrieben hatte, sondern wollte/habe sie mir via Refactoring deklarieren lassen.
Aber gleichzeitig gab mir Delphi eine Warnung aus:
Anhang 50649
Was soll das?

Gruss
Delbor

[hoika]

Hallo,

Zitat:

via Refactoring deklarieren lassen

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

[Uwe Raabe]

Zitat:

Zitat von hoika (Beitrag 1424876)

Wie hast Du dann das hinbekommen, durch welche Refactoring-Methode?

Ich vermute mal "Feld einführen..."?

[Delbor]

Hi Hoika

Zitat:

Zitat von hoika (Beitrag 1424876)

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

[hoika]

Hallo,
wenn es jetzt compiliert, wird es ein kleiner Fehler bei der Vorprüfung des Refactorings sein.

Da du gerade beim Twain bist.
Von welchem Jahr ist Deine Komponente?
Meine wurde leider ab 2004 nicht mehr weiterentwickelt,
weil der Programmierer (Gustavo Daud und Nemeth Peter) es leid war, die Bugs vieler Twain-Treiber zum umschiffen.

[Delbor]

Hi hoika

Ich habe hier mehrere, aber wenn mich nicht alles täuscht, müsste dass diese sein:
Anhang 50650
Die Datei hat in meinem J-Download-Ordner* als Änderungsdatum den 21.3.2018, müsste also recht aktuell sein, auch wenn das laut Dateiname auch schon wieder fünf Jahre - eine halbe Computerewigkeit - her sind.

Ach ja, bevor ichs vergesse: das ist keine Komponente mehr.

Zitat:

wenn es jetzt compiliert, wird es ein kleiner Fehler bei der Vorprüfung des Refactorings sein.

Kompilieren tuts ohne Probleme. Das heisst also, dassich die Warnungen ignorieren odr sogar löschen kann?

Gruss
Delbor

* Auf C:\ landet bei mir grundsätzlich nur nichts, es sei denn, Programme fragen mich gar nicht...