(Resolvido) ListView Trasnparente

[William - TI]

Estou procurado mais até agora não consegui fazer com que um ListView fique trasparente ou mostrar a imagem que tem atrás dele, consegui fazer com que ele ficase da cor da tela do fundo do formulário porém em cima da imagem ele permanece da cor do fundo do formulário ao invés de aparecer a imagem.

Mais uma vez agradeça a atenção.

[Jhonas]

Estou procurado mais até agora não consegui fazer com que um ListView fique trasparente ou mostrar a imagem que tem atrás dele, consegui fazer com que ele ficase da cor da tela do fundo do formulário porém em cima da imagem ele permanece da cor do fundo do formulário ao invés de aparecer a imagem.

O componente ListView não tem a propriedade de transparencia... para conseguir o que está querendo tem 2 sugestões

1 - deixar o seu form transparente ... dessa maneira o seu listview tambem ficará transparente

exemplo:

procedure TForm1.FormCreate(Sender: TObject);
const
   WS_EX_LAYERED = $00080000;
   LMA_COLORKEY = $00000001;
   LMA_ALPHA = $00000002;
type
   TLayerFunc = function(hwnd : HWND; crKey : COLORREF; bAlpha : BYTE; dwFlags : DWORD) : boolean; stdcall;
var
   ExtStyle : LongInt;
   LayerFunc : TLayerFunc;
   LibHandle : HModule;
begin
   LibHandle := LoadLibrary(user32);
   if LibHandle > 0 then
      begin
         LayerFunc := GetProcAddress(LibHandle, 'SetLayeredWindowAttributes');
         if Assigned(LayerFunc) then
            begin
               ExtStyle := GetWindowLong(Handle, GWL_EXSTYLE);
               SetWindowLong(Handle, GWL_EXSTYLE, ExtStyle or WS_EX_LAYERED);
               LayerFunc(Handle, rgb(255,0,0), 120, LMA_ALPHA or LMA_COLORKEY);
            end;
         FreeLibrary(LibHandle);
      end;

end;

2 - usar um componente devirado da classe (TListView)

http://www.delphifaq.com/faq/delphi/windows_GUI/f670.shtml

abraço

[Everson Novka]

Apenas uma nota sobre forms transparentes:

Apartir do delphi 7 tem as propriedades AlphaBlend e AlphaBlendValue na classe TForm

AlphaBlend := True {Habilita transparecia do form}

AlphaBlendValue := Range entre 0 e 255, sendo q 0 o form fica 100% invisível.

[]'s

Everson Novka

http://www.eversonnovka.com

Estou procurado mais até agora não consegui fazer com que um ListView fique trasparente ou mostrar a imagem que tem atrás dele, consegui fazer com que ele ficase da cor da tela do fundo do formulário porém em cima da imagem ele permanece da cor do fundo do formulário ao invés de aparecer a imagem.

O componente ListView não tem a propriedade de transparencia... para conseguir o que está querendo tem 2 sugestões

1 - deixar o seu form transparente ... dessa maneira o seu listview tambem ficará transparente

exemplo:

procedure TForm1.FormCreate(Sender: TObject);
const
   WS_EX_LAYERED = $00080000;
   LMA_COLORKEY = $00000001;
   LMA_ALPHA = $00000002;
type
   TLayerFunc = function(hwnd : HWND; crKey : COLORREF; bAlpha : BYTE; dwFlags : DWORD) : boolean; stdcall;
var
   ExtStyle : LongInt;
   LayerFunc : TLayerFunc;
   LibHandle : HModule;
begin
   LibHandle := LoadLibrary(user32);
   if LibHandle > 0 then
      begin
         LayerFunc := GetProcAddress(LibHandle, 'SetLayeredWindowAttributes');
         if Assigned(LayerFunc) then
            begin
               ExtStyle := GetWindowLong(Handle, GWL_EXSTYLE);
               SetWindowLong(Handle, GWL_EXSTYLE, ExtStyle or WS_EX_LAYERED);
               LayerFunc(Handle, rgb(255,0,0), 120, LMA_ALPHA or LMA_COLORKEY);
            end;
         FreeLibrary(LibHandle);
      end;

end;

2 - usar um componente devirado da classe (TListView)

http://www.delphifaq.com/faq/delphi/windows_GUI/f670.shtml

abraço

[William - TI]

Realmente o que queria era o ListView transparente, como não tem jeito não tem problemas vou usalo assim mesmo, nesta tela não posso deixar o form transparente, muito obrigado. pela ajuda.