Allgemeine Fragen zur PROFAN Programmierung
Views (Heute): 242890 (4326)
  Suchen
 Zurück zur Übersicht
 AutorThema: Desktop (Workarea) verkleinern, wie?
Dirk
Datum:20.06.02 11:04 Antwortenals Email verschicken (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


DiGe
Datum: 25.06.02 10:13 Antwortenals Email verschicken (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


 Zurück zur Übersicht