[Freeware] MagicMagnifier - eine Farbwahl-Lupe

[patti]

Falsch geraten

Die Lupe und alles drum herum ist selber gemacht. Ich mache einen Screenshot und vergrößere dann daraus den entsprechenden Bereich. Dass das Fenster selber im Screenshot nicht sichtbar ist, ist ein wirklicher sehr netter Nebeneffekt von einer Procedure, die ich mir aus einigen Code-Schnipseln zusammengebaut habe (ich habe mir eine eigene Unit draus gemacht):

Delphi-Quellcode:

unit transwin;

interface 

uses 
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs; 

procedure MakeTransparent(AHandle : THandle; AValue : byte = 0; AColor : TColor = clfuchsia);

implementation 

type 
    TSetLayeredWindowAttributes = function ( 
    hwnd : HWND; 
    crKey : TColor; 
    bAlpha : byte; 
    dwFlags : DWORD 
    ): BOOL; stdcall; 

const 
  WS_EX_LAYERED = $80000; 
  LWA_COLORKEY = 1; 
  LWA_ALPHA = 3;

procedure MakeTransparent(AHandle : THandle; AValue : byte = 0; AColor : TColor = clfuchsia);
var 
  Info: TOSVersionInfo; 
  SetLayeredWindowAttributes: TSetLayeredWindowAttributes; 
begin 
  Info.dwOSVersionInfoSize := SizeOf(Info); 
  GetVersionEx(Info); 
  if (Info.dwPlatformId = VER_PLATFORM_WIN32_NT) and 
    (Info.dwMajorVersion >= 5) then 
  begin 
    SetLayeredWindowAttributes := GetProcAddress(GetModulehandle(user32),'SetLayeredWindowAttributes'); 
    if Assigned(SetLayeredWindowAttributes) then 
    begin 
      SetWindowLong(AHandle, GWL_EXSTYLE, GetWindowLong(AHandle, GWL_EXSTYLE) or WS_EX_LAYERED);
      SetLayeredWindowAttributes(AHandle, ColorToRGB(AColor),AValue, LWA_ALPHA);
    end; 
  end; 
end; 

end.

Bei der Procedure MakeTransparent kann ein Wert von 0-255 für die Transparenz und eine Farbe, die vollkommen transparent ist, angegeben werden. Es war ein glücklicher Zufall, dass das Fenster so nicht auf Screenshots zu sehen ist

Patti