(2.092)  Registro

Español
Foro

Static con Scrollbalken

 

Rainer
Hoefs
¡Hola zusammen,
Yo necesidad veces otra vez Ayuda.

Yo habe una Static erstellt, welches una vertikalen y horizontalen Scrollbalken ha. Darin se una BMP-Grafik gezeigt voluntad. Ist esta en un oder beide Richtungen größer, se ellos mittels el Scrollbalken movido voluntad puede.

Nun Yo folgende Problemas.

¿Cómo se puede Yo después de el Laden des Bildes...
1. el benötigten Scrollbalken aktivieren oder deaktivieren Hor / Ver / Hor+Ver?
2. el Scrollrange einstellen?
3. el Slider en el Größe einstellen?
4. el beiden Scrollbalken abfangen en darauf a reagieren?
5. überhaupt el Handles el drei Elemente (Static, hScroll y vScroll) determinar en Messages dorthin a senden oder ellos abzufangen?

Tuve ya una vez en irgendeiner Webseite Messages y Descripción gesehen, weiß pero no mehr wo. Und seit Tagen búsqueda Yo danach erfolglos en el Netz.

Hier el Source uno Testprogrammes.

Für Eure Ayuda schonmal una Dankeschön en el Voraus.

Rainer
KompilierenMarcaSeparación
' Code producido con F.Abbing's LemonViD Versión 1.0.0.3 al 11.05.2019 en 08:35 Uhr,
' Spenden-Button, sowie weitere Freeware-Tools para XProfan en https://frabbing.net
' Technischer Apoyo en ./../../sys/?nohdr=1&u=www.paules-pc-forum.de/forum/XProfan y https://purebasic.fr/german
' --------------------------------------------------------------------------------------------------
Declarar 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
Conjunto("Truecolor", 1)
Conjunto("Autopaint", 1)

Proc ShowDesign

    Parámetros Design&, Target&, X%, Y%, Mode%

    If Design&

        StartPaint Target&
        DrawPic Design&, X%, Y%; Mode%
        EndPaint

    Más

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

    EndIf

ENDPROC

Proc LoadDesign

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

    If OriginalBMP$ <> ""

        OriginalBMp& = Crear("HPIC", -1, OriginalBMP$)
        OriginalBMPWidth% = %bmpx
        OriginalBMPHeight% = %bmpy
        '------------------------------------------------------------------------------------------------------------
        ' Hier voluntad el verschiedenen Styles en el Static gesetzt, dazu Por favor, simplemente el Style% en 1 - 6 conjunto!
        '------------------------------------------------------------------------------------------------------------
        Style% = 1
        Style% = Entrada$( "Style auswählen, una Zahl zwischen 1 y 6 eingeben", "Style", Style%)'3* oder 6 wären optisch mi Favoriten

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

            DestroyWindow(StaticFrame&)

            Select Style%

                CaseOf 1

                StaticFrame& = Control("Static", "", $5630030f, 8, 8, 984, 704, %hwnd, 2000, %hInstance, $060018)

                CaseOf 2

                StaticFrame& = Control("Static", "", $56320b0f, 8, 8, 984, 704, %hwnd, 2000, %hInstance, $070018)

                CaseOf 3

                StaticFrame& = Control("Static", "", $54300107, 8, 8, 984, 704, %hwnd, 2000, %hInstance, $020010)

                CaseOf 4

                StaticFrame& = Control("Static", "", $56300107, 8, 8, 984, 704, %hwnd, 2000, %hInstance, $018)

                CaseOf 5

                StaticFrame& = Control("Static", "", $52b01b0e, 8, 8, 984, 704, %hwnd, 2000, %hInstance, $0)
                OtherWise
                StaticFrame& = Control("Static", "", $54b00107, 8, 8, 984, 704, %hwnd, 2000, %hInstance, $010010)

            EndSelect

            'SendMessage()

        Más

            MessageBox("Eine Zahl zwischen 1 y 6 eingeben!", "Fehler!",64)

        EndIf

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

    Más

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

    EndIf

ENDPROC

Proc CreateElements

    Ventana de Estilo 26 | 512 | 2048
    Título de la ventana "Arbeitsfenster"
    Ventana 426, 120 - 1009, 782
    Cls GetSysColor(&COLOR_BTNFACE)
    SetDialogFont GetStockObject(&DEFAULT_GUI_FONT)
    StaticFrame& = Control("Static", "", $5630030f, 8, 8, 984, 704, %hwnd, 2000, %hInstance, $060018)
    Ende% = Crear("Button", %hwnd, "Ende", 896, 720, 96, 24)
    button2% = Crear("Button", %hwnd, "Bild laden", 8, 720, 96, 24)

