XProfan

English

Xegon

Hello together,
I program already some Time in a Screen saver rum the too really well functions.
trouble is the this only on the primären Monitor under windows walk should. means screen 2 and 3 must from geschaltet go or Black gepinselt.
me wants not gelingen here a Solution for to find.
Fenstergröße expand is not, there %maxx this not zulässt.
gives is a Übergröße one - lead the to a Bug.
aimed whom 2. Monitor switch off into Standby have so did i not yet found.

can someone help?

XProfan X2

12/12/15 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

« this Posting watts as Solution marked. »

Georg
Teles

Hm, there falls me only GetSystemMetrics & this [...]

Workarea, with them You play & something basteln can

GetSystemMetrics
Compile Mark Separation

 $H windows.ph
Window Title "GetSystemMetrics"
Def GetSystemMetrics(1) !"user32","GetSystemMetrics"
Font 2
cls
Print "                            SlowProcessor = ";~GetSystemMetrics(73)
Print " BootMode 0normal 1Failsafe 2Safe+Network = ";~GetSystemMetrics(67)
Print " Network present LSB = ";~GetSystemMetrics(63) & 1;", No. of Monitors = ";~GetSystemMetrics(80)
Print "         Width of primary display monitor = ";~GetSystemMetrics(0)
Print "                Heigth of primary monitor = ";~GetSystemMetrics(1)
Print "  WindowBorder px = ";~GetSystemMetrics(5);";  WindowBorder3D px = ";~GetSystemMetrics(45)
Print "                     MinWidth of a Window = ";~GetSystemMetrics(28)
Print "                      MinHeight of Window = ";~GetSystemMetrics(29)
Print "                    Heigth of CaptionArea = ";~GetSystemMetrics(4)
Print "                            MenubarHeight = ";~GetSystemMetrics(15)
Print "                    SM_CX-FIXED/DLG-FRAME = ";~GetSystemMetrics(7)
Print "     CursorWidth = ";~GetSystemMetrics(13);";       CursorHeight = ";~GetSystemMetrics(14)
Print "             ArrangeMinimizedWindows fashion = ";~GetSystemMetrics(56)
print
Print "                       MousePortInstalled = ";~GetSystemMetrics(19)
Print "                   Number of MouseButtons = ";~GetSystemMetrics(43)
Print "                VerticalScrollWheel Mouse = ";(~GetSystemMetrics(75)>0)
Print "              HorizontalScrollWheel Mouse = ";(~GetSystemMetrics(91)>0)
Print "          XP/Vista/Win7 Edition='Starter' = "; ~GetSystemMetrics(88)
Print "                   TabletPCSupport Active = ";~GetSystemMetrics(86)
Print "            windows4PenComputingInstalled = ";~GetSystemMetrics(41)
Print "             windows Media Center Edition = ";~GetSystemMetrics(87)
Print ~GetSystemMetrics(78)'x-virtual Screen
Print ~GetSystemMetrics(79)'y-virtual screen
Print ~GetSystemMetrics(16)'SM_CXFULLSCREEN = 16 - gives The width the Arbeitsbereiches one maximierten Fensters back.
Print ~GetSystemMetrics(17)'SM_CYFULLSCREEN = 17 - gives the level the Arbeitsbereiches one maximierten Fensters back.
'SM_CXSCREEN = 0 - gives The width the Bildschirms back.
'SM_CYSCREEN = 1 - gives the level the Bildschirms back.
Print ~GetSystemMetrics(76)'SM_XVIRTUALSCREEN = 76 - windows 98/NT - supply The left Koordinate (with several Monitoren)
Print ~GetSystemMetrics(77)'SM_YVIRTUALSCREEN = 77 - windows 98/NT - supply The upper Koordinate (with several Monitoren)
WaitInput
End

Provisorisches what straight falls in
Compile Mark Separation

Def GetSystemMetrics(1) !"user32","GetSystemMetrics"
Window Style $f0
Declare x&,y&,wx&,wy&
x& = GetSystemMetrics(76)'SM_XVIRTUALSCREEN /
y& = GetSystemMetrics(77)'SM_YVIRTUALSCREEN /
wx&= GetSystemMetrics(78)'x-virtual Screen  /
wy&= GetSystemMetrics(79)'y-virtual Screen  /
Create("Window",%Desktop,"",x&,y&,wx&,wy&)'übermalen
window 0,0-%MaxX,%MaxY'Screensaver
CLS RGB(0,0,0)
WaitInput
END

XProfan X3
TC-Programming [...]

XProfan 8.0 - 10.0 - X2 - X3 - X4

12/12/15 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

have You once setErrorLevel -2 probiert?

XProfan X2
WinXP, SP3, Core(TM) i7-3770 @ 3.40GHz

12/12/15 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Georg
Teles

Hm, there falls me only GetSystemMetrics & this [...]

Workarea, with them You play & something basteln can

GetSystemMetrics
Compile Mark Separation

 $H windows.ph
Window Title "GetSystemMetrics"
Def GetSystemMetrics(1) !"user32","GetSystemMetrics"
Font 2
cls
Print "                            SlowProcessor = ";~GetSystemMetrics(73)
Print " BootMode 0normal 1Failsafe 2Safe+Network = ";~GetSystemMetrics(67)
Print " Network present LSB = ";~GetSystemMetrics(63) & 1;", No. of Monitors = ";~GetSystemMetrics(80)
Print "         Width of primary display monitor = ";~GetSystemMetrics(0)
Print "                Heigth of primary monitor = ";~GetSystemMetrics(1)
Print "  WindowBorder px = ";~GetSystemMetrics(5);";  WindowBorder3D px = ";~GetSystemMetrics(45)
Print "                     MinWidth of a Window = ";~GetSystemMetrics(28)
Print "                      MinHeight of Window = ";~GetSystemMetrics(29)
Print "                    Heigth of CaptionArea = ";~GetSystemMetrics(4)
Print "                            MenubarHeight = ";~GetSystemMetrics(15)
Print "                    SM_CX-FIXED/DLG-FRAME = ";~GetSystemMetrics(7)
Print "     CursorWidth = ";~GetSystemMetrics(13);";       CursorHeight = ";~GetSystemMetrics(14)
Print "             ArrangeMinimizedWindows fashion = ";~GetSystemMetrics(56)
print
Print "                       MousePortInstalled = ";~GetSystemMetrics(19)
Print "                   Number of MouseButtons = ";~GetSystemMetrics(43)
Print "                VerticalScrollWheel Mouse = ";(~GetSystemMetrics(75)>0)
Print "              HorizontalScrollWheel Mouse = ";(~GetSystemMetrics(91)>0)
Print "          XP/Vista/Win7 Edition='Starter' = "; ~GetSystemMetrics(88)
Print "                   TabletPCSupport Active = ";~GetSystemMetrics(86)
Print "            windows4PenComputingInstalled = ";~GetSystemMetrics(41)
Print "             windows Media Center Edition = ";~GetSystemMetrics(87)
Print ~GetSystemMetrics(78)'x-virtual Screen
Print ~GetSystemMetrics(79)'y-virtual screen
Print ~GetSystemMetrics(16)'SM_CXFULLSCREEN = 16 - gives The width the Arbeitsbereiches one maximierten Fensters back.
Print ~GetSystemMetrics(17)'SM_CYFULLSCREEN = 17 - gives the level the Arbeitsbereiches one maximierten Fensters back.
'SM_CXSCREEN = 0 - gives The width the Bildschirms back.
'SM_CYSCREEN = 1 - gives the level the Bildschirms back.
Print ~GetSystemMetrics(76)'SM_XVIRTUALSCREEN = 76 - windows 98/NT - supply The left Koordinate (with several Monitoren)
Print ~GetSystemMetrics(77)'SM_YVIRTUALSCREEN = 77 - windows 98/NT - supply The upper Koordinate (with several Monitoren)
WaitInput
End

Provisorisches what straight falls in
Compile Mark Separation

Def GetSystemMetrics(1) !"user32","GetSystemMetrics"
Window Style $f0
Declare x&,y&,wx&,wy&
x& = GetSystemMetrics(76)'SM_XVIRTUALSCREEN /
y& = GetSystemMetrics(77)'SM_YVIRTUALSCREEN /
wx&= GetSystemMetrics(78)'x-virtual Screen  /
wy&= GetSystemMetrics(79)'y-virtual Screen  /
Create("Window",%Desktop,"",x&,y&,wx&,wy&)'übermalen
window 0,0-%MaxX,%MaxY'Screensaver
CLS RGB(0,0,0)
WaitInput
END

XProfan X3
TC-Programming [...]

XProfan 8.0 - 10.0 - X2 - X3 - X4

12/12/15 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Xegon

very something like Search I....
first Test was ok - will be it tommorrow time into Progammcode the Schoners install.....
Register with the Result

and....

Vielen, many Thanks .....

XProfan X2

12/12/15 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Georg
Teles

Well, so effectively was The provis. Solution not --- these created over the whole 'virtuellen Monitor' (red expanse s. Image) the window (windows created this virtual Monitor as a expanse and points whom physikalischen TFTs The reaches To) and the %HWnd becomes on the 'primären physikalischen' created

_mon.png	15 kB

Hochgeladen:	12/13/15

Downloadcounter:
		Download

XProfan X3
TC-Programming [...]

XProfan 8.0 - 10.0 - X2 - X3 - X4

12/13/15 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Xegon

Hi,

in my Tests have I always a second weißen screen.
fits in my case very well, I whom Schoner in white program have. another colour can I but not take on.
i'll whom success tommorrow in the venture testing.

XProfan X2

12/13/15 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Georg
Teles

Hmm now having me The Screensaver too interested, have on speedy a Ansatzschnipsel for 2 monitors as example zusammengeschustert

this benötigst You yet these PCU [...]

Compile Mark Separation

 $u ListMonitors.pcu = mon_
Declare e%
Set("AutoPaint",0)
Windowstyle $f0+512+1024'nirgends Show
window 0,0-0,0
Def GetSystemMetrics(1) !"user32","GetSystemMetrics"
Declare x&,y&,wx&,wy&
x& = GetSystemMetrics(76)'SM_XVIRTUALSCREEN /
y& = GetSystemMetrics(77)'SM_YVIRTUALSCREEN /
wx&= GetSystemMetrics(78)'x-virtual Screen  /
wy&= GetSystemMetrics(79)'y-virtual Screen  /
' monitors detect
Declare mons&, mons$, anzahl&
mons& = Create("Grid",1,0)
' monitors in gridBOX reading !
mon_GetMonitors(mons&)
anzahl& = GetCount(mons&)
Declare wnd&[(anzahl&-1)]
Window Style $f0+512

WhileLoop 0,(anzahl&-1)

    mons$ = GetText$(mons&,&loop,0)
    ' in Taskbar Show
    'wnd&[&loop] = Create("Window",%Desktop,"",Val(SubStr$(mons$,1,"_")),Val(SubStr$(mons$,2,"_")),Val(SubStr$(mons$,3,"_")),Val(SubStr$(mons$,4,"_")))
    ' in Taskbar Hide
    wnd&[&loop] = Create("Window",%hWnd,"",Val(SubStr$(mons$,1,"_")),Val(SubStr$(mons$,2,"_")),Val(SubStr$(mons$,3,"_")),Val(SubStr$(mons$,4,"_")))
    ' always in the vordergrund
    SetWindowPos wnd&[&loop] = Val(SubStr$(mons$,1,"_")),Val(SubStr$(mons$,2,"_"))-Val(SubStr$(mons$,3,"_")),Val(SubStr$(mons$,4,"_"));-1

EndWhile

Declare bg_rot&, bg_blau&
MCls wx&,wy&,RGB(160,0,0)
bg_rot& = Create("HPIC",0,"&MEMBMP")
MCls wx&,wy&,RGB(0,0,160)
bg_blau& = Create("HPIC",0,"&MEMBMP")
male(wnd&[0],bg_rot&,"Monitor 1")
male(wnd&[1],bg_blau&,"Monitor 2")
Clear e%

WhileNot e%

    WaitInput

    If (%Key = 2) | (%Key = 27)

        Inc e%

    EndIf

    If %wmPaint

        male(wnd&[0],bg_rot&,"Monitor 1 watts new drawn !")
        male(wnd&[1],bg_blau&,"Monitor 2 watts new drawn !")

    EndIf

EndWhile

Proc male

    Parameters wnd&, hPic&, Text$
    Startpaint wnd&
    Drawpic hPic&,0,0;0
    Print Text$
    EndPaint

ENDPROC

DeleteObject bg_rot&
DeleteObject bg_blau&
END

Regards, good night, good tommorrow !

XProfan X3
TC-Programming [...]

XProfan 8.0 - 10.0 - X2 - X3 - X4

03/20/16 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Xegon

Hello and many Thanks for Help....

for my tack has the example with the weissen Window in the virtual dissolution gereicht.

The second, dritte and fourth Monitor remaining knows. the fits very well and the BS becomes on the first Monitor spend with Backgroundcolor knows.

Yes - correctly. heard ... four monitors. The Trend is not More to that second Monitor with us in the Unternehemen, separate the third or fourth Monitor.

XProfan X2

06/05/16 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote