XProfan

English

Georg
Hovenbitzer

Hello together,

my trouble is the discern the TabChanged with of/ one Loop with WaitInput.
Nachfolgender code functions with WaitInput under XProfan without Problems, if I this with Profan2Cpp 1.5 übersetze becomes the TabChange not recognized. Verwende I GetMessage in functions The übersezte Version. only then I get in the reinen Profan Version Problems.

has someone a idea I wrong make or lying it to profane2Cpp ?!

Greeting
Georg
Compile Mark Separation

Def GetSysColor(1) !"USER32.DLL","GetSysColor"
Def GetAsyncKeyState(1) !"User32","GetAsyncKeyState"
Declare Ende&
WindowStyle 512 + 16 + 8 + 2
WindowTitle "HSP Tagger"
Window 0,0-800,600
UserMessages 33,273,16	~WM_MOUSEACTIVATE,~WM_COMMAND,~WM_CLOSE
Cls GetSysColor(15)	(~COLOR_BTNFACE)
@Set("TrueColor",1)
@Set("Decimals",0)
UseFont "Arinal Narrow",14,0,1,0,0
SetDialogFont 1

Proc Lyric_Window

    Declare LyDialog&
    Declare LyTab&
    Declare LyEditID3&
    Declare LyEditLyr&
    Declare LyLaden&
    Declare LyLoeschen&
    Declare LyCopy&
    WindowStyle 512 + 8
    LyDialog& = @Create("Window",%hWnd,"Lyric",%WinLeft+100,%WinTop+75, 530, 387)
    LyEditID3& = @Control("EDIT", "", $54311004, 14, 36, 493, 260, LyDialog&, 2001, %hInstance, $00020200)
    LyEditLyr& = @Control("EDIT", "", $54310804, 14, 36, 493, 260, LyDialog&, 2002, %hInstance, $00020200)
    @ShowWindow(LyEditLyr&,0)
    LyLaden& = @Control("BUTTON", "Laden", $54010000, 100, 308, 64, 29, LyDialog&, 2003, %hInstance, $00020000)
    LyLoeschen& = @Control("BUTTON", "Löschen", $54010000, 228, 308, 64, 29, LyDialog&, 2004, %hInstance, $00020000)
    LyCopy& = @Control("BUTTON", "Lyr -> ID3", $54010000, 356, 308, 64, 29, LyDialog&, 2005, %hInstance, $00020000)
    LyTab& = @Control("SYSTABCONTROL32", "", $54010000, 0, 0, 526, 357, LyDialog&, 2006, %hInstance,$10000) WS_EX_CONTROLPARENT
    @InsertTab(LyTab&, 1, "ID3v2.x")
    @InsertTab(LyTab&, 2, "Lyric 1.x/2.x")

    WhileNot (GetAsyncKeyState($1B) <> 0) Or (%UMessage = 16)	~WM_CLOSE

        WaitInput Tabchanged wird nicht erkannt
        GetMessage Tabchanged wird erkannt

        If @TabChanged(LyTab&) = 1

            If @GetActiveTab(LyTab&) = 0

                EnableWindow LyLaden&,1
                @ShowWindow(LyEditLyr&,0)
                EnableWindow LyEditID3&,1
                @ShowWindow(LyEditID3&,1)
                @SetFocus(LyTab&)

            Else

                EnableWindow LyLaden&,0
                EnableWindow LyEditID3&,0
                @ShowWindow(LyEditID3&,0)
                @ShowWindow(LyEditLyr&,1)
                @SetFocus(LyTab&)

            EndIf

        EndIf

    EndWhile

    @DestroyWindow(LyDialog&)
    @SetFocus(%hWnd)

EndProc

Lyric_Window

WhileNot Ende& = 1

    WaitInput

    If (%UMessage = 16) And (@GetActiveWindow() = %hWnd)	~WM_CLOSE

        Ende& = 1

    EndIf

End

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

11/09/05 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Sebastian
König

Hello Georg,

i think, its one small trouble in the Message-Handling of Profan2Cpp (d.h in the plibwin.lib). The Error exit too by me on...

i think, I could The cause already detect: How it looks, setting XProfan whom internen status for TabChanged always first at Reading back - one TabChanged-appeal within one others yields anyway 0. In Profan2Cpp becomes the status but each WAITINPUT reset... i'll the same time Change.

I can you gladly a new Lib to that testing by Email send - whom Compiler using Thou?

MfG

Sebastian

Windows XP, XProfan/Profan² 4.5 bis 11
Profan2Cpp-Homepage: [...]

Alte Profan²-Seite: [...]

11/09/05 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Georg
Hovenbitzer

Hello Sebastian,

would class if You me the new Lib send could.
as Compiler use I the Dev-C++ 4, of it The actually Version.
I have straight seen, that under whom Compiler Settings The 5it Version to that select gives, becomes The now already unterstüzt or is this only already time vorsorglich.

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

11/09/05 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Sebastian
König

Hello Georg,

I mail The Lib same time out

.

To Dev-C++ 5: this is something tricky... The Version is already since of/ one eternity in the Beta-status. Profan2Cpp supported tappt im dunkeln already since beginning on, however watts in the running the Weiterentwicklung of Dev-C++ sometime time the Compiler changed. The latest Beta, The supported watts, was faith I 4.9.8.0. I have for too a Info on The Profan2Cpp-Homepage (with whom supported Compilern) staid and rate in the momentum simply To Version 4.

the Profan2Cpp-pkg would like I first adjust, if Dev-C++ 5 times not More in the Beta-Stadium is (otherwise change The whom Compiler possibly again