XProfan

English

Georg
Hovenbitzer

Hello together,

I wished time these On Unit testing, get when calling always whom Error:

row 1 in On.pcu:
$DEFINE XPSE

XPSE have I do not installs, ought to but still too without weg - or ?
Compile Mark Separation

 $U usermessages.pcu = user.
 $U lists.pcu = list.
 $U On.pcu = On.
Declare myEvent&
WindowStyle (2 | 8 | 16 | 32 | 128 | 512)
Window ((%MaxX - 800) / 2),((%MaxY - 600) / 2)-800,600
Edit& = @Control(Edit,,$54001001,20,470,754,20,%hWnd,301,%hInstance,$20000)
myEvent& = on.event(28,Edit&) OnChange

WhileNot %Key = 2

    WaitInput

    If %UMessage = myEvent&

        Print Treffer :-)

    EndIf

EndWhile

on.delevents
on.Close
End

Viele Grüsse, Georg Hovenbitzer(Windows XP Pro, XProfan 11.2, Profan2Cpp 1.6a)

12/01/06 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

RGH

$DEFINE there first ex XProfan 10. The PCU setting means XProfan 10 advance.

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

12/01/06 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

very - as it here standing: https://XProfan.com/units setting The Unit XProfan10 advance.

12/01/06 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Georg
Hovenbitzer

damn

Please with the Pressung the CDs beeilen

I have But too time differently attempts:
Compile Mark Separation

Def on(4) !on.dll,on
Declare OnDll&
Declare Edit&
OnDll& = @Usedll(on.dll)
Cls
Edit& = @Control(Edit,,$54001001,50,10,100,20,%hWnd,301,%hInstance,$20000)
On(28,Edit&,102426,%Hwnd)
UserMessages 102426

WhileNot %Key = 2

    WaitInput

    If %UMessage = 102426

        Print Treffer

    EndIf

EndWhile

On(28,Edit&,102426,0)
FreeDLL OnDll&
End

has but too none success brought, a Änderung in the Edit won't recognized.
If I The On2.dll of here try, I get always a Schutzverletzung.

Viele Grüsse, Georg Hovenbitzer(Windows XP Pro, XProfan 11.2, Profan2Cpp 1.6a)

12/01/06 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Hm look time into Unitsource as DLL objectively is used. here again The neuste DLLVersion.

on.dll	8 kB

Hochgeladen:	12/01/06

Downloadcounter:
		Download

12/01/06 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Georg
Hovenbitzer

Hello iF,

can you me Perhaps something help, I come with the Source the PCU not clear.
me falls it still right heavy XPSE Code reading.

I have now the following without success attempts:
Compile Mark Separation

Declare OnDll&
Declare Edit&
Declare ProcAddr&
Declare UMsg&
Cls
OnDll& = @Usedll(on.dll)
ProcAddr& = @External(kernel32,GetProcAddress,OnDll&,on)
Edit& = @Control(Edit,,$54001001,50,10,100,20,%hWnd,301,%hInstance,$20000)
UMsg& = @Call(ProcAddr&,28,Edit&,102426,%hWnd)
UserMessages UMsg&,102426

WhileNot %Key = 2

    WaitInput

    If %UMessage = UMsg&

        Print Treffer1

    ElseIf %UMessage = 102426

        Print Treffer2

    EndIf

EndWhile

@Call(ProcAddr&,28,Edit&,102426,0)
FreeDLL OnDll&
End

Viele Grüsse, Georg Hovenbitzer(Windows XP Pro, XProfan 11.2, Profan2Cpp 1.6a)

12/01/06 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

I look same time...

12/01/06 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

goes integrally lovely:
Compile Mark Separation

 {$cleq}
Declare OnDll&
Declare Edit&
Declare ProcAddr&
Declare eventID&
Cls
OnDll& = @Usedll(on.dll)
ProcAddr& = @External(kernel32,GetProcAddress,OnDll&,on)
Edit& = @Control(Edit,,$54001001,50,10,100,20,%hWnd,301,%hInstance,$20000)
eventID& = @Call(ProcAddr&,515,Edit&,102426,%hwnd)
print eventID&
UserMessages 102426

WhileNot %Key = 2

    WaitInput

    If %UMessage = 102426

        Print Treffer1

    EndIf

EndWhile

@Call(ProcAddr&,515,Edit&,102426,0)
FreeDLL OnDll&
End

12/01/06 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Georg
Hovenbitzer

is correct, too in my code works it with 515 LinksDoppelKlick.
now have I first kappiert, it klappen only The Messages The in the Unit indicated are

Since I To dato it with the EasyEvent made have, be I do not on The idea come the OnChange not supported becomes.

what I but still not geschaft have, is a Proc aufzurufen:
Compile Mark Separation

Declare OnDll&
Declare Edit&
Declare ProcAddr&
Declare eventID&
Cls

Proc Test

    Print per Proc
    Return 0

EndProc

OnDll& = @Usedll(on.dll)
ProcAddr& = @External(kernel32,GetProcAddress,OnDll&,on)
Edit& = @Control(Edit,,$54001001,150,100,100,20,%hWnd,301,%hInstance,$20000)
@Call(ProcAddr&,0,0,0,1)
eventID& = @Call(ProcAddr&,521,Edit&,@ProcAddr(Test,0),%hWnd)
Print eventID& =  + @Str$(eventID&)

WhileNot %Key = 2

    WaitInput

EndWhile

@Call(ProcAddr&,515,Edit&,@ProcAddr(Test,0),0)
FreeDLL OnDll&
End

where lying because here the Error again

Viele Grüsse, Georg Hovenbitzer(Windows XP Pro, XProfan 11.2, Profan2Cpp 1.6a)

12/01/06 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Stop! this is incorrect the only The Messages functions The in the Unit declared are. The DLL power none Difference.

The thing is another! WaitInput can itself sometimes not durchbrechen - with designed Messages. with Scrollbars Have I it already fixes the at Scrolling waitinput withal gesetzter Message not durchbrochen becomes.

That the Proc goes something differently - wait I look time:

12/01/06 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

look time so GEHTS:
Compile Mark Separation

Declare OnDll&
Declare Edit&
Declare ProcAddr&
Declare eventID&
Cls
OnDll& = @Usedll(on.dll)
ProcAddr& = @External(kernel32,GetProcAddress,OnDll&,on)
Edit& = @Control(Edit,,$54001001,50,10,100,20,%hWnd,301,%hInstance,$20000)
Call(ProcAddr&,0,0,0,1)
eventID& = @Call(ProcAddr&,515,Edit&,procaddr(doit,3),%hwndon>

...
Compile Mark Separation

proc doit

    parameters a&,b&,c&
    print a&,b&,c&
    return 0

endproc

12/01/06 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

your OnChange becomes vlt. not at all triggered..., probier time

WM_KEYDOWN = { $100 | 256 }
WM_KEYFIRST = { $100 | 256 }
WM_KEYLAST = { $108 | 264 }
WM_KEYUP = { $101 | 257 }

12/01/06 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

►