XProfan

Español

Georg
Hovenbitzer

¡Hola zusammen,

mein Problema es el Reconocer des TabChanged en uno Bucle con WaitInput.
Nachfolgender Code funktioniert con WaitInput bajo XProfan sin Problemas, si yo esta con Profano2Cpp 1.5 übersetze se el TabChange no erkannt. Verwende Yo GetMessage en funktioniert el übersezte Versión. Nur entonces bekomme Yo en el reinen Profano Versión probleme.

Sombrero alguien una Concepto Yo falso mache oder liegt lo a Profano2Cpp ?!

Saludo
Georg
Kompilieren Marca Separación

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)

09.11.2005 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Sebastian
König

¡Hola Georg,

Yo denke, es una kleines Problema en el Message-Handling de Profano2Cpp (d.h en el plibwin.lib). Der Fehler tritt auch en me en...

Yo denke, Yo podría el Ursache ya ermitteln: Como lo aussieht, setzt XProfan el internen Status para TabChanged siempre sólo beim Auslesen zurück - una TabChanged-Aufruf innerhalb uno otro ergibt jedenfalls 0. In Profano2Cpp se el Status pero en cada WAITINPUT zurückgesetzt... Yo voluntad el igual veces ändern.

Puedo Usted gern una neue Lib para Testen por eMail enviar - welchen Compiler benutzt Usted porque?

MfG

Sebastian

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

Alte Profan²-Seite: [...]

09.11.2005 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Georg
Hovenbitzer

¡Hola Sebastian,

wäre klasse si du me el neue Lib enviar könntest.
Als Compiler benutze Yo, el Dev-C++ 4, su el aktuelle Versión.
Yo habe gerade gesehen, dass bajo el Compiler Einstellungen el 5él Versión para auswählen son, se el nun ya unterstüzt oder es dies sólo ya veces vorsorglich.

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

09.11.2005 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Sebastian
König

¡Hola Georg,

Yo schicke el Lib igual veces fuera

.

Zu Dev-C++ 5: Es algo kompliziert... El Versión befindet se ya seit uno Ewigkeit en el Beta-Status. Profano2Cpp unterstützt ellos ya seit Anfang a, sin embargo wurde en el Laufe el Weiterentwicklung de Dev-C++ irgendwann veces el Compiler cambiado. El letzte Beta, el unterstützt wurde, war glaube Yo 4.9.8.0. Yo habe dafür auch una Referencia en el Profano2Cpp-Homepage (en el unterstützten Compilern) gesetzt y rate en el Moment simplemente a Versión 4.

Das Profano2Cpp-Paket möchte Yo sólo adaptar, si Dev-C++ 5 veces no mehr en el Beta-Stadium es (sonst wechseln el el Compiler womöglich otra vez