(1.110)  S'inscrire

Français
Source/ Codesnippets

ruban Controls plusieurs Rebar

 

KompilierenMarqueSéparation
Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Controls: mehrere Controls in einem Rebar-Band
Versionsnummer: 0.00
letzte Bearbeitung: Burghammer, der 16. Juni 2007
(C) 2007 by Nico Madysa
Mail: uebertreiber@gmx.de
als Demo für die MMJ-Quellcode-Sammlung bearbeitet und angepaßt von Dietmar Horn
alle benötigten Header-Dateien finden Sie im Ordner ProfmanSystem
 $H Windows.ph
 $H Messages.ph
 $H Structs.ph
 $H xprfctrl.ph
declare inum% , a# , OWin#
declare inum%,OWin#
Struct Titel = datei$(255) , titel$(20) , interpret$(20) ,
type% , laenge& , mompos&
Struct OSVERSIONINFO = ~OSVERSIONINFO
Struct shf = x1&,Icon&,x2&,Name$(259),Typ$(100)
Struct TV  = Parent&,InsertAfter&,Mask&,Item&,State&,StateMask&,Text&,TextMax&,Icon1&,Icon2&,Children&,Data&,Text$(100)
Struct Hit = x&,y&,Flags&,Item&
Def %STDX 620
Def %STDY 460
Struct ReBar = Size& , Mask& , Style& , clrFore& , clrBack& ,
lpText& , cch& , iImage& , hwndChild& , cxMinChild& ,
cyMinChild& , cx& , hbmBack& , wID& , cyChild& ,
cyMaxChild& , cyIntegral& , cxIdeal& , lParam& ,
cxHeader& , handle& , bandcount%

subproc Create.ReBar

    parameters rebar# , pWnd& , x% , y% , dx% , dy% , minx% , bx% , by% , cWnd& , fbgrip%
    declare rebar&
    rebar# : Auf ReBar (Struktur am Anfang der INC) dimensionierte Strukturvariable
    pWnd&  : übergeordnetes Fenster
    x%,y%  : obere, linke Ecke des zu behandlenden Bereiches
    dx%,dy%: Außmaße des ReBar-Bereiches
    Alle folgenden Parameter sind für das ertse Band des ReBar-Windows
    minx%  : minimale Breite des Bandes
    bx%    : Standart-Breite des Bandes
    by%    : Höhe des Bandes
    cWnd&  : Handle des Controls, das dem Band einbezogen wird
    fbgrip%: wenn 1, erhält das erste Band auch einen Griff

    if lower$(ClassOf(ReBar#)) = rebar

        inc inum%
        rebar&=Control(ReBarWindow32,,$50000804 ,x%,y%,dx%,dy%,pWnd&,inum%,0)

        With Rebar#

            .Size&       = SizeOf(ReBar#) - 6
            .Mask&       = $71--RBBIM_STYLE | RBBIM_CHILD | RBBIM_CHILDSIZE | RBBIM_SIZE
            .cyMaxChild& = 1  ------------------Darf nicht Null sein
            .Style&      = if(fbgrip%,128,256)--RBBS_NOGRIPPER (1. Band ohne Griff)
            .cxMinChild& = minx%----------------Minimum Breite
            .cyMinChild& = by%------------------Höhe des Bandes
            .cx&         = bx%------------------Vorgabe Breite
            .hwndChild&  = cWnd&----------------Band 1
            SendMessage(ReBar&,$0401,0,ReBar#)--RB_INSERTBAND
            .handle&     = rebar&
            .bandcount%  = 1

        EndWith

        return 1

    else

        return 0

    endif

endproc

ReBar# , minx% , bx% , by% , cWnd&

proc InsertReBarBand

    parameters ReBar# , minx% , bx% , by% , cWnd&
    minx%  : minimale Breite des Bandes
    bx%    : Standart-Breite des Bandes
    by%    : Höhe des Bandes
    cWnd&  : Handle des Controls, das dem Band einbezogen wird
    declare erg%

    if lower$(ClassOf(ReBar#)) = rebar

        With ReBar#

            .Style&      = 128-----------------RBBS_GRIPPERALWAYS (folgende Bänder mit Griff)
            .cxMinChild& = minx%---------------Minimum Breite
            .cyMinChild& = by%-----------------Höhe des Bandes
            .cx&         = bx%-----------------Vorgabe Breite
            .hwndChild&  = cWnd&---------------Band 2
            erg% = SendMessage(.handle&,$0401,.bandcount%,ReBar#)--RB_INSERTBAND
            .bandcount%  = .bandcount% + 1

        EndWith

        return erg%

    else

        return 0

    endif

endproc

Destruktor
rebar# : Auf ReBar dimensionierter Bereich

proc DestroyReBar

    parameters rebar#

    if lower$(ClassOf(rebar#)) = rebar

        DestroyWindow(rebar#.handle&)

    else

        return 0

    endif

endproc

proc OptWindow

    if (Upper$($(1)) = START HWND) or (Upper$($(1)) = START)

        parameters w$ , style% , titel$ , dx% , dy%
        Dim OWin# , 4 + 4 + 4
        clear OWin#
        WindowTitle titel$
        WindowStyle style%
        Window %MaxX , %MaxY - dx% , dy%
        cls External(USER32,GetSysColor,15)
        Long OWin# , 0 = %hWnd
        Long OWin# , 4 = dx%
        Long OWin# , 8 = dy%

    elseif Upper$($(1)) = START WIN

        parameters w$ , pWnd& , style% , titel$ , dx% , dy%
        declare hwin&
        Dim OWin# , 4 + 4 + 4
        clear OWin#
        WindowStyle style%
        hwin& = Create(Window,pWnd&,titel$,%MaxX,%MaxY,dx%,dy%)
        Long OWin# , 0 = hwin&
        Long OWin# , 4 = dx%
        Long OWin# , 8 = dy%
        return hwin&

    elseif Upper$($(1)) = START DLG

        parameters w$ , pWnd& , titel$ , dx% , dy%
        declare hwin&
        Dim OWin# , 4 + 4 + 4
        clear OWin#
        hwin& = Create(Dialog,pWnd&,titel$,%MaxX,%MaxY,dx%,dy%)
        Long OWin# , 0 = hwin&
        Long OWin# , 4 = dx%
        Long OWin# , 8 = dy%
        return hwin&

    elseif Upper$($(1)) = END

        if %pCount > 1

            parameters x% , y%
            declare hwin& , dx% , dy%

        else

            declare hwin& , x% , y% , dx% , dy%

        endif

        hwin& =      Long(OWin#,0)
        dx%   = (2 * Long(OWin#,4)) -  width(hwin&)
        dy%   = (2 * Long(OWin#,8)) - height(hwin&)

        if %pCount = 1

            x% = (%MaxX - dx%) / 2
            y% = (%MaxY - dy%) / 2

        endif

        SetWindowPos hwin& = x% , y% - dx% , dy%
        Dispose OWin#

    endif

endproc

proc Resize

    mmp_dx% = width(%hWnd)
    mmp_dy% = height(%hWnd)
    maindx% = mmp_dx% - 30
    maindy% = mmp_dy% - 65
    NavnPlay
    SetWindowPos textpos&  = 5 , (mmp_dy% - 55) - (mmp_dx% - 10) , 20
    SetWindowPos trackpos& = 5 , (mmp_dy% - 30) - (mmp_dx% - 10) , 25
    erste Seite
    SetWindowPos tvdir&  =   0                           ,             0 - ((maindx% - 10) / 3),(maindy% -  25)
    SetWindowPos lbfile& = ((    (maindx% - 10) / 3) + 4),             0 - ((maindx% - 10) / 3),(maindy% -  25)
    SetWindowPos lblist& = ((2 * (maindx% - 10) / 3) + 9),            50 - ((maindx% - 10) / 3),(maindy% - 100)
    SetWindowPos ename&  = ((2 * (maindx% - 10) / 3) + 9),             0 - ((maindx% - 10) / 3), 20
    SetWindowPos eauto&  = ((2 * (maindx% - 10) / 3) + 9),            25 - ((maindx% - 10) / 3), 20
    SetWindowPos blsav&  = ((2 * (maindx% - 10) / 3) + 9),(maindy% - 45) - ((maindx% - 10) / 3), 20
    SetWindowPos emomf&  =   0                           ,(maindy% - 20) - ((maindx% - 10) / 3), 20
    SetWindowPos badd&   = ((    (maindx% - 10) / 3) + 4),(maindy% - 20) - ((maindx% - 10) / 3), 20
    SetWindowPos bdel&   = ((2 * (maindx% - 10) / 3) + 9),(maindy% - 20) - ((maindx% - 10) / 3), 20
    zweite Seite
    SetWindowPos cbloop& =                               5 ,             5 -  (maindx%        / 2), 20
    SetWindowPos cbrand& = (     (maindx%       / 2) +   5),             5 -  (maindx%        / 2), 20
    SetWindowPos cbdnam& =                               5 ,            30 -  (maindx%        / 2), 20
    SetWindowPos gbwind& =                               5 ,            60 -  (maindx% -  10)     , 50
    SetWindowPos rbwin&  =                              15 ,            80 -             100      , 20
    SetWindowPos rbtray& = (     (maindx%       / 2) +   5),            80 -             120      , 20
    SetWindowPos gblist& =                               5 ,           120 -  (maindx% -  10)     ,130
    SetWindowPos rbnix&  =                              15 ,           140 -             150      , 20
    SetWindowPos rblast& =                              15 ,           170 -             250      , 20
    SetWindowPos rblist& =                              15 ,           200 -             170      , 20
    SetWindowPos elist&  =                             190 ,           200 -             200      , 20
    SetWindowPos bwahl&  =                             390 ,           200 -             100      , 20
    SetWindowPos cbplay& =                              32 ,           220 -             250      , 20
    SetWindowPos bosav&  = ((0 * (maindx% - 15) / 4) +   0),(maindy% - 25) - ((maindx% -  15) / 4), 25
    SetWindowPos bobak&  = ((1 * (maindx% - 15) / 4) +   4),(maindy% - 25) - ((maindx% -  15) / 4), 25
    SetWindowPos bosta&  = ((2 * (maindx% - 15) / 4) +   9),(maindy% - 25) - ((maindx% -  15) / 4), 25
    SetWindowPos babout& = ((3 * (maindx% - 15) / 4) +  14),(maindy% - 25) - ((maindx% -  15) / 4), 25
    ReBar
    SetWindowPos Main#.handle& = 5 , 5 - (maindx% + 20) , maindy%

endproc

proc Initialize

    mmp_dx% = %STDX
    mmp_dy% = %STDY
    maindx% = mmp_dx% - 30
    maindy% = mmp_dy% - 65
    hfont&  = Create(Font,Comic Sans MS,19,0,0,0,0)
    SetDialogFont hfont&

endproc

proc BuildUp

    declare thisexe$
    OptWindow START HWND , (~PWS_THICKFRAME | ~PWS_DIALOG | ~PWS_SYSMENU | ~PWS_MINBOX | ~PWS_NOMENU) , Madysas Music Player (nur der Rebar-Demo-Source) , mmp_dx% , mmp_dy%
    NavnPlay
    textpos& = Create(Text,%hWnd,Liste: kein Name --- Autor: unbekannt --- Titel: keiner --- Position: 0:00 von 0:00,5,(mmp_dy% - 55),(mmp_dx% - 10),20)
    trackpos& = Create(TrackBar,%hWnd,0;0;0,5,(mmp_dy% - 30),(mmp_dx% - 10),25)
    erste Seite
    pone& = Control(DIALOG,,$50000000,0,0,0,0,%hWnd,1000,%hInstance)
    tvdir& = Control(SysTreeView32,,$50800037,0,0,((maindx% - 10) / 3),maindy% - 25,pone&,1001,%hInstance,$200)
    lbfile& = Control(ListBox,,~lbs_Standart + ~lbs_ExtendedSel            ,(    (maindx% - 10) / 3) + 4, 0,((maindx% - 10) / 3),maindy% -  25,pone&,1002,%hInstance,$200)
    lblist& = Control(ListBox,,~lbs_Standart + ~lbs_ExtendedSel - ~lbs_Sort,(2 * (maindx% - 10) / 3) + 9,50,((maindx% - 10) / 3),maindy% - 100,pone&,1003,%hInstance,$200)
    ename&  = Create(Edit  ,pone&,             ,(2 * (maindx% - 10) / 3) + 9,           0,(maindx% - 10) / 3,20)
    eauto&  = Create(Edit  ,pone&,             ,(2 * (maindx% - 10) / 3) + 9,          25,(maindx% - 10) / 3,20)
    blsav&  = Create(Button,pone&,Liste sichern,(2 * (maindx% - 10) / 3) + 9,maindy% - 45,(maindx% - 10) / 3,20)
    emomf&  = Create(Edit  ,pone&,                  , 0                           ,maindy% - 20,(maindx% - 10) / 3,20)
    badd&   = Create(Button,pone&,>>> Hinzufügen >>>,(    (maindx% - 10) / 3) +  4,maindy% - 20,(maindx% - 10) / 3,20)
    bdel&   = Create(Button,pone&,<<< Entfernen <<< ,(2 * (maindx% - 10) / 3) +  9,maindy% - 20,(maindx% - 10) / 3,20)
    zweite Seite
    ptwo& = Control(DIALOG,,$50000000,0,0,0,0,%hWnd,1000,%hInstance)
    cbloop& = Create(CheckBox,ptwo&,Liste wiederholen    ,5                ,5,maindx% / 2,20)
    cbrand& = Create(CheckBox,ptwo&,Liste zufällig ordnen,5 + (maindx% / 2),5,maindx% / 2,20)
    cbdnam& = Create(CheckBox,ptwo&,Dateinamen der Titel anzeigen,5,30,maindx% / 2,20)
    gbwind& = Create(GroupBox,ptwo&,Beim Programmstart dieses Fenster...,5,60,maindx% - 10,50)
    rbwin&  = Create(RadioButton,ptwo&,... öffnen,15,80,100,20)
    rbtray& = Create(RadioButton,ptwo&,... nicht öffnen,315,80,120,20)
    gblist& = Create(GroupBox,ptwo&,Bei Programmstart...,5,120,maindx% - 10,130)
    rbnix&  = Create(RadioButton,ptwo&,...keine Liste laden,15,140,150,20)
    rblast& = Create(RadioButton,ptwo&,...die zuletzt benutzte Liste laden,15,170,250,20)
    rblist& = Create(RadioButton,ptwo&,...folgende Liste laden:,15,200,170,20)
    elist&  = Create(Edit,ptwo&,,190,200,200,20)
    bwahl&  = Create(Button,ptwo&,Durchsuchen,390,200,100,20)
    cbplay& = Create(CheckBox,ptwo&,Liste bei Programmstart abspielen,32,220,250,20)
    bosav&  = Create(Button,ptwo&,Optionen sichern   ,(0 * (maindx% - 15) / 4) +  0,maindy% - 25,(maindx% - 15) / 4,25)
    bobak&  = Create(Button,ptwo&,Abbrechen          ,(1 * (maindx% - 15) / 4) +  4,maindy% - 25,(maindx% - 15) / 4,25)
    bosta&  = Create(Button,ptwo&,Standard herstellen,(2 * (maindx% - 15) / 4) +  9,maindy% - 25,(maindx% - 15) / 4,25)
    babout& = Create(Button,ptwo&,Über den MMP       ,(3 * (maindx% - 15) / 4) + 14,maindy% - 25,(maindx% - 15) / 4,25)
    ReBar
    Create(ReBar,Main#,%hWnd,5,5,maindx% + 20,maindy%,0,maindx%,maindy%,pone&,1)	Diese Zeile ist fürs fertige Programm gedacht
    Create(ReBar,Main#,%hWnd,5,5,maindx% + 20,maindy%,0,100,maindy%,pone&,1)	Diese Zeile nur fürs Demo, damit man die Controls beim Programmstart gleich sieht
    InsertReBarBand Main# , 0 , (maindx% - 100) , maindy% , ptwo&
    OptWindow END

endproc

proc Beenden

    DestroyReBar(Main#)
    Dispose Main#
    Dispose CurTitle#
    Dispose Tv#
    Dispose SHF#
    Dispose Hit#
    end

endproc

---   H a u p t p r o g r a m m   ----------------------------------
Handles
Fonts
declare hfont&
Hauptteil
1. Seite
declare pone& , tvdir& , lbfile& , ename& , eauto& , lblist&
declare blsav& , emomf& , badd& , bdel& , lbivi&
2. Seite
declare ptwo& , cbloop& , cbrand& , cbdnam& , babout&
declare gbwind& , rbwin& , rbtray& , gblist& , rbnix&
declare rblast& , rblist& , elist& , bwahl& , cbplay&
declare bosav& , bobak& , bosta&
NavnPlay
declare back& , forw& , plst& , paus&
declare textpos& , trackpos&
Variablen
declare mmp_ende% , mmp_x% , mmp_y% , mmp_dx% , mmp_dy%
declare maindx% , maindy% , NextItem& , curItem& , Root& , IcoList&
Pseudo-Konstanten
declare main_message%
Strukturierte Bereiche und Klassen
declare CurTitle# , Main# , SHF# , Tv# , Hit#
Dim CurTitle# , Titel
Dim Main# , ReBar
Dim Tv# , TV
Dim SHF# , shf
Dim Hit# , Hit
clear Main# , shf# , Tv# , hit#
Initialize
BuildUp

whilenot mmp_ende%

    waitinput
    main_message% = %Message
    Veränderungen
    EnableWindow elist&  , GetCheck(rblist&)
    EnableWindow bwahl&  , GetCheck(rblist&)
    EnableWindow cbplay& , GetCheck(rblist&)
    Aktionen

    if (%Key = 2) or MenuItem(-4000) or (main_message% = ~wm_Close) or (main_message% = ~wm_Quit)

        mmp_ende% = 1

    elseif %Key = 4

        Resize

    Wend

finissons
Ende des MMP
 
15.07.2007  ▲
 



Zum Quelltext


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

2.271 Views

Untitledvor 0 min.
Jörg Sellmeyer17.06.2020
Paul Glatz27.04.2014
Julian Schmidt11.12.2011
Frank Vorholzer13.04.2011
plus...

Themeninformationen

cet Thema hat 1 participant:

unbekannt (1x)


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