XProfan

Français

Georg
Hovenbitzer

allô zusammen,

mon Problem ist cela Erkennen des TabChanged chez einer Boucle avec WaitInput.
Nachfolgender Code funktioniert avec WaitInput sous XProfan sans Probleme, si je cette avec Profan2Cpp 1.5 übersetze wird qui TabChange pas erkannt. Verwende je GetMessage dans funktioniert qui übersezte Version. seulement ensuite bekomme je dans qui reinen Profan Version probleme.

Hat quelqu'un une concept quoi je faux fais ou bien liegt es à Profan2Cpp ?!

Salut
Georg
Kompilieren Marque Séparation

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

Fin

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

09.11.2005 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Sebastian
König

allô Georg,

je denke, c'est un kleines Problem im Message-Handling de Profan2Cpp (d.h dans qui plibwin.lib). qui faute tritt aussi chez mir sur...

je denke, je konnte qui Ursache déjà ermitteln: comment es aussieht, mets XProfan den internen Status pour TabChanged toujours seulement beim Lecture zurück - un TabChanged-Aufruf dedans eines anderen ergibt jedenfalls 0. dans Profan2Cpp wird qui Status mais chez chaque WAITINPUT zurückgesetzt... je werde cela juste la fois changement.

je peux Dir gern une neue Lib zum Testen per eMail envoyons - welchen Compiler benutzt Du car?

MfG

Sebastian

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

Alte Profan²-Seite: [...]

09.11.2005 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Georg
Hovenbitzer

allô Sebastian,

wäre super si du mir qui neue Lib envoyons könntest.
comme Compiler benutze Je l' Dev-C++ 4, en qui aktuelle Version.
j'ai justement gesehen, dass sous den Compiler Einstellungen qui 5il Version zum auswählen gibt, wird qui eh bien déjà unterstüzt ou bien ist ca seulement déjà la fois vorsorglich.

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

09.11.2005 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Sebastian
König

allô Georg,

j'envoie qui Lib juste la fois raus

.

trop Dev-C++ 5: c'est quelque chose compliqué... qui Version est sich déjà depuis einer Ewigkeit im Beta-Status. Profan2Cpp soutenu vous déjà depuis Anfang à, cependant wurde im Laufe qui Weiterentwicklung de Dev-C++ irgendwann la fois qui Compiler modifié. qui dernier Beta, qui soutenu wurde, était glaube je 4.9.8.0. j'ai pour aussi une Hinweis sur qui Profan2Cpp-Page d'accueil (chez den unterstützten Compilern) gesetzt et taux im Moment simple trop Version 4.

cela Profan2Cpp-paquet voudrais je seulement anpassen, si Dev-C++ 5 la fois pas plus im Beta-Stadium ist (sonst échanger qui den Compiler womöglich nochmal