| |
| |
|
| - page 1 - |
|
Xegon | allô zusammen,
je programmiere déjà quelques Zeit à einem Bildschirmschoner rum qui aussi wirklich bien funktioniert.
Problem ist mais cela cette seulement sur dem primären Monitor sous Windows courir soll. alors Bildschirm 2 et 3 doit aus geschaltet volonté ou bien noir peint.
Mir veux es pas gelingen ici une Solution pour pour trouver.
Fenstergröße ausdehnen allez pas, là %maxx cet pas zulässt.
Gibt on une Übergröße un - führt cela trop einem Bug.
Gezielt den 2. Monitor ausschalten dans den Standby habe je aussi encore pas trouvé.
peux quelqu'un aider? |
|
| |
| |
| |
|
 |
« cette Beitrag wurde comme Solution gekennzeichnet. » |
|
Georg
Teles | Hm, là fällt mir seulement GetSystemMetrics & cet [...]  Workarea, avec denen du spielen & quelque chose bricoler peux
GetSystemMetrics
KompilierenMarqueSéparation
Provisorisches quoi justement einfällt
KompilierenMarqueSéparationDef GetSystemMetrics(1) !"user32","GetSystemMetrics"
Fenêtre Style $f0
Déclarer 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 /
Créer("Window",%Desktop,»,x&,y&,wx&,wy&)'übermalen
window 0,0-%MaxX,%MaxY'Screensaver
CLS RGB(0,0,0)
WaitInput
FIN
|
|
| |
| |
| |
|
|
|
 | | la hâte Du einmal setErrorLevel -2 probiert? |
|
| |
| |
| |
|
|
Georg
Teles | Hm, là fällt mir seulement GetSystemMetrics & cet [...] Workarea, avec denen du spielen & quelque chose bricoler peux
GetSystemMetrics
KompilierenMarqueSéparation
Provisorisches quoi justement einfällt
KompilierenMarqueSéparationDef GetSystemMetrics(1) !"user32","GetSystemMetrics"
Fenêtre Style $f0
Déclarer 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 /
Créer("Window",%Desktop,»,x&,y&,wx&,wy&)'übermalen
window 0,0-%MaxX,%MaxY'Screensaver
CLS RGB(0,0,0)
WaitInput
FIN
|
|
| |
| |
| |
|
|
Xegon | oui c'est ca quelque chose comme cherche je....
Erster Test était ok - werde es demain la fois dans den Progammcode des Schoners einbauen.....
S'inscrire mich avec dem Ergebnis
et....
Vielen, vielen Dank ..... |
|
| |
| |
| |
|
|
Georg
Teles | bof, so effectif était qui provis. Solution pas --- cet erzeugt sur den ganzen 'virtuellen Monitor' (rote Surface s. Bild) cela la fenêtre (Windows erzeugt cette virtuellen Monitor comme une Surface et weist den physikalischen TFTs qui Bereiche trop) et qui %HWnd wird sur dem 'primären physikalischen' erzeugt
 |
|
| |
| |
| |
|
|
Xegon | Salut,
dans meinen Tests habe je toujours une zweiten weißen Bildschirm.
Paßt dans mon cas très bien, là Je l' Schoner dans sais programmiert habe. une autre la couleur peux je mais pas einstellen.
je werde den Erfolg demain im Unternehmen testen. |
|
| |
| |
| |
|
|
Georg
Teles | Hmm eh bien avons mich qui Screensaver aussi intéressé, habe sur schnelle une Ansatzschnipsel pour 2 Monitore comme Beispiel zusammengeschustert
hierfür besoin Du encore cet PCU [...]
$U ListMonitors.pcu = mon_
Déclarer e%
Set("AutoPaint",0)
Windowstyle $f0+512+1024'nirgends Montrer
window 0,0-0,0
Def GetSystemMetrics(1) !"user32","GetSystemMetrics"
Déclarer 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 /
' Monitore ermitteln
Déclarer mons&, mons$, anzahl&
mons& = Créer("Grid",1,0)
' Monitore dans GridBox einlesen !
mon_GetMonitors(mons&)
anzahl& = GetCount(mons&)
Déclarer wnd&[(anzahl&-1)]
Fenêtre Style $f0+512
WhileLoop 0,(anzahl&-1)
mons$ = GetText $(mons&,&loop,0)
' dans Taskleiste Montrer
'wnd&[&loop] = Créer("Window",%Desktop,»,Val(Substr$(mons$,1,"_")),Val(Substr$(mons$,2,"_")),Val(Substr$(mons$,3,"_")),Val(Substr$(mons$,4,"_")))
' dans Taskleiste ausblenden
wnd&[&loop] = Créer("Window",%hWnd,»,Val($ Substr(mons$,1,"_")),Val($ Substr(mons$,2,"_")),Val($ Substr(mons$,3,"_")),Val($ Substr(mons$,4,"_")))
' toujours im vordergrund
SetWindowPos wnd&[&loop] = Val($ Substr(mons$,1,"_")),Val($ Substr(mons$,2,"_"))-Val($ Substr(mons$,3,"_")),Val($ Substr(mons$,4,"_"));-1
Endwhile
Déclarer bg_rot&, bg_blau&
MCLS wx&,wy&,RGB(160,0,0)
bg_rot& = Créer(«PCSI»,0,"& MEMBMP")
MCLS wx&,wy&,RGB(0,0,160)
bg_blau& = Créer(«PCSI»,0,"& MEMBMP")
male(wnd&[0],bg_rot&,"Monitor 1")
male(wnd&[1],bg_blau&,"Monitor 2")
Claire e%
WhileNot e%
WaitInput
Si (%Key = 2) | (%Key = 27)
Inc e%
EndIf
Si %wmPaint
male(wnd&[0],bg_rot&,"Monitor 1 wurde récente gezeichnet !")
male(wnd&[1],bg_blau&,"Monitor 2 wurde récente gezeichnet !")
EndIf
Endwhile
Proc male
Paramètres wnd&, hPic&, text$
Startpaint wnd&
Drawpic hPic&,0,0;0
Imprimer text$
EndPaint
ENDPROC
DeleteObject bg_rot&
DeleteObject bg_blau&
FIN
Grüße, gute nuit, guten demain ! |
|
| |
| |
| |
|
|
Xegon | allô et vielen Dank pour qui Aider....
Pour mon Zwecke hat cela Beispiel avec dem weissen la fenêtre dans qui virtuellen Auflösung gereicht.
qui zweite, dritte et vierte Monitor bleibt weiss. cela paßt très bien et qui BS wird sur dem ersten Monitor ausgeben avec Hintergrundfarbe weiss.
oui - richtig est ... quatre Monitore. qui Trend allez pas plus zum zweiten Monitor chez uns im Unternehemen, mais zum dritten ou bien vierten Monitor. |
|
| |
| |
| |
|
(683)
Deutsch
English
Français
Español
Italia