XProfan

10/01/07 ▲

- Page 1 -

RGH

Hello, circa these API to XProfan umzusetzten, must You first of all know, in which windows-DLL tappt im dunkeln stick. this is in the API-Help for usually indicated and this drop The uxtheme.dll.

The Return Value is a worth the Type HTHEME. the H first thing character beudet lever and in a 32-bit-Betriebssystem is this one 32-bit-worth, So one Longint. The Parameter HWND is the lever the To untersuchenden Fensters. wants one The function in XProfan means for the Mainwindow Call, so sounds tappt im dunkeln:
Compile Mark Separation

theme& = external(uxtheme.dll,GetWindowTheme,%hwnd)

I fürchte but, tappt im dunkeln bring you not further. to that a there The DLL first ex How to remove and to that others gives tappt im dunkeln too with of/ one standard-XP-surface 0 back.

you goes it presumably in the Hauptsache therefore, to get, whether The cover- and Menüzeilen The korrekte Gröe the klassischen Bildschirmdarstellung having, so The Dialogelemente correctly on The dialogs fit. there help you The XProfan-System-Variables %cyCaption and %cyMenu moreover. If its worth larger is, as with your klassischen statement is either one XP- or Vista-Style in use, or The display watts anderweitig angepaßt. (too under Win2000 and former, could one The view so change, that The sizes not mehrt stimmten, means about semidetached high Titelzeilen with Windows, etc.)
(with XP in the XP-Look has %cyCaption z.B. the value 26.)

Greeting
Roland

Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4

10/02/07 ▲

GDL

well then take I %cyCaption.
becomes anyhow yet ne langwierige story.two computer of my Testanlagen can only 1024*768 with 256 colours.must any solid Farbzuweisungen in variables transfiguring and through 2 different Files loading.
likewise can these Graphikkarten max. 300 Farbbuttons (SKcontrol) present.
apparently needed WinME from the 16 Mb Graphikspeicher too much.with normalen Windowsbuttons there no Problems.
alas Abwärtskompatibel How are you beautiful.

Hello
Georg

Windows7 Xprofan 8,9,10 [...]

10/02/07 ▲

GDL

the latest trouble is now, How I it hinbekomme, that The Desktopikonen fixes stay.

Hello
Georg

Windows7 Xprofan 8,9,10 [...]

10/03/07 ▲

GDL

want if this dialog launched becomes,
Compile Mark Separation

Def RunControl(2) WinExec(Add$(Add$(
RUNDLL32 SHELL32.DLL,Control_RunDLL ,$(1)),.CPL ),$(2),1)e>

the this always in the Vordergrund remaining, or the Hauptprogramm angehalten remaining.

have already with winexecwait
Compile Mark Separation

Def RunControl(2) WinExecwait(Add$(Add$(
RUNDLL32 SHELL32.DLL,Control_RunDLL ,$(1)),.CPL ),$(2),1)e>

attempts. this goes of course correct, only if to the Theme changes,lasts this almost 2mins. To the Hauptprogramm weitermacht.think eachone same on a Programmabsturz.

without winexecwait and through of/ one Loop in the with findwindow nachgesehen becomes, whether the dialog yet runs goes neither, there this into different WinVer. different Window Title carry.
gives it there yet ne Possibility?

Hello
Georg

Windows7 Xprofan 8,9,10 [...]

10/03/07 ▲

Starte The cpl as Parameter for Control.Exe instead of runDLL The control.exe started To let.

10/04/07 ▲

GDL

can Please someone with Vista Verify whether it whom Desktopdialog launch.thanks.
Compile Mark Separation

run $SysPath+\control.exe desk.cpl

Hello
Georg

Windows7 Xprofan 8,9,10 [...]

- Page 2 -

Rolf
Koch

No Georg unfortunately nothing - no dialog.

GDL

ohje,what mach I now ? Magste please times without desk.cpl guggen, whether at least The Systemeinstellungen started.

Hello
Georg

Windows7 Xprofan 8,9,10 [...]

Rolf
Koch

too only control.exe runs not.

GDL

so far be I already,
Compile Mark Separation

Code ist ausm Zusammenhang von Hauptmenü gerissen
Grundcode von A.Miethe und XProfan Comunity Mitgliedern
Bei richtigen Einstellungen passiert nichts
 {$CLEQ}
declare l_ende%,l_farbwert&,l_farbwertalt&,l_x&,l_dev#,l_xaufloesungalt&,l_yaufloesungalt&
declare l_farbtiefealt&,t$,n$,horizontal%,los%,hor%,vert%,tx&[10],uname&,abr&
declare fenstergroesse&,design%,weiter%,l_dlg&
dim l_dev#,156
Def RunControl(2) WinExec(Add$(Add$(
RUNDLL32 SHELL32.DLL,Control_RunDLL ,$(1)),.CPL ),$(2),1)
usermessages 16
@Set(AutoPaint,1)
windowstyle 31
window 0,0 - %maxx,%maxy
usefont Courier new,15,8,0,0,0
setdialogfont 1
windowtitle Hauptmenue GDL 2006
==============================

proc fgroesse

    fenstergroesse&=%cyCaption

endproc

=======================================================

proc windowsdesign

    RunControl(DESK,)

endproc

=================================================================

proc farbtiefe

    Höchste Farbtiefe für 1024 ermitteln

    While ~Enumdisplaysettings(0,l_x&,l_dev#)

        if Str$(Long(l_dev#,108))=1024

            horizontal%=1
            l_farbwert&=Long(l_dev#,104)
            case l_farbwert& > l_farbwertalt& : l_farbwertalt&=l_farbwert&

        endif

        Inc l_x&

    Wend

    ifnot horizontal%=1

        Let t$=Graphikkarte
        Let n$=Ihre Graphikkarte kann keine 1024*768 Auflösung.
        Programm wird beendet.
        MessageBox(n$,t$,64)
        dispose l_dev#
        end

    endif

    l_farbwert&=l_farbwertalt&

endproc

================================================================

proc umschalten

    Umschalten
    settimer 10
    waitinput
    killtimer
    Long l_dev#,40 = ~Dm_pelsheight | ~Dm_pelswidth | ~Dm_bitsperpel
    Long l_dev#,104 = l_farbwert&
    Long l_dev#,108 = hor%
    Long l_dev#,112 = vert%

    If ~Changedisplaysettings(l_dev#,~Cds_updateregistry) = ~Disp_change_restart

        External(setupapi.dll,SetupPromptReboot,0,0,0)

    Endif

    sonst wird Fenster nicht angepasst
    ShowMin
    ShowMax

endproc

====================================================================

proc rueckschalten

    Rückschalten
    l_farbwert&=l_farbtiefealt&
    hor%=l_xaufloesungalt&
    vert%=l_yaufloesungalt&
    umschalten

endproc

========================================================

proc textanzeige

    settext tx&[1], Aktuelle horizontale Auflösung : +str$(~Getdevicecaps(~Getdc(0),~Horzres))+   soll : 1024
    settext tx&[2], Aktuelle vertikale   Auflösung :  +str$(~Getdevicecaps(~Getdc(0),~Vertres))+   soll :  768

endproc

==================================================================

proc dmalen

    startpaint l_dlg&

    if tx&[1] > 0

        destroywindow(tx&[1])
        destroywindow(tx&[2])
        destroywindow(tx&[3])
        destroywindow(tx&[4])
        destroywindow(tx&[5])
        destroywindow(tx&[6])
        destroywindow(tx&[7])
        destroywindow(uname&)
        destroywindow(abr&)

    endif

    if (~Getdevicecaps(~Getdc(0),~Horzres) <> 1024) or (~Getdevicecaps(~Getdc(0),~Vertres) <> 768)

        cls RGB(208,0,0)

    else

        case design%=0:cls RGB(0,194,0)

    endif

    if fenstergroesse& <> 19

        design%=1
        cls RGB(208,0,0)
        tx&[5]=create(text,l_dlg&, Das Windowstheme ist nicht auf Windows - klassisch  ,30,200,530,20)
        tx&[6]=create(text,l_dlg&, eingestellt. - Bitte in folgendem Dialog einstellen.,30,220,530,20)
        tx&[7]=create(text,l_dlg&, Dieser Dialog wird am Schluss erneut gestartet.,30,240,530,20)

    else

        if weiter%=1

            l_ende%=1

        endif

    endif

    tx&[1]=create(text,l_dlg&, Aktuelle horizontale Auflösung : +str$(l_xaufloesungalt&)+   soll : 1024,30,40,530,20)
    tx&[2]=create(text,l_dlg&, Aktuelle vertikale   Auflösung :  +str$(l_yaufloesungalt&)+   soll :  768,30,60,530,20)
    tx&[3]=create(text,l_dlg&, Bei falscher Auflösung und autmat.Umschaltung wird,30,90,530,20)
    tx&[4]=create(text,l_dlg&, am Programmende auf die alten Werte rückgewechselt,30,110,530,20)
    uname&=create(button,l_dlg&,Umschalten,450,150,110,20)
    abr&=create(button,l_dlg&,Beenden,450,330,110,20)

    ifnot (l_xaufloesungalt& <> 1024) or (l_yaufloesungalt& <> 768)

        enablewindow uname&,0
        weiter%=1

    endif

    endpaint

endproc

====================================================================

proc deinstellungen

    windowstyle 8
    l_dlg&=create(window,%hwnd,Desktopeinstellungen,100,100,600,400)
    usefont Courier new,17,10,1,0,0
    setdialogfont 1
    die alten Einstellungen ermitteln und speichern
    l_farbtiefealt& = ~Getdevicecaps(~Getdc(0),~Bitspixel)
    l_xaufloesungalt& =~Getdevicecaps(~Getdc(0),~Horzres)
    l_yaufloesungalt& =~Getdevicecaps(~Getdc(0),~Vertres)
    fgroesse
    dmalen

    ifnot l_xaufloesungalt& =1024

        hor%=1024
        vert%=768
        farbtiefe
        enablewindow uname&,1

    endif

    clear l_ende%
    case (weiter%=1) and (design%=0):l_ende%=1
    case design%=1:windowsdesign

    whilenot l_ende%

        waitinput

        if (%umessage=16) or (clicked(abr&))

            l_ende%=1

        elseif clicked(uname&)

            umschalten
            horizontal%=1
            dmalen
            textanzeige
            enablewindow uname&,0

        ELSEIF %wmPaint

            dmalen

        endif

    wend

    destroywindow(l_dlg&)
    windowstyle 31

endproc

===============================================================================
deinstellungen

whilenot 0

    waitinput

    if %umessage = 16

        case horizontal%=1:rueckschalten
        case design%=1:windowsdesign
        dispose l_dev#
        end

    endif

wend

latest trouble is, the The Desktobikons not on the middle-aged Space stay.

Hello
Georg

Windows7 Xprofan 8,9,10 [...]

you fuming here möglicherweise only the Cds_updateregistry -Flag, and - for what need whom Neustart?

I ziehe The Neustartfrage back, Have the if overlooking. (and the happens me)

Frank
Abbing

RGH

theme& = external(uxtheme.dll,GetWindowTheme,%hwnd)

If the API in the drop 0 back supply, with whom lever must one because then moreover works, if one further uxtheme-functions using wants?

06/01/08 ▲