Allgemeine Fragen zur PROFAN Programmierung

Views (Heute): 242890 (4326)

| Suchen
| Zurück zur Übersicht

Autor | Thema: Desktop (Workarea) verkleinern, wie?
Dirk
| 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
DiGe
| 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

| Zurück zur Übersicht