Componente para cadastro de senhas!

Delphi

12/06/2004

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]


Michel

Michel

Curtidas 0

Respostas

Debug

Debug

12/06/2004

me de aeu email que te mando esse componente.


GOSTEI 0
Redoctober

Redoctober

12/06/2004

me de aeu email que te mando esse componente.


Me envie esse componente pra mim tambem!?

valdiney@arcosnet.com.br / dineybook@hotmail.com

Abraco


GOSTEI 0
Vitoreduardo

Vitoreduardo

12/06/2004

Manda pra mim também.

jackell_alves@hotmail.com


GOSTEI 0
Bertocco

Bertocco

12/06/2004

me de aeu email que te mando esse componente.


Você pode mandar para mim tambem esse componente de senha
Obrigado.


GOSTEI 0
Minuto

Minuto

12/06/2004

me de aeu email que te mando esse componente.


Tambem to afim! Obrigado!

minutacio@bol.com.br


GOSTEI 0
Thomaz_prg

Thomaz_prg

12/06/2004

Se tiver como mandar prá mim também, agradeceria muito.

[url]thomazs@pop.com.br[/url]


GOSTEI 0
Beppe

Beppe

12/06/2004

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.


GOSTEI 0
POSTAR