Deutsch
Quelltexte/ Codesnippets

Api Bildbox Erstellen Ohne

 

KompilierenMarkierenSeparieren
Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Bildbox erstellen (ohne API)
Lauffähig ab Profan-Version 5.0
BILDBOX Version 1.0 © by Rolf Koch / Koblenz (Roko-Software) Oktober 2000
IDEEN Vorlage: Wie erstelle ich eine Bildlistbox ohne Api?
Hallo, hier ein Beispiel, wie Du zumindest eine Bitmapbox
erschummeln kannst. Achtung bitte darauf achten, daß
die Bilder durchnummeriert sind. Falls man Bilder einspeißt,
so kann man ja in einer Schleife die Bilder mit
let copy$=i%;.BMP
copy Test.bmp > copy$ in eine richtige Form bringen.
Mann könnte diese auch vor Programmende wieder löschen.
Alles ist möglich auch mit reinem Profan - einfach weiterdenken
bei diesem Code.
Achtung: Bilder müssen im selben Pfad wie Programm sein, zur Not
mit Pfadvariablen arbeiten.
Natürlich ist dieses Beispiel noch nicht einwandfrei, aber
macht was draus. Wie immer als Ideenvorlage.
 $P+
SetErrorLevel 0
Declare Edit1&
Declare Text1&
Declare appexit%
Declare GroupBox1&
Declare GroupBox2&
Declare VScroll1&
Declare Bildmenge&,i%
Declare b1$,b2$,b3$,b4$,b5$,b6$,b7$,b8$,b9$,b10$
Declare b11$,b12$,b13$,b14$,b15$,b16$,b17$,b18$,b19$,b20$
Declare Zeile$,Bildzaehler%,scrollpos&
Let Bildmenge&=10			Anzahl der Bilder:2
SetTrueColor 1
WindowStyle $003F
WindowTitle Schummel Bildlistbox ohne Api v 1.0 (© by Rolf Koch Roko-Software)
Window Add(%maxX,50),114 - 498,408
Cls @RGB(192,192,192)
UseFont MS Sans Serif,13,0,0,0,0
SetDialogFont 1
Let GroupBox1&=CreateGroupBox(%hwnd,,11,16,185,338)
Let VScroll1&=CreateVScroll(%hwnd,,177,24,16,328)
Let Edit1&=CreateEdit(%hwnd,,268,53,172,21)
Let Text1&=CreateText(%hwnd,Gewählter Eintrag:,269,30,91,17)
LOADBMP PROFAN.BMP,270,130;0
SetScrollRange VScroll1&,0,Bildmenge&
SetScrollPos VScroll1&,0
SetWindowPos %hwnd = 207,114 - 498,408;0

PROC BILDER				Bilder aufbereiten

    PARAMETERS i%
    inc i%                                  Hier wäre normalerweise eine 2te Schleife angebracht
    let b1$=i%;.BMP
    inc i%
    let b2$=i%;.BMP
    inc i%
    let b3$=i%;.BMP
    inc i%
    let b4$=i%;.BMP
    inc i%
    let b5$=i%;.BMP
    inc i%
    let b6$=i%;.BMP
    inc i%
    let b7$=i%;.BMP
    inc i%
    let b8$=i%;.BMP
    inc i%
    let b9$=i%;.BMP
    inc i%
    let b10$=i%;.BMP
    inc i%
    let b11$=i%;.BMP
    inc i%
    let b12$=i%;.BMP
    inc i%
    let b13$=i%;.BMP
    inc i%
    let b14$=i%;.BMP
    inc i%
    let b15$=i%;.BMP
    inc i%
    let b16$=i%;.BMP
    inc i%
    let b17$=i%;.BMP
    inc i%
    let b18$=i%;.BMP
    inc i%
    let b19$=i%;.BMP
    inc i%
    let b20$=i%;.BMP

ENDPROC

