Everson Novka
Membros-
Total de itens
6 -
Registro em
-
Última visita
Tudo que Everson Novka postou
-
(Resolvido) ListView Trasnparente
pergunta respondeu ao William - TI de Everson Novka em Delphi, Kylix
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 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 -
Mesmo assim, você deverá ter uma chave primária. Se você precisar dar um update em uma única linha? você tem q ter a chave desse registro senão, você fará o update em N linhas. Chaves, sempre! []'s Everson Novka http://www.eversonnovka.com
-
Coluna para linha em Select
pergunta respondeu ao João Paulo Taraciuk de Everson Novka em Delphi, Kylix
Olá... você terá q criar os campos dos dias em um ClientDataSet em memória e fazer um lopping nos seus registros inserindo-os nas respectivas colunas criadas. Não tem nada mágico para realizar o que você precisa. Realmente tem q ser no braço. []'s Everson Novka http://www.eversonnovka.com -
Olá... Pense assim, imagine um cadastro de clientes, 10 pessoas cadastradas como João Silva, a amarração das tabelas detalhes vão ser feita por q campo? Pelo nome? Ou mesmo q você tenha um campo código, quem vai garantir q o código também não será duplicado... Sua aplicação pode garantir isso? Pode, mas e se você tiver um outro sistema q acesse a mesma base de dados, você vai duplicar a verificação do código??? Outra coisa, você criando um campo inteiro como PK e indexado, suas buscas vão ser muito mais rápidas, se fizer a busca pela chave. As PK's e FK's é a garantia da amarração das suas tabelas, elas q vão garantir a consistência das suas informações. []'s Everson Novka http://www.eversonnovka.com
-
Olá pessoal! Essa semana criei um blog sobre Delphi, nele estarei postando artigos, dicas, exemplos, etc.. Ontem escrevi um artigo de como travalhar com arquivos JSON em delphi. Segue link: http://www.eversonnovka.com []'s Everson Novka Xiiiii.. postei no tópico errado... alguém muda pra mim??? rsrsrs []'s Everson Novka
-
Olá... Algumas coisas q eu descobri com meus sistemas compilados em Delphi rodando no Microsoft 64bits: Esse emulador q Jhonas comentou realmente existe, as bibliotecas de compatibilidade ficam na pasta Windows\SysWoW Se você precisar acessar o registro do windows via regedit, entre na pasta q eu citei e execute ele por lá, aí estará acessando a instancia do registro para 32bits Se você usa alguma dll compilada pra 32bits e estiver tendo problemas para registro, coloque ela dentro da pasta SysWoW e tente fazer o registro novamente. No mais, não tive problemas na execução dos aplicativos. Outra coisa q o Vista 32 ou 64 tem é o lance de permissões de escrita, se seu aplicativo faz criação de pastas, exclusão de arquivos, etc.. você deve clicar com o botão direito em cima do aplicativo e mandar ele rodar como administrador. Bem, acho q é isso! []'s Everson Novka http://www.eversonnovka.com http://www.twitter.com/eversonnovka