XProfan

Español

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

Kompilieren Marca Separació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 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Matthias
Arlt

Hier solltest Usted fündig voluntad: [...]

Saludo Matthias

WinXP SP2, Win7 - XProfan 10/11/FreeProfan32 - Xpia

13.05.2019 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

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

XProfan X2

13.05.2019 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

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 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Rainer
Hoefs

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

XProfan X2

14.05.2019 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

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)

Kompilieren Marca Separació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 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Rainer
Hoefs

¡Hola y una großes DANKE!

Es el Yo quería.

Rainer

XProfan X2

16.05.2019 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Georg
Teles

Damit hay algo flüssiger se ejecuta, hier el Ejemplo con uno CallBack Función

Kompilieren Marca Separació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 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

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 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

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

Kompilieren Marca Separació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 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

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 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

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

Kompilieren Marca Separació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