PureBoard

An die Experten
suche 2 Programme
Programm 1 soll die Bildschirmauflösung von Monitor 1 und Moitor 2 von Windows 7 bzw. Windows 10 auf je 2800x800 setzen.
Programm 2 soll die Bildschirmauflösung von Monitor 1 und Moitor 2 von Windows 7 bzw. Windows 10 auf je 1152x864 setzen.
Die Programme müssen ...

Hurra,

beide Versionen flimmerfrei auf Win 7.

Version vom Kiffi erkennt keine TextGadget, mit ImageGadget noch nicht getestet.

Die Version von Josh funst auch mit TextGadget, unterstelle einfach dann auch mit ImageGadget.
ForEver habe ich einfach durch Until WaitWindowEvent()=#PB_Event ...

Ich danke euch,

ich kannte nur die Änderung des Systemcursor, natürlich tauchen da Problehme auf, wenn ich scharf nachdenke.
Die Version vom Kiffi gefällt mir besser, bei ForEver bekomme ich immer Schwindsucht, wenn ich ForEver in ein fertiges Prog einbauen will.

Nach dem testen auf Win7 melde ich ...

SCHADE

Läuft nicht unter Win 7 unter ME und XP wird alles richtig ausgeführt.

Unter Win 7 flattert / flimmert die Maus gewaltig auf einem Gadget und das Endergebnis ist immer anders, mal ist die Mouse Hand auf ein Gadget oder der Maus Zeiger und ab und zu wird die Mouse Hand wird nach Programmende ...

Ich habe mal schnell einen kleinen Textaufbau gemacht und wenn hierbei, die Maus unter Win 7 nicht flackert, ist alles 0K. Auf jeden Fall viel einfacher und effizienter als meine 60 Schleifen Durchgänge.

Current$ = GetCurrentDirectory()

DataSection
GadgetsToCheck:
Data.i 12 ;Anzahl der zu ...

OH Dankr,

dass sieht nicht schlecht aus, besser als 60 mal verschachtelte IF Abfragen.

Das werde ich am WE testen und berichten.

Gruß ToolBoy

Das Problem ist doch gelöst, es würden 60 Einzelabfragen Programmiert, ohne Macro.

In dem Code ist es dich selbstverständlich, dass aus einer IF abfrage das Macro durchlaufen wird und am Ende 60 X ein Endif existiert.

If GetWindowRect_(GadgetID(1),GadgetRect.RECT)
GET(1) Zum Magro Macro GET(AC ...

Macro GET(AC)
GetCursorPos_(mouse.POINT)
If mouse\x>=GadgetRect\Left And mouse\x<=GadgetRect\right And mouse\y>=GadgetRect\Top And mouse\y<=GadgetRect\bottom
If AC > 0 And AC < 121
SetSystemCursor_(LoadCursor_(0,#IDC_HAND),#OCR_NORMAL)
EndIf
GTX = AC
GT$ = GetGadgetText(GTX)
If AC ...

Ich danke dir.

Ja eine Funkmaus. Problem liegt aber wahrscheinlich an PureBasic mit Win 7

IF... Else... Endif lässt den Cursor unter Win 7 flimmern.

Bei Einzelabfragen flimmert nichts mehr.

Ist zwar schlecht 60 x IF... Endif aber so geht es.

Wenn es wieder auftaucht Funkmaus ab.

Gruß ToolBoy

Zittern wie Espenlaub, man kann den Cursor nur ahnen.
Unter Win 7 32 Bit, bei PB 4.0 bis 5.10, bei allen PB Pogrammen, sobald der Cursor auf ein Gadget steht.
Natürlich habe ich hier schon gesucht und nichts gefunden, außer die, die das gleiche Problem haben, was da aber immer im Sande verläuft ...