Dimmed Sample

[EWeiss]

Projekt entfernt..

[EWeiss]

Noch nicht perfekt aber ein Anfang.

Windows werden nun richtig gezeichnet.
Hatte vergessen das GetDC ja nur für den Client Bereich zuständig ist
Mit GetWindowDC hat's dann funktioniert.

Und die Farbe zu der gefaded werden soll kann man nun angeben.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin

  AutoFade(Form1, RGB(255,255,255), RGB(0, 0, 0) {RGB(64,128,255), RGB(0, 32, 64)});
  ShowMessage('What nu.. Hi greyed out');
  deinit := DIMMED_DEINIT;

end;

gruss

[s.h.a.r.k]

Darf man nach der Technik fragen, die du da anwendest? Legst du eine weiter Form über die bestehende? Oder greifst du irgendwie in die Zeichenprozedur ein?

[EWeiss]

Zitat von s.h.a.r.k:

Darf man nach der Technik fragen, die du da anwendest? Legst du eine weiter Form über die bestehende? Oder greifst du irgendwie in die Zeichenprozedur ein?

Und als auch.. Beides
Ich lege eine Form als Child in die Anwendung kopiere den Hintergrund vom Devicekontex mit GetWindowDC / BitBlt
und übertrage diesen in das Childwindow dabei wird die Original Farbe in die Übergebene gefadet.

Das ganze EXE -> DLL

gruss

[s.h.a.r.k]

Okay, hatte ich mir schon gedacht, dass das so läuft Danke dir!

[EWeiss]

Zitat von s.h.a.r.k:

Okay, hatte ich mir schon gedacht, dass das so läuft Danke dir!

Lade den Source später mal hoch..
Hab im moment wiedermal ein problem beim Freigeben der Classe
mal gehts mal nicht

To many error in Free
Obwohl alles korrekt freigegeben wird.

Wüßte nicht was da falsch sein sollte.

Delphi-Quellcode:

type
  TFadeWnd = class(TComponent)
  private
    { Private-Deklarationen }
    procedure AutoFade(pParentWnd: TWinControl; clLight: COLORREF;
      clDark: COLORREF); stdcall;
     procedure CreateGradient(clLight: COLORREF;
      clDark: COLORREF); virtual;
    procedure FadeWnd(pParentWnd: TWinControl; clLight: COLORREF;
       clDark: COLORREF); stdcall;
  public
    function GetDibR(const drgb: cardinal): cardinal; inline;
    function GetDibG(const drgb: cardinal): cardinal; inline;
    function GetDibB(const drgb: cardinal): cardinal; inline;
    function Create(pParentWnd: TWinControl; rc: TRect): Bool; reintroduce; overload;
    constructor Create(AOwner: TWinControl); reintroduce; overload;
    destructor Destroy; override;
  protected
    m_clGradient: array [0..255] of COLORREF;
    m_hBitmap: HBITMAP;
    m_hNewBitmap: HBITMAP;
    m_pWndLock: TWinControl;
    procedure OnDraw(pDC: HDC);
    function CopyScreenToBitmap(lpRect: TRect): HBITMAP;
    function FadeBitmap(hBmp: HBITMAP; dfTrans: double = 100.0; hBmpDC: HDC = 0): HBITMAP;
  end;

var
  pFade: TFadeWnd;
  MainHandle: HWND;
  Pixels: array of Cardinal;

// Exports  
function FadeCreate(pParentWnd: TWinControl;clLight: COLORREF;
      clDark: COLORREF): Bool; stdcall;
procedure FadeDestroy; stdcall;

Delphi-Quellcode:

procedure FadeDestroy; stdcall;
begin

   if Assigned(pFade) then
   begin
     DestroyWindow(MainHandle);
     pFade.Free;
     pFade := nil;
   end;
end;

gruss

[hathor]

WIN 7 64Bit:
Zugriffsverletzung in Modul Dimmed.dll.

Nachtrag:
Programm bleibt nach dem Beenden im Speicher und treibt die CPU-Last nach oben.
Kann nur mit dem Task-Manager gekillt werden!

[s.h.a.r.k]

Bekomme auch eine Zugriffsverletzung, wenn ich auf "Dimm Desktop" klicke -- Win XP, 32 Bit:

Code:

Zugriffsverletzung bei Adresse 005D1A4A in Modul 'Dimmed.dll'. Lesen von Adresse 02C50000.

Ansonsten gibt es noch folgende Probleme:

• Wenn ich auf "Dimm Me" klicke, so wird das eigentliche Formular defokusiert und das Formular, welches du über das Hauptformular legst bekommt logischweise den Fokus. Das ist blöde, aber ich habe bisher keinen sinnvollen Weg drum herum gefunden... Habe ja eine Overlay-Komponente gebastelt, welche z.B. für eine längere Lade-Prozedur eingeblendet werden kann, wobei ich nur AlphaBlend nutze.
• Wenn du ein Resize des Hauptformulars machst, wenn der Overlay eingeblendet ist, dann passt der die Darstellung nicht mehr wirklich und wird teilweise sehr fehlerhaft.
• Teilweise fadet das Overlay nicht und wirkt sehr rukelig. Im Moment ist es sogar so, dass es komplett ohne Fading auskommt, d.h. ich drücke auf den Button und so ~250ms später erscheint erst der Overlay in Graufstufen.

[EWeiss]

Zitat:

Nachtrag:
Programm bleibt nach dem Beenden im Speicher und treibt die CPU-Last nach oben.
Kann nur mit dem Task-Manager gekillt werden!

Danke für die infos.
Habe ja geschrieben das es ein problem beim allocieren des Speichers gibt in verbindung mit CreateDibSection.

Zitat:

Wenn ich auf "Dimm Me" klicke, so wird das eigentliche Formular defokusiert und das Formular, welches du über das Hauptformular legst bekommt logischweise den Fokus. Das ist blöde, aber ich habe bisher keinen sinnvollen Weg drum herum gefunden... Habe ja eine Overlay-Komponente gebastelt, welche z.B. für eine längere Lade-Prozedur eingeblendet werden kann, wobei ich nur AlphaBlend nutze.

Das ist der Effekt der erwünscht wird.
Wenn du in XP Herunterfährst und der Logout Dialog kommt hast du auch keinen zugriff mehr auf dahinter liegende Fenster.
Hatte vorher EnableWindow(ParentHandle, False) wäre vielleicht sinnvoll das wieder zu aktivieren.

Zitat:

Wenn du ein Resize des Hauptformulars machst, wenn der Overlay eingeblendet ist, dann passt der die Darstellung nicht mehr wirklich und wird teilweise sehr fehlerhaft.

Diese Funktion ist kein FadeScreen der dazu gedacht ist ein Window einfaden zu lassen wenn ein Programm hochfährt.
Sondern den Status Aktiv/Deaktiv wiederzugeben wie beim ShutDown Effekt bei Xp
Das Teil ist noch am Anfang und ein resize während es grau ist im fertigen projekt nicht mehr möglich.
Zum dem wäre es ja auch dann der Fall das du dich selbst (HauptAnwendung) darum kümmern mußt.
Die DL kann nicht den resize der Anwendung steuern das muss man schon selbst machen.

Also der Normale weg ist nicht der über einen Button sondern in verbindung mit Dialogen
und dem Windowstate Aktiv/Deaktiv sinnvoll.

Zitat:

Teilweise fadet das Overlay nicht und wirkt sehr rukelig. Im Moment ist es sogar so, dass es komplett ohne Fading auskommt, d.h. ich drücke auf den Button und so ~250ms später erscheint erst der Overlay in Graufstufen.

Bei mir bisher nicht aufgetreten.

Dabke für's testen

@Daniel Danke für das verschieben.

gruss