VCL - spezielles Edit gesucht

[TurboMagic]

Hallo,

suche ein Tokyo kompatibles Edit mit
folgenden Fähigkeiten:

• es soll immer im Überschreiben Modus sein

• die Rücktaste muss deaktiviert werden können
  oder kein Zeichen löschen

• es soll eine feste Textlänge (32 oder 64) definiert
  werden können

• eingegebene Zeichen sollen gefiltert werden können
  um in einem Fall nur Hex Zeichen zu akzeptieren

• Es soll im OnExit nicht meckern, wenn weniger als
  die maximale Zeichen Zahl eingegeben wurde

• Vorzugsweise kostenlos aber nicht Voraussetzung

Grüße
TurboMagic

[Aviator]

Ich glaube kaum, dass es eine TEdit Komponente gibt, die dir genau das bietet. Aber mal ehrlich. Die Funktionen hast du doch in nicht mal einer Stunde mit einem normalen TEdit selbst programmiert.

[TurboMagic]

Wenn du mir sagst wie...
Habe im Keypressednach vkBack geschaut
und wenn gedrückt key auf #0
gesetzt, hat aber trotzdem
Zeichen gelöscht

[jziersch]

Mit einem MaskEdit sollte sich das eigentlich realisieren lassen.

Für die Sondertasten abfrage musst Du OnKeyUp und OnKeyDown überschreiben.

[TurboMagic]

Zitat von jziersch:

Mit einem MaskEdit sollte sich das eigentlich realisieren lassen.

Für die Sondertasten abfrage musst Du OnKeyUp und OnKeyDown überschreiben.

Hallo,

TMaskEdit habe ich schon ausprobiert. Wird zuweing eingegeben gibt es immer eine
Ferhlermeldung im OnExit, ohne , dass ich vorher eingreifen konnte.

Ich werde aber Mal TEdit mit OnKeyDown/KeyUp statt KeyPressed ausprobieren.

Grüße
TurboMagic

[TurboMagic]

Hallo,

Delphi-Quellcode:

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftSTate);
begin
  if Key = vk_Back then
    Key := 0;
end;

Das funktioniert nicht auch nicht im OnKeyUp.
Die Zeile mit der Zuweisung wird zwar erreicht (Breakpoint zeigt das), das
eingegebene Zeichen wird aber trotzdem gelöscht.

Und wie ich ein Edit dauerhaft in Überschreibenmodus umstelle, weiß ich auch noch nicht.

Grüße
TurboMagic

[peterbelow]

Zitat von TurboMagic:

Hallo,

suche ein Tokyo kompatibles Edit mit
folgenden Fähigkeiten:

Gehen wir mal der Reihe nach durch. Leider sind die Sepzifikationen, wie üblich, ziemlich unvollständig .

• es soll immer im Überschreiben Modus sein

Das läßt sich erreichen, wenn man in OnKeyPress SelLength auf 1 setzt, wenn das Zeichen kein Steuerzeichen ist, SelLength nicht 0 ist und SelStart nicht gleich GetTextLength ist.

• die Rücktaste muss deaktiviert werden können oder kein Zeichen löschen

Wie sieht es mit anderen Tasten aus, die auch Zeichen löschen? Entf, Strg-X? Wie mit Einfügen aus der Zwischenablage?

• es soll eine feste Textlänge (32 oder 64) definiert werden können

TEdit hat eine Eigenschaft MaxLength, die man entspreched setzen kann.

• eingegebene Zeichen sollen gefiltert werden können um in einem Fall nur Hex Zeichen zu akzeptieren

Das geht in OnKeyPress. Auch hier stellt sich die Frage, wie man Einfügen aus der Zwischenablage behandeln soll.

• Es soll im OnExit nicht meckern, wenn weniger als die maximale Zeichen Zahl eingegeben wurde

Das ist der Default, da muss man nichts programmieren.

• Vorzugsweise kostenlos aber nicht Voraussetzung

Selber machen kostet nix

Ich habe gerade ein Bißchen Zeit und werde mal sehen, was ich da zusammenschrauben kann.

[peterbelow]

OK, hier ist das Ergebnis meiner Bemühungen, allerdings nur oberflächlich getestet.
Für das Filtern der Eingabe gibt es drei Möglichkeiten.

• Die DefaultFilter-Eigenschaft bietet einige eingebaute Filter an. dfCustom läßt sich zwar auswählen, man muß aber einen CustomFilter zuweisen, sonst akzeptiert das Control keine Zeichen.
• Der CustomFilter-Eigenschaft kann man einen eigenen Charset zuweisen, allerdings nur zur Laufzeit.
• Der OnAcceptChar-Event wird ausgelöst, nachdem die internen Filter angewendet wurden, man kann den Accept-Parameter im Handler ändern, wenn die gefällte Entscheidung nicht passt.

