Componente para cadastro de senhas!

Question

Pessoal estou fazendo um cadastro de senhas e estava precisando de
um componente onde mostrava a arvore de op�oes so que teria a imagem de vc MARCAR e DESMARCAR a opcao .

Grato pela aten��o[/img][/url]

Debug · Answer

me de aeu email que te mando esse componente....

Redoctober · Answer

[quote:86468011bc=�Debug�]me de aeu email que te mando esse componente.[/quote:86468011bc]Me envie esse componente pra mim tambem!?valdiney@arcosnet.com.br  /  dineybook@hotmail.comAbraco...

Vitoreduardo · Answer

Manda pra mim tamb�m.jackell_alves@hotmail.com...

Bertocco · Answer

[quote:734aa4257e=�Debug�]me de aeu email que te mando esse componente.[/quote:734aa4257e]Voc� pode mandar para mim tambem esse componente de senhaObrigado....

Minuto · Answer

[quote:90cd17538d=�Debug�]me de aeu email que te mando esse componente.[/quote:90cd17538d]Tambem to afim! Obrigado!minutacio@bol.com.br...

Thomaz_prg · Answer

Se tiver como mandar pr� mim tamb�m, agradeceria muito.[url]thomazs@pop.com.br[/url]...

Beppe · Answer

Pode ser feito sem instalar nenhum componente, no TTreeView mesmo. Basta usar o estilo TVS_CHECKBOXES.

Para inicializar a treeview:

SetWindowLong(TreeView1.Handle, GWL_STYLE, GetWindowLong(TreeView1.Handle, GWL_STYLE) or TVS_CHECKBOXES);

Mais umas rotinas utilit�rias:

function GetItemState(Item: TTreeNode): Integer;
var
  It: TTVItem;
begin
  It.mask := TVIF_HANDLE or TVIF_STATE;
  It.hItem := Item.ItemId;
  It.stateMask := TVIS_STATEIMAGEMASK;
  TreeView_GetItem(Item.TreeView.Handle, It);
  Result := It.state shr 12;
end;

function GetItemChecked(Item: TTreeNode): Boolean;
begin
  Result := GetItemState(Item) = 2;
end;

procedure SetItemState(Item: TTreeNode; Value: Integer);
var
  It: TTVItem;
begin
  It.mask := TVIF_HANDLE or TVIF_STATE;
  It.hItem := Item.ItemId;
  It.stateMask := TVIS_STATEIMAGEMASK;
  It.state := Ord(Value) shl 12;
  TreeView_SetItem(Item.TreeView.Handle, It);
end;

procedure SetItemChecked(Item: TTreeNode; Value: Boolean);
begin
  SetItemState(Item, Ord(Value) + 1);
end;

Estados:
0 - N�o exibe checkbox
1 - N�o checado
2 - Checado

Adicionar CommCtrl ao uses.