(331)  S'inscrire

Français
Forum

Static avec Scrollbalken

 

Rainer
Hoefs
allô zusammen,
je besoin la fois wieder Aider.

j'ai un Static erstellt, welches une vertikalen et horizontalen Scrollbalken hat. y soll une BMP-Grafik gezeigt volonté. Ist cet dans un ou bien beide Richtungen größer, soll vous mittels qui Scrollbalken déménagé volonté peut.

eh bien habe je folgende Probleme.

comment peux je pour dem magasin des Bildes...
1. qui nécessaire Scrollbalken aktivieren ou bien désactiver Hor / Ver / Hor+Ver?
2. qui Scrollrange einstellen?
3. den Slider dans qui Taille einstellen?
4. qui beiden Scrollbalken intercepter um puis trop réagir?
5. überhaupt qui Handles qui trois Elemente (Static, hScroll et vScroll) feststellen um Messages dorthin trop senden ou bien vous abzufangen?

je hatte déjà einmal sur irgendeiner Webseite Messages et Beschreibung gesehen, sais mais pas plus wohin. et depuis Tagen cherche je après erfolglos im Netz.

ici qui Source eines Testprogrammes.

Pour Eure Aider Schonmal un Dankeschön im Voraus.

Rainer
KompilierenMarqueSéparation
' Code erzeugt avec F.Abbing's LemonViD Version 1.0.0.3 am 11.05.2019 um 08:35 montre,
' Spenden-Button, sowie weitere Freeware-Tools pour XProfan sur https://frabbing.net
' Technischer Soutien sur ./../../sys/?nohdr=1&u=www.paules-pc-forum.de/forum/XProfan et https://purebasic.fr/german
' --------------------------------------------------------------------------------------------------
Déclarer nurso%, Ende%, button2%, StaticFrame&, OriginalBMP$, OriginalBMp&, OriginalBMPWidth%, OriginalBMPHeight%, \
Style%, Message$, mwnd$, wParam$, lParam$
Def GetStockObject(1) !"GDI32","GetStockObject"
Def GetSysColor(1) !"User32","GetSysColor"
Def GetParent(1) !"User32","GetParent"
Def SendBMP2Static(2) SendMessage(&(1),$172,0,&(2))
Def &COLOR_BTNFACE $F
Def &DEFAULT_GUI_FONT $11
Set("Truecolor", 1)
Set("Autopaint", 1)

Proc ShowDesign

    Paramètres Design&, Target&, X%, Y%, Mode%

    Si Design&

        Début de peinture Target&
        DrawPic Design&, X%, Y%; Mode%
        EndPaint

    D'autre

        MessageBox("Kein BMP geladen!", "Fehler!",64)

    EndIf

ENDPROC

Proc LoadDesign

    OriginalBMP$ = loadfile$("Bitte Bild ou bien HTML-Dossier wählen","c:\css\pictures\*.bmp")

    Si OriginalBMP$ <> »

        OriginalBMp& = Créer(«PCSI», -1, OriginalBMP$)
        OriginalBMPWidth% = %bmpx
        OriginalBMPHeight% = %bmpy
        '------------------------------------------------------------------------------------------------------------
        ' ici volonté qui verschiedenen Styles im Static gesetzt, en supplément s'il te plaît simple den Style% sur 1 - 6 mettons!
        '------------------------------------------------------------------------------------------------------------
        Style% = 1
        Style% = Contribution$( "Style auswählen, une numéro entre 1 et 6 eingeben", "Style", Style%)'3* ou bien 6 wären optique mon Favoriten

        Si (Style% > 0) And (Style% < 7)

            DestroyWindow(StaticFrame&)

            Select Style%

                CaseOf 1

                StaticFrame& = Contrôle("Static", », $5630030f, 8, 8, 984, 704, %hwnd, 2000, %HINSTANCE, $060018)

                CaseOf 2

                StaticFrame& = Contrôle("Static", », $56320b0f, 8, 8, 984, 704, %hwnd, 2000, %HINSTANCE, $070018)

                CaseOf 3

                StaticFrame& = Contrôle("Static", », $54300107, 8, 8, 984, 704, %hwnd, 2000, %HINSTANCE, $020010)

                CaseOf 4

                StaticFrame& = Contrôle("Static", », $56300107, 8, 8, 984, 704, %hwnd, 2000, %HINSTANCE, $018)

                CaseOf 5

                StaticFrame& = Contrôle("Static", », $52b01b0e, 8, 8, 984, 704, %hwnd, 2000, %HINSTANCE, $0)
                OtherWise
                StaticFrame& = Contrôle("Static", », $54b00107, 8, 8, 984, 704, %hwnd, 2000, %HINSTANCE, $010010)

            EndSelect

            'SendMessage()

        D'autre

            MessageBox("Eine numéro entre 1 et 6 eingeben!", "Fehler!",64)

        EndIf

        '------------------------------------------------------------------------------------------------------------

    D'autre

        MessageBox("Design magasin wurde abgebrochen!","Design laden",64)

    EndIf

