| |
| |
|
| - page 1 - |
|
Thomas
Zielinski | allô alle zusammen,
je komm zur Zeit pas plus et quäle mich eh bien déjà quelques Tage.
si on den untrigen code ausführt et sur Anlegen klickt, devrait eigentlich qui beiden Werte aus den Spinedits ausgelesen volonté et avec cela un hnewpic erzeugt volonté. cela Problem ist eh bien mais cela pas qui Werte ausgelesen volonté mais irgendwas. cela ganze geschiet dans qui Proc NEUESPROJEKT
quoi habe je déjà erfolglos ausprobiert?:
-GroupBoxen weg et alles aud cela Dialogfeld
-Dialog weg et alles sur %HWnd
-Austauschen qui SpinEdits vers normale Edits
Vielen Dank Schonmal pour qui Aider.
Salut Thomas
ici qui Code sur un minimum reduziert:
{$iq}
Déclarer anzeige&
cls
NEUESPROJEKT()
DeleteObject anzeige&
end
Proc NEUESPROJEKT
var e%=0//vorbereiten qui hauptunterschleife
//aufbau des fensters
var dlg& = Créer("Dialog",%HWnd,"Neues Projekt",(%MaxX-200)/2,(%MaxY-285)/2,200,285)
var boxA& = Créer("GroupBox",dlg&,"Kartenname:",5,0,185,45)
var editA& = Créer("Edit",boxA&,"neueKarte",5,15,175,25)
var boxB& = Créer("GroupBox",dlg&,"Breite: (*100px)",5,50,185,45)
var editB& = Créer("SpinEdit",boxB&,"50;5;500",5,15,175,25)//FALSCHER WERT NUMMER 1
var boxC& = Créer("GroupBox",dlg&,"Höhe: (*100px)",5,100,185,45)
var editC& = Créer("SpinEdit",boxC&,"20;2;200",5,15,175,25)//FALSCHER WERT NUMMER 2
var boxD& = Créer("GroupBox",dlg&,"Texturkarte",5,150,185,45)
var editD& = Créer("Edit",boxD&,»,5,15,140,25)
var butD& = Créer("Button",boxD&,"...",150,15,30,25)
var endofnew& = Créer("Button",dlg&,"Anlegen",5,200,185,25)
var abortofnew& = Créer("Button",dlg&,"Abbrechen",5,230,185,25)
//hauptunterschleife
Tandis que e% = 0
Si GetFocus(endofnew&)//ANLEGEN
e%=5
ElseIf GetFocus(abortofnew&)//ABBRECHEN
MessageBox("Wollen vous démolir?","FRAGE",4+32+0+262144)
Si %Button = 6//[oui]
e% = 6
EndIf
EndIf
Endwhile
Si 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)//pourquoi falsche werte?
anzeige& = Créer("hNewPic", breit!, hoch!, RGB(255,150,150))
MessageBox("Daten wurden angelegt",»,4096)
EndIf
e%=1 //important avec cela programmhauptschleife plus fonctionne
DestroyWindow(dlg&)
ENDPROC
|
|
| |
| XProfan X4; Win10 x64
Der Kuchen ist eine lüge! | 20.09.2011 ▲ |
|
| |
|
 |
« cette Beitrag wurde comme Solution gekennzeichnet. » |
|
Jörg
Sellmeyer | Hm - quoi soll car cet merkwürdige Konstruktion?
un Kommentar qui avec /* beginnt, peux mitten dans einer la ligne, oui sogar mitten dans einem Befehlswort commencer, sur plusieurs Zeilen aller et endet seulement beim prochain */.
alors seulement un Backslash, sonst meckert Profan.
si Du einer Floatvariablen avec Int une Wert zuweist, wird qui Floatvariable überflüssig, weil Du ensuite naturellement seulement une Integer erhälst.
Es reicht alors simple:
|
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ...  | 20.09.2011 ▲ |
|
| |
|
|
|
Paul
Glatz | allô
du wandelst qui Cordes garniucht dans payons um.
faux:
Richtig:
|
|
| |
| |
| |
|
|
Jörg
Sellmeyer | Hm - quoi soll car cet merkwürdige Konstruktion?
un Kommentar qui avec /* beginnt, peux mitten dans einer la ligne, oui sogar mitten dans einem Befehlswort commencer, sur plusieurs Zeilen aller et endet seulement beim prochain */.
alors seulement un Backslash, sonst meckert Profan.
si Du einer Floatvariablen avec Int une Wert zuweist, wird qui Floatvariable überflüssig, weil Du ensuite naturellement seulement une Integer erhälst.
Es reicht alors simple:
|
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 20.09.2011 ▲ |
|
| |
|
|
Thomas
Zielinski | Boar quoi pour un Anfängerfehler. puis muss on erstmal venons. Vielen Dank nochmal.
Salut Thomas |
|
| |
| XProfan X4; Win10 x64
Der Kuchen ist eine lüge! | 21.09.2011 ▲ |
|
| |
|
|
 | oui c'est ca, boooooooooooo!  |
|
| |
| |
| |
|
(285)
Deutsch
English
Français
Español
Italia