COMPOSANT TDESKTOP

Bacterius

Messages postés: 3792
Date d'inscription: samedi 22 décembre 2007
Statut: Membre
Dernière intervention: 3 juin 2016

- 18 sept. 2008 à 21:34
blueperfect

Messages postés: 234
Date d'inscription: mardi 13 novembre 2007
Statut: Membre
Dernière intervention: 21 novembre 2013

- 20 sept. 2008 à 18:28

Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/47995-composant-tdesktop

blueperfect

Messages postés: 234
Date d'inscription: mardi 13 novembre 2007
Statut: Membre
Dernière intervention: 21 novembre 2013

20 sept. 2008 à 18:28

S'il y avait une voie à explorer, ce serait, selon moi, du côté de Active Desktop (les éléments Web de la Personalisation du Bureau)....

Bacterius

Messages postés: 3792
Date d'inscription: samedi 22 décembre 2007
Statut: Membre
Dernière intervention: 3 juin 2016

9
19 sept. 2008 à 19:22

Hmm ...
Pourquoi pas essayer de récupérer le Handle de Explorer.exe, et puis un EnumWindows pour récuperer le handle du canevas de fond d'écran ... Et on agit pareil qu'avec les handles de "DesktopWindow" ??
J'essayerai dès que possible.

Cordialement, Bacterius !

blueperfect

Messages postés: 234
Date d'inscription: mardi 13 novembre 2007
Statut: Membre
Dernière intervention: 21 novembre 2013

19 sept. 2008 à 19:07

en quelque sorte...

Un live wallpaper !

Bacterius

Messages postés: 3792
Date d'inscription: samedi 22 décembre 2007
Statut: Membre
Dernière intervention: 3 juin 2016

9
19 sept. 2008 à 18:55

Tu veux dire prendre comme canevas le fond d'écran et non pas le moniteur ?

Cordialement, Bacterius !

blueperfect

Messages postés: 234
Date d'inscription: mardi 13 novembre 2007
Statut: Membre
Dernière intervention: 21 novembre 2013

19 sept. 2008 à 18:53

oups : 'tu déplae' à lire 'tu déplaces"

f0xi

Messages postés: 4205
Date d'inscription: samedi 16 octobre 2004
Statut: Modérateur
Dernière intervention: 12 mars 2022

38
19 sept. 2008 à 13:11

Hop, je t'ajoute la GDI+ (Désactivable) et le code pour le SingleTon (Désactivable).

on passe de TComponent a TCanvas, car inutile d'avoir TComponent.

{$DEFINE DESKTOPCANVAS_USEGDIPLUS} // active la GDI+
{$DEFINE DESKTOPCANVAS_ASSINGLETON} // active le mode Singleton

{$IFDEF DESKTOPCANVAS_USEGDIPLUS}
uses GdipApi, GdipClass;
{$ENDIF}

type
TDesktopCanvas = class(TCanvas)
private
fDesktopHandle: HWND;
fDesktopHDC : HDC;
{$IFDEF DESKTOPCANVAS_USEGDIPLUS}
fGPGraphics : TGPGraphics;
fGPPen : TGPPen;
fGPBrush : TGPSolidBrush;
{$ENDIF}
protected
procedure CreateHandle; override;
public
{$IFDEF DESKTOPCANVAS_USEGDIPLUS}
property GPGraphics : TGPGraphics read fGPGraphics;
property GPPen : TGPPen read fGPPen;
property GPSolidBrush: TGPSolidBrush read fGPBrush;
{$ENDIF}
property DesktopHandle: HWND read FDesktopHandle;
public
{$IFDEF DESKTOPCANVAS_USEGDIPLUS}
constructor Create(const Compositing: CompositingQuality = CompositingQualityDefault;
const Smooth : SmoothingMode = SmoothingModeAntiAlias); reintroduce;
{$ELSE}
constructor Create; reintroduce;
{$ENDIF}
destructor Destroy; override;
{$IFDEF DESKTOPCANVAS_ASSINGLETON}
class function NewInstance: TObject; override;
procedure FreeInstance; override;
{$ENDIF}
end;

TDesktop = class(TComponent)
private
fDesktopCanvas : TDesktopCanvas;
public
property DesktopCanvas : TDesktopCanvas read fDesktopCanvas;
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
end;

{$IFDEF DESKTOPCANVAS_ASSINGLETON}
var
__DesktopCanvasSingleInstance : TObject = nil;
{$ENDIF}

{$IFDEF DESKTOPCANVAS_USEGDIPLUS}
constructor TDesktopCanvas.Create(const Compositing: CompositingQuality = CompositingQualityDefault;
const Smooth : SmoothingMode = SmoothingModeAntiAlias);
begin
inherited Create;
fDesktopHandle := GetDesktopWindow;
fDesktopHDC := GetWindowDC(fDesktopHandle);
Handle := fDesktopHDC;

fGPGraphics := TGPGraphics.Create(Handle);
fGPGraphics.SetCompositingQuality(Compositing);
fGPGraphics.SetSmoothingMode(Smooth);
fGPPen := TGPPen.Create(aclBlack);
fGPBrush := TGPSolidBrush.Create(aclWhite);
end;
{$ELSE}
constructor TDesktopCanvas.Create;
begin
inherited Create;
fDesktopHandle := GetDesktopWindow;
fDesktopHDC := GetWindowDC(fDesktopHandle);
Handle := fDesktopHDC;
end;
{$ENDIF}

procedure TDesktopCanvas.CreateHandle;
begin
if Handle <> fDesktopHDC then
Handle := fDesktopHDC;
end;

destructor TDesktopCanvas.Destroy;
begin
{$IFDEF DESKTOPCANVAS_USEGDIPLUS}
fGPBrush.Free;
fGPPen.Free;
fGPGraphics.Free;
{$ENDIF}
ReleaseDC(fDesktopHandle, Handle);
inherited Destroy;
end;

{$IFDEF DESKTOPCANVAS_ASSINGLETON}
procedure TDesktopCanvas.FreeInstance;
begin
inherited FreeInstance;
__DesktopCanvasSingleInstance := Nil;
end;

class function TDesktopCanvas.NewInstance: TObject;
begin
if __DesktopCanvasSingleInstance = Nil then
begin
__DesktopCanvasSingleInstance := TDesktopCanvas(inherited NewInstance);
Result := __DesktopCanvasSingleInstance;
end
else
raise Exception.Create(ClassName + ' : This object is used at singleton.');
end;
{$ENDIF}

{ TDesktop }

constructor TDesktop.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
fDesktopCanvas := TDesktopCanvas.Create;
end;

destructor TDesktop.Destroy;
begin
fDesktopCanvas.Free;
inherited Destroy;
end;

Afficher les 16 commentaires