ENDPROC

Proc CreateElements

    Fenêtre Style 26 | 512 | 2048
    Titre de la fenêtre "Arbeitsfenster"
    Fenêtre 426, 120 - 1009, 782
    Cls GetSysColor(&COLOR_BTNFACE)
    SetDialogFont GetStockObject(&DEFAULT_GUI_FONT)
    StaticFrame& = Contrôle("Static", », $5630030f, 8, 8, 984, 704, %hwnd, 2000, %HINSTANCE, $060018)
    Ende% = Créer("Button", %hwnd, "Ende", 896, 720, 96, 24)
    button2% = Créer("Button", %hwnd, "Bild laden", 8, 720, 96, 24)

ENDPROC

Proc MainLoop

    Utilisateur Messages 16
    ShowWindow(%hwnd, 1)

    Tandis que 1

        GetMessage
        WaitInput
        Cas %umessage = 16 : BREAK

        Si Clicked(Ende%)

            Fin

        ElseIf Clicked(button2%)

            LoadDesign
            Showdesign OriginalBMp&, StaticFrame&, 0, 0, 0

        ElseIf Clicked(StaticFrame&)

            message$ = Hex$(%message)
            mwnd$ = Hex$(%mwnd)
            wParam$ = Hex$(&wparam)
            lParam$ = Hex$(&lparam)
             $D "StaticFrame angeklickt GetMessage", Message$, mwnd$, wParam$, lParam$
            Showdesign OriginalBMp&, StaticFrame&, 0, 0, 0

        EndIf

    Endwhile

ENDPROC

Proc Main

    CreateElements
    MainLoop

ENDPROC

Main
 
11.05.2019  ▲
 




Matthias
Arlt
ici devrait Du fündig volonté: [...] 

Salut Matthias
 
WinXP SP2, Win7 - XProfan 10/11/FreeProfan32 - Xpia
13.05.2019  ▲
 




Rainer
Hoefs
allô Matthias,

dankeschön.

cela muss je seulement la fois sacken laisser.

Habe maintenant beim ersten schnellen Durchlesen pas so wirklich quoi trouvé, quoi je avec meinem Problem assoziieren pourrait.

Könntest Du mir là encore une weiteren Tip donner?

Salut
Rainer
 
13.05.2019  ▲
 




Matthias
Arlt
allô Rainer,

là findest Du arrêt qui komplette API-référence pour cela ScrollBar-Contrôle.
un Handle wird zum Abfragen et Steuern qui ScrollBar pas nécessaire. là qui ScrollBar toujours avec einem anderem Contrôle bzw. la fenêtre assoziiert ist, ist dessen Handle dans liaison avec dem entsprechenden Flag (z.B. SB_HORZ, SB_VERT, SB_BOTH) trop verwenden.

sur qui Schnelle la fois encore un Beispiel zum De/Aktivieren einer ScrollBar:

external("User32","EnableScrollBar",StaticFrame&,~SB_HORZ,~ESB_DISABLE_BOTH)
SB_HORZ = 0 (betrifft qui horizontale ScrollBar)
ESB_DISABLE_BOTH = 3 (deaktiviert beide Pfeiltasten)
ESB_ENABLE_BOTH = 0 (aktiviert beide Pfeiltasten wieder)

Salut Matthias
 
WinXP SP2, Win7 - XProfan 10/11/FreeProfan32 - Xpia
14.05.2019  ▲
 




Rainer
Hoefs
merci Dir,
ensuite doit je là la fois quoi essayer.
Rainer
 
14.05.2019  ▲
 




Georg
Teles
Habe la fois hinbekommen, beiden poutre manuel Werte zuzuweisen ... c'est total compliqué avec GetScrollInfo et SetScrollinfo, mais und dir.

Allerdings sommes mon poutre également deaktiviert, seulement si je qui sur cela Hauptfenster baue, ensuite sommes qui aktiv. Woran cela liegt, je n'en sais rien...

il peut doch avec den mitgelieferten VScroll / HScroll travailler, ici habe je un Beispiel (qui Designs habe je rausgelöscht, là cela Bild oui sur Static ist / pour Umrandung muss on seulement cela Static-Handle anpassen)
KompilierenMarqueSéparation
' Code erzeugt avec F.Abbing's LemonViD Version 1.0.0.3 am 11.05.2019 um 08:35 montre,
' Spenden-Button, sowie weitere Freeware-Tools pour XProfan sur https://frabbing.net
' Technischer Soutien sur ./../../sys/?nohdr=1&u=www.paules-pc-forum.de/forum/XProfan et https://purebasic.fr/german
' --------------------------------------------------------------------------------------------------
Déclarer nurso%, Ende%, button2%, StaticFrame&, OriginalBMP$, OriginalBMp&, OriginalBMPWidth%, OriginalBMPHeight%, \
Style%, Message$, mwnd$, wParam$, lParam$
Def GetStockObject(1) !"GDI32","GetStockObject"
Def GetSysColor(1) !"User32","GetSysColor"
Def GetParent(1) !"User32","GetParent"
Def SendBMP2Static(2) SendMessage(&(1),$172,0,&(2))
Def &COLOR_BTNFACE $F
Def &DEFAULT_GUI_FONT $11
Set("Truecolor", 1)
Set("Autopaint", 1)
' zusätzliche VARs -----------#
DECLARE uStatic&, Static&, hsv&, hsh&
' ----------------------------#

Proc ShowDesign

    Paramètres Design&, Target&, X%, Y%, Mode%

    Si Design&

        'Début de peinture Target&
        'DrawPic Design&, X%, Y%; Mode%
        'EndPaint
        ' BILD à STATIC senden ------#
        SendMessage(target&,$172,0,Design&)

    D'autre

        MessageBox("Kein BMP geladen!", "Fehler!",64)

    EndIf

ENDPROC

Proc LoadDesign

    Paramètres target&
    OriginalBMP$ = loadfile$("Bitte Bild ou bien HTML-Dossier wählen","c:\css\pictures\*.bmp")

    Si OriginalBMP$ <> »

        OriginalBMp& = Créer(«PCSI», -1, OriginalBMP$)
        OriginalBMPWidth% = %bmpx
        OriginalBMPHeight% = %bmpy
        ' BILD à STATIC senden ------#
        SendMessage(target&,$172,0,OriginalBMp&)
        ' SetWindowPos Static& = 0, 0 - OriginalBMPWidth%, OriginalBMPHeight%;0 'pas nötig, là vorangehende Message qui Static& automatisch sur qui Taille anpasst
        SetScrollRange hsh&,0,OriginalBMPWidth%-964
        SetScrollRange hsv&,0,OriginalBMPHeight%-684
        SetScrollPos hsh&,0
        SetScrollPos hsv&,0
        ' ----------------------------#

    D'autre

        MessageBox("Design magasin wurde abgebrochen!","Design laden",64)

    EndIf

