[Freeware] MagicMagnifier - eine Farbwahl-Lupe

[patti]

Hallo DP

Ich möchte ein Programm vorstellen, dass ich heute im Laufe des Nachmittags programmiert habe. Ich finde es sehr nützlich und hab mir gedacht, dass es vielleicht jemandem gefällt

Es heißt "MagicMagnifier". Das Tool beinhaltet eine Lupe mit einstellbarem Vergrößerungsfaktor. Diese Lupe vergrößert den Bildschirmausschnitt, der sich bei der Maus befindet. In der Mitte der Vergrößerung ist ein Pixel markiert. Dessen Farbe wird unter der Vergrößerung (in einem Shape) angezeigt. Per Druck auf die Leertaste wird diese Farbe gespeichert (rechte Seite des Fensters). Darunter werden die RGB-Werte, der HTML-Farb-Code und der Delhi-Farb-Wert ausgegeben. Ein Klick auf die Farb-Werte kopiert folgendes in die Zwischenablage:

• bei den RGB-Werten: einen String, der so aufgebaut ist:
  RGB(r,g,b) (natürlich mit den entsprechenden RGB-Werten). Dieser String lässt sich in Delphi einfügen.
• beim HTML-Code wird dieser einfach in die Zwischenablage kopiert
• beim Delphi-Farb-Wert verhält es sich ebenso.

Per Klick auf die aktuelle Farbe kann aus einem einfachen ColorDialog eine Farbe ausgewählt werden. Zu dieser Farbe werden dann die entsprechenden Farb-Codes ausgegeben.

Das Programm ist also sehr nützlich, wenn man schnell einen Farb-Wert von einer Farbe braucht oder man eine schöne Farbe sucht!

Das Programm speichert seine Position und die aktuelle Farbe in eine Ini-Datei im Anwendungsverzeichnis (ja, ich weiß, das wird nicht so gerne gesehen ) -> Schreibrechte im Ordner werden benötigt!

Alles in allem finde ich, dass es ein sehr nützliches Tool ist, dessen Funktionalität und Nutzen sich schwer beschreiben lässt (damit es etwas verständlicher wird, habe ich einen Screenshot angehängt)

Neue Version vom 28.12.2007:

• Zoom-Faktor wird mitgespeichert
• Zoomen mit Mausrad möglich (nur wenn das Fenster den Fokus hat)
• Systemweit (auch wenn das Fenster nicht den Fokus hat) Farbe wählen mit STRG + LEERTASTE

Neue Version vom 29.12.2007:

• Ein- und ausschaltbares Crosshair (Fadenkreuz)

Patti

PS: Läuft ab Windows 2000

[patti]

Ich persönlich finde es mit Drag & Drop etwas umständlich, eine Farbe auszuwählen. Was ich gut finde, sind die vielen Extras, wie z.B. Farbverlauf-Farben, etc.

Ich werde noch einbisschen was in mein Programm einbauen, vielleicht wird dann die Bedienung dadurch auch etwas verbessert.

Habe anfangs eigentlich nicht vorgehabt, noch viel an dem Mini-Tool zu machen, sondern es "so wie es ist" mal vorzustellen (soll wirklich nur ein Mini-Tool sein, das man ab und zu mal braucht). Habe mir gedacht, dass es vielleicht jemand nützlich findet und seine Freude daran hat. Aber wie es ausschaut werde ich noch etwas daran weiter arbeiten

Patti

[Die Muhkuh]

Hi,

mach doch das Drag & Drop als Alternative

[patti]

Ja, mal schauen. Werde ich vielleicht wirklich als Alternative mit einbauen.
Dank deiner Anregung mit MyColor bastle ich gerade an einer Ablage für mehrere Farben

[Die Muhkuh]

Wenn Du die Lupe noch auf den zweiten Monitor bringst, wäre es nicht schlecht, weil das kann der von Opa Knack auch nicht und MyColor nutze ich fast täglich.

[patti]

Ich muss ehrlich gestehen, dass ich mit zwei Monitoren nicht viel Erfahrung habe. Ich werde mich mal in das Thema einlesen und dann versuchen, das Tool Zwei-Monitor-Kompatibel zu machen

[Namenloser]

Hi, ganz nettes Tool, auch wenn mir nicht ganz klar ist was es für nen Vorteil bietet
Was mich interessieren würde ist, wie du das Fenster selbst vom Ausschnit ausschließt.

[Die Muhkuh]

Ich schätze mal, dass es sich um eine Komponente aus der JVCL handelt, deren Name mir gerade nicht einfällt.

TJvMagnifier oder sowas^^

[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