XProfan

09.02.2005 ▲

Probiere doch la fois statt den SLEEPs folgendes:
Kompilieren Marque Séparation

Settimer 1 : waitinput : killtimer

Salve, iF

GDL

Hi Si

Tricolore ausprobiert,mais settimer wird pas fonctionnement,weder im Interpre- termodus encore Compiliert.

dernier Stand:

objekt&[num%]=Control(STATIC,objet$[num%],$54001006,xkoor%[num%],ykoor%[num%],breite%[num%],hoehe%[num%],%hwnd,0, %hInstance,$0)
setfont objekt&[num%],font&[1]
startpaint objekt&[num%]
UseFont COURIER,0,12,0,0,0
drawtext 1,1,objet$[num%]
beep wird fonctionnement
Settimer 10000 : waitinput : killtimer wird pas fonctionnement
sleep 500 wird fonctionnement
endpaint
Settimer 10000 : waitinput : killtimer wird pas fonctionnement

cette partie allez im Interpretermodus einwandfrei,mais pourquoi pas
comme Exe ?

objekt&[num%]=Control(STATIC,objet$[num%],$54001006,xkoor%[num%],ykoor%[num%],breite%[num%],hoehe%[num%],%hwnd,0, %hInstance,$0)
setfont objekt&[num%],font&[1]
startpaint objekt&[num%]
UseFont COURIER,0,12,0,0,0
drawtext 1,1,objet$[num%]
endpaint

===============================================

chez qui Anwendung avec dem Sendstring Problem

Settimer 10000 : waitinput : killtimer wird pas fonctionnement

aussi ici wird settimer....... dans beiden Dateimodis ignoriert.
peut-être hängts avec cela zusammen,là dans beiden Fällen settimer.....
pas aufs Hauptfenster,mais einmal sur Statics et einmal sur un Richedit angewandt wird.
sendkey wird seulement sur un Richedit angewendet.
suis cela Problem ici nochmals genauer angegangen,avec dem Ergebnis
si avec sleep,settimer,ou bien sans => es volonté simple toujours quelques
Sendkey verschluckt.

Beide Programme nutzen qui neue Ereignisbehandlung de Prfellow.
peut-être muss on ici quoi spezieelles tenir compte de?ensuite wiederum verstehe je es pas,pourquoi es sur dem alten Board sans Probleme
lief.

suis avec meinem Anfängerlatein am Ende,hoffe sur ami Zufall.

avec freundlichen Grüßen
Georg Dankesreiter

Windows7 Xprofan 8,9,10 [...]

la hâte Du XProfan9?

GDL

Hi Si

non,Profan 7.5 et Xprofan 8.0

Werde es avec Profan 7.5 la fois essayer.
Ist oui pas so important,je viens avec cela zurecht,voulais qui Anwendung comme
Anfängerfreeware pour Débutant chez Dir im Board anbieten.
là je aussi ne...aucune WinXP habe,hätte je sowieso seulement la fois une Freiwilligen
gebraucht,qui testet ,si cela Programme aussi sous XP fonctionne.

si cela Problem cependant gelöst ist, peux on es oui toujours
hochladen.

avec freundlichen Grüßen
Georg Dankesreiter

Windows7 Xprofan 8,9,10 [...]

Ok habs verstanden. Schreib doch s'il te plaît comment im Stammtisch besprochen deine Profanversion et Version Windows dans Votre Signatur. qui Signatur peux éditer dans Deinem Profil (Hauptansicht, à droite).

si Du Prf7 la hâte must Du naturellement
settimer 1
waitinput
killtimer

statt

settimer 1 : waitinput : killtimer

. Laissez

Salve, iF

GDL

Hi Si

habs malheureusement übersehen,dass seulement XProfan 9 plusieurs Befehle dans einer la ligne zuläßt.
allez mais quand même pas.
Nochmals vielen Dank pour Votre Aider et verbleibe avec

freundlichen Grüßen
Georg Dankesreiter

Windows7 Xprofan 8,9,10 [...]

[quote-part:37c54beb4c=Georg Dankesreiter]Hi Si

habs malheureusement übersehen,dass seulement XProfan 9 plusieurs Befehle dans einer la ligne zuläßt.[/quote-part:37c54beb4c]bof, pas entier. qui xpse im Einsatz hat venez également dans den Genuß - indépendant de qui Profanversion.

Salve, iF

GDL

Hi Si

suis un Stückchen plus

objekt&[num%]=Control(STATIC,objet$[num%],$54001006,xkoor%[num%],ykoor%[num%],breite%[num%],hoehe%[num%],%hwnd,0, %hInstance,$0)
setfont objekt&[num%],font&[1]
sleep 1000
startpaint objekt&[num%]
UseFont COURIER,0,12,0,0,0
drawtext 1,1,objet$[num%]
sleep 1000
endpaint

habe avec folgendem Probiert,quoi passiert

$54001006 = weißes Statik avec rebord

Im Interpretermodus wird d'abord cela Statik erzeugt et ensuite Beschrieben.

comme Exe ensuite mais komischerweise seulement un graues Statik erzeugt.
ensuite qui Text avec weißen Hintergrund eingesetzt et ensuite seulement le rebord et cela weiße Statik erzeugt.Somit ist ensuite qui Text überdeckt.

suis comme Einsteiger maintenant total überfordert,savoir Du peut-être une autre Possibilité cela Statik trop beschriften?merci.

avec freundlichen Grüßen
Georg

Windows7 Xprofan 8,9,10 [...]

je dois gestehen maintenant seulement trop merken worum es Dir eigendlich allez.

maintenant c'est moi aussi bien sûr cela Dein Prob. pas per settimer 1 trop régulariser ist.

Beschrifte simple Dein Static avec einem BMP.

ici [...]

habe je un schönes Beispiel en supplément posté.

Hilft Dir cela?

Salve, iF

GDL

Hi Si

merci pour den Tip.là mais qui Anwender den Text bestimmt devrait je qui Stringvariable auparavant seulement dans un BMP Dossier transformer.
cela ganze Programme(dBase Dateigenerator avec kleiner Programieroberfläche) entstand eigentlich seulement,weil je aus Dir bekannten Grund mon kompletten Programme récente écrivons muss.là mir dabei quelques Profaner geholfen avons den Dateigenerator hinzukriegen,voulais je cette eh bien comme Freeware pour Débutant(mais seulement pour hiesige Mitglieder
et seulement sur Dein Forum beschränkt) anbieten.

cela qui Dateigenerator comme EXE chez einer Staticsorte pas allez,habe je
seulement bemerkt comme je cela Installationspacket zum Envoyer herrichtete et nochmals auparavant Durchtestete.

peut-être liegt qui faute aussi dans einem anderen Programmteil,den qui Interpreter ignoriert et qui Compiler pas.Graue Statics laisser sich
komischerweise anstandslos beschriften.
Eines peux je mais maintenant 100%ig ausschließen,à dem neuen Board
Il se trouve pas.sur dem alten Board hatte cela Programme encore aucun weißen
Statics et jetzige Version fonctionne aussi sur dem alten Board pas richtig.

Löse maintenant betreffende Zeilen aus dem Gesamtcode et schaue quoi ensuite
passiert.Rolf hat mir aussi quoi zum Testen envoyé,nochmals ne chance.

peut-être kriege je aussi la fois quoi Vernünftiges sur qui Beine.

avec freundlichen Grüßen aus dem encore verschneiten Niederbayern
Georg

Windows7 Xprofan 8,9,10 [...]

11.02.2005 ▲

GDL

Hi Si,

kopiere ici simple qui nouvelle à Rolf

Hi Rolf

legte une Nachtschicht un,là mir ca Ding aucun Ruhe ließ.
Habe es maintenant gelöst.

Habe deinen Code simple Stück pour Stück zerlegt,dabei kam folgendes raus:

declare test&
proc schrift
startpaint test&
UseFont COURIER,0,12,0,0,0
drawtext 1,1,Test
endpaint
endproc
cls
test&=Control(STATIC,Test,$54001006,200,20,100,20,%hwnd,0, %hInstance,$0)
schrift
schrift
waitkey

chez einmaligen Aufruf qui Procedure Schrift habe je gleiches altes Problem.
là mais Du dans Deinem Beispiel qui Procedure plusieurs fois Durchlaufen läßt,habe je qui Proc. simple la fois zweimal hintereinander aufgerufen.
si je es aussi pas verstehe,mais ensuite gings sur einmal.

eh bien lasse je dans mon Programme Startpaint EndPaint aussi plusieurs fois Durchlaufen et und dir aussi.

declare hg%
whilenot hg% > 2
startpaint objekt&[num%]
UseFont COURIER,0,12,0,0,0
drawtext 1,1,objet$[num%]
endpaint
inc hg%
Wend

sans Deinen Code wäre je niemals sur qui concept gekommen Startpaint EndPaint plusieurs fois hintereinander aufzurufen.Nochmals merci.

une dernier s'il te plaît hätte je encore,pourrait mir quelqu'un expliquer pourquoi ca so ist,ou bien si ca seulement sous WinME so ist.

alors nochmals Euch beiden un großes Dankeschön.

avec freundlichen Grüßen
Georg

Pour Si

si rien dagegenspricht serait je cela Prog. nochmals durchsehen et sur qui péril hin,dass es sur anderen Win.Versionen ausser ME pas
fonctionne Dir zukommen laisser.je voudrais es maintenant doch pas plus unangesehen sur qui Mitglieder loslassen.

Windows7 Xprofan 8,9,10 [...]

11.02.2005 ▲