ENDPROC

Proc CreateElements

    Fenêtre Style 26 | 512 | 2048
    Titre de la fenêtre "Arbeitsfenster"
    Fenêtre 426, 120 - 1009, 782
    Cls GetSysColor(&COLOR_BTNFACE)
    SetDialogFont GetStockObject(&DEFAULT_GUI_FONT)
    ' zusätzliche FOBKEJTE -------#
    hsh& = Créer("HScroll",%hwnd,»,8,692,964,20)
    hsv& = Créer("VScroll",%hwnd,»,972,8,20,684)
    uStatic& = Contrôle("Static", », $54000000, 8, 8, 964, 684, %hwnd, 2000, %HINSTANCE, $0)' UnterSTATIC
    Static& = Contrôle("Static", », $5400010E, 0, 0, 0, 0, uStatic&, 2000, %HINSTANCE, $0)' eigentliche Static avec Bild
    ' ----------------------------#
    'StaticFrame& = Contrôle("Static", », $5630030f, 8, 8, 984, 704, %hwnd, 2000, %HINSTANCE, $060018)
    Ende% = Créer("Button", %hwnd, "Ende", 896, 720, 96, 24)
    button2% = Créer("Button", %hwnd, "Bild laden", 8, 720, 96, 24)

ENDPROC

Proc MainLoop

    Utilisateur Messages 16
    ShowWindow(%hwnd, 1)

    Tandis que 1

        GetMessage
        WaitInput
        Cas %umessage = 16 : BREAK

        Si Clicked(Ende%)

            Fin

        ElseIf Clicked(button2%)

            LoadDesign(Static&)

        ElseIf Clicked(StaticFrame&)

            '            message$ = Hex$(%message)
            '            mwnd$ = Hex$(%mwnd)
            '            wParam$ = Hex$(& WParam)
            '            lParam$ = Hex$(& LParam)
            '             $D "StaticFrame angeklickt GetMessage", Message$, mwnd$, wParam$, lParam$
            '            Showdesign OriginalBMp&, StaticFrame&, 0, 0, 0

        EndIf

        ' SCROLL reaktionen / Bild scrollen

        Si GetFocus(hsh&)

            SetWindowPos Static& = (-GetScrollPos(hsh&)), (-GetScrollPos(hsv&))

        EndIf

        Si GetFocus(hsv&)

            SetWindowPos Static& = (-GetScrollPos(hsh&)), (-GetScrollPos(hsv&))

        EndIf

    Endwhile

ENDPROC

Proc Main

    CreateElements
    MainLoop

ENDPROC

Main

Grüße
 
TC-Programming [...] 
XProfan 8.0 - 10.0 - X2 - X3 - X4

16.05.2019  ▲
 




Rainer
Hoefs
allô et un großes DANKE!

c'est cela quoi je voulais.

Rainer
 
16.05.2019  ▲
 




Georg
Teles
avec cela es quelque chose liquide fonctionne, ici cela Beispiel avec einer CallBack Funktion
KompilierenMarqueSéparation
 $H Windows.ph
 $H Messages.ph
