(1.126)  Login

English
Source / code snippets

volume Controls several Rebar

 

CompileMarkSeparation
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

terminate
end the MMP
 
07/15/07  ▲
 



Zum Quelltext


Topictitle, max. 100 characters.
 

Systemprofile:

no Systemprofil laid out. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

Please register circa a Posting To verfassen.
 

Topic-Options

Unreaded
subscribe
Remember-List
Notes
guests
Delete
Permanent
Done

2.264 Views

Themeninformationen

this Topic has 1 subscriber:

unbekannt (1x)


Admins  |  AGB  |  Applications  |  Authors  |  Chat  |  Privacy Policy  |  Download  |  Entrance  |  Help  |  Merchantportal  |  Imprint  |  Mart  |  Interfaces  |  SDK  |  Services  |  Games  |  Search  |  Support

One proposition all XProfan, The there's!


My XProfan
Private Messages
Own Storage Forum
Topics-Remember-List
Own Posts
Own Topics
Clipboard
Log off
 Deutsch English Français Español Italia
Translations

Privacy Policy


we use Cookies only as Session-Cookies because of the technical necessity and with us there no Cookies of Drittanbietern.

If you here on our Website click or navigate, stimmst You ours registration of Information in our Cookies on XProfan.Net To.

further Information To our Cookies and moreover, How You The control above keep, find You in ours nachfolgenden Datenschutzerklärung.

all rightDatenschutzerklärung
i want none Cookie