Paulo Nobre

Tentei mas não deu certo. Ele vem para frente, mas não fica sempre na frente.

Realmente, Thales, tinha pensado no detalhe que você mencionou da diagonal, mas os outros, realmente não. Valeu pelas sugestões. Parece que programação é algo infinito né. Não é a toa que as versões dos programas não terminam nunca.

Existiria algum motivo para que a propriedade formstyle de um form não funcionasse em tempo de execução para fsStayOnTop. Digo isso pois estou tendo problema com ela. Clicando num botão chamo esta propriedade, mas nada acontece. Tentei o código abaixo que achei na internet, mas também não adiantou. with Form1 do SetWindowPos(Handle, HWND_TOPMOST, Left, Top, Width, Height, SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE); O que poderia estar acontecendo?

Fiz isso e ficou ótimo. Está funcionando redondinho.

Grande Thales, Obrigado por mais esta força. Vou estudar o código. []s

Tenho um form sem caption(bsnone) com um label(serve para brincar de fazer relógio). Uso para isso a procedure abaixo: procedure TfrmPrincipal.WMNCHitTest(var Msg: TWMNCHitTest); begin inherited; If GetAsynckeyState(VK_LBUTTON) < 0 Then msg.Result := HTCAPTION Else msg.Result := HTCLIENT; end; Clicando no label o form se movimenta. Primeiro problema: Se colocar no form um memo, clicando nele(e arrastando), o form não se movimenta. Como poderia fazer para ficar igual ao label???? Segundo problema: Com o código acima independentemente do modo como o form está(borderStyle) mesmo bsSizeable não se consegue alterar o seu tamanho. Tem que ser assim mesmo? Preciso de algo que talvez seja impossível, mas vai a pergunta: O form tem que ter bsNone sem caption, movimentando-se com a procedure acima e podendo ter seu tamanho alterado.Existe um milagre para isto. Explicando o objetivo: Isto é para uma simulação de um POst-It, que nada mais é que memo dentro de um form(sem caption) com a propriedade align para alclient. Só que eu gostaria que ele pudesse ser dimensionado. Tem como resolver estes problemas?

Micheus , Muito obrigado pelo código.

Prezados Colegas, Gostaria de saber como faço, para ao clicar em uma linha de um listbox(memo), que ela fique de uma cor, por exemplo clRed. É claro, que ao clicar em outra diferente a linha anterior voltaria a cor normal.

Funcionou tudo perfeitamente. Muito Obrigado.

Obrigado, Thales, vou testar o código depois. Obrigado, s3c, vou testar de noite a conversão.

s3c, Realmente quando cheguei em casa e testei vi que realmente era o que você falou. Porém, estou com um problema com esta função. Para testar usei c:\teste.jpg e deu certo. Porém, não sei como faço para usar com um caminho vindo de OpenPictureDialog1.filename. Estou fazendo OleLoadPicturePath(OpenPictureDialog1.filename, nil, 0, 0, IID_IPicture, @Pic); Dá erro de incompatibilidade TFileName e PWideCar. Preciso que a análise seja feita apartir da escolha do usuário nesta caixa de dialogo. Mesmo colocando Nome:String e Nome:=OpenPictureDialog1.filename; aí a incompatibilidade passa a ser de string e PWideChar. Como saiu desta?

ôpa agora a coisa esquentou e ficou boa. Tenho material para me divertir por um bom tempo, com as últimas dicas do Thales e do s3c. Thales, Usei TPicture ao invés de TBitmap e TJPEGImage, pois desta forma contemplo as duas. Por enqaunto não deu erro. Será que poderrei vir a ter erros em algum momento? O último código vou guardar para uma outra fase é muito mais que esperava. No momento estou escrevendo a parte que se for menor que 300x300 vai colocar em forma de ladrilho. Na outra parte onde i usuário escolhe aí entrará mais sofisticação. s3c, Parece que é esta a função que estavamos falando e precisando, não é? Agora me diga uma coisa: Como uso: PixelsX := Round(PixelsX * Pix / 2540); PixelsY := Round(PixelsY * PiY / 2540); Muito obrigado