ENDPROC

Proc MainLoop

    Mensajes del usuario 16
    ShowWindow(%hwnd, 1)

    Mientras que 1

        GetMessage
        WaitInput
        Case %umessage = 16 : BREAK

        If Clicked(Ende%)

            End

        ElseIf Clicked(button2%)

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

        ElseIf Clicked(StaticFrame&)

            mensaje$ = Hex$(%mensaje)
            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
Hier solltest Usted fündig voluntad: [...] 

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




Rainer
Hoefs
¡Hola Matthias,

dankeschön.

Das muss Yo sólo veces sacken dejar.

Posesiones ahora beim ersten schnellen Durchlesen no así wirklich qué gefunden, Yo con mi Problema assoziieren podría.

Könntest Usted me como todavía una más Tip geben?

Saludo
Rainer
 
13.05.2019  ▲
 




Matthias
Arlt
¡Hola Rainer,

hay findest Usted sólo el komplette API-Referenz para el ScrollBar-Control.
Ein Handle se para Abfragen y Steuern el ScrollBar no benötigt. Como el ScrollBar siempre con un anderem Control o. Ventana assoziiert es, es dessen Handle en Verbindung con el entsprechenden Flag (z.B. SB_HORZ, SB_VERT, SB_BOTH) utilizarse.

Auf el Schnelle veces todavía una Ejemplo para De/Aktivieren uno ScrollBar:

external("USER32","EnableScrollBar",StaticFrame&,~SB_HORZ,~ESB_DISABLE_BOTH)
SB_HORZ = 0 (betrifft el horizontale ScrollBar)
ESB_DISABLE_BOTH = 3 (deaktiviert beide Pfeiltasten)
ESB_ENABLE_BOTH = 0 (aktiviert beide Pfeiltasten otra vez)

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




Rainer
Hoefs
Gracias Usted,
entonces muß Yo como algo probieren.
Rainer
 
14.05.2019  ▲
 




Georg
Teles
Posesiones veces hinbekommen, beiden Balken manuell Werte zuzuweisen ... el es total umständlich con GetScrollInfo y SetScrollinfo, pero va.

Aunque son mi Balken ebenfalls deaktiviert, sólo si yo el el Ventana principal baue, entonces son el aktiv. Woran el liegt, ni idea...

Se puede doch con el mitgelieferten VScroll / HScroll trabajo, hier Yo una Ejemplo (el Designs Yo rausgelöscht, como el Bild sí en Static es / para Umrandung muss uno sólo el Static-Handle adaptar)
KompilierenMarcaSeparación
' Code producido con F.Abbing's LemonViD Versión 1.0.0.3 al 11.05.2019 en 08:35 Uhr,
' Spenden-Button, sowie weitere Freeware-Tools para XProfan en https://frabbing.net
' Technischer Apoyo en ./../../sys/?nohdr=1&u=www.paules-pc-forum.de/forum/XProfan y https://purebasic.fr/german
' --------------------------------------------------------------------------------------------------
Declarar 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
Conjunto("Truecolor", 1)
Conjunto("Autopaint", 1)
' zusätzliche VARs -----------#
DECLARE uStatic&, Static&, hsv&, hsh&
' ----------------------------#

Proc ShowDesign

    Parámetros Design&, Target&, X%, Y%, Mode%

    If Design&

        'StartPaint Target&
        'DrawPic Design&, X%, Y%; Mode%
        'EndPaint
        ' BILD a STATIC senden ------#
        SendMessage(target&,$172,0,Design&)

    Más

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

    EndIf

ENDPROC

Proc LoadDesign

    Parámetros target&
    OriginalBMP$ = loadfile$("Bitte Bild oder HTML-Expediente wählen","c:\css\pictures\*.bmp")

    If OriginalBMP$ <> ""

        OriginalBMp& = Crear("HPIC", -1, OriginalBMP$)
        OriginalBMPWidth% = %bmpx
        OriginalBMPHeight% = %bmpy
        ' BILD a STATIC senden ------#
        SendMessage(target&,$172,0,OriginalBMp&)
        ' SetWindowPos Static& = 0, 0 - OriginalBMPWidth%, OriginalBMPHeight%;0 'no nötig, como vorangehende Message el Static& automáticamente en el Größe anpasst
        SetScrollRange hsh&,0,OriginalBMPWidth%-964
        SetScrollRange hsv&,0,OriginalBMPHeight%-684
        SetScrollPos hsh&,0
        SetScrollPos hsv&,0
        ' ----------------------------#

    Más

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

    EndIf

