Paulo Nobre

Micheus , Concordo plenamente com sua observação. Quando disse: Porque não criar algo diretamente ligado ao menu... Estava me referindo ao próprio Delphi, que poderia ter a opção de cor para o menu. Ok? Obrigado por todas as dicas neste tópico. []s

Micheus , Podemos concluir, que não existe como calcular o fatorial para números maiores? Mesmo, que não veja nenhuma aplicação prática para isso!

Costumo usar a função: Function Fatorial(n:Extended):Extended; begin If n = 0 Then Fatorial:= 1 Else Fatorial:= n * Fatorial(n-1); end; Porém, para mim ela apenas funciona para valores menores ou iguais a 1754. Aproveitando a pergunta do colega, alguém saberia como fazer o cálculo com qualquer número?

Micheus e Thales Testei as duas dicas e funcionaram bem. É claro que usando os componentes do Delphi 7, sugeridos pelo Micheus, você fica com uma gama enorme de possibilidades. Fico imaginado porque não criar algo ligado ao menu, diretamente. Tudo bem que o actionList serve para todos os componetes que tem a propriedade action, mas são muitas conexões que você deve fazer para colocar cores no menu. Valeu pessoal.

Valeu Thales, por esse complemento. Com essas suas dicas os delphis anteriores ao 7 também entram em ação. Vou testar no final de semana e ver o que é mais simples.

Micheus, Muito obrigado por essas super dicas. []s

Micheus, Fui no site que você sugeriu e baixei o projeto. Não pude abri-lo pois aqui no trabalho não tenho o DElphi. Mas, a cópia da unit é a seguinte: unit U_MENUCOLORIDO; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, XPStyleActnCtrls, ActnList, ActnMan, ToolWin, ActnCtrls, ActnMenus, ActnColorMaps; type TForm1 = class(TForm) ActionMainMenuBar1: TActionMainMenuBar; ActionManager1: TActionManager; XPColorMap1: TXPColorMap; TwilightColorMap1: TTwilightColorMap; private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} end. Numa primeira olhada parece que usa os componentes que você falou. No local onde o código foi postado tem dois email de usuários que dizem não conseguir ativar o exemplo click dos menus. Veja um comentário: "Muito bom, só não consegui capturar o evento Click dos ítens de menu. Se alguém puder me ajudar, email-me por favor". Espero não ter este problema. Vou olhar no final de semana.

Micheus, Obrigado pela dica, vou tentar estudá-la. Algum tempo atrás (2 anos) alguém me deu uma dica, aqui mesmo no fórum de como mudar a fonte e a cor da fonte. E disse que usando canvas eu conseguiria mudar a cor. Mas, não tenho muito experiência com canvas e deixei de lado. Acho que vou ter que estudar este objeto. []s

Alguém poderia me passar um código para que o menu ficasse da mesma cor do form. O componente menu acompanha a cor padrão do windows. Gostaria, caso meu form usasse clBlue, o menu também ficasse com a mesma cor. Obrigado.

Ok, Renato.

Renato, mais uma vez obrigado. Quando escrever o tutorial, coloque neste tópico, pois quem tiver pedido notificação por email ficará sabendo. Abraços

Renato, Muito Obrigado. Serviu plenamente.

Você poderia colocar o link para obter este progrma SIW?

De vez em quanado aparece uma mensagem no outlookexpress, perguntando se eu desejo compactar as mensagens para ocupar menos espaço em disco. Não gostaria de ter este aviso, Tem como parar isto? O outlookexpress é o que vem junto com xpspe, ou seja, o 6.

ALGUÉM JÁ TESTOU O SOFTWARE MENCIONADO ACIMA?

Micheus, O inglês é mais para menos do que para mais, mas o artigo forneceu uma boa idéia do efeito. A sua explicação sobre o uso do processador também foi suficiente. Muito obrigado :D Você, como sempre, nos ajudando com sua experiência!

Micheus, Muito obrigado mesmo. :) Vou me divertir a valer! :D

Ok, Churc. Em relação ao papel de parede, existem strings no registro do xp, que não estão no registro do 98. É claro que este é apenas um exemplo idiota, mas imagine em outras situações. Em relação a troca do sistema operacional por empresas você realmente tem razão. Existem muitas que estão com windows 98 ainda, isto pois querem estar legalizadas. Com a entrada do Vista, a Micro$oft deve facilitar a licença do XP, acredito.

A muito tempo atrás ao fazer um destes reloginhos, imitando digital, que ficam no desktop, tive problema para conseguir uma fonte adequada, que aparentasse o efeito do relógio digital. Acabei usando uma fonte quaquer mesmo(times newroman). Alguém conhece que fonte é esta, que aparenta o relógio digital? Quem tivesse poderia dizer qual o nome da fonte ou me passar por email (via MP). Obrigado.

Eu sou uma das pessoas que não gosto de ficar testando versão beta de sistemas operacionais e muito menos de programas como office etc... Sendo assim, nunca testei a versão beta do windows Vista. A pergunta é a seguinte: Quem tem o Vista instalado, já testou os seus programas nele? Existe alguma incompatibilidade? Alguém poderia dizer: mais um programa em geral funciona na maioria dos sistemas operacionais. Diria que em termos gerais sim, mas programas que usam o registro as vezes tem problemas. Dois exemplos simples: 1) Experimente fazer um programa de trocar o papel de parede para windows XP e veja se funciona no windows 98!!! E vice-versa 2) Experimente usar o código de desligamento do windows XP, para desligar o 98!! Gostaria de "ouvir" vocês.

Reparei, em alguns programas que tenho, que ao usar as propriedades alphablend e alphablendvalue o computador é muito exigido ao movimentar o form. Costumo ter o gerenciador de tarefas do windows sempre aparcendo no tray e reparei que o uso do sistema chega quase que a 100%. Alguém poderia explicar técnicamente o que faz o processador(recursos) serem tão intensamente usados. Outra pergunta é a seguinte: Por que este efeito de transparência apenas funciona no windows 2000 e XP?

Ok, s3c, entendi.

Oh, Thales e Graymalkin, vou acrescentar. Também vejo o pontilhado quando a pessoa está, acho que escrevendo num tópico, ou quando está ativa, mas não onde você está vendo atualmente.

Mas, eu coloquei While FindNext(Busca) = 0 Do Lista.Add(Busca.Name); Tá errado? Dentro da pasta inicializar não costuma ter pasta. Ou estou enganado?

Estou usando no evento OnShow do form o código abaixo: var Lista: TStringList; Busca : TSearchRec; PastaPesquisa: string; K : integer; begin //Procura na pasta que contém os programas que iniciam //com o windows. reg.RootKey:= HKEY_CURRENT_USER; reg.OpenKey('\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\EXPLORER\SHELL FOLDERS',False); PastaPesquisa:=reg.ReadString('Startup'); reg.CloseKey; Lista:= TStringList.Create; FindFirst(PastaPesquisa+'\*.*', 0, Busca); While FindNext(Busca) = 0 Do Lista.Add(Busca.Name); if Lista.Count <> 0 then begin lstRun.Items.Add('************************************************************'); lstRun.Items.Add('PROGRAMAS QUE SE ENCONTRAM NO MENU INICIALIZAR'); lstRun.Items.Add('************************************************************'); For k:= 0 To Lista.Count - 1 do begin lstRun.Items.Add(Lista[k]); lstRun.Items.Add(PastaPesquisa); lstRun.Items.Add(''); end; Lista.Free; end else //Não faz nada end; Só que as vezes acontece algo estranho, quando tem só um arquivo na pasta ele se comporta como se não tivesse nada. Tem alguma errada no meu código? Por exemplo se tem dois arquivos, um sendo a cópia do taskmgr.exe e um atalho dele aí aparece a cópia do executável. Se coloco dois atalhos do taskmgr.exe, aparece um deles apenas. Tá meio doido. Alguém poderia fazer o teste, só precisa de um listbox no forrm e o inconveniente de momentaneamente reduzir a pasta a um único arquivo.