' Code erzeugt avec F.Abbing's LemonViD Version 1.0.0.3 am 11.05.2019 um 08:35 montre,
' Spenden-Button, sowie weitere Freeware-Tools pour XProfan sur https://frabbing.net
' Technischer Soutien sur ./../../sys/?nohdr=1&u=www.paules-pc-forum.de/forum/XProfan et https://purebasic.fr/german
' --------------------------------------------------------------------------------------------------
Déclarer nurso%, Ende%, button2%, StaticFrame&, OriginalBMP$, OriginalBMp&, OriginalBMPWidth%, OriginalBMPHeight%, \
Style%, Message$, mwnd$, wParam$, lParam$
Def GetStockObject(1) !"GDI32","GetStockObject"
Def GetSysColor(1) !"User32","GetSysColor"
Def GetParent(1) !"User32","GetParent"
Def SendBMP2Static(2) SendMessage(&(1),$172,0,&(2))
Def &COLOR_BTNFACE $F
Def &DEFAULT_GUI_FONT $11
Set("Truecolor", 1)
Set("Autopaint", 1)
' zusätzliche DEFs ---------- #
Def CommDlgExtendedError(0)!"ComDlg32.Dll","CommDlgExtendedError"
Def GetOpenFileName(1)!"ComDlg32.Dll","GetOpenFileNameA"
' erweitertes Handling deakt. #
Set("Fastmode", 1)
' zusätzliche VARs -----------#
DECLARE uStatic&, Static&, hsv&, hsh&, OldWndProc&, Api#
' ----------------------------#

Proc ShowDesign

    Paramètres Design&, Target&, X%, Y%, Mode%

    Si Design&

        'Début de peinture Target&
        'DrawPic Design&, X%, Y%; Mode%
        'EndPaint
        ' BILD à STATIC senden ------#
        SendMessage(target&,$172,0,Design&)

    D'autre

        MessageBox("Kein BMP geladen!", "Fehler!",64)

    EndIf

ENDPROC

Proc LoadDesign

    Paramètres target&
    OriginalBMP$ = loadfile_api("Bitte Bild ou bien HTML-Dossier wählen","Alle Fichiers (*.*)|*.*","c:\css\pictures\*.bmp")'loadfile$("Bitte Bild ou bien HTML-Dossier wählen","c:\css\pictures\*.bmp")

    Si OriginalBMP$ <> »

        OriginalBMp& = Créer(«PCSI», -1, OriginalBMP$)
        OriginalBMPWidth% = %bmpx
        OriginalBMPHeight% = %bmpy
        ' BILD à STATIC senden ------#
        SendMessage(target&,$172,0,OriginalBMp&)
        ' SetWindowPos Static& = 0, 0 - OriginalBMPWidth%, OriginalBMPHeight%;0 'pas nötig, là vorangehende Message qui Static& automatisch sur qui Taille anpasst
        SetScrollRange hsh&,0,OriginalBMPWidth%-964
        SetScrollRange hsv&,0,OriginalBMPHeight%-684
        SetScrollPos hsh&,0
        SetScrollPos hsv&,0
        ' ----------------------------#

    D'autre

        MessageBox("Design magasin wurde abgebrochen!","Design laden",64)

    EndIf

ENDPROC

