Messagebox-Helfer

[Fraenki]

Für heute genug gemacht.
Versuche mich jetzt mal mit Version: 2.6.0.0
1.) Updateaufruf geändert (UAC wird wohl erfragt, aber geht).
2.) Transparenz des Fenster auf 80% begrenzt.
'3.) Option.ini wird jetzt in $AppDataDir abgelegt, wenn nicht vorhanden wird diese erzeugt.
4.) Editorname muss nicht mehr ausgewählt werden. Mit dem Editor das dieses Programm auffruft, werden auch die Daten eingefügt.

Kann natürlich sein daß das Updateprogramm nicht funktioniert wegen den Einstellungen im Benutzerkonto, dann muß leider neu heruntergeladen werden.
Den Download gibts Hier.
Den Dialogbox Designer habe ich auch angepasst.

Jetzt gehts ins Bett, morgen muß ich an meiner Küche weiter arbeiten, muss noch verputzt werden

Gruß Fränki

[ts-soft]

Zitat von Fraenki

Jetzt gehts ins Bett, morgen muß ich an meiner Küche weiter arbeiten, muss noch verputzt werden

Wenn ich in der Küche bin, verputze ich auch immer alles

Schönes Update

Eine Kleinigkeit ist mir noch aufgefallen, der Updater schreib wohl eine
Start.bat, die gleich wieder gelöscht wird. Diese sollte im tmp Ordner
erstellt werden, weil in den Unterordnern von ProgramFiles darf Dein
Programm nicht schreiben. Jetzt wird ja noch virtualisiert, aber später
geht das nicht mehr!

PS: In meiner IDE wird kein Source eingefügt am Cursor, aber ohne
das Handle vom ScintillaGadget wird das auch nicht möglich sein, nicht
so wichtig, ich kann über die Zwischenablage gehen.

[Fraenki]

1. Das mit dem Tempordner mache ich noch.
2. Einfügen an Cursorposition. Gebe den Text zuerst in die Zwischenablage, dann setze ich den Editor mit SetActiveWindow(Editorhandle&) als aktives Fenster und mit SendString(Editorhandle&,"^(v)") füge ich den Text ein.

Musste feststellen, daß dies nicht immer klappt, keine Ahnung warum?
Da komme ich nicht weiter, versuche aber weiter.

Gruß Fränki

[ts-soft]

Zitat von Fraenki

Musste feststellen, daß dies nicht immer klappt, keine Ahnung warum?

Brauchst Du nicht weiter versuchen, das wird so nie klappen. Das Scintilla
ist kein direkter child vom Hauptfenster, ohne handle geht das nicht.
Eine Environmentvariable für das Handle ist bisher nicht in XProfan
vorgesehen, somit kannst Du das auch nicht ermitteln.

[Frabbing]

Hat aber bezüglich der Manifest keine so schönen Einstellungen wie der von Andreas

Es gibt doch einige tolle und kostenlose Tools, mit denen du die Resourcen für eine RC-Datei sehr konfortabel zusammenbauen kannst, z.B. ResEdit Resource Editor - free resource editor for Win32 !

Scheinen viele gar nicht zu wissen, dass man nicht nur Exedateien damit editieren kann, sondern auch Resourcen-Scripte (.rc) und sogar kompilierte Scripte (.res).

[Andreas Miethe]

Zitat von ts-soft

Eine Environmentvariable für das Handle ist bisher nicht in XProfan
vorgesehen, somit kannst Du das auch nicht ermitteln.

Ist das nicht eher eine Aufgabe der Editoren ?

Ich habe meinen Editor um eine entsprechende Variable erweitert XPRF_T.
Damit kann das aktuelle Handle ermittelt werden.

Folgendes funktioniert also wenn man ein Tool über den Editor startet.

$H Messages.ph

