Dimmed Sample

[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

[TiGü]

Knallt's denn bei DestroyWindow(MainHandle) oder bei pFade.Free?

[EWeiss]

Zitat von TiGü:

Knallt's denn bei DestroyWindow(MainHandle) oder bei pFade.Free?

War nicht identifizierbar.
Der Compiler geht ins ASM Window und steht in TObject.Free.

Muss mal schaun scheint ein problem mit dem Array Pixels zu sein.

EDIT:
Jo das wars..
Mußte nach der zuweisung vom neuen Bitmap das verändert wurde das Array löschen.

FillChar(Pixels, SizeOf(Pixels), 0);

Jetzt gehts..

gruss

[EWeiss]

Hier zum Testen...

Bei mir läuft es auf Win7.

gruss

[DeddyH]

Lööf... aber beim Schließen ist dann doch wieder Farbe zu sehen, wenn auch nur kurz

[EWeiss]

Zitat von DeddyH:

Lööf... aber beim Schließen ist dann doch wieder Farbe zu sehen, wenn auch nur kurz

Muss so sein denn das zerschießen der Classe pFade setzt das vorraus
Muss noch schaun wie ich da innerhalb der DLL OnClick und solche sachen also Evens implementiere.
Da ich keine Winproc innerhalb der DLL verwende also das erstellte Window die DefWindowProc verwendet ist das nicht so einfach.

Danke für's testen.
Source kommt dann wenn fertig in die Rubrik Sotware Projekt (Open Source)
Will jetzt erst noch den Desktop Kram verwirklichen.

Vielleicht werde ich dann doch nur das Handle übergeben so läuft es zur zeit ja nur mit Delphi.

gruss

[TiGü]

Zitat von EWeiss:

Zitat von DeddyH:

Lööf... aber beim Schließen ist dann doch wieder Farbe zu sehen, wenn auch nur kurz

Muss so sein denn das zerschießen der Classe pFade setzt das vorraus

Muss es nicht.
Rufe FadeDestroy doch einfach im FormDestroy auf.