PROC BILD

    locate 1,1
    LOADSIZEDBMP Weis.bmp,12,24 - 164,328;0	Hintergrund
    DrawText 60,40,b1$
    LOADSIZEDBMP b1$,25,30 - 30,30;0
    DrawText 60,72,b2$				Hier könnte auch was anderes hin
    LOADSIZEDBMP b2$,25,62 - 30,30;0
    DrawText 60,104,b3$
    LOADSIZEDBMP b3$,25,94 - 30,30;0
    DrawText 60,136,b4$
    LOADSIZEDBMP b4$,25,126 - 30,30;0
    DrawText 60,168,b5$
    LOADSIZEDBMP b5$,25,158 - 30,30;0
    DrawText 60,200,b6$
    LOADSIZEDBMP b6$,25,190 - 30,30;0
    DrawText 60,232,b7$
    LOADSIZEDBMP b7$,25,222 - 30,30;0
    DrawText 60,264,b8$
    LOADSIZEDBMP b8$,25,254 - 30,30;0
    DrawText 60,298,b9$
    LOADSIZEDBMP b9$,25,286 - 30,30;0
    DrawText 60,330,b10$
    LOADSIZEDBMP b10$,25,318 - 30,30;0

ENDPROC

BILDER 0			Proc zum Aufbereiten der Bilder
BILD				Bilder anzeigen

WhileNot appexit%

    WaitInput

    If Equ(%key,2)

        Let appexit%=1

    ElseIf GetFocus(VScroll1&)

        let scrollpos&=@GetScrollPos(VScroll1&)
        Bilder scrollpos&
        Bild

    ElseIf Mouse(14,30 - 176,62) HotSpot1

        Bild
        CopyBmp 14,30-145,30 > 25,30;4
        settext edit1&,b1$

    ElseIf Mouse(14,62 - 176,94)

        Bild
        CopyBmp 14,62-145,30 > 25,62;4
        settext edit1&,b2$

    ElseIf Mouse(14,94 - 176,126)

        Bild
        CopyBmp 14,62-145,30 > 25,94;4
        settext edit1&,b3$

    ElseIf Mouse(14,126 - 176,155)

        Bild
        CopyBmp 14,62-145,30 > 25,126;4
        settext edit1&,b4$

    ElseIf Mouse(13,158 - 176,190)

        Bild
        CopyBmp 14,62-145,30 > 25,158;4
        settext edit1&,b5$

    ElseIf Mouse(13,190 - 175,222)

        Bild
        CopyBmp 14,62-145,30 > 25,190;4
        settext edit1&,b6$

    ElseIf Mouse(12,222 - 174,254)

        Bild
        CopyBmp 14,62-145,30 > 25,222;4
        settext edit1&,b7$

    ElseIf Mouse(11,254 - 173,286)

        Bild
        CopyBmp 14,62-145,30 > 25,254;4
        settext edit1&,b8$

    ElseIf Mouse(10,286 - 172,318)

        Bild
        CopyBmp 14,62-145,30 > 25,286;4
        settext edit1&,b9$

    ElseIf Mouse(10,318 - 172,350)

        Bild
        CopyBmp 14,62-145,30 > 25,318;4
        settext edit1&,b10$

    ElseIf Equ(%key,4)

        Fenstergröße

    ElseIf Equ(%key,5)

        Hilfe

    EndIf

Wend

 
16.07.2007  
 



Zum Quelltext


Thementitel, max. 100 Zeichen.
 

Systemprofile:

Kein Systemprofil angelegt. [anlegen]

XProfan:

 Beitrag  Schrift  Smilies  ▼ 

Bitte anmelden um einen Beitrag zu verfassen.
 

Themenoptionen

3.470 Betrachtungen

Unbenanntvor 0 min.
AndreasS10.01.2019
Andre Rohland06.10.2015
Walter Meidl02.04.2015
funkheld12.01.2014
Mehr...

Themeninformationen

Dieses Thema hat 1 Teilnehmer:

unbekannt (1x)


Admins  |  AGB  |  Anwendungen  |  Autoren  |  Chat  |  Datenschutz  |  Download  |  Eingangshalle  |  Hilfe  |  Händlerportal  |  Impressum  |  Mart  |  Schnittstellen  |  SDK  |  Services  |  Spiele  |  Suche  |  Support

Ein Projekt aller XProfaner, die es gibt!


Mein XProfan
Private Nachrichten
Eigenes Ablageforum
Themen-Merkliste
Eigene Beiträge
Eigene Themen
Zwischenablage
Abmelden
 Deutsch English Français Español Italia
Übersetzungen

Datenschutz


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