Proc loadfile_api

    Paramètres tit$,mas$,LW$
    Déclarer i%, Path$, Dossier$
    Faible Api#,8100
    mas$ = Translate$(mas$,"|","\z")+"\z\z"
    Claire Api#,Path$
    Long Api#,0 = 76
    Long Api#,4 = %HWnd
    Long Api#,8 = %hInstance
    Long Api#,12 = Addr(mas$)
    Long Api#,16 = 0
    Long Api#,20 = 0
    Long Api#,24 = 0
    long Api#,28 = Api#+100
    long Api#,32 = 8000
    long Api#,36 = 0
    long Api#,40 = 0
    long Api#,44 = Addr(LW$)
    long Api#,48 = Addr(tit$)
    long Api#,52 = $00081006
    Word Api#,56 = 0
    Word Api#,58 = 0
    Long Api#,60 = 0
    GetOpenFileName(Api#)

    Si CommDlgExtendedError()

        Err$ = Si(CommDlgExtendedError() = $3003,"Sie avons trop viele Einträge ausgewählt !",Format $("'Fehlernummer : '###",CommDlgExtendedError()))
        Messagebox(Err$,"Hinweis",48)

    D'autre

        i% = Long(Api#,56)-1
        Dossier$ = String$(Api#,100)
        return Dossier$

    EndIf

    DisPose Api#

ENDPROC

Proc CreateElements

    Fenêtre Style 26 | 512 | 2048
    Titre de la fenêtre "Arbeitsfenster"
    Fenêtre 426, 120 - 1009, 782
    Cls GetSysColor(&COLOR_BTNFACE)
    SetDialogFont GetStockObject(&DEFAULT_GUI_FONT)
    ' zusätzliche FOBKEJTE -------#
    hsh& = Créer("HScroll",%hwnd,»,8,692,964,20)
    hsv& = Créer("VScroll",%hwnd,»,972,8,20,684)
    uStatic& = Contrôle("Static", », $54000000, 8, 8, 964, 684, %hwnd, 2000, %HINSTANCE, $0)' UnterSTATIC
    Static& = Contrôle("Static", », $5400010E, 0, 0, 0, 0, uStatic&, 2000, %HINSTANCE, $0)' eigentliche Static avec Bild
    ' ----------------------------#
    'StaticFrame& = Contrôle("Static", », $5630030f, 8, 8, 984, 704, %hwnd, 2000, %HINSTANCE, $060018)
    Ende% = Créer("Button", %hwnd, "Ende", 896, 720, 96, 24)
    button2% = Créer("Button", %hwnd, "Bild laden", 8, 720, 96, 24)

ENDPROC

Proc MainLoop

    Utilisateur Messages 16
    ShowWindow(%hwnd, 1)
    OldWndProc& = ~GetWindowLong(%hWnd, ~GWL_WNDPROC)
    ~SetWindowLong(%hWnd, ~GWL_WNDPROC, @ProcAddr("ChangeControl", 4))

    Tandis que 1

        WaitInput
        Cas %umessage = 16 : BREAK

        Si Clicked(Ende%)

            Fin

        ElseIf Clicked(button2%)

            LoadDesign(Static&)

        ElseIf Clicked(StaticFrame&)

            '            message$ = Hex$(%message)
            '            mwnd$ = Hex$(%mwnd)
            '            wParam$ = Hex$(& WParam)
            '            lParam$ = Hex$(& LParam)
            '             $D "StaticFrame angeklickt GetMessage", Message$, mwnd$, wParam$, lParam$
            '            Showdesign OriginalBMp&, StaticFrame&, 0, 0, 0

        EndIf

    Endwhile

    ~SetWindowLong(%hWnd, ~GWL_WNDPROC, OldWndProc&)

ENDPROC

Proc ChangeControl

    Paramètres hWnd&, Message&, wParam&, lParam&
    ' SCROLL reaktionen / Bild scrollen

    Si GetFocus(hsh&)

        SetWindowPos Static& = (-GetScrollPos(hsh&)), (-GetScrollPos(hsv&))

    EndIf

    Si GetFocus(hsv&)

        SetWindowPos Static& = (-GetScrollPos(hsh&)), (-GetScrollPos(hsv&))

    EndIf

    Retour ~CallWindowProc(OldWndProc&, hWnd&, Message&, wParam&, lParam&)

ENDPROC

Proc Main

    CreateElements
    MainLoop

ENDPROC

Main

Grüße Georg
 
XProfan X2
TC-Programming [...] 
XProfan 8.0 - 10.0 - X2 - X3 - X4

19.05.2019  ▲
 




p.specht

Profan 11.2a free: Graues Bild, aucun Buttons.
s'il te plaît um Hinweis, quoi là trop changement ist ...
Gruss
 
XProfan 11
Computer: Gerät, daß es in Mikrosekunden erlaubt, 50.000 Fehler zu machen, zB 'daß' statt 'das'...
20.05.2019  ▲
 




Georg
Teles
j'ai XProfan 11 Free probiert, chez mir funktioniert es - qui 2. Code naturellement pas, là dans 11 free qui Funktion ProcAddr pas gibt.



Versuche la fois cet la ligne dans qui Procédure LoadDesign trop aktivieren, eventuell peux es aider
KompilierenMarqueSéparation
' SetWindowPos Static& = 0, 0 - OriginalBMPWidth%, OriginalBMPHeight%;0 'pas nötig, là vorangehende Message qui Static& automatisch sur qui Taille anpasst

Grüße
 
TC-Programming [...] 
XProfan 8.0 - 10.0 - X2 - X3 - X4

20.05.2019  ▲
 




p.specht

cela seul ist es pas. Muss wohl den Code seulement la fois genauer étudier...
 
XProfan 11
Computer: Gerät, daß es in Mikrosekunden erlaubt, 50.000 Fehler zu machen, zB 'daß' statt 'das'...
20.05.2019  ▲
 




Georg
Teles
là wär encore une Alternative, Franks Area  [...] 

si un nouveau Bild geladen wird, wird qui Box mittels DestroyWindow entfernt, um vous avec qui neuen Breite / Hauteur trop erzeugen - on devrait qui Taille aussi so changement peut, hab justement seulement aucun Zeit
KompilierenMarqueSéparation
' Code erzeugt avec F.Abbing's LemonViD Version 1.0.0.3 am 11.05.2019 um 08:35 montre,
' Spenden-Button, sowie weitere Freeware-Tools pour XProfan sur https://frabbing.net
' Technischer Soutien sur ./../../sys/?nohdr=1&u=www.paules-pc-forum.de/forum/XProfan et https://purebasic.fr/german
' --------------------------------------------------------------------------------------------------
Déclarer nurso%, Ende%, button2%, StaticFrame&, OriginalBMP$, OriginalBMp&, OriginalBMPWidth%, OriginalBMPHeight%, \
Style%, Message$, mwnd$, wParam$, lParam$
Def GetStockObject(1) !"GDI32","GetStockObject"
Def GetSysColor(1) !"User32","GetSysColor"
Def GetParent(1) !"User32","GetParent"
Def SendBMP2Static(2) SendMessage(&(1),$172,0,&(2))
Def &COLOR_BTNFACE $F
Def &DEFAULT_GUI_FONT $11
Set("Truecolor", 1)
Set("Autopaint", 1)
 $I an_area.inc = FA_

SubClassProc

    FA_SubclassArea

ENDPROC

' zusätzliche VARs -----------#
DECLARE uStatic&, Static&, hsv&, hsh&
' ----------------------------#

Proc LoadDesign

    Paramètres target&
    OriginalBMP$ = loadfile$("Bitte Bild ou bien HTML-Dossier wählen","c:\css\pictures\*.bmp")

    Si OriginalBMP$ <> »

        OriginalBMp& = Créer(«PCSI», -1, OriginalBMP$)
        OriginalBMPWidth% = %bmpx
        OriginalBMPHeight% = %bmpy
        ' BILD à STATIC senden ------#
        SubClass uStatic&, 0
        DestroyWindow(uStatic&)
        uStatic& = FA_CreateArea(OriginalBMPWidth%+17,OriginalBMPHeight%+17,$0,$50300000,8,8,990,690,%hwnd)
        SubClass uStatic&, 1
        Static& = Contrôle("Static", », $5400010E, 0, 0, 0, 0, uStatic&, 2000, %HINSTANCE, $0)' eigentliche Static avec Bild
        SendMessage(Static&,$172,0,OriginalBMp&)
        ' ----------------------------#

    D'autre

        MessageBox("Design magasin wurde abgebrochen!","Design laden",64)

    EndIf

ENDPROC

Proc CreateElements

    Fenêtre Style 26 | 512 | 2048
    'Titre de la fenêtre "Arbeitsfenster"
    Fenêtre 426, 120 - 1009, 782
    Cls GetSysColor(&COLOR_BTNFACE)
    SetDialogFont GetStockObject(&DEFAULT_GUI_FONT)
    ' zusätzliche FOBKEJTE -------#
    uStatic& = FA_CreateArea(3200,1247,$0,$50300000,8,8,990,690,%hwnd)
    SubClass uStatic&, 1
    Static& = Contrôle("Static", », $5400010E, 0, 0, 0, 0, uStatic&, 2000, %HINSTANCE, $0)' eigentliche Static avec Bild
    ' ----------------------------#
    Ende% = Créer("Button", %hwnd, "Ende", 896, 720, 96, 24)
    button2% = Créer("Button", %hwnd, "Bild laden", 8, 720, 96, 24)

ENDPROC

Proc MainLoop

    Utilisateur Messages 16
    ShowWindow(%hwnd, 1)

    Tandis que 1

        GetMessage
        WaitInput
        Cas %umessage = 16 : BREAK

        Si Clicked(Ende%)

            Fin

        ElseIf Clicked(button2%)

            LoadDesign(Static&)

        ElseIf Clicked(StaticFrame&)

            '            message$ = Hex$(%message)
            '            mwnd$ = Hex$(%mwnd)
            '            wParam$ = Hex$(& WParam)
            '            lParam$ = Hex$(& LParam)
            '             $D "StaticFrame angeklickt GetMessage", Message$, mwnd$, wParam$, lParam$
            '            Showdesign OriginalBMp&, StaticFrame&, 0, 0, 0

        EndIf

        ' SCROLL reaktionen / Bild scrollen

        Si GetFocus(hsh&)

            SetWindowPos Static& = (-GetScrollPos(hsh&)), (-GetScrollPos(hsv&))

        EndIf

        Si GetFocus(hsv&)

            SetWindowPos Static& = (-GetScrollPos(hsh&)), (-GetScrollPos(hsv&))

        EndIf

    Endwhile

    SubClass uStatic&, 0

ENDPROC

Proc Main

    CreateElements
    MainLoop

ENDPROC

Main

qui Inc habe je la fois beigelegt

Grüße Georg

6 kB
Hochgeladen:30.05.2019
Downloadcounter: 84
Download
 
TC-Programming [...] 
XProfan 8.0 - 10.0 - X2 - X3 - X4

30.05.2019  ▲
 



répondre


Topictitle, max. 100 marque.
 

Systemprofile:

ne...aucune Systemprofil angelegt. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

s'il te plaît s'inscrire um une Beitrag trop verfassen.
 

Options du sujet

Unreaded
abonner
La liste de voeux
Notes
guests
Effacer
Permanent
Done

5.711 Views

Untitledvor 0 min.
Normann Strübli08.02.2023
H.Brill09.01.2022
N.Art18.11.2020
iF31.10.2020
plus...

Themeninformationen

cet Thema hat 4 participant:

Georg Teles (4x)
Rainer Hoefs (4x)
p.specht (2x)
Matthias Arlt (2x)


Admins  |  AGB  |  Applications  |  Auteurs  |  Chat  |  protection des données  |  Télécharger  |  Entrance  |  Aider  |  Merchantportal  |  Empreinte  |  Mart  |  Interfaces  |  SDK  |  Services  |  Jeux  |  cherche  |  Support

un projet aller XProfaner, qui il y a!


Mon XProfan
Privé Nouvelles
Eigenes Ablageforum
Sujets-La liste de voeux
Eigene Posts
Eigene Sujets
Zwischenablage
Annuler
 Deutsch English Français Español Italia
Traductions

protection des données


Wir verwenden Cookies seulement comme Session-Cookies à cause de qui technischen Notwendigkeit et chez uns gibt es aucun Cookies de Drittanbietern.

si du ici sur unsere Webseite klickst ou bien navigierst, stimmst du unserer Erfassung de Informationen dans unseren Cookies sur XProfan.Net trop.

Weitere Informationen trop unseren Cookies et en supplément, comment du qui Kontrolle par-dessus behältst, findest du dans unserer nachfolgenden Datenschutzerklärung.

d'accordDatenschutzerklärung
je voudrais keinen Cookie