Proc PasteTextInEditor
  Parameters Text$
  Var E& = Val(GetEnv$("XPRF_T"))
  Var Aktuell$ = GetClip$()
  ClearClip
  PutClip Text$
  SendMessage(E&,~WM_PASTE,0,0)
  ClearClip
  PutClip Aktuell$
Endproc


CLS
Var Text$ = "Messagebox("Test","Test",0)"
Var ende& = 0
Whilenot ende&
  WaitInput
  PasteTextInEditor(Text$)
Endwhile

Wenn wir ( die Editor-Editoren ) uns also auf einen gemeinsamen Variablen-Namen einig sind, sollte das funktionieren.

[ts-soft]

Okay danke, hab jetzt XPRF_T übernommen, Dein Beispiel funktioniert.

Kann Fraenki so einbauen, sollte aber auf Leerstring prüfen, falls ein Editor
diese Environmentvariable nicht unterstützt.

[Frabbing]

Wenn sich aber der Handle ändert (z.B. anderen Tab im Editor angewählt), bekommt das Sendeprogramm das nicht mit, weil die Variable sich nicht ändert. Scheint auf dem Stand vom Aufrufzeitpunkt zu bleiben...

Ansonsten hab ichs auch eingebaut.

[ts-soft]

Tools beziehen sich eigentlich fast immer auf das zum Zeitpunkt des Aufrufs,
gültige Control, sind ja noch mehr EnvVars. Der User muß schon vorher den
passenden Tab wählen.

[Frabbing]

Ah, ok.
Die Env XPRF_T ist dann auch bei der Zitrone ab dem nächsten Update verfügbar.

[Fraenki]

Zitat von Andreas Miethe

Ist das nicht eher eine Aufgabe der Editoren ?

Ich habe meinen Editor um eine entsprechende Variable erweitert XPRF_T.
Damit kann das aktuelle Handle ermittelt werden.

Wenn wir ( die Editor-Editoren ) uns also auf einen gemeinsamen Variablen-Namen einig sind, sollte das funktionieren.

Das finde ich klasse von euch, wenns klappt bau ich das noch heute in meine Programme ein.
Muss sagen, seit ich hier angemeldet bin habe ich auch schon vieles gelernt.

Gruß Fränki

[Fraenki]

Zitat von Andreas Miethe

$H Messages.ph

Proc PasteTextInEditor
  Parameters Text$
  Var E& = Val(GetEnv$("XPRF_T"))
  Var Aktuell$ = GetClip$()
  ClearClip
  PutClip Text$
  SendMessage(E&,~WM_PASTE,0,0)
  ClearClip
  PutClip Aktuell$
Endproc


CLS
Var Text$ = "Messagebox("Test","Test",0)"
Var ende& = 0
Whilenot ende&
  WaitInput
  PasteTextInEditor(Text$)
Endwhile

Habe das Beispiel mal gestartet mit dem XPrfWriter, das Handle wird übergeben aber kein Text an der Cursorposition eingefügt?

Gruß Fränki

[Andreas Miethe]

Zitat von Fraenki

Habe das Beispiel mal gestartet mit dem XPrfWriter, das Handle wird übergeben aber kein Text an der Cursorposition eingefügt?

Welche Version ?
Aktuell ist 4.3.21.0 und da ist es auch erst eingebaut.

[Fraenki]

Zitat von Andreas Miethe

Welche Version ?
Aktuell ist 4.3.21.0 und da ist es auch erst eingebaut.

Genau diese, habe ich mir erst runtergeladen.
Habe einfach eine exe erstellt und diese über das Benutzermenü eingebunden.
Wie gesagt, das handle wird mir angezeigt.

Gruß Fränki

[Andreas Miethe]

Zitat von Fraenki

Genau diese, habe ich mir erst runtergeladen.
Habe einfach eine exe erstellt und diese über das Benutzermenü eingebunden.
Wie gesagt, das handle wird mir angezeigt.

Gruß Fränki

Kann ich nicht bestätigen.
Bei mir läuft es ab Window98

Wie sieht Dein Code aus ?