Bildschirm invertieren
Unser User Nicodius hat folgenden SourceCode veröffentlicht, mit dem es möglich ist den ganzen Bildschirm zu invertieren. Jedenfalls bis zum nächsten Repaint.
Jens Schumann und Robert_G haben an dem Source noch ein wenig mitgewirkt.
Delphi-Quellcode:
var
dc: HDC; DestopWindowHandle: hWND; begin DestopWindowHandle := GetDesktopWindow; dc := GetWindowDC(DestopWindowHandle); // Desktop erfassen try // Resource angefordert -> Resourcenschutzblock verwenden {Das zu bearbeitende Feld (hier der ganze Bildschirm} Invertrect(dc, Screen.DesktopRect); // Invertieren finally // da der DC des DesktopWindows angefordert wurde, muss hier auch // das Handle des DesktopWindows angegeben werden ReleaseDC(DestopWindowHandle, dc); // DC wieder freigeben end; end; |
Alle Zeitangaben in WEZ +1. Es ist jetzt 08:23 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz