Domino 9 und frühere Versionen > Entwicklung

Frame soll erkennen welche Bildschirmauflösung

<< < (2/4) > >>

eknori (retired):
öhhmmm, das steht doch da in freundlichen Buchstaben


Sub initialize()
   Dim session As New NotesSession
   
   Call session.SetEnvironmentVar("ScreenResolution",GetScreenResolution)
%REM
'    @If(@Environment("ScreenResolution") ="1024x768";
'                      (@Command([OpenNavigator];"Nav1024"));
'                      (@Command([OpenNavigator];"Nav800")))
%END REM
End Sub

*Kopfkratz*

adminnaddel:
Moin,

habe das jetzt nicht über die API gelöst! Trotzdem danke.
Mache das jetzt über zwei Schaltflächen, @Environment und dem Datenbankscript.

Okay, bis dann

Viele Grüße

eknori (retired):
OK, aber warum machst du das nicht mit dem Script ?? funktioniert doch einwandfrei. Oder hast du einen Notes Client unter Linux ( wine ) am Laufen ( *running gag* ) ??
Wie ermittelst du denn die aktuelle BSA des Users ??.

eknori

adminnaddel:
Okay,

das liegt daran, das man bei uns einfach plattform unabhänging arbeiten möchte. dasist nun mal nicht mit api möglich.
das "about document" kommt als erstes hoch und hier muß sich der anwender für eine auflösung entscheiden.

viele grüße
andreas

Bellerophon:
*greetz* @ ALL!

Coole Sache das mit den Framesets, ABER:

Ich habe das wie oben beschrieben gemacht!
Es wird auch dei Bildschirmauflösung ermittelt und in die notes.ini eingetragen.

Habe auch zwei Framesets:

1280x1024
1024x768

Die Seiten sind dementsprechend angepasst!

NUR:

In den Startoptionen der Datenbank MUSS ich ja ein Frameset Auswählen:
(Siehe Anhang)

Habe dort die Auflösung der meisten Nutzer eingetragen: 1280x1024

WENN die anderen Nutzer mit der kleineren Auflösung die Datenbank öffnen, öffnen sich beide Framesets...........

Im Datenbankscript habe ich als:

Declaration:

--- Code: ---Type RECT
x1 As Long
y1 As Long
x2 As Long
y2 As Long
End Type

Declare Function GetDesktopWindow Lib "user32" () As Long
Declare Function GetWindowRect Lib "user32" (Byval hwnd As Long, lpRect As RECT) As Long
--- Ende Code ---

Im Postopen:

--- Code: ---@If(@Environment("ScreenResolution") ="1024x768";
     (@Command([OpenFrameset];"CALENDAR1024x768"));
     (@Command([OpenFrameset];"CALENDAR1280x1024")))
--- Ende Code ---

Initialize:

--- Code: ---Sub initialize()
Dim session As New NotesSession

Call session.SetEnvironmentVar("ScreenResolution",GetScreenResolution)
%REM
'@If(@Environment("ScreenResolution") ="1024x768";
'     (@Command([OpenFrameset];"CALENDAR1024x768"));
'     (@Command([OpenFrameset];"CALENDAR1280x1024")))
%END REM
End Sub
--- Ende Code ---

"GetScreenResolution":

--- Code: ---Function GetScreenResolution As String
Dim R As Rect
Dim hWnd As Long
Dim RetVal As Long
hWnd = GetDesktopWindow ()
RetVal = GetWindowRect(hWnd, R)
GetScreenResolution = (R.x2 - R.x1) & "x" & (R.y2 - R.y1)
End Function
--- Ende Code ---

Das ganze mit Notes 6.5.5 Clients (Ich weiß, dass ich hier im Notes 5 Entwicklungsforum bin, aber soooooviel wird das ja nicht ausmachen, oder?)
Habe ich da was falsch gemacht???

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete