@MK-Soft,
ja gut und schön, weißt du wie oft ich schon in der Woche, wenn ich keinen
Zugriff habe, irgendwas gemerkt habe, was nicht geht oder so geht wie es
soll? Zum Glück kann ich dann Falko kontaktieren. Und er nimmt sich oft
mal einen Moment Zeit dafür und bekommt auch kein Geld von mir. Aber bei
uns ist das vielleicht auf Gegenseitigkeit, ein bissel geben und nehmen hier
und da.
Ich denke nur mal an das Resize-Problem zurück, mit einem Mal, nach keine
Ahnung rund einem Jahr, ging es plötzlich wieder. WARUM IN GOTTES NAMEN
kann man sich dann nicht mal äußern? Hilf dir so oder so oder wir sind dran.
Wenn ich dann jedes Wochenende noch radebrechend über so einen Kram
grübeln soll, dann schlucke ich es oft genug runter und lasse mir irgendwas
einfallen, damit es doch geht. Meine Zeit am Wochenende ist nun mal stark
begrenzt und ich habe auch noch mehr zu tun, als mich damit zu befassen
welche Sprache der eine oder andere nicht kann oder nicht können will.
Erst gestern hatte ich wieder so eine Geschichte, die mache ich nun schon
seit Ewigkeiten so, weil es eben "nicht anders geht". Nun hatte Falko das
gleiche Problem und ich habe ihm das so geändert, DAS ES GEHT. Hier ist
mal ein simples Beispiel dafür.
Code: Alles auswählen
Enumeration
#Window_0
EndEnumeration
Enumeration
#Text_0
EndEnumeration
; nur so geht es auch unter 9x
Procedure Nachricht_auch_unter_9x(Text$,Time.l,Flag.l)
start.l=ElapsedMilliseconds()
If OpenWindow(#Window_0,0,0,300,60,"Hinweis",Flag)
If CreateGadgetList(WindowID(#Window_0))
TextGadget (#Text_0, 10, 10,280, 30, Text$, #PB_Text_Center|#PB_Text_Border)
EndIf
SetGadgetText(#Text_0,Text$)
Quit=#False
Repeat
Select WaitWindowEvent(100)
Case #PB_Event_CloseWindow
EndSelect
If ElapsedMilliseconds()>start+Time
Quit=#True
EndIf
Until Quit
CloseWindow( #Window_0)
EndIf
EndProcedure
; das geht unter XP und Vista (2000, NT4 keine Ahnung)
Procedure Nachricht_nicht_richtig_unter_9x(Text$,Time.l,Flag.l)
If OpenWindow(#Window_0,0,0,300,60,"Hinweis",Flag)
If CreateGadgetList(WindowID(#Window_0))
TextGadget (#Text_0, 10, 10,280, 30, Text$, #PB_Text_Center|#PB_Text_Border)
EndIf
Delay(Time)
CloseWindow( #Window_0)
EndIf
EndProcedure
Nachricht_auch_unter_9x("Speichern erfolgt",3000,#PB_Window_ScreenCentered)
Nachricht_nicht_richtig_unter_9x("Speichern erfolgt",3000,#PB_Window_ScreenCentered)
Irgendwann ist dann einfach der Punkt erreicht, wo man sich sagt, dann
mach ich halt was für mich, so daß es geht, Scheiss doch auf die anderen, die
sollen sich selber den Buckel krum machen. Von den Anfängern mal gar
nicht zu reden.
Und wenn du das so siehst, dann ist dieses Unterforum eigentlich überflüssig
wie ein Kropf, dann sollte man sich hier darauf beschränken eine "Laberecke"
zu haben und vielleicht noch "Fragen von mir zu dir" und eventuell noch
"Projekte - wie klopf ich mir selber auf die Schulter"
Tschuldigung, werde gerade zynisch und höre auf.
Ach nee, noch was: Ich habe im Gegensatz zu den meisten hier wenigsten
den Mut, mein Gesicht zu zeigen! Geht nicht gegen dich MK, sondern allgemein.
Gruß Jens
... das ganze Forum hier ist keine
