Inverse Darstellung erzwingen

[cyberangle]

Hallo Profis,

wenn ich mit der TAB Taste von einem Editfeld ins nächste wechsele dann wird eventl. vorhandener Text blau hinterlegt und bei der Eingabe des 1. Zeichens per Tastatur gelöscht.

Nun möchte ich aber diesen Effekt auch mit mit der ENTER-Taste erhalten. Das heist, ich drücke auf dem Zahlenfeld die ENTER Taste und der Focus springt zum nächsten Editfeld und wie bei der TAB Taste wird eventl. vorhandener Text blau hinterlegt und bei Eingabe des 1. Zeichens gelöscht.

Ich meine, das vor Jahren Profellow solch eine Funktion zur Verfügung stellte. Leider weis ich nicht, wie das in XProfan zu realisieren wäre. Habt Ihr in Eurem Fundus vielleicht so etwas?

[ts-soft]

Per SubClass das Return im Edit abfangen, den Focus auf das nächste Edit setzen und mit SendMessage(edit, ~EM_SETSEL, 0, -1) selektieren.

[Frabbing]

Nimmst zum Abfangen am besten ~WM_KEYUP -> wParam = VK_RETURN. ~WM_CHAR hab ich mit Return selber noch nicht versucht.

[cyberangle]

@ Frank, @Thomas

vielen Dank, da ich aber mit dem SubCassing auf Kriegsfüß stehe, ( ich empfinde es als unheimlich schwer. Vielleicht könnte man da mal einen Kurs oder Ähnliches starten) habe ich jetzt nur mit SendMessage() gearbeitet.

[RGH]

Du brauchst auch kein Subclassing. Wenn Du messages.ph mit $H eingebunden hast, reicht auch:

    <...>
    ElseIf (%Key = 13)
      SendMessage(%getfocus, ~EM_SETSEL, 0, -1)
    <...>

Du kannst ohne messages.ph auch einfach $B1 für ~EM_SETSEL nutzen.

Gruß
Roland

[ts-soft]

@cyberangle
Ein simpler Beispielcode, Deinerseits, der es uns abnimmt ein Fenster mit
Edit zu erstellen, so das nur noch minimal ergänzt wird, wäre eine gute
Idee
Ansonsten beantworte ich rein theoretische Fragen genauso, wie sie gestellt
wurden (bin auch ein fauler Sack )

Zeitgleich mit Roland

[cyberangle]

@ Thomas,

mein Programmauszug wird eine Kassenverwaltung und die 5 Felder dienen der Dateneinbgabe, da hätte ich natürlich gern den Text links- und die Zahlen rechtsbündig.

$H d:\xprofanx2\include\Messages.PH
Declare EDIT1&,EDIT2&,EDIT3&,zug&,abg&,DATUM&

WindowStyle 512
Cls Rgb(240,240,240)

DATUM& = Create("dateedit",%hwnd,"",208,8,160,24)
EDIT1& = Create("edit",%hwnd,"    Text   ",208,40,160,24)
EDIT2& = Control("edit","",$54010082,208,72,160,24,%hwnd,%hinstance,$200)
zug& = Control("edit","",$54010082,208,104,160,24,%hwnd,%hinstance,$200)
abg& = Control("edit","",$54010082,208,136,160,24,%hwnd,%hinstance,$200)
EDIT3& = Control("edit","",$54010082,208,168,160,24,%hwnd,%hinstance,$200)
SetFocus (DATUM&)

WhileNot 0
  WaitInput
  Case %key=2:BREAK
  Case %key=13:SendMessage(%getfocus, ~EM_SETSEL, 0, 20)
EndWhile

Um nur Zahlen zuzulassen nehme ich die NEdit. dll von Frank, da ich mit dem SubCassing auf Kriegsfuß stehe. Währe der Code denn schneller mit SubCassing, oder was ist der Vorteil

[Frabbing]

Währe der Code denn schneller mit SubCassing, oder was ist der Vorteil?

Nein, er würde langsamer, wenn du das direkt mit XProfan machst, was jetzt die Dll macht. Vorteil ist nur, dass du keine Extra-Dll benötigst. Wird es mal ein 64-Bit XProfan geben, dann müsstest du dein Programm dann umschreiben, weil es die Dll nur als 32 Bit gibt.

[ts-soft]

Und wenn Du die "Return" abfrage mit in die Subclass packst, bist Du auch
nicht mehr auf einen bestimmten Fensterstyle angewiesen, weil %Key = 13
geht anscheinend nur wenn 512 im Fensterstil enthalten ist.
Fensterstile, abgesehen wenn sie das Aussehen ändern, sind mir ein Greuel,
mal geht das und mal das, dem gehe ich lieber ganz aus dem Wege

[Frabbing]

Stimmt, die Unterleitung in Stil 512 - oder nicht ist eines von XProfan schlimmsten Sünden.

[Volkmar]

Zitat von Frabbing

Stimmt, die Unterleitung in Stil 512 - oder nicht ist eines von XProfan schlimmsten Sünden.

Aber ohne 512 reagieren eben leider Controls nicht ganz so, wie erwartet. Das sollte dann schon so sein wie mit Dialogstil, wenn ich Controls direkt auf dem Hauptfenster habe. Da möchte ich schon mit der Tab-Taste arbeiten können und beim Mausklick erst bei Loslassen eine Reaktion. Was mich mehr stört, ist das uneinheitliche Handling beim Systemmenü und dem Schließbutton in der Titelleiste. Gerade der Schließbutton ist nur mit Dialogstil abfragbar (oder eben separat über Usermessages wenn ich das Systemmenü selbst behandle).
Wenn's aber zu vereinheitlichen geht, dann bin ich dafür.

Gruß Volkmar

[Frabbing]

Genau das meine ich. Der Stil sollte automatisch immer 512 beinhalten.

[ts-soft]

Erstmal wäre die Frage zu klären, was ist Stil 512?
Auf jedenfall ist es kein Fensterstil der API sondern irgendetwas
Profanspezifisches. Ich arbeite lieber mit Konstanten, deren Namen sagen
was aus und ich kann in der MSDN nachschlagen, wenn die normale
Hilfe nicht ausreicht. Diese Fensterstile ignoriere ich, ~WM_CLOSE muss
immer funktionieren, ansonsten gibt es Speicherlecks, weil die Dispose
stellen garnicht angesprungen werden usw. usw.
~WS_DLGFRAME usw. ist es anscheinend nicht

Immer drinnen oder immer draußen ist mir zu unsicher. Dialogartikes
Verhalten wird heutzutage immer seltener eingesetzt, obwohl es manchmal
hilfreich sein kann. Man kann das Verhalten aber notfalls per API nachbilden,
was mir persönlich dann lieber ist.

[Volkmar]

Ich habe schon Controls auf dem Hauptfenster. Meistens. Also ist Dialogartiges zumindest bei mir nicht so selten. Und gerade da ist ja ein eindeutiges Ende drin, nämlich %Key=2 und damit auch sauberes Disposen. Alles über API machen geht nur für Experten. Und wenn ich das mache, dann, mal Grafikformate, Musik und DBase ausgenommen bin ich genau so gut mit simplen Pascal dran. Macht aber nicht so viel Spaß wie XProfan .

Gruß Volkmar

[ts-soft]

Ich meinte so Sachen, wie Button, wenn selektiert, mit Tastatur drücken,
das geht heutzutage eben mit der Leertaste und nicht mit Enter, wie früher ,
von Edit zu Edit mit Tab und nicht mit Enter, usw.
Soll nicht heißen, früher war alles schlechter, sondern standards ändern sich
und da muss man eben mit, ob man will oder nicht.
Ich sehe zwar ein, das DBase auf dem ersten Blick manchen leichter
erscheint, aber dem ist gar nicht so, SQL ist wesentlich einfacher und
flexibler, man muss es einfach mal ausprobieren.