Valeu Thales vou testar suas sugestões. Estou querendo este código, para testar o tamanho do papel de parede e caso seja menor do que um determinado valor, por exemplo, 300x300, ele já coloque em forma de ladrilho. Tinha pensado como alternativa, antes de você postar, colocar um image invisível e ao mesmo tempo, que fosse escolhido o papel, o image receberia ele e com auto size = true conseguiria captar as dimensões do paepl pelo do image. Deu certo mais achei meio gambiarra. Porisso achei que existiria uma função da API, para ficar mais elegante. Um abraço

Vou tentar usar, obrigado Thales. Uma pergunta: Para um bitmap seria análogo, ou seja, bastaria fazer with bitmap.Create do ...?? PS:Se alguém conhecer alguma função da API do windows, que faça isto, e puder colocar aqui seria bom.

não entendi, poderia dar um exemplo com código.

Estou precisando obter as dimensões de um arquivo de imagem(bmp e jpg). Por exemplo supondo que meu arquivo se chama Carro.jpg e que suas dimensões são 128x200, como obter, via código, o 128 e o 200? Alguém sabe? PS: Pesquisando o que encontro é a função GetImageSize, que é usada em PHP. Se servisse para delphi, seria perfeita. Na ajuda do delphi, não sei se procurei direito, não encontrei nada.

Ok, Churc.

Valeu Churc, mas sinceramente eu não alterei manualmente. O delphi pode fazer isto sozinho? A única coisa diferente é que aproveitei todo um pagwcontrol de um outro projeto via ctrl+c e ctrl+v. Mistérios da meia-noite. []s

Obrigado, s3c, registrei.

Realmente você tem razão é melhor para garantir fazer a comparação.

Obrigado Micheus, vou dar uma olhada.

Tenho um programa,com um form com um pagecontroll com várias tabes e uns dois componentes de terceiros(rxlib), cujo executável possui apenas 98kb. Achei estranho pois nunca tinha conseguido um executável deste tamanho. Li uma vez que o mínimo seria 400 e poucos kb. É possível ou aconteceu alguma coisa estranha. Não alterei nenhuma configurção do delphi. Se não é possível, então é porisso que quando rodo em um computador sem delphi(que não seja o meu) está dando erro rtl70.bpl faltando e o exe não abre. Fiz esta pergunta separada e depois fique pensando nisso. Alguém já passou porisso?

Tenho um exe, feito em Delphi, que quando fui rodar em outra máquina, ao tentar executá-lo não abriu e acusou o seguinte erro: Caption: TP.exe(nome do executável) - Não foi possível localizar componente Mensagem: Este aplicativo não pode ser iniciado porque não foi encontrado rtl70.bpl. A reintalação do aplicativo pode corrigir o problema; Como reinstalação se não usei nenhum instalador? Simplesmente coloquei ele numa pasta qualquer e tentei abrí-lo. Afinal ele é um exe. Não tive nenhum problema com a compilação e nas máquinas de casa, com o delphi, ele abria sem nehum problema. Todos os sistemas operacionais são iguais. Ele é feito para rodar em Windows XP. O que pode ser?

Anotei mais esta s3c, para o futuro. Interessante é que alguém poderia achar absurdo ficar 47 dias no ar, mas uma coisa que observei é que quando se coloca o computador para hibernar o tempo para. Eu mesmo já fiquei muitos e muitos dias sem reinicializar o windows, apenas com o computador hibernando. Pois normalmente quando estou fazendo um programa tenho abertos: DElphi, regedit, dois explorer e um .doc abertos, Imagine reiniciar e ter que abrir todos de novo. No meu caso atual preciso apenas de 5 minutos e aí vou comparar com getTickCount/60000. Não preciso de muita precisão neste caso. Valeu, por mais esta.

Olá, s3c, a quanto tempo em? Valeu pela informação.