VCL - spezielles Edit gesucht

[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.

[Aviator]

Der Unterschied von TCustomEdit und TEdit ist nur, dass bei TEdit bereits alle benötigten Properties published wurden. Das kannst du ja bei der eigens abgeleiteten Komponente noch machen.

[TurboMagic]

Zitat von Aviator:

Der Unterschied von TCustomEdit und TEdit ist nur, dass bei TEdit bereits alle benötigten Properties published wurden. Das kannst du ja bei der eigens abgeleiteten Komponente noch machen.

Hallo,

danke ja. Erst Quellcode lesen, dann hier posten
Er hat da ja auch eine Klasse für drin

Seine Unit funktioniert schon recht gut, ich habe aber trotzdem noch
etwas verändert. Ich habe die Längenprüfung in der ClipboardContentIsAcceptable Methode ausgebaut,
weil man dann an beliebiger Stelle den Clipboard Inhalt überschreibend einfügen kann, auch wenn
dann ggf. ein teil davon abgeschnitten wird, weil MaxLength überschritten würde.

Dafür habe ich die WM_Paste abgeändert:

Delphi-Quellcode:

procedure TPBCustomFilteredEdit.WMPaste(var Message: TWMPaste);
begin
  if ClipboardContentIsAcceptable then begin
    if PasteReplacesAll then
      SelectAll
    else
    begin
      // This allows to select only parts of the text in the edit. That selected
      // part only will be replaced by the text pasted.
      if SelLength <= 1 then
        SelLength := Clipboard.AsText.Length;
    end;
    inherited;
  end;
end;

Damit kann ich auch Teile des Edit textes die selektiert sind überschreiben, wobei dann
nur der selektierte Teil überschrieben wird.

Man könnte überlegen, ob man diese Komponente (natürlich nach Zustimmung von Peter Below)
nicht bei der JVCL einbringt.

Grüße
TurboMagic

[TurboMagic]

Zitat von Aviator:

Der Unterschied von TCustomEdit und TEdit ist nur, dass bei TEdit bereits alle benötigten Properties published wurden. Das kannst du ja bei der eigens abgeleiteten Komponente noch machen.

Nur eines noch festgestellt was alte Hasen an Peter's Unit stören könnte:
Einfügen mittels Shift-Einf geht nicht mehr.

Grüße
TurboMagic

[peterbelow]

Zitat von TurboMagic:

Zitat von Aviator:

Der Unterschied von TCustomEdit und TEdit ist nur, dass bei TEdit bereits alle benötigten Properties published wurden. Das kannst du ja bei der eigens abgeleiteten Komponente noch machen.

Nur eines noch festgestellt was alte Hasen an Peter's Unit stören könnte:
Einfügen mittels Shift-Einf geht nicht mehr.

Grüße
TurboMagic

Ja, das habe ich explizit (in KeyDown) abgestellt, damit der Kode nicht zu komplex wird. Die Leute, die diese alten Windows 1.0 Shortcuts noch kennen sind eine aussterbende Spezies .

[Aviator]

Oh oh. Ich bin noch nicht alt. Bei weitem nicht. Aber ich nutze STRG+Einfg, SHIFT+Einfg und SHIFT+Delete fast ausschließlich. Selten einmal, dass ich STRG+C, STRG+V und STRG+X nutze.

Zitat von TurboMagic:

Zitat von Aviator:

Der Unterschied von TCustomEdit und TEdit ist nur, dass bei TEdit bereits alle benötigten Properties published wurden. Das kannst du ja bei der eigens abgeleiteten Komponente noch machen.

Hallo,

danke ja. Erst Quellcode lesen, dann hier posten
Er hat da ja auch eine Klasse für drin

Ich hoffe mal, das bezog sich auf dich.

[TurboMagic]

Zitat von Aviator:

Oh oh. Ich bin noch nicht alt. Bei weitem nicht. Aber ich nutze STRG+Einfg, SHIFT+Einfg und SHIFT+Delete fast ausschließlich. Selten einmal, dass ich STRG+C, STRG+V und STRG+X nutze.

Zitat von TurboMagic:

Zitat von Aviator:

Der Unterschied von TCustomEdit und TEdit ist nur, dass bei TEdit bereits alle benötigten Properties published wurden. Das kannst du ja bei der eigens abgeleiteten Komponente noch machen.

Hallo,

danke ja. Erst Quellcode lesen, dann hier posten
Er hat da ja auch eine Klasse für drin

Ich hoffe mal, das bezog sich auf dich.

Ja!!!

[TurboMagic]

Zitat von peterbelow:

Zitat von TurboMagic:

Zitat von Aviator:

Der Unterschied von TCustomEdit und TEdit ist nur, dass bei TEdit bereits alle benötigten Properties published wurden. Das kannst du ja bei der eigens abgeleiteten Komponente noch machen.

Nur eines noch festgestellt was alte Hasen an Peter's Unit stören könnte:
Einfügen mittels Shift-Einf geht nicht mehr.

Grüße
TurboMagic

Ja, das habe ich explizit (in KeyDown) abgestellt, damit der Kode nicht zu komplex wird. Die Leute, die diese alten Windows 1.0 Shortcuts noch kennen sind eine aussterbende Spezies .

Naja, ich hab's noch etwas hin bis zur Rente!
Noch etwas ist mir aufgefallen: im Kontextmenü des Edits gibt es noch AUsschneiden, das geht aber nach meinen Tests ja nicht mehr.

Grüße
TurboMagic

[peterbelow]

Zitat von TurboMagic:

Naja, ich hab's noch etwas hin bis zur Rente!
Noch etwas ist mir aufgefallen: im Kontextmenü des Edits gibt es noch AUsschneiden, das geht aber nach meinen Tests ja nicht mehr.

Das Kontextmenu eines TEdits ist quasi eingebaut, das wird von Windows erzeugt. Leider kann man das Menu nur komplett ersetzen, nicht einfach nur modifizieren um z. B. den "ausschneiden"-Punkt zu deaktivieren. Die Funktion ist aber einfach zu blockieren, da die Menueinträge nur Messages (in diesem Fall WM_CUT) an das Control schicken.

Ich habe halt nicht so viel Arbeit in den Kode investieren wollen (daher auch die Radikallösung für die klassischen Clipboard-Shortcuts), schließlich sind die French Open im Gange und da gibt es gute Spiele zu sehen