begin process at 2012 02 09 03:28:28
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

Composants

 > TREEVIEW AVEC ALPHABLENDING

TREEVIEW AVEC ALPHABLENDING


 Information sur la source

Note :
Aucune note
Catégorie :Composants Classé sous :treeview, transparent, transparence, alpha, alphablending Niveau :Initié Date de création :20/02/2006 Date de mise à jour :20/02/2006 17:47:06 Vu / téléchargé :8 592 / 680

Auteur : Gaadek

Ecrire un message privé
Site perso
Commentaire sur cette source (7)
Ajouter un commentaire et/ou une note

 Description

Cliquez pour voir la capture en taille normale
Salut, voici un bout de temps que je cherchais un composant TreeView proposant un effet d'alphablending. Comme je ne l'ai pas trouvé (VirtualTreeView permet juste une image de fond), je l'ai fait!!!

Bon, c'est sur, il reste des choses à faire, mais j'espère trouver ici les personnes qui pourront m'aider à améliorer mon code.

Pour le moment, l'AlphaTreeView permet:
- Sélectionner l'utilisation de l'alphablending,
- Calcule le degré de transparence en fonction d'un paramètre alphablendingvalue.

Les bugs/restrictions actuelles:
- N'affiche par transparence que les composants de type TImage (le reste viendra avec le temps...)
- Ne prend pas en compte la couleur par défaut du TreeView (colorie en noir alors que la couleur est du clWindows machin chose)
- Est TRES long à appliquer l'effet de transparence (suffit d'étendre/réduire l'arbre pour s'en rendre compte. Peut être faudrait-il utiliser un double buffer, mais je galère dessus)
- Ne se rafraichit pas en mode conception (c'est pas trop grave, mais ça fait pas trés pro)

Voila, merci de commenter cette source (tout en étant indulgent, c'est mon premier composant!!!) et surtout d'apporter votre petite contribution si vous pouvez.

Source

  • unit AlphaTreeView;
  • interface
  • uses
  • Windows, Forms, Messages, SysUtils, Classes, Graphics, Controls, ExtCtrls, ComCtrls;
  • type
  • THoundred=0..100;
  • TAlphaTreeView = class(TTreeView)
  • private
  • FParentForm:TForm;
  • FAlphaBlend: Boolean;
  • FAlphaBlendValue: THoundred;
  • FBuffer: TBitmap;
  • FOnCustomDraw:TNotifyEvent;
  • FOnCustomDrawItem:TNotifyEvent;
  • FOnCollapsed:TNotifyEvent;
  • FOnExpanded:TNotifyEvent;
  • function GetParentForm(Child:TComponent):TForm;
  • function CopyControlsImage(Parent:TForm):TBitmap;
  • procedure CreateBuffer;
  • procedure CustomPaint;
  • protected
  • procedure Paint;
  • public
  • constructor Create(AOwner:TComponent); override;
  • destructor Destroy; override;
  • procedure RefreshData;
  • procedure SetAlphaBlend(IsAlphaBlend: Boolean);
  • procedure CustDrawButton(ARect: TRect; Node: TTreeNode);
  • procedure CustDrawItem(Sender: TCustomTreeView; Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
  • procedure CustDraw(Sender: TCustomTreeView; const ARect: TRect; var DefaultDraw: Boolean);
  • procedure CustRefresh(Sender: TObject; Node: TTreeNode);
  • published
  • property AlphaBlend:Boolean read FAlphaBlend write FAlphaBlend;
  • property AlphaBlendValue:THoundred read FAlphaBlendValue write FAlphaBlendValue;
  • property OnCustomDraw : TNotifyEvent read FOnCustomDraw write FOnCustomDraw;
  • property OnCustomDrawItem : TNotifyEvent read FOnCustomDrawItem write FOnCustomDrawItem;
  • property OnCollapsed : TNotifyEvent read FOnCollapsed write FOnCollapsed;
  • property OnExpanded : TNotifyEvent read FOnExpanded write FOnExpanded;
  • end;
  • procedure Register;
  • implementation
  • procedure Register;
  • begin
  • RegisterComponents('AlphaComponents', [TAlphaTreeView]);
  • end;
  • { TAlphaTreeView }
  • // Méthode invoquée à la création du composant
  • constructor TAlphaTreeView.Create(AOwner: TComponent);
  • begin
  • inherited;
  • FOnCustomDraw:=nil;
  • FOnCustomDrawItem:=nil;
  • FOnCollapsed:=nil;
  • FOnExpanded:=nil;
  • // Les 4 lignes suivantes permettent de shunter les méthodes déclanchées par des événements
  • Inherited OnCustomDraw:=CustDraw;
  • Inherited OnCustomDrawItem:=CustDrawItem;
  • Inherited OnCollapsed:=CustRefresh;
  • Inherited OnExpanded:=CustRefresh;
  • // Initialise les options du controle
  • FAlphaBlend:=False;
  • FAlphaBlendValue:=0;
  • // Créer un buffer graphique
  • FBuffer:=TBitmap.Create;
  • RefreshData;
  • Repaint;
  • end;
  • // Méthode invoquée à la destruction du composant
  • destructor TAlphaTreeView.Destroy;
  • begin
  • FreeAndNil(FBuffer);
  • inherited;
  • end;
  • // Procédure qui charge le buffer graphique
  • procedure TAlphaTreeView.CreateBuffer;
  • begin
  • FBuffer:=CopyControlsImage(FParentForm);
  • end;
  • // Procédure qui permet de mettre à jour certaines donnée (buffer...)
  • procedure TAlphaTreeView.RefreshData;
  • begin
  • FParentForm:=GetParentForm(Self);
  • CreateBuffer;
  • end;
  • // Fonction qui récupère dans un canvas (TBitmap) tous les controles de type TImage de la form
  • function TAlphaTreeView.CopyControlsImage(Parent: TForm): TBitmap;
  • var I:Word;
  • ChildImage:TImage;
  • begin
  • Result:=TBitmap.Create;
  • Result.Height:=Parent.ClientHeight;
  • Result.Width:=Parent.ClientWidth;
  • Result.Canvas.Brush.Color:=Parent.Color;
  • Result.Canvas.FillRect(Parent.ClientRect);
  • // Recherche tous les contrôles de type TImage qui sont dans la form
  • for I:=0 to Parent.ComponentCount-1 do
  • begin
  • if (Parent.Components[I] is TImage) then
  • begin
  • // Copie le canva du TImage dans le canvas du bitmap retourné par la fontion
  • ChildImage:=(Parent.Components[I] as TImage);
  • Result.Canvas.Draw(ChildImage.Left,ChildImage.Top,ChildImage.Picture.Graphic);
  • end;
  • end;
  • end;
  • // Fonction qui permet de récupérer la form du control AlphaTreeview
  • function TAlphaTreeView.GetParentForm(Child: TComponent): TForm;
  • begin
  • if Child.Owner is TForm then Result:=Child.Owner as TForm
  • else Result:=GetParentForm(Child.Owner) as TForm;
  • end;
  • // Procédure perso pour désinner AlphaTreeView
  • procedure TAlphaTreeView.CustomPaint;
  • var img:TBitmap;
  • X,Y: integer;
  • R,G,B: Word;
  • T_R,T_G,T_B: Word;
  • RGB_Value: longint;
  • begin
  • // Si la propriété AlphaBlend du controle est vraie
  • if (FAlphaBlend) then
  • begin
  • // Récupère le canvas de la form (juste avec les TImages)
  • img:=CopyControlsImage(FParentForm);
  • // BitBlt(FBuffer.Handle, 0, 0, Width, Height,img.Canvas.Handle, left, top, SrcCopy);
  • // Copie le canvas de la form dans le controle AlphaTreeView et
  • // ajuste la zone de dessin en fonction des bordures de AlphaTreeView
  • // (sinon, risque de décalage entre les arrières plans de AlphaTreeView et de la form)
  • if (BorderStyle=bsSingle) then
  • BitBlt(Canvas.Handle, 0, 0, Width, Height,img.Canvas.Handle, left+2, top+2, SrcCopy)
  • else
  • BitBlt(Canvas.Handle, 0, 0, Width, Height,img.Canvas.Handle, left, top, SrcCopy);
  • img.free;
  • // Récupère les composantes RGB de la couleur de fond de AlphaTreeView
  • T_R := GetRValue(Color);
  • T_G := GetGValue(Color);
  • T_B := GetBValue(Color);
  • // Effectue un parcours complet des pixels du canvas du composant AlphaTreeView
  • // pour appliquer un effet AlphaBlending
  • for Y := 0 to Height - 1 do
  • begin
  • for X := 0 to Width - 1 do
  • begin
  • // Lecture des composantes RGB du pixel en cours
  • // RGB_Value:=ColorToRGB(FBuffer.Canvas.Pixels[X,Y]);
  • RGB_Value:=ColorToRGB(Canvas.Pixels[X,Y]);
  • R := GetRvalue(RGB_Value);
  • G := GetGValue(RGB_Value);
  • B := GetBValue(RGB_Value);
  • // Applique un effet Alphablending à partir de la propriété AlphaBlendValue
  • R := (R * AlphaBlendValue + (100 - AlphaBlendValue) * T_R) div 100;
  • G := (G * AlphaBlendValue + (100 - AlphaBlendValue) * T_G) div 100;
  • B := (B * AlphaBlendValue + (100 - AlphaBlendValue) * T_B) div 100;
  • // Applique la nouvelle couleur de pixel
  • // FBuffer.Canvas.Pixels[X,Y] := RGB(R,G,B);
  • Canvas.Pixels[X,Y] := RGB(R,G,B);
  • end;
  • end;
  • // BitBlt(Canvas.Handle, 0, 0, Width, Height,FBuffer.Canvas.Handle, left+2, top+2, SrcCopy);
  • { if (BorderStyle=bsSingle) then
  • BitBlt(Canvas.Handle, 0, 0, Width, Height,FBuffer.Canvas.Handle, left+2, top+2, SrcCopy)
  • else
  • BitBlt(Canvas.Handle, 0, 0, Width, Height,FBuffer.Canvas.Handle, left, top, SrcCopy);
  • }
  • end;
  • end;
  • // Procédure pour utiliser le double buffer (non utilisé pour le moment)
  • procedure TAlphaTreeView.Paint;
  • begin
  • if (not FAlphaBlend) or (csDesigning in ComponentState) then
  • inherited
  • else
  • begin
  • CreateBuffer;
  • CustomPaint;
  • end;
  • end;
  • // Procédure utilisée pour dessiner le contrôle
  • procedure TAlphaTreeView.CustDraw(Sender: TCustomTreeView; const ARect: TRect; var DefaultDraw: Boolean);
  • begin
  • CustomPaint;
  • end;
  • procedure TAlphaTreeView.SetAlphaBlend(IsAlphaBlend: Boolean);
  • begin
  • if FAlphaBlend<>IsAlphaBlend then
  • begin
  • FAlphaBlend:=IsAlphaBlend;
  • Invalidate;
  • end;
  • end;
  • // Procédure pour dessiner les lignes/boutons de AlphaTreeView
  • procedure TAlphaTreeView.CustDrawButton(ARect: TRect; Node: TTreeNode);
  • var
  • cx, cy, cx2, cy2 : Integer;
  • begin
  • // cx := ARect.Left + Indent div 2;
  • // cy := ARect.Top + (ARect.Bottom - ARect.Top) div 2;
  • // cx,cy représente le coin supérieur gauche
  • cx := ARect.Left;
  • cy := ARect.Top;
  • with Canvas do
  • begin
  • Pen.Color := clGray;
  • // Pour commencer, si le noeud à des enfants, on dessine un bouton pour étendre/réduire
  • if Node.HasChildren then
  • begin
  • // Dessine le cadre du bouton extension/réduction
  • cx2:=cx+5;
  • cy2:=cy+2;
  • PenPos := Point(cx2, cy2);
  • LineTo(cx2,cy2+8);
  • LineTo(cx2+8,cy2+8);
  • LineTo(cx2+8,cy2);
  • LineTo(cx2,cy2);
  • Pen.Color := clBlack;
  • // Dessine la barre horizontale ('-')
  • PenPos := Point(cx2+2, cy2+4);
  • LineTo(cx2+7, cy2+4);
  • // Dessine la barre verticale si le noeud est réduit ('+')
  • if not Node.Expanded then
  • begin
  • PenPos := Point(cx2+4, cy2+2);
  • LineTo(cx2+4, cy2+7);
  • end;
  • Pen.Color := clGray;
  • if Node.Parent <> nil then
  • begin
  • cx2 := cx + 9;
  • cy2 := cy - 2;
  • while (cy2 < cy + 2) do
  • begin
  • PenPos := Point(cx2,cy2);
  • LineTo(cx2,cy2+1);
  • cy2 := cy2 + 2;
  • end;
  • end;
  • end
  • // Sinon (pas d enfant), trace une barre verticale en pointillés
  • else
  • begin
  • cx2 := cx + 9;
  • if (Node.AbsoluteIndex = 0) then cy2 := cy + 6
  • else cy2 := cy - 2;
  • if (Node.getNextSibling <> nil) then
  • begin
  • while (cy2 < ARect.Bottom + 3) do
  • begin
  • PenPos := Point(cx2,cy2);
  • LineTo(cx2,cy2+1);
  • cy2 := cy2 + 2;
  • end;
  • end
  • else begin
  • while (cy2 < cy + 5) do
  • begin
  • PenPos := Point(cx2,cy2);
  • LineTo(cx2,cy2+1);
  • cy2 := cy2 + 2;
  • end;
  • end;
  • end;
  • // Pour tous les noeuds, trace une ligne horizontale en pointillés (entre le bouton et le label du noeud)
  • if Node.HasChildren then cx2 := cx + 15
  • else cx2 := cx + 9;
  • cy2 := cy + 6;
  • while (cx2 < cx + 18) do
  • begin
  • PenPos := Point(cx2,cy2);
  • LineTo(cx2+1,cy2);
  • cx2 := cx2 + 2;
  • end;
  • if ((Node.GetNextVisible <> nil) and (Node.GetNextVisible.Level = Node.Level))
  • or (Node.GetNextSibling <> nil) then
  • begin
  • cx2 := cx + 9;
  • cy2 := cy + 12;
  • while cy2 < cy + 18 do
  • begin
  • PenPos := Point(cx2, cy2);
  • LineTo(cx2,cy2+1);
  • cy2 := cy2 + 2;
  • end;
  • end;
  • // Connecte les sous-noeuds au noeud parent
  • Node := Node.Parent;
  • if Node <> nil then
  • begin
  • cx2 := 9;
  • cy2 := ARect.Top - 2;
  • while (cy2 < ARect.Bottom - 1) do
  • begin
  • PenPos := Point(cx2, cy2);
  • LineTo(cx2, cy2 + 1);
  • cy2 := cy2 + 2;
  • end;
  • end;
  • end;
  • inherited
  • end;
  • // Procédure pour dessiner les noeuds de AlphaTreeView
  • procedure TAlphaTreeView.CustDrawItem(Sender: TCustomTreeView; Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
  • var
  • NodeRect: TRect;
  • begin
  • DefaultDraw := false; // nécessaire pour forcer le dessin manuel des items
  • with Canvas do
  • begin
  • if cdsSelected in State then
  • begin
  • NodeRect := Node.DisplayRect(True);
  • FillRect(NodeRect);
  • end;
  • NodeRect := Node.DisplayRect(False);
  • Brush.Style := bsClear;
  • NodeRect.Top := NodeRect.Top+1;
  • NodeRect.Left := NodeRect.Left + (Node.Level * Indent);
  • // Appel à la procédure de dessin des lignes
  • CustDrawButton(NodeRect, Node);
  • NodeRect.Left := NodeRect.Left + Indent;
  • TextOut(NodeRect.Left, NodeRect.Top, Node.Text);
  • end;
  • inherited
  • end;
  • procedure TAlphaTreeView.CustRefresh(Sender: TObject; Node: TTreeNode);
  • begin
  • Repaint;
  • end;
  • end.
unit AlphaTreeView;

interface

uses
  Windows, Forms, Messages, SysUtils, Classes, Graphics, Controls, ExtCtrls, ComCtrls;

type
  THoundred=0..100;
  
  TAlphaTreeView = class(TTreeView)
  private
    FParentForm:TForm;
    FAlphaBlend: Boolean;
    FAlphaBlendValue: THoundred;
    FBuffer: TBitmap;
    FOnCustomDraw:TNotifyEvent;
    FOnCustomDrawItem:TNotifyEvent;
    FOnCollapsed:TNotifyEvent;
    FOnExpanded:TNotifyEvent;
    function GetParentForm(Child:TComponent):TForm;
    function CopyControlsImage(Parent:TForm):TBitmap;
    procedure CreateBuffer;
    procedure CustomPaint;
  protected
    procedure Paint;
  public
    constructor Create(AOwner:TComponent); override;
    destructor Destroy; override;
    procedure RefreshData;
    procedure SetAlphaBlend(IsAlphaBlend: Boolean);
    procedure CustDrawButton(ARect: TRect; Node: TTreeNode);
    procedure CustDrawItem(Sender: TCustomTreeView; Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
    procedure CustDraw(Sender: TCustomTreeView; const ARect: TRect; var DefaultDraw: Boolean);
    procedure CustRefresh(Sender: TObject; Node: TTreeNode);
  published
    property AlphaBlend:Boolean read FAlphaBlend write FAlphaBlend;
    property AlphaBlendValue:THoundred read FAlphaBlendValue write FAlphaBlendValue;
    property OnCustomDraw : TNotifyEvent read FOnCustomDraw write FOnCustomDraw;
    property OnCustomDrawItem : TNotifyEvent read FOnCustomDrawItem write FOnCustomDrawItem;
    property OnCollapsed : TNotifyEvent read FOnCollapsed write FOnCollapsed;
    property OnExpanded : TNotifyEvent read FOnExpanded write FOnExpanded;
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('AlphaComponents', [TAlphaTreeView]);
end;

{ TAlphaTreeView }

// Méthode invoquée à la création du composant
constructor TAlphaTreeView.Create(AOwner: TComponent);
begin
  inherited;
  FOnCustomDraw:=nil;
  FOnCustomDrawItem:=nil;
  FOnCollapsed:=nil;
  FOnExpanded:=nil;

  // Les 4 lignes suivantes permettent de shunter les méthodes déclanchées par des événements
  Inherited OnCustomDraw:=CustDraw;
  Inherited OnCustomDrawItem:=CustDrawItem;
  Inherited OnCollapsed:=CustRefresh;
  Inherited OnExpanded:=CustRefresh;

  // Initialise les options du controle
  FAlphaBlend:=False;
  FAlphaBlendValue:=0;
 
  // Créer un buffer graphique
  FBuffer:=TBitmap.Create;
  RefreshData;
  Repaint;
end;

// Méthode invoquée à la destruction du composant
destructor TAlphaTreeView.Destroy;
begin
  FreeAndNil(FBuffer);
  inherited;
end;

// Procédure qui charge le buffer graphique
procedure TAlphaTreeView.CreateBuffer;
begin
  FBuffer:=CopyControlsImage(FParentForm);
end;

// Procédure qui permet de mettre à jour certaines donnée (buffer...)
procedure TAlphaTreeView.RefreshData;
begin
  FParentForm:=GetParentForm(Self);
  CreateBuffer;
end;

// Fonction qui récupère dans un canvas (TBitmap) tous les controles de type TImage de la form
function TAlphaTreeView.CopyControlsImage(Parent: TForm): TBitmap;
var I:Word;
    ChildImage:TImage;
begin
  Result:=TBitmap.Create;
  Result.Height:=Parent.ClientHeight;
  Result.Width:=Parent.ClientWidth;
  Result.Canvas.Brush.Color:=Parent.Color;
  Result.Canvas.FillRect(Parent.ClientRect);

  // Recherche tous les contrôles de type TImage qui sont dans la form
  for I:=0 to Parent.ComponentCount-1 do
  begin
    if (Parent.Components[I] is TImage) then
    begin
      // Copie le canva du TImage dans le canvas du bitmap retourné par la fontion
      ChildImage:=(Parent.Components[I] as TImage);
      Result.Canvas.Draw(ChildImage.Left,ChildImage.Top,ChildImage.Picture.Graphic);
    end;
  end;
end;

// Fonction qui permet de récupérer la form du control AlphaTreeview
function TAlphaTreeView.GetParentForm(Child: TComponent): TForm;
begin
  if Child.Owner is TForm then Result:=Child.Owner as TForm
  else Result:=GetParentForm(Child.Owner) as TForm;
end;

// Procédure perso pour désinner AlphaTreeView
procedure TAlphaTreeView.CustomPaint;
var  img:TBitmap;
     X,Y: integer;
     R,G,B: Word;
     T_R,T_G,T_B: Word;
     RGB_Value: longint;
begin
  // Si la propriété AlphaBlend du controle est vraie
  if (FAlphaBlend) then
  begin
    // Récupère le canvas de la form (juste avec les TImages)
    img:=CopyControlsImage(FParentForm);

//  BitBlt(FBuffer.Handle, 0, 0, Width, Height,img.Canvas.Handle, left, top, SrcCopy);
    // Copie le canvas de la form dans le controle AlphaTreeView et
    // ajuste la zone de dessin en fonction des bordures de AlphaTreeView
    // (sinon, risque de décalage entre les arrières plans de AlphaTreeView et de la form)
    if (BorderStyle=bsSingle) then
      BitBlt(Canvas.Handle, 0, 0, Width, Height,img.Canvas.Handle, left+2, top+2, SrcCopy)
    else
      BitBlt(Canvas.Handle, 0, 0, Width, Height,img.Canvas.Handle, left, top, SrcCopy);

    img.free;
    
    // Récupère les composantes RGB de la couleur de fond de AlphaTreeView
    T_R := GetRValue(Color);
    T_G := GetGValue(Color);
    T_B := GetBValue(Color);

    // Effectue un parcours complet des pixels du canvas du composant AlphaTreeView
    // pour appliquer un effet AlphaBlending
    for Y := 0 to Height - 1 do
    begin
      for X := 0 to Width - 1 do
      begin
        // Lecture des composantes RGB du pixel en cours
//        RGB_Value:=ColorToRGB(FBuffer.Canvas.Pixels[X,Y]);
        RGB_Value:=ColorToRGB(Canvas.Pixels[X,Y]);
        R := GetRvalue(RGB_Value);
        G := GetGValue(RGB_Value);
        B := GetBValue(RGB_Value);

        // Applique un effet Alphablending à partir de la propriété AlphaBlendValue
        R := (R * AlphaBlendValue + (100 - AlphaBlendValue) * T_R) div 100;
        G := (G * AlphaBlendValue + (100 - AlphaBlendValue) * T_G) div 100;
        B := (B * AlphaBlendValue + (100 - AlphaBlendValue) * T_B) div 100;

        // Applique la nouvelle couleur de pixel
//        FBuffer.Canvas.Pixels[X,Y] := RGB(R,G,B);
        Canvas.Pixels[X,Y] := RGB(R,G,B);
      end;
    end;

//    BitBlt(Canvas.Handle, 0, 0, Width, Height,FBuffer.Canvas.Handle, left+2, top+2, SrcCopy);


{    if (BorderStyle=bsSingle) then
      BitBlt(Canvas.Handle, 0, 0, Width, Height,FBuffer.Canvas.Handle, left+2, top+2, SrcCopy)
    else
      BitBlt(Canvas.Handle, 0, 0, Width, Height,FBuffer.Canvas.Handle, left, top, SrcCopy);
}

  end;
end;

// Procédure pour utiliser le double buffer (non utilisé pour le moment)
procedure TAlphaTreeView.Paint;
begin
if (not FAlphaBlend) or (csDesigning in ComponentState) then
  inherited
else
  begin
    CreateBuffer;
    CustomPaint;
  end;
end;

// Procédure utilisée pour dessiner le contrôle
procedure TAlphaTreeView.CustDraw(Sender: TCustomTreeView; const ARect: TRect; var DefaultDraw: Boolean);
begin
  CustomPaint;
end;


procedure TAlphaTreeView.SetAlphaBlend(IsAlphaBlend: Boolean);
begin
if FAlphaBlend<>IsAlphaBlend then
  begin
    FAlphaBlend:=IsAlphaBlend;
    Invalidate;
  end;
end;


// Procédure pour dessiner les lignes/boutons de AlphaTreeView
procedure TAlphaTreeView.CustDrawButton(ARect: TRect; Node: TTreeNode);
var
  cx, cy, cx2, cy2 : Integer;
begin
//  cx := ARect.Left + Indent div 2;
//  cy := ARect.Top + (ARect.Bottom - ARect.Top) div 2;
  // cx,cy représente le coin supérieur gauche
  cx := ARect.Left;
  cy := ARect.Top;

  with Canvas do
  begin
    Pen.Color := clGray;

    // Pour commencer, si le noeud à des enfants, on dessine un bouton pour étendre/réduire
    if Node.HasChildren then
    begin
      // Dessine le cadre du bouton extension/réduction
      cx2:=cx+5;
      cy2:=cy+2;
      PenPos := Point(cx2, cy2);
      LineTo(cx2,cy2+8);
      LineTo(cx2+8,cy2+8);
      LineTo(cx2+8,cy2);
      LineTo(cx2,cy2);

      Pen.Color := clBlack;
      // Dessine la barre horizontale ('-')
      PenPos := Point(cx2+2, cy2+4);
      LineTo(cx2+7, cy2+4);

      // Dessine la barre verticale si le noeud est réduit ('+')
      if not Node.Expanded then
      begin
        PenPos := Point(cx2+4, cy2+2);
        LineTo(cx2+4, cy2+7);
      end;
      Pen.Color := clGray;

      if Node.Parent <> nil then
      begin
        cx2 := cx + 9;
        cy2 := cy - 2;

        while (cy2 < cy + 2) do
        begin
          PenPos := Point(cx2,cy2);
          LineTo(cx2,cy2+1);
          cy2 := cy2 + 2;
        end;
      end;
    end
    // Sinon (pas d enfant), trace une barre verticale en pointillés
    else
    begin
      cx2 := cx + 9;
      if (Node.AbsoluteIndex = 0) then cy2 := cy + 6
      else cy2 := cy - 2;

      if (Node.getNextSibling <> nil) then
      begin
        while (cy2 < ARect.Bottom + 3) do
        begin
          PenPos := Point(cx2,cy2);
          LineTo(cx2,cy2+1);
          cy2 := cy2 + 2;
        end;
      end
      else begin
        while (cy2 < cy + 5) do
        begin
          PenPos := Point(cx2,cy2);
          LineTo(cx2,cy2+1);
          cy2 := cy2 + 2;
        end;
      end;
    end;

    // Pour tous les noeuds, trace une ligne horizontale en pointillés (entre le bouton et le label du noeud)
    if Node.HasChildren then cx2 := cx + 15
    else cx2 := cx + 9;
    cy2 := cy + 6;

    while (cx2 < cx + 18) do
    begin
      PenPos := Point(cx2,cy2);
      LineTo(cx2+1,cy2);
      cx2 := cx2 + 2;
    end;

    if ((Node.GetNextVisible <> nil) and (Node.GetNextVisible.Level = Node.Level))
    or (Node.GetNextSibling <> nil) then
    begin
      cx2 := cx + 9;
      cy2 := cy + 12;
      while cy2 < cy + 18 do
      begin

        PenPos := Point(cx2, cy2);
        LineTo(cx2,cy2+1);
        cy2 := cy2 + 2;
      end;
    end;

    // Connecte les sous-noeuds au noeud parent
    Node := Node.Parent;
    if Node <> nil then
    begin
      cx2 := 9;
      cy2 := ARect.Top - 2;
      while (cy2 < ARect.Bottom - 1) do
      begin
        PenPos := Point(cx2, cy2);
        LineTo(cx2, cy2 + 1);
        cy2 := cy2 + 2;
      end;
    end;
  end;
  inherited
end;

// Procédure pour dessiner les noeuds de AlphaTreeView
procedure TAlphaTreeView.CustDrawItem(Sender: TCustomTreeView; Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
var
  NodeRect: TRect;
begin
  DefaultDraw := false; // nécessaire pour forcer le dessin manuel des items
  with Canvas do
  begin
    if cdsSelected in State then
    begin
      NodeRect := Node.DisplayRect(True);
      FillRect(NodeRect);
    end;
    NodeRect := Node.DisplayRect(False);

    Brush.Style := bsClear;

    NodeRect.Top := NodeRect.Top+1;
    NodeRect.Left := NodeRect.Left + (Node.Level * Indent);
    // Appel à la procédure de dessin des lignes
    CustDrawButton(NodeRect, Node);

    NodeRect.Left := NodeRect.Left + Indent;

    TextOut(NodeRect.Left, NodeRect.Top, Node.Text);
  end;
  inherited
end;

procedure TAlphaTreeView.CustRefresh(Sender: TObject; Node: TTreeNode);
begin
  Repaint;
end;

end.


 Fichier Zip

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip


 Historique

20 février 2006 17:31:57 :
Juste une mise en forme du code source!!
20 février 2006 17:33:29 :
Encore mise en page
20 février 2006 17:45:41 :
Code entièrement mis en page
20 février 2006 17:47:06 :
Bon, c'est la bonne ce coup ci!!!

 Sources du même auteur

Source avec Zip Source avec une capture EASY MENU BUILDER

 Sources de la même categorie

Source avec Zip MOVCONTROL par abmed1963
Source avec Zip Source avec une capture PACKAGE DE COMPOSANTS CINDY V4.41 par MAURICIO
Source avec Zip Source avec une capture DBNAVIGATORPLUS par pascal1541
Source avec Zip Source avec une capture EVALUATION D' EXPRESSIONS MATHÉMATIQUE (MÉTHODE RPN) par MAURICIO
Source avec Zip Source avec une capture COMPOSANT TQPROGRESSBAR UNE BARRE DE PROGRESSION... par yanb

 Sources en rapport avec celle ci

Source avec Zip ALPHA DE CRONBACH (INDICE UTILISÉ EN PSYCHO) par fredelem
Source avec Zip Source avec une capture RÉGLE TRANSPARENTE POUR MESURER UN OBJET ECRAN par dubois77
Source avec Zip Source avec une capture BITMAP 32BITS INTÉGRÉ À LA VCL (TIMAGE, TPICTURE, TBITMAP, T... par cirec
Source avec Zip Source avec une capture ALPHA UTILS par Bacterius
Source avec Zip Source avec une capture PETIT UTILITAIRE TREEVIEW par Bacterius

Commentaires et avis

Commentaire de pepitto le 20/02/2006 23:03:28

Petite idée pour avoir le caneva de ton <<parent>> tu peux utiliser se truc mais c'est pas sur que ça fonctionne à tous les coups (non testé avec ton code)


   Result:=TBitmap.Create;
   Result.Height:=Parent.Height;
   Result.Width:=Parent.Width;
   Visible := False;
   Parent.Repaint;
   Result.Canvas.Handle := GetDC(Parent.Handle);
   Visible := True;
   ReleaseDc(Result.Handle,Parent.Handle);

Commentaire de f0xi le 21/02/2006 07:03:39 administrateur CS

petite modification :

procedure TAlphaTreeView.CustomPaint;
     function Alpha(const pixcolor,tmpcolor : byte) : byte;
     begin
       result := (pixcolor*AlphaBlendValue+(100-AlphaBlendValue)*tmpcolor) div 100;
     end;
var  img:TBitmap;
     X,Y: integer;
     pixcol : tcolor;
begin
  if (FAlphaBlend) then begin
    img:=CopyControlsImage(FParentForm);
    if (BorderStyle=bsSingle) then
      BitBlt(Canvas.Handle, 0, 0, Width, Height,img.Canvas.Handle, left+2, top+2, SrcCopy)
    else
      BitBlt(Canvas.Handle, 0, 0, Width, Height,img.Canvas.Handle, left, top, SrcCopy);
    img.free;
    for Y := 0 to Height - 1 do
        for X := 0 to Width - 1 do begin
            pixcol := Canvas.Pixels[X,Y];
            Canvas.Pixels[X,Y] := RGB(
                               alpha(byte(pixcol),byte(color)),
                               alpha(byte(pixcol shr 8),byte(color shr 8)),
                               alpha(byte(pixcol shr 16),byte(color shr 16)),
                               );
        end;
  end;
end;

procedure TAlphaTreeView.CustDrawButton(ARect: TRect; Node: TTreeNode);
var
  C1,C2 : TPoint;
begin
  C1 := Point(ARect.Left,ARect.Top);
  with Canvas do begin
    Pen.Color := clGray;
    if Node.HasChildren then begin
      C2 := Point(C1.X+5,C1.Y+2);
      PenPos := C2;
      LineTo(C2.X,C2.Y+8);
      LineTo(C2.X+8,C2.Y+8);
      LineTo(C2.X+8,C2.Y);
      LineTo(C2.X,C2.Y);
      Pen.Color := clBlack;
      PenPos := Point(C2.X+2,C2.Y+4);
      LineTo(C2.X+7,C2.Y+4);
      if not Node.Expanded then begin
        PenPos := Point(C2.X+4, C2.Y+2);
        LineTo(C2.X+4,C2.Y+7);
      end;
      Pen.Color := clGray;
      if Node.Parent <> nil then begin
        C2 := point(C1.X+9,C1.Y-2);
        while (C2.Y < C2.Y+2) do begin
          PenPos := C2;
          LineTo(C2.X,C2.Y+1);
          Inc(C2.Y,2);
        end;
      end;
    end else begin
      if (Node.AbsoluteIndex = 0) then C2 := Point(C1.X+9,C1.Y+6) else C2 := Point(C1.X+9,C1.Y-2);
      if (Node.getNextSibling <> nil) then begin
         while (C2.Y < ARect.Bottom+3) do begin
           PenPos := C2;
           LineTo(C2.X,C2.Y+1);
           Inc(C2.Y,2);
         end;
      end
      else begin
        while (C2.Y < C1.Y+5) do begin
          PenPos := C2;
          LineTo(C2.X,C2.Y+1);
          Inc(C2.Y,2);
        end;
      end;
    end;
    if Node.HasChildren then C2 := Point(C1.X+15,C1.Y+6) else C2 := Point(C1.X+9,C1.Y+6);
    while (C2.X < C1.X+18) do begin
      PenPos := C2;
      LineTo(C2.X+1,C2.Y);
      Inc(C2.X,2);
    end;
    if ((Node.GetNextVisible <> nil) and (Node.GetNextVisible.Level = Node.Level))
       or (Node.GetNextSibling <> nil) then begin
      C2 := point(C1.X+9,C1.Y+12);
      while (C2.Y < C1.Y+18) do begin
        PenPos := C2;
        LineTo(C2.X,C2.Y+1);
        Inc(C2.Y,2);
      end;
    end;
    Node := Node.Parent;
    if Node <> nil then begin
      C2 := point(9,ARect.Top-2);
      while (C2.Y < ARect.Bottom-1) do begin
        PenPos := C2;
        LineTo(C2.X, C2.Y+1);
        Inc(C2.Y,2);
      end;
    end;
  end;
  inherited
end;


Commentaire de Gaadek le 22/02/2006 11:19:15

Merci pour vos commentaires!

Concernant celui de pepitto, le problème de la routine, c'est qu'en masquant le controle puis en la réaffichant, on force le redessinage de la form, dans l'appel à la procédure, qui masque puis affiche le controle, et donc qui rappel le redessinage de la form, qui rappel la procédure etc...

Du coup, clipping permanent sur le controle, donc pas possible à utiliser en l'état. Sinon, l'idée semble bonne, car on récupère directement le canvas de la form, donc tous les controles, même les boutons etc.

Pour f0xi, c'est sur que ce serait plus propre niveau lisibilité du code, mais faire appel à une fonction déclenche une procédure dans la pile d'appel (comme tout appel à une fonction), et donc risque d'entraîner un ralentissement du dessin. Bon, c'est sur, je pense qu'en utilisant un buffer ou un truc comme ça, il faut utiliser une fonction, mais en l'état actuel des choses, ça ne risque pas de faire gagner grand chose, au contraire même. Je teste ça et je vous tiens au courant!

Commentaire de f0xi le 22/02/2006 15:27:02 administrateur CS

heu je vois pas ou est le probleme, dans ta version tu appel de nombreuse fois d'autres fonctions que j'ai supprimer dans ma proposition.

maintenant tu as raison, mieux vaux tester.

Commentaire de Gaadek le 22/02/2006 16:59:23

Bon Fowi, testé et approuvé!!! Pas de ralentissement notable, et le code en est d'autant plus lisible, donc c'est adopté.

par contre, t'aurais pas une astuce pour l'effet de clipping???

Commentaire de f0xi le 25/02/2006 02:59:28 administrateur CS

Ha content de voir que l'optimisation ne degrade pas les performances.

pour le clipping ... je regarderais mais je te promet rien ... c'est surrement une erreur de methode employée a premiere vue ... un truc qui ne doit pas etre a sa place ou un manque de control pour eviter une reaction en chaine.

Commentaire de lav le 07/03/2006 19:42:22

Pour optimiser les performances, on peut aussi utiliser scanline (assez recommande quand on fait des manips de ce genre) et qui permet de récuperer directement les valeurs RGB de chaque pixel pour chaque "ligne"

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

Transparence d'un treeview [ par Gaadek ] Bonjour,J'aimerais savoir s'il existe un quelconque moyen d'obtenir de la transparence sur un treeview...Je m'explique: j'aurais besoin que le fond du Buffer transparent [ par TkILLA ] Salutil ya pas mal de topics sur la&nbsp;transparence, mais l&#224; ca ne s'applique pas..Je voudrai ajouter des icones sur une image de fond : pour c Checkbox & Radiobutton transparent? [ par ELCouz ] Bonjour,Je fait face a un probleme genant au niveau GUI de mon programme.Les labels supporte la transparence mais pas les checkboxes et radiobuttons.. Créer un rectangle semi-transparent [ par djbuch ] Bonjour,je suis entrain de développer un système de détection de mouvement dans une vidéo, je déctecte actuellement le taux de mouvement dans chaque z Treeview Hint (Align) aligner a droite ????? !!! [ par Delphiturbo ] comment puis je alignez le Hint a droite pour le mettre visible ?voila un example : chercher un Text dans treeview [ par Delphiturbo ] Salutj'ai deja trouvé Tutorial. Le Code sa marche bien mais je ne peut pas chercherun Mon complete !où je dois modifier?<a target="_blank" title="Tu transparence de shockwave [ par sidalilo ] bonours &gt;merci pour votre reponse. &gt;j'ai un probleme dans le shockwaveflash &gt;j'ai integré une animation dans delphi par le shockwave et j'ai Exporter le contenu d'un treeview dans un fichier [ par John Dogget ] Salut à tous.Dans un mes codes, j'ai un treeview qui contient plusieurs centaines d'éléments.Je cherche à exporter ce contenu dans un fichier lisible treeview [ par khal_dou75 ] bonjour  a tousj ai un  probleme avec le composant treeviewje veu l'aligner(treeview) a droit merci pour vos aidesprogramation top Conserver le curseur sur une fiche transparente (transparent color) [ par mayo46400 ] Bonjourj'ai un petit problème qui me reste insoluble mais je ne sait pas vraiment où rechercherVoila j'ai une fiche contenant une image noire (pour l'


Nos sponsors


Sondage...

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 9,110 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales