Autor | Thema: Desktop (Workarea) verkleinern, wie? | | Datum:20.06.02 11:04 
(dige@gmx.de) | |
Hi, ich möchte für einen Ticker den Desktop (Arbeitsbereich)
verkleineren, so das andere Applikationen den Ticker nicht
überdecken, bzw. der Ticker nichts überdeckt.
Hat jemand eine Idee?
MfG Dirk
|
| | Datum: 25.06.02 10:13 
(dige@gmx.de) | |
Hi Profaner,
ich habe nun selbst im MSDN die Lösung gefunden und hier für alle
die es interessiert wie man den Arbeitsbereich festlegen kann:
-------------[Beginn] Codeschnipsel Desktop verkleinern -------
Def SystemParametersInfo(4) !"USER32","SystemParametersInfoA"
' (1)long& (2)long& (3)Bereich# (4)long&
Declare x1&, y1&, x2&, y2&, Bereich#
Dim Bereich#, 12
' Aktuelle Workarea holen
@SystemParametersInfo( SPI_GETWORKAREA&, 0, Bereich#, 0 )
Let X1& = @Long (Bereich#,0)
Let Y1& = @Long (Bereich#,4)
Let X2& = @Long (Bereich#,8)
Let Y2& = @Long (Bereich#,12)
' Workarea um 20 Pixel verkleinern (zum Bsp. Platz für einen Ticker ;-] )
Long Bereich#, 4 = 20
@SystemParametersInfo( SPI_SETWORKAREA&, 0, Bereich#, 0 )
---------[Ende] -----------------------------------------------
Funktioniert bei mir mit Win2000 und Profan 7.0f
Viel Spaß!
Gruß Dirk
|
|
|