| |
| |
|
Jörg
Sellmeyer | I would find it expressed useful, if one The values the integrierten Structures with New() same fill could:
CompileMarkSeparation |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ...  | 04/05/12 ▲ |
|
| |
|
|
RGH | it hindert you nobody, The suitable Konstruktoren To write (PROC xpRect.xpRect) and Your Program hinzuzufügen, about a INC with all Konstruktoren.
Greeting
Roland |
|
| |
| XProfan X2Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4 | 04/05/12 ▲ |
|
| |
|
|
Jörg
Sellmeyer | | Yes, already clear. but how much praktischer would it, if the same already drin would! |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 04/05/12 ▲ |
|
| |
|
|
 | How the StartPaint-Stack!  |
|
| |
| |
| |
|
|
Jörg
Sellmeyer | RGH (05.04.12)
it hindert you nobody, The suitable Konstruktoren To write (PROC xpRect.xpRect) and Your Program hinzuzufügen, about a INC with all Konstruktoren.
Greeting
Roland
alas Yes - there having my try unfortunately not the desired Result brought 
the anyway bring nothing:
CompileMarkSeparation
Proc xpRect.xpRect
Parameters b#,a!,b!,c!,d!
b# = New(xpRect)
With b#
.posx! = a!
.posy! = b!
.x! = c!
.y! = d!
EndWith
Dispose b#
EndProc
Var R# = New(xpRect,R#,10,10,100,100)
With R#
Print .posx!, .posy!
Print .x!,.y!
EndWith
WaitInput
|
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 04/06/12 ▲ |
|
| |
|
|
| very, How the StartPaint-Stack!
[offtopic]Wrong Topic stimmts?  [/offtopic]
Übersehe I now what or is the Dispose fehl on the Space? |
|
| |
| |
| |
|
|
Jörg
Sellmeyer | | this is sure complete wrong. but therefore question I indeed to... |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 04/06/12 ▲ |
|
| |
|
|
RGH | Yes, this is complete wrong!  See Help about "Konstruktor".
To respect is, that it itself here circa Structures deals. and Structures include naturally no modes, means too no Konstruktoren. but one can the structure of/ one class vererben, The a Konstruktor has:
CompileMarkSeparationClass myRect = xpRect, myRect@
Proc myRect.myRect
Parameters a!,b!,c!,d!
.posx! = a!
.posy! = b!
.x! = c!
.y! = d!
EndProc
Var R# = New(myRect,10,10,100,100)
With R#
Print .posx!, .posy!
Print .x!,.y!
EndWith
WaitInput
Greeting
Roland |
|
| |
| Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4 | 04/06/12 ▲ |
|
| |
|
|
Jörg
Sellmeyer | OK - now understand I, what you mean. the I had me already zusammengebaut.
but so one eingebauter Konstruktor for internen Structures had still what, or? |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 04/06/12 ▲ |
|
| |
|
(889)
Deutsch
English
Français
Español
Italia