MaxLength wird auf 32 initialisiert, OvertypeMode ist true by default. Wenn man OvertypeMode auf false setzt sollte man Zeichen löschen können, wie bei einem normalen Tedit, allerdings wird das Filtern angewendet.

Delphi-Quellcode:

unit PB.Vcl.FilteredEdit;

interface

uses
  System.SysUtils, System.Classes, Vcl.Controls, Vcl.StdCtrls,
  Winapi.Windows, Winapi.Messages;

type
  TPBAcceptCharEventHandler = procedure (Sender: TComponent;
    const aChar: Char; var Accept: boolean) of object;

  TPBDefaultFilter = (dfNone, dfCustom, dfHexDigits, dfDecimalDigits, dfOctalDigits);

  TPBCustomFilteredEdit = class(TCustomEdit)
  strict private
    FCustomFilter: TSysCharset;
    FDefaultFilter: TPBDefaultFilter;
    FOnAcceptChar: TPBAcceptCharEventHandler;
    FOvertypeMode: boolean;
    FPasteReplacesAll: boolean;
  strict protected
    function CharIsAcceptable(const aChar: Char): boolean; virtual;
    function ClipboardContentIsAcceptable: boolean;
    procedure SetCustomFilter(const Value: TSysCharset);
  protected
    procedure KeyDown(var Key: Word; Shift: TShiftState); override;
    procedure KeyPress(var Key: Char); override;
    procedure WMCut(var Message: TWMCut); message WM_CUT;
    procedure WMPaste(var Message: TWMPaste); message WM_PASTE;
  public
    constructor Create(aOwner: TComponent); override;
    property CustomFilter: TSysCharset read FCustomFilter write SetCustomFilter;
    property DefaultFilter: TPBDefaultFilter read FDefaultFilter write
        FDefaultFilter default dfNone;
    property OvertypeMode: boolean read FOvertypeMode write FOvertypeMode default
        true;
    property PasteReplacesAll: boolean read FPasteReplacesAll write
        FPasteReplacesAll default true;
    property OnAcceptChar: TPBAcceptCharEventHandler read FOnAcceptChar write
        FOnAcceptChar;
  end;

  TPBFilteredEdit = class(TPBCustomFilteredEdit)
  published
    property Align;
    property Alignment;
    property Anchors;
    property AutoSize;
    property BevelEdges;
    property BevelInner;
    property BevelKind default bkNone;
    property BevelOuter;
    property BevelWidth;
    property BiDiMode;
    property BorderStyle;
    property CharCase;
    property Color;
    property Constraints;
    property Ctl3D;
    property DefaultFilter;
    property DoubleBuffered;
    property DragCursor;
    property DragKind;
    property DragMode;
    property Enabled;
    property Font;
    property HideSelection;
    property ImeMode;
    property ImeName;
    property MaxLength;
    property OEMConvert;
    property OvertypeMode;
    property ParentBiDiMode;
    property ParentColor;
    property ParentCtl3D;
    property ParentDoubleBuffered;
    property ParentFont;
    property ParentShowHint;
    property PopupMenu;
    property PasteReplacesAll;
    property ReadOnly;
    property ShowHint;
    property TabOrder;
    property TabStop;
    property Text;
    property TextHint;
    property Touch;
    property Visible;
    property StyleElements;
    property OnAcceptChar;
    property OnChange;
    property OnClick;
    property OnContextPopup;
    property OnDblClick;
    property OnDragDrop;
    property OnDragOver;
    property OnEndDock;
    property OnEndDrag;
    property OnEnter;
    property OnExit;
    property OnGesture;
    property OnKeyDown;
    property OnKeyPress;
    property OnKeyUp;
    property OnMouseActivate;
    property OnMouseDown;
    property OnMouseEnter;
    property OnMouseLeave;
    property OnMouseMove;
    property OnMouseUp;
    property OnStartDock;
    property OnStartDrag;
  end;

procedure Register;

implementation

uses Vcl.Clipbrd;

const
  PredefinedFilters: array [TPBDefaultFilter] of TSysCharSet =
  ([], // dfNone
   [], // dfCustom
   ['0'..'9','A'..'F','a'..'f'], //dfHexDigits
   ['0'..'9'], //dfDecimalDigits,
   ['0'..'7']  // dfOctalDigits
  );

procedure Register;
begin
  RegisterComponents('Samples', [TPBFilteredEdit]);
end;

constructor TPBCustomFilteredEdit.Create(aOwner: TComponent);
begin
  inherited;
  // set defaults
  MaxLength := 32;
  FDefaultFilter := dfNone;
  FCustomFilter  := [];
  FOvertypeMode  := true;
  FPasteReplacesAll := true;
end;

function TPBCustomFilteredEdit.CharIsAcceptable(const aChar: Char): boolean;
begin
  case DefaultFilter of
    dfNone  : Result := true;
    dfCustom: Result := CharInSet(aChar, FCustomFilter);
  else
    Result := CharInSet(aChar, PredefinedFilters[DefaultFilter]);
  end; {case}

  if Assigned(FOnAcceptChar) then
    FOnAcceptChar(self, aChar, Result);
end;

function TPBCustomFilteredEdit.ClipboardContentIsAcceptable: boolean;
var
  LLen: Integer;
  LText: string;
  I: Integer;
begin
  Result := Clipboard.HasFormat(CF_TEXT);
  if Result then begin
    LText := Clipboard.AsText;
    if PasteReplacesAll then
      LLen := LText.Length
    else
      LLen := LText.Length + GetTextLen - SelLength;
    Result := LLen <= MaxLength;
    if Result then begin
      for I := Low(LText) to High(LText) do
        if not CharIsAcceptable(LText[I]) then begin
          Result := false;
          Break;
        end; {if}
    end; {if}
  end; {if}
end;

procedure TPBCustomFilteredEdit.KeyDown(var Key: Word; Shift: TShiftState);
begin
  // block delete and old-style clipboard keys to simplify the logic
  if OvertypeMode and (Key in [VK_DELETE, VK_INSERT]) then
    Key := 0;
  inherited;
end;

procedure TPBCustomFilteredEdit.KeyPress(var Key: Char);
begin
  // Ctrl-A, Ctrl-C and Ctrl-V are the only acceptable control characters!
  // We need those to support clipboard copy and paste and select all.
  if (Key < #32) and not CharInSet(Key, [^A, ^C, ^V]) then
    if OvertypeMode then
      Key := #0
    else
      if Key <> ^H then  //allow backspace if insert mode
        Key := #0;

  if (Key >= #32) and not CharIsAcceptable(Key) then
    Key := #0;

  if (Key <> #0) and OvertypeMode then begin
  // emulate overtype mode by selecting one character, but only if this
  // is not a clipboard shortcut
    if Key >= #32 then
      SelLength := 1;
  end; {if}
  inherited;
end;

procedure TPBCustomFilteredEdit.SetCustomFilter(const Value: TSysCharset);
begin
  FCustomFilter := Value;
  if Value = [] then
    FDefaultFilter := dfNone
  else
    FDefaultFilter := dfCustom;
end;

procedure TPBCustomFilteredEdit.WMCut(var Message: TWMCut);
begin
  // block cut to clipboard
  Message.Result := 0;
end;

procedure TPBCustomFilteredEdit.WMPaste(var Message: TWMPaste);
begin
  if ClipboardContentIsAcceptable then begin
    if PasteReplacesAll then
      SelectAll;
    inherited;
  end;
end;

end.

[TurboMagic]

Zitat von peterbelow:

OK, hier ist das Ergebnis meiner Bemühungen, allerdings nur oberflächlich getestet.
MaxLength wird auf 32 initialisiert, OvertypeMode ist true by default. Wenn man OvertypeMode auf false setzt sollte man Zeichen löschen können, wie bei einem normalen Tedit, allerdings wird das Filtern angewendet.

Delphi-Quellcode:

type
  TPBCustomFilteredEdit = class(TCustomEdit)

Ich schaue mir gerade das Edit an, frage mich aber, warum es von TCustomEdit und nicht TEdit abgeleitet ist.
An die Font Eigenschaft zum Beispiel scheine ich nicht heran zu kommen (bräuchte ich aber).
Auch MaxLength kann ich so nicht erreichen, muss das aber ggf. zu Laufzeit ändern.
Ok, muss mir das noch genauer anschauen, aber so passt es noch nicht zu 100% und daher frage ich mich eben,
warum von einer Komponente mit weniger Möglichkeiten abgeleitet wurde.

Gäbe es irgendwelche Probleme bei der Ableitung von TEdit?
Geht dann was nicht richtig oder nur mit hohem Aufwand?

Grüße und Danke trotzdem mal für diese Umsetzung!
TurboMagick

[Schokohase]

In den Custom Controls liegt die gesamte Logik. In den "normalen" Controls werden nur die Eigenschaften veröffentlicht.

Das kann man sehen, wenn man sich den Quellcode von TCustomEdit und TEdit anschaut.

Manchmal möchte man eine ganz bestimmte Eigenschaft nicht veröffentlichen, wenn der Vorgänger diese aber schon veröffentlichst hat, dann wird da nix von.