Italia
Fonte/ Codesnippets

Anzeige Bitmaps Farbiger Scrollbalken

 

KompilierenMarkierenSeparieren
Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Scrollbalken mit farbiger Anzeige (Bitmaps)
 $P+
SetErrorLevel 0
********************** HINWEISE ********************************
CODE ERZEUGT MIT ROKOS OBJECT CREATOR 3.5c
DATUM  23.08.2003    um  19:28 Uhr
VERWENDETE PROFANVERSION IST KLEINER ALS 7.0
Def GetSysColor(1) !USER32,GetSysColor
SETTRUECOLOR 1
DECLARE ENDE%,gy%,La%,by%
DECLARE BUTTON1&
DECLARE BUTTON2&
let la%=1
let gy%=@sub(114,la%)
Let by%=@sub(113,la%)
WindowStyle $218
WINDOWTITLE Farbige Anzeige
WINDOW SUB(DIV(%MAXX,2),DIV(112,2)),SUB(DIV(%MAXY,2),DIV(198,2))-112,198
CLS GETSYSCOLOR(15)
LET BUTTON1& =@CREATEBUTTON(%HWND,+,0040,0022,0025,0025)
LET BUTTON2& =@CREATEBUTTON(%HWND,-,0040,0122,0025,0025)
LOADSIZEDBMP BLACK2.BMP,48,54-8,60;0
LOADSIZEDBMP GELB2.BMP,48,gy%-8,la%;0

WHILENOT ENDE%

    WAITINPUT

    If @EQU(%KEY,2)

        LET ENDE%= 1

    ELSEIF @EQU(%KEY,4)

    ELSEIF @GETFOCUS(BUTTON1&) BUTTON

        If gt(gy%,54)

            let gy%=@sub(gy%,la%)
            let by%=@sub(gy%,la%)

        endif

        case lt(gy%,54):let gy%=54
        LOADSIZEDBMP GELB2.BMP,48,gy%-8,LA%;0

    ELSEIF @GETFOCUS(BUTTON2&) BUTTON

        If lt(by%,112)

            let by%=add(by%,la%)
            let gy%=@add(by%,la%)

        endif

        case gt(by%,@sub(114,la%)):let by%=@sub(114,la%)
        case gt (gy%,@sub(114,la%)):let gy%=@sub(114,la%)

    endif

    LOADSIZEDBMP BLACK.BMP,48,by%-8,la%;0

ENDIF

4 href='./../../function-references/xprofan/wend/'>WEND

 
16.07.2007  
 



Zum Quelltext


Topictitle, max. 100 characters.
 

Systemprofile:

Kein Systemprofil angelegt. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

Bitte anmelden um einen Beitrag zu verfassen.
 

Topic-Options

2.862 Views

Untitledvor 0 min.
Frank16.04.2021
Jörg Sellmeyer04.06.2020
Rainer Hoefs15.05.2019
Langer09.04.2017
Di più...

Themeninformationen

Dieses Thema hat 1 subscriber:

unbekannt (1x)


Admins  |  AGB  |  Applications  |  Autori  |  Chat  |  Informativa sulla privacy  |  Download  |  Entrance  |  Aiuto  |  Merchantportal  |  Impronta  |  Mart  |  Interfaces  |  SDK  |  Services  |  Giochi  |  Cerca  |  Support

Ein Projekt aller XProfaner, die es gibt!


Il mio XProfan
Private Notizie
Eigenes Ablageforum
Argomenti-Merkliste
Eigene Beiträge
Eigene Argomenti
Zwischenablage
Annullare
 Deutsch English Français Español Italia
Traduzioni

Informativa sulla privacy


Wir verwenden Cookies nur als Session-Cookies wegen der technischen Notwendigkeit und bei uns gibt es keine Cookies von Drittanbietern.

Wenn du hier auf unsere Webseite klickst oder navigierst, stimmst du unserer Erfassung von Informationen in unseren Cookies auf XProfan.Net zu.

Weitere Informationen zu unseren Cookies und dazu, wie du die Kontrolle darüber behältst, findest du in unserer nachfolgenden Datenschutzerklärung.


einverstandenDatenschutzerklärung
Ich möchte keinen Cookie