Funktion zum Button erstellen über die Bitmapgröße

[Tom]

Wenn ich über diesen button ein externes Programm starte, wie verhindere ich dann, das nach Beendigung des externen Programmes weiter Ereignisse von Tastatur oder Maus welche durch blindes drauflos klicken verarbeitet werden.

Das verhindert man, indem man einen Button deaktiviert ("disabled"), wenn er ausgelöst wird. Oder den ganzen Dialog. Bis die Aktion beendet ist oder irgendeine Rückmeldung kam oder eine gewisse Zeit verstrichen ist.

[brandelh]

ein XbpBitmap Objekt weiß wie groß es ist und wenn man nur für sich selbst entwickelt kann man das gut einteilen, geht schnell und man muss nicht zu viel neues lernen.
Die mehrzeiligen Buttons (Part2 oder 3) waren für Xbase 1.90 SL1 - das würde passen, ich weiß aber nicht ob man die einfach so zur Verfügung stellen darf.
In der Readme steht nix drin.

[Bruno]

Das verhindert man, indem man einen Button deaktiviert ("disabled"), wenn er ausgelöst wird. Oder den ganzen Dialog. Bis die Aktion beendet ist oder irgendeine Rückmeldung kam oder eine gewisse Zeit verstrichen ist.

Kann ich ein CrtFenster deaktivieren obwohl es sichtbar ist, habe schon mit :hide und :show gemacht, aber das Fenster muss sichtbar bleiben, damit dieser Anwender es sehen kann.

Code: Alles auswählen

oBtn:activate:= {|| RunShell( "", cHauptprg, .F. ) }    

Solange das externe Programm läuft, reagiert ja kein weiterer Klick im aufrufenden Programm, erst wann das externe beendet wird werden die Klicks aausgeführt. CLEAR TYPEAHEAD steht nicht in der Doku von Xbase. Ich müsste irgendwie die Event Queue für das Programm leeren.

[Werner_Bayern]

Code: Alles auswählen

oBtn:activate:= {|| RunShell( "", cHauptprg, .F. ) }    

Code: Alles auswählen

oBtn:activate:= {|uNIL1, uNIL2, self | self:disable(), RunShell( "", cHauptprg, .F. ) }    

Solange der disabled bleibt, empfängt er keine Klicks mehr.

[Bruno]

Code: Alles auswählen

oBtn:activate:= {|| RunShell( "", cHauptprg, .F. ) }    

Code: Alles auswählen

oBtn:activate:= {|uNIL1, uNIL2, self | self:disable(), RunShell( "", cHauptprg, .F. ) }    

Solange der disabled bleibt, empfängt er keine Klicks mehr.

Hallo Werner,
ist es normal das der Button dann ausgegraut ist, habe als caption eine Bitmap?

[Bruno]

Wenn ich über diesen button ein externes Programm starte, wie verhindere ich dann, das nach Beendigung des externen Programmes weiter Ereignisse von Tastatur oder Maus welche durch blindes drauflos klicken verarbeitet werden.

Das verhindert man, indem man einen Button deaktiviert ("disabled"), wenn er ausgelöst wird. Oder den ganzen Dialog. Bis die Aktion beendet ist oder irgendeine Rückmeldung kam oder eine gewisse Zeit verstrichen ist.

Dankke für den Wink mit dem Zaunpfahl ( Aua )
Das hatten wir schon mal.
Na ja lernen heist wiederholen

[Werner_Bayern]

Hallo Werner,
ist es normal das der Button dann ausgegraut ist, habe als caption eine Bitmap?

Servus Bruno,

ja klar. Was hättest Du da gerne anders? Das ist Standard-Verhalten. Du kannst auch z. B. :destroy() oder :hide() verwenden.

[Bruno]

Hallo Werner,
ist es normal das der Button dann ausgegraut ist, habe als caption eine Bitmap?

Servus Bruno,

ja klar. Was hättest Du da gerne anders? Das ist Standard-Verhalten. Du kannst auch z. B. :destroy() oder :hide() verwenden.

Hallo Werner, da ich vorher noch nie damit zu tun hatte, konnte ich das nicht wissen.

[Bruno]

An alle Forum Mitglieder herzlichen Dank !
Durch Eure Unterstützung habe ich mein kleines Netz - Lokal Programm erfolgreich fertigstellen können !
Hier ein Bild wie es aussieht, nicht schön aber praktisch, hat alles intus was benötigt wird.

Screenshot 2023-04-27 201236.jpg (67.38 KiB) 2267 mal betrachtet

Nochmals vielen Dank.

[Bruno]

Wenn ich dieses kleine Programm so fertig habe, das wirklich nichts mehr schief geht, wird dir neue Xbase++ Version geordert. Ich hoffe nur, das Alaska auch Bücher dabei hat, beim Erwerb damals waren Bücher dabei.

[AUGE_OHR]

hi Bruno,

Wenn ich dieses kleine Programm so fertig habe, das wirklich nichts mehr schief geht, wird dir neue Xbase++ Version geordert. Ich hoffe nur, das Alaska auch Bücher dabei hat, beim Erwerb damals waren Bücher dabei.

ausser der Hilfe, die im neuen Format vorliegt, gibt es nichts als Dokumentation zu Xbase++
ob sich eine neue Xbase++ Version "lohnt", so oft wie du es nutzt und "was" davon, musst du selbst wissen

die v1.9.355 läuft unter Windows 10/11 und sogar mit der aktuellen "Canary" Version 25352
auch wird bei dir wohl SQL keine Rolle spielen und der ganze HTML Kram hat ja nichts mehr mit xBase zu tun

---

Tip :
von den User-Konferenzen wurden Videos gemacht die viele Themen ansprechen (nicht immer xBase)
diese sind allerdings nur (zahlende) Mitglieder zugänglich

[Bruno]

Hi Jimmy,
mein Bruder will, das ich das komplette Dispoprogramm neu mache.
Er sagte, wenn ich eine neue Version brauche, soll ich diese ordern.
Ich hab die jetzige Dispo mit 1.9 gemacht, und gehe davon aus, das diese Version auch ausreicht. Wegen ein paar zusätzlicher Datenbankfelder und Druckfunktionen wird eine neue Version wahrscheinlich nicht nötig sein. Muss abwarten, er will nächste Woche mir erklären was er sich vorstellt.