ENDPROC

Proc CreateElements

    Ventana de Estilo 26 | 512 | 2048
    Título de la ventana "Arbeitsfenster"
    Ventana 426, 120 - 1009, 782
    Cls GetSysColor(&COLOR_BTNFACE)
    SetDialogFont GetStockObject(&DEFAULT_GUI_FONT)
    ' zusätzliche FOBKEJTE -------#
    hsh& = Crear("HScroll",%hwnd,"",8,692,964,20)
    hsv& = Crear("VScroll",%hwnd,"",972,8,20,684)
    uStatic& = Control("Static", "", $54000000, 8, 8, 964, 684, %hwnd, 2000, %hInstance, $0)' UnterSTATIC
    Static& = Control("Static", "", $5400010E, 0, 0, 0, 0, uStatic&, 2000, %hInstance, $0)' eigentliche Static con Bild
    ' ----------------------------#
    'StaticFrame& = Control("Static", "", $5630030f, 8, 8, 984, 704, %hwnd, 2000, %hInstance, $060018)
    Ende% = Crear("Button", %hwnd, "Ende", 896, 720, 96, 24)
    button2% = Crear("Button", %hwnd, "Bild laden", 8, 720, 96, 24)

ENDPROC

Proc MainLoop

    Mensajes del usuario 16
    ShowWindow(%hwnd, 1)

    Mientras que 1

        GetMessage
        WaitInput
        Case %umessage = 16 : BREAK

        If Clicked(Ende%)

            End

        ElseIf Clicked(button2%)

            LoadDesign(Static&)

        ElseIf Clicked(StaticFrame&)

            '            mensaje$ = Hex$(%mensaje)
            '            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

        If GetFocus(hsh&)

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

        EndIf

        If 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
¡Hola y una großes DANKE!

Es el Yo quería.

Rainer
 
16.05.2019  ▲
 




Georg
Teles
Damit hay algo flüssiger se ejecuta, hier el Ejemplo con uno CallBack Función
KompilierenMarcaSeparación
 $H Windows.ph
 $H Messages.ph
' Code producido con F.Abbing's LemonViD Versión 1.0.0.3 al 11.05.2019 en 08:35 Uhr,
' Spenden-Button, sowie weitere Freeware-Tools para XProfan en https://frabbing.net
' Technischer Apoyo en ./../../sys/?nohdr=1&u=www.paules-pc-forum.de/forum/XProfan y https://purebasic.fr/german
' --------------------------------------------------------------------------------------------------
Declarar 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
Conjunto("Truecolor", 1)
Conjunto("Autopaint", 1)
' zusätzliche DEFs ---------- #
Def CommDlgExtendedError(0)!"ComDlg32.Dll","CommDlgExtendedError"
Def GetOpenFileName(1)!"ComDlg32.Dll","GetOpenFileNameA"
' erweitertes Handling deakt. #
Conjunto("FastMode", 1)
' zusätzliche VARs -----------#
DECLARE uStatic&, Static&, hsv&, hsh&, OldWndProc&, Api#
' ----------------------------#

Proc ShowDesign

    Parámetros Design&, Target&, X%, Y%, Mode%

    If Design&

        'StartPaint Target&
        'DrawPic Design&, X%, Y%; Mode%
        'EndPaint
        ' BILD a STATIC senden ------#
        SendMessage(target&,$172,0,Design&)

    Más

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

    EndIf

ENDPROC

Proc LoadDesign

    Parámetros target&
    OriginalBMP$ = loadfile_api("Bitte Bild oder HTML-Expediente wählen","Alle Archivos (*.*)|*.*","c:\css\pictures\*.bmp")'loadfile$("Bitte Bild oder HTML-Expediente wählen","c:\css\pictures\*.bmp")

    If OriginalBMP$ <> ""

        OriginalBMp& = Crear("HPIC", -1, OriginalBMP$)
        OriginalBMPWidth% = %bmpx
        OriginalBMPHeight% = %bmpy
        ' BILD a STATIC senden ------#
        SendMessage(target&,$172,0,OriginalBMp&)
        ' SetWindowPos Static& = 0, 0 - OriginalBMPWidth%, OriginalBMPHeight%;0 'no nötig, como vorangehende Message el Static& automáticamente en el Größe anpasst
        SetScrollRange hsh&,0,OriginalBMPWidth%-964
        SetScrollRange hsv&,0,OriginalBMPHeight%-684
        SetScrollPos hsh&,0
        SetScrollPos hsv&,0
        ' ----------------------------#

    Más

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

    EndIf

ENDPROC

Proc loadfile_api

    Parámetros tit$,mas$,LW$
    Declarar i%, Path$, Expediente$
    Dim Api#,8100
    mas$ = Translate$(mas$,"|","\z")+"\z\z"
    Claro Api#,Path$
    Largo Api#,0 = 76
    Largo Api#,4 = %HWnd
    Largo Api#,8 = %hInstance
    Largo Api#,12 = Addr(mas$)
    Largo Api#,16 = 0
    Largo Api#,20 = 0
    Largo 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
    Largo Api#,60 = 0
    GetOpenFileName(Api#)

    If CommDlgExtendedError()

        Err$ = If(CommDlgExtendedError() = $3003,"Sie haben a viele Einträge ausgewählt !",Formato$("'Fehlernummer : '###",CommDlgExtendedError()))
        Messagebox(Err$,"Hinweis",48)

    Más

        i% = Largo(Api#,56)-1
        Expediente$ = String$(Api#,100)
        volver Expediente$

    EndIf

    DisPose Api#

ENDPROC

Proc CreateElements

    Ventana de Estilo 26 | 512 | 2048
    Título de la ventana "Arbeitsfenster"
    Ventana 426, 120 - 1009, 782
    Cls GetSysColor(&COLOR_BTNFACE)
    SetDialogFont GetStockObject(&DEFAULT_GUI_FONT)
    ' zusätzliche FOBKEJTE -------#
    hsh& = Crear("HScroll",%hwnd,"",8,692,964,20)
    hsv& = Crear("VScroll",%hwnd,"",972,8,20,684)
    uStatic& = Control("Static", "", $54000000, 8, 8, 964, 684, %hwnd, 2000, %hInstance, $0)' UnterSTATIC
    Static& = Control("Static", "", $5400010E, 0, 0, 0, 0, uStatic&, 2000, %hInstance, $0)' eigentliche Static con Bild
    ' ----------------------------#
    'StaticFrame& = Control("Static", "", $5630030f, 8, 8, 984, 704, %hwnd, 2000, %hInstance, $060018)
    Ende% = Crear("Button", %hwnd, "Ende", 896, 720, 96, 24)
    button2% = Crear("Button", %hwnd, "Bild laden", 8, 720, 96, 24)

ENDPROC

Proc MainLoop

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

    Mientras que 1

        WaitInput
        Case %umessage = 16 : BREAK

        If Clicked(Ende%)

            End

        ElseIf Clicked(button2%)

            LoadDesign(Static&)

        ElseIf Clicked(StaticFrame&)

            '            mensaje$ = Hex$(%mensaje)
            '            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

    Parámetros hWnd&, Message&, wParam&, lParam&
    ' SCROLL reaktionen / Bild scrollen

    If GetFocus(hsh&)

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

    EndIf

    If GetFocus(hsv&)

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

    EndIf

    Volver ~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

Profano 11.2a free: Graues Bild, no Buttons.
Bitte en Referencia, qué como a ändern es ...
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
Yo habe XProfan 11 Libre probiert, en me funktioniert lo - el 2. Code natürlich no, como en 11 free el Función ProcAddr no son.



Versuche veces esta Línea en el Procedimiento LoadDesign a aktivieren, eventuell kann lo helfen
KompilierenMarcaSeparación
' SetWindowPos Static& = 0, 0 - OriginalBMPWidth%, OriginalBMPHeight%;0 'no nötig, como vorangehende Message el Static& automáticamente en el Größe anpasst

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

20.05.2019  ▲
 




p.specht

Das allein es no. Muss wohl el código sólo veces genauer studieren...
 
XProfan 11
Computer: Gerät, daß es in Mikrosekunden erlaubt, 50.000 Fehler zu machen, zB 'daß' statt 'das'...
20.05.2019  ▲
 




Georg
Teles
Como wär ni Alternative, Franks Area  [...] 

Wenn una neues Bild geladen se, se el Box mittels DestroyWindow lejos, en ellos con el neuen Breite / Höhe a erzeugen - uno debería el Größe auch así ändern puede, tener gerade sólo no Tiempo
KompilierenMarcaSeparación
' Code producido con F.Abbing's LemonViD Versión 1.0.0.3 al 11.05.2019 en 08:35 Uhr,
' Spenden-Button, sowie weitere Freeware-Tools para XProfan en https://frabbing.net
' Technischer Apoyo en ./../../sys/?nohdr=1&u=www.paules-pc-forum.de/forum/XProfan y https://purebasic.fr/german
' --------------------------------------------------------------------------------------------------
Declarar 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
Conjunto("Truecolor", 1)
Conjunto("Autopaint", 1)
 $I an_area.inc = FA_

SubClassProc

    FA_SubclassArea

ENDPROC

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

Proc LoadDesign

    Parámetros target&
    OriginalBMP$ = loadfile$("Bitte Bild oder HTML-Expediente wählen","c:\css\pictures\*.bmp")

    If OriginalBMP$ <> ""

        OriginalBMp& = Crear("HPIC", -1, OriginalBMP$)
        OriginalBMPWidth% = %bmpx
        OriginalBMPHeight% = %bmpy
        ' BILD a 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& = Control("Static", "", $5400010E, 0, 0, 0, 0, uStatic&, 2000, %hInstance, $0)' eigentliche Static con Bild
        SendMessage(Static&,$172,0,OriginalBMp&)
        ' ----------------------------#

    Más

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

    EndIf

ENDPROC

Proc CreateElements

    Ventana de Estilo 26 | 512 | 2048
    'Título de la ventana "Arbeitsfenster"
    Ventana 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& = Control("Static", "", $5400010E, 0, 0, 0, 0, uStatic&, 2000, %hInstance, $0)' eigentliche Static con Bild
    ' ----------------------------#
    Ende% = Crear("Button", %hwnd, "Ende", 896, 720, 96, 24)
    button2% = Crear("Button", %hwnd, "Bild laden", 8, 720, 96, 24)

ENDPROC

Proc MainLoop

    Mensajes del usuario 16
    ShowWindow(%hwnd, 1)

    Mientras que 1

        GetMessage
        WaitInput
        Case %umessage = 16 : BREAK

        If Clicked(Ende%)

            End

        ElseIf Clicked(button2%)

            LoadDesign(Static&)

        ElseIf Clicked(StaticFrame&)

            '            mensaje$ = Hex$(%mensaje)
            '            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

        If GetFocus(hsh&)

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

        EndIf

        If GetFocus(hsv&)

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

        EndIf

    EndWhile

    SubClass uStatic&, 0

ENDPROC

Proc Main

    CreateElements
    MainLoop

ENDPROC

Main

El Inc Yo veces beigelegt

Grüße Georg

6 kB
Hochgeladen:30.05.2019
Ladeanzahl: 113
Descargar
 
TC-Programming [...] 
XProfan 8.0 - 10.0 - X2 - X3 - X4

30.05.2019  ▲
 



Respuesta


Título del Tema, max. 100 Signo.
 

Systemprofile:

Kein Systemprofil creado. [anlegen]

XProfan:

 Contribución  Font  Smilies  ▼ 

Bitte registro en una Contribución a verfassen.
 

Tema opciones

Unreaded
subscribe
Remember-List
Notes
guests
Delete
Constantemente
Hecho

6.740 Views

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

Themeninformationen

Dieses Thema ha 4 subscriber:

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


Admins  |  AGB  |  Applications  |  Autores  |  Chat  |  Política de Privacidad  |  Descargar  |  Entrance  |  Ayuda  |  Merchantportal  |  Pie de imprenta  |  Mart  |  Interfaces  |  SDK  |  Services  |  Juegos  |  Búsqueda  |  Support

Ein Projekt aller XProfan, el lo son!


Mi XProfan
Privado Noticias
Eigenes Ablageforum
Temas-Merkliste
Eigene Beiträge
Eigene Temas
Zwischenablage
Cancelar
 Deutsch English Français Español Italia
Traducciones

Política de Privacidad


Wir uso Cookies sólo como Session-Cookies wegen el technischen Notwendigkeit y en uns hay no Cookies de Drittanbietern.

Wenn du hier en unsere Webseite klickst oder navigierst, stimmst du unserer Erfassung de Informationen en unseren Cookies en XProfan.Net a.

Weitere Informationen a unseren Cookies y dazu, como du el Kontrolle darüber behältst, findest du en unserer nachfolgenden Datenschutzerklärung.

einverstandenDatenschutzerklärung
Yo möchte no Cookie