| |
| |
|
| - Página 1 - |
|
Thomas
Zielinski | ¡Hola todos zusammen,
Yo komm a Tiempo no más y quäle mich nun ya algunos Tage.
Wenn uno el untrigen code ausführt y en Anlegen klickt, debería eigentlich el beiden Werte de el Spinedits ausgelesen y ser así una hnewpic producido voluntad. Das Problema es nun aber el no el Werte ausgelesen voluntad pero algo. Das todo geschiet en el Proc NEUESPROJEKT
Was Yo ya erfolglos ausprobiert?:
-GroupBoxen weg y alles aud el Dialogfeld
-Diálogo weg y alles en %HWnd
-Austauschen el SpinEdits gegen normale Edits
Vielen Dank schonmal para el Ayuda.
Saludo Thomas
Hier el Code en una minimum reduziert:
{$iq}
Declarar anzeige&
cls
NEUESPROJEKT()
DeleteObject anzeige&
end
Proc NEUESPROJEKT
var e%=0//preparar el hauptunterschleife
//aufbau des fensters
var dlg& = Crear("Dialog",%HWnd,"Neues Projekt",(%MaxX-200)/2,(%MaxY-285)/2,200,285)
var boxA& = Crear("GroupBox",dlg&,"Kartenname:",5,0,185,45)
var editA& = Crear("Edit",boxA&,"neueKarte",5,15,175,25)
var boxB& = Crear("GroupBox",dlg&,"Breite: (*100px)",5,50,185,45)
var editB& = Crear("SpinEdit",boxB&,"50;5;500",5,15,175,25)//FALSCHER WERT NUMMER 1
var boxC& = Crear("GroupBox",dlg&,"Höhe: (*100px)",5,100,185,45)
var editC& = Crear("SpinEdit",boxC&,"20;2;200",5,15,175,25)//FALSCHER WERT NUMMER 2
var boxD& = Crear("GroupBox",dlg&,"Texturkarte",5,150,185,45)
var editD& = Crear("Edit",boxD&,"",5,15,140,25)
var butD& = Crear("Button",boxD&,"...",150,15,30,25)
var endofnew& = Crear("Button",dlg&,"Anlegen",5,200,185,25)
var abortofnew& = Crear("Button",dlg&,"Abbrechen",5,230,185,25)
//hauptunterschleife
Mientras que e% = 0
If GetFocus(endofnew&)//ANLEGEN
e%=5
ElseIf GetFocus(abortofnew&)//ABBRECHEN
MessageBox("Wollen ellos abbrechen?","FRAGE",4+32+0+262144)
If %Button = 6//[sí]
e% = 6
EndIf
EndIf
EndWhile
If e%=5
var hoch! = Int(GetText $(editC&))//*100
var breit! = Int(GetText$(editB&))//*100
var titel$ = GetText$(editA&)
var texturkarte$ = GetText$(editD&)
MessageBox(Str$(hoch!),Str$(breit!),4096)//por qué falsche werte?
anzeige& = Crear("hNewPic", breit!, hoch!, RGB(255,150,150))
MessageBox("Daten fueron angelegt","",4096)
EndIf
e%=1 //wichtig así programmhauptschleife más se ejecuta
DestroyWindow(dlg&)
ENDPROC
|
|
| |
| XProfan X4; Win10 x64
Der Kuchen ist eine lüge! | 20.09.2011 ▲ |
|
| |
|
 |
« Dieser Contribución wurde como Solución gekennzeichnet. » |
|
Jörg
Sellmeyer | Hm - qué se porque esta merkwürdige Konstruktion?
Ein Kommentar el con /* beginnt, kann mitten en uno Línea, sí incluso mitten en un Befehlswort beginnen, encima mehrere Zeilen ir y endet sólo beim nächsten */.
Also sólo una Backslash, sonst meckert Profano.
Si usted uno Floatvariablen con Int una Valor zuweist, se el Floatvariable überflüssig, porque Usted entonces natürlich sólo una Integer erhälst.
Lo reicht also simplemente:
|
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ...  | 20.09.2011 ▲ |
|
| |
|
|
|
Paul
Glatz | ¡Hola
du wandelst el Cuerdas garniucht en Pagar en.
Falsch:
Richtig:
|
|
| |
| |
| |
|
|
Jörg
Sellmeyer | Hm - qué se porque esta merkwürdige Konstruktion?
Ein Kommentar el con /* beginnt, kann mitten en uno Línea, sí incluso mitten en un Befehlswort beginnen, encima mehrere Zeilen ir y endet sólo beim nächsten */.
Also sólo una Backslash, sonst meckert Profano.
Si usted uno Floatvariablen con Int una Valor zuweist, se el Floatvariable überflüssig, porque Usted entonces natürlich sólo una Integer erhälst.
Lo reicht also simplemente:
|
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 20.09.2011 ▲ |
|
| |
|
|
Thomas
Zielinski | Boar qué para una Anfängerfehler. Darauf muss uno primero kommen. Vielen Dank otra vez.
Saludo Thomas |
|
| |
| XProfan X4; Win10 x64
Der Kuchen ist eine lüge! | 21.09.2011 ▲ |
|
| |
|
|
 | Exactamente, boooooooooooo!  |
|
| |
| |
| |
|
(864)
Deutsch
English
Français
Español
Italia