COMPOSANT TDESKTOP

Commentaire de Bacterius le 18/09/2008 21:34:32

Composant codé sous Delphi 6.

Cordialement, Bacterius !

Commentaire de cirec le 19/09/2008 01:00:15 administrateur CS

@blueperfect:
il semblerait que tu te sois trompé de site ... ici on code en Pascal Object (Delphi).


@Bacterius:

Faire un composant pour dire voilà je l'ai fait c'est pas utile.
Ton composant n'apporte rien et d'un point de vue de code c'est maigre pour en faire un zip a déposer sur CS.

Ensuite pour le code, je dirais juste: soit le livre est pas si bon que tu le penses ou tu l'as lu trop vite .... je te conseil de le lire à nouveau ... il y  a plein de petites fautes dans le codes:
on ne fait pas appel directement à la propriété dans le code mais à sa variable associée (Ex: pas DesktopCanvas  -- mais FDesktopCanvas )
ici les variables "private" ne sont même pas utilisées.
certaines propriétés devrait être en lecture seule
et dans le destructeur on fait, en général, appel à la méthode héritée en dernier.

voilà en gros ce que j'ai à dire.

pour autoriser un seul composant par application ça s'appel un Singleton va voir ici:
http://www.delphifr.com/code.aspx?ID=27143

Surtout les commentaires de Delphiprog.

je laisse encore quelques temps le code mais tu comprendras que je doive le supprimer.

Commentaire de JulioDelphi le 19/09/2008 09:09:23 administrateur CS

Cirec ? T'es pas réveillé ? le code blue est clairement du delphi :] Peut etre es tu troublé par les "_" et/ou une indentation excessive mais c'est du pascal ^^

Commentaire de f0xi le 19/09/2008 13:11:15 administrateur CS

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;

Commentaire de cirec le 19/09/2008 15:07:19 administrateur CS

euh ... ouai ... j'devais pas être réveillé :(

j'ai réinstallé mon OS et pas encore lissé les polices d'écran ce qui m'a fait prendre une parenthèse "()" pour une accolade "{}" .. ceci et ce que JulioDelphi a dit a fait que j'ai pris ce code pour autre chose que du Delphi ... bouhouououuuu.

Désolé BluePerfect .. ton code a donc bien sa place ici ;)

Commentaire de Bacterius le 19/09/2008 17:10:32

Erf f0xi je n'ai pas les unités GdiPClasses et GdiPApi.
Je cherche ...

Cordialement, Bacterius !

Commentaire de blueperfect le 19/09/2008 18:53:20

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

Commentaire de blueperfect le 19/09/2008 19:07:03

en quelque sorte...

Un live wallpaper !