Vielen Dnk Volkmar, jetzt haut es hin
Beiträge von cyberangle
-
-
Hallo Frank,
sobald ich den Pfad einschl. LW-Buchstaben eingebe klappt es sowieso.
-
-
Hallo Leute,
Beim einbinden der Listview viel mir folgendes auf:
CodeChDir $progdir TEXT1$ = $progdir+"Listview\\Listview_Funktionen.Inc" $I TEXT1$ '$I D:\\XProfanX2\\Listview\\Listview_Funktionen.Inc LVDLL&=USEDLL($progdir+"\\listview\\LISTVIEW.DLL")
Die Befehlszeile mit $I Text1$ klappt nicht, der Interpreter meckert
"Datei nicht gefunden".
Nutze ich statt dessen die auskommentierte Zeile dann läuf das Progamm -
Hallo Freunde,
habe gerade den neusten LemmonED installiert. Leider Öffnet sich bei jedem Menueprunkt in Profan Helfer Menue immer der Menuedesigner.
-
@ Frank,
ich weis, es sollte auch nicht gegen LemmenED gehen.
@ Alle,
Vielen Dank, jetzt läuft alles wie es soll. Ich habe nur am Progammanfang die Pfad mit chdir spezifiziert.
-
Habe festgestellt, das die Structurdatei nach der Erstellung mittels des Datenbankhelfers keine Testdatei ist. Wollte sie dann mittels Profan erstellen.
Code
Alles anzeigenDeclare erfolg& Assign #7, "Einstell.str" Rewrite #7 Print #7, "DATEIVZ; C; 30; 0" Print #7, "MWST_KL; N; 6; 2" Print #7, "MWST_GR; N; 6; 2" Print #7, "ANFBEST; N; 8; 2" Close #7 Print FileExists("D:\xprofanx2\Einstell.str") WaitKey end
Klappt auch nicht, weder mit #1 noch mit #7.
Habe jetzt die Structurdatei von Hand erstellt. Der Inhalt sieh so aus
Die Erstellung der Datei klappt aber auch nicht. Ds Ergebnis der Funktion DB("create"....... ist 1 aber es wurde keine Datei erstellt.
-
Hallo zusammen,
Ich möchte eine DB- Datei mittels @db("Create", S1, S2) erstellen. Die Structurdatei habe ich mit dem entsprechenden Helfer im LemmonED erzeugt.Code
Alles anzeigenDeclare erfolg& erfolg& = @Db("Create", "Einstell.str","Einstell.dbf") If erfolg& Print "Datei erstellt...." Print Str$(erfolg&) Else Print "Nicht erstellt!!!" Print Str$(erfolg&) EndIf WaitKey erfolg& = @Db("Create", "D:\XProfanX2\Einstell.str","D:\XProfanX2\Einstell1.dbf") If erfolg& Print "Datei erstellt...." Print Str$(erfolg&) Else Print "Nicht erstellt!!!" Print Str$(erfolg&) EndIf WaitKey
Beim 1 Aufruf von DB("create....... Sagt er mir Datei erstellt. Jedoch wurde die Datei nicht erstellt. Auf keiner Partition.
Beim 2. Aufruf sagt er nur
"Ungültige Feldlänge " Zeile 14..................
Wer kann mir weiterhelfen -
Ich habe meine zusatzlichen DLL Dateien alle in Include Verzeichnis aber es werden nur die *.PH Dateien ohne Pfad erkannt. bei den DLLs muß ich trotz der Pfadangaben in den Einstgellungen immer den Pfad mit eingeben
-
@ 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.
Code
Alles anzeigen$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
-
@ Frank, Dux
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.
-
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?
-
Dux,
wenn ich viel Zahlen eingeben muß findes ich es geht es beim tippen schneller mit ENTER weiter zu springen, auch wenn Windows die TAP Taste wünscht@ THFR
vielen Dank, werde ich mal probieren -
Zitat von ts-soft;866449
Ich würde Dir diese Version: https://www.paules-pc-forum.de/forum/helfer-t…html#post866418
von Volkmar empfehlen, sie entspricht genau dem, was die DLL macht.
Ausserdem werden die falschen Zeichen entfernt, bevor sie dargestellt werden. Ist IMHO am professionelstenIch glaube ich nehme doch Franks DLL
Mit der klappt alles.Ich habe jetzt einige Stunden damit verbracht Vlokmars Programm zu verstehen und habe es nicht mal geschaft, den Fokus aus dem Zahlenfeld zu nehmen, damit das PRG normal z.B. durch ESC zu beendet werden kann.
Bei meinem PRG sind 1 Datumsfeld 1 Textfeld und 5 Zahlenfelder die jeweils durch drücken von Return angesprungen werden.
Aber wie kann ich beim SubClassing auf RETURN ins nächste Zahlenfeld springen und beim verlassen des letzten Zahlenfeldes den Focus vom Zahlenfeld zu nehmen, damit danach auch die anderen Prozeduren greifen können. -
Vielen vielen Dank Euch allen, jetzt habe ich Beispiele, in die ich mich erst einmal hineinfinden muß.
-
Vielen Dank an Euch,
das Mit dem Subclassen hatte ich schon gelesen, aber das übersteigt noch meine Programmierkünste.
-
Hallo Leute,
habe vor Jahren von Franks Seite eine DLL (NEdit) heruntergeladen. mit dieser Dll war es ganz leicht möglich EDIT's nur die nummerische Eingabe zu erlauben. Alle Eingabe bis auf Komma, Punkt und Zahl wurden ignoriert.
Diese DLL ist mir leider verloren gegangen und auf Franks Seite ist sie auch nicht mehr. Hat sie jemand von Euch noch? Kann sie mir Jemand besorgen?
-
Hallo Frank,
zunächst mal vielen Dank für diesen Super Editor.
Bei mir in den Einstellungen ist das autom. Update angehackt und invers dargestellt. Leider muß ich mir die neuen Updates aber immer von Hand laden. Auch das letzte. Ist das gewollt, ober liegt es daran, dass ich den kompletten Editor ins X2 Verzeichnis gelegt habe?
Ist es möglich, dass das PRG die Variablen im Programm autom. auf die Schreibweise die Deklaration ändert, damit z. B. die Var. BEENDEN% im gesamten Programm so geschrieben ist?
Weiterhin viel glück bei Deiner Reha.
-
Hi,
Deine Leistung ist für einen 3000 Port narmal. solltest Du mehr haben wollen, must Du Dich an Deinen Provider wenden und eine entsprechende Leistung ordern. -