Churc

opa José como eu comentei num post anterior, por acaso você mexe no Anchors dos componentes? O anchors faz com que os componentes não se movam... Sendo assim, ele vai ficar parado em um lugar independente do movimento do form...

Jose, Se for possível, estiver fácil e ao seu alcance, faça uma screenshot da tela com seu programa no seu computador rodando normal e em outro distorcido pra gente entender bem o que acontece! Da pra imaginar como é mais talvez vendo seja muito mais fácil tentar te ajudar... abraço

Era pra funcionar rs... qual o erro que dá, na instalação do componente? Se você não disser não tem como ajudar... :rolleyes: abs

Olá José, Estranho meu sistema roda em diferentes resoluções sem problemas nenhum, é claro, isso com o tamanho do form travado, mas você disse que mesmo com o tamanho do form travado quando muda de resolução fica tudo bagunçado? Será que você não está mexendo no Anchors dos componentes? abraço

Opa Boa noite, bem vindo ao fórum... Eheh só uma notação, não escreva seus posts com captação alta (CapsLock), da a impressão que você está gritando rs... Resumindo... NÂO ESCREVA ASSIM, escreva assim rs Quanto ao seu problema, você precisa instalar na máquina ou no servidor da rede o MySQL Server, igual você deve ter feito na sua máquina... Para baixar vá até o site www.mysql.com Abraço

Certo, faça o seguinte, eu dei umas ajustadas no componente TBackupFile que você disse não estar compativel, e criei um pacote... Download aqui. Instalação Crie uma pasta chamada BackupFile na sua pasta Lib do Delphi, onde normalmente fica em: C:\Arquivos de Programas\Borland\Delphi 7\Lib Ou qualquer pasta que esteja na sua Type Library ficando então: C:\Arquivos de Programas\Borland\Delphi 7\Lib\Backupfile Descompacte os arquivos do Zip na pasta Backupfile que você criou, abra seu Delphi e clique no Menu File/Open, procure nesta pasta por BackupFile.DPK, clique em Build All e Depois Install, deve aparecer: "The following components has been installed..." Logo após feche a janelinha e se pedir pra salvar clique em No. O componente eu mudei pra palheta Standard... Ai depois você pode abrir o projeto normalmente... abraço

Opa schaukoski isso já foi discutido inclusive em tópicos seus... Nesse post do Micheus já está explicando como fazer isso... Repare o seguinte no post do Micheus... MakeThumbNail(Image1.Picture.Graphic, BmpDst, 100, 100); Make = Fazer Thumbnail = Miniatura aSource = Imagem original aDest = Imagem redimensionada iWidth = Comprimento iHeigth = Altura então do jeito que você diz seria: MakeThumbNail(Image1.Picture.Graphic, BmpDst, 100, 80); Agora BmpDst está no tamanho 100x80 e com certeza está com seu tamanho reduzido... Entendeu? abraço

opa e na lista de criação ele tem que estar em primeiroque os demais forms que o usam...

Opa Engraçado, neste que você enviou não tem nada relacionado a Backup como você havia mencionado... E também eu não tenho o QuickReport pra Delphi 2006 só vem o Rave, ai não tem como eu compilar pra ver se está tudo ok... Acho que não vou poder te ajudar, espero que outras pessoas possam... abraço

Ok! Só que eu só vou poder dar uma olhada quando estiver em casa, aqui no serviço não vo poder eheh Mas eu não recebi ainda não... Detalhe, se no projeto tiver qualquer .exe, .bat, etc o gmail vai bloquear e eu não vou receber mesmo, acho legal você postar no Rapidshare talvez, ai você pode me enviar o link por email ou até mesmo postar aqui! abs

Opa Bem vindo!

opa Pode mandar... cebassonospam@nospamgmail.com Remova todos os nospam porque estes bots ficam roubando os emails do fórum para fazer spam rs eu tenho o delphi 6 posso tentar converter para você abraço

Ahh... entendi! Você não tinha mencionado o porque rs então tente assim var Picture: TPicture; aBmp: TBitmap; begin if openpicturedialog1.Execute then //Essa parte abaixo você pode corrigir colocando nos Options do OpenFileDialog //as propriedades para true: FileMustExists e PathMustExists //O que significa que ele só passa se o arquivo existir e o caminho existir if openpicturedialog1.FileName <> '' then begin Picture := graphics.TPicture.Create; aBmp := TBitmap.Create; Picture.LoadFromFile(openpicturedialog1.filename); extensao := ExtractFileExt(OpenPictureDialog1.Filename); aBmp.Assign(Picture.Graphic); dbimage1.picture.assign(aBmp); Picture.Free; aBmp.Free; end; Abraço

Opa Neste post logo acima eu passei o que deve ser o componente TBackupFile você precisa baixá-lo e instalá-lo como se fosse não rs, como um componente do Delphi, ele vai estar na palheta sim... ai depois você abre o Form de Backup pra testar se realmente é este componente... Quanto ao erro, pode ser inúmeras coisas esse erro não da pra saber assim... em que situação você tava quando aconteceu este erro... abraço

Opa Seguinte, eu não mexo com BD mas no seu código eu vi dbimage1.picture.assign <-- Isso quer dizer que o componente DBImage tem suporte a gráficos do tipo TPicture ou seja, BMP, JPEG, GIF, Etc... Sendo assim você faria, baseado no seu código... procedure TFormTCadCF.SpeedButton1Click(Sender: TObject); var Picture: TPicture; begin if openpicturedialog1.Execute then //Essa parte abaixo você pode corrigir colocando nos Options do OpenFileDialog //as propriedades para true: FileMustExists e PathMustExists //O que significa que ele só passa se o arquivo existir e o caminho existir if openpicturedialog1.FileName <> '' then begin Picture := graphics.TPicture.Create; Picture.LoadFromFile(openpicturedialog1.filename); extensao := ExtractFileExt(OpenPictureDialog1.Filename); dbimage1.picture.assign(Picture.Graphic); Picture.Free; end; end;Eu não testei, mas é pra funcionar... qualquer coisa posta ai... abraço

opa Fernando você instalou o componente TBackupFile? Você teria que instalar...

Eu editei o post da uma olhada rs...

opa Estranho era pra suportar, qual seu Delphi? De qualquer forma tenta assim BMP.Assign(Picture.Bitmap); Estranho que você está jogando pra uma variavel TPicture a imagem aberta, depois você joga pra um bitmap, e depois você joga pra um tipo TPicture novamente a imagem bitmap não seria mais fácil dbimage1.picture.assign(Picture.Graphic); abraço

opa é só você dar um Assign com uma variavel do tipo que você quer exemplo var _bmp: TBitmap; begin _bmp := TBitmap.Create; _bmp.Assign(SuaVarTPicture); _bmp.SavetoFile('caminho\nome.bmp'); _bmp.Free; e pra jpg mesma coisa só troque de TBitmap pra TJpegImage e de _bmp pra _jpeg ou qualquer coisa, o nome da variavel não importa rs e mude a extensão... abraço

opa da uma olhada aqui: http://www.ramosdainformatica.com.br/ser_d...?CDN=3&VN=1 Procure por TBackupFile 5.1 abraço

Opa, Tente usar polevariant ao invés de pchar abraço

Olá jxfdasilva Você é mesmo africano? Boas vindas, é um prazer ter você aqui no fórum :D E seu problema foi resolvido? Espero que sim ;) abraço

opa Sender, se formos traduzir ao pé da letra seria o Enviador... O Enviador "carrega" quem chamou determinado evento, logo, conseguimos então descobrir qual componente solicitou determinada ação, e com isso utilizar essa informação para as mais diversas funcionalidades. No seu caso, não faz diferença o uso do Sender, ele é apenas pra completar o uso da procedure, desde que se você enviar um Parent ao invés de Self vai dar na mesma... Um exemplo besta de como poderia ser utilizado o Sender seria assim exemplo, Vamos supor que você tenha no seu Form 3 botões, no botão 1 a Tag dele é 1, no botão 2 a tag é 2 e no botão 3 a tag é 3 procedure CheckButton(Sender: TObject); begin if Sender.ClassType=TButton then begin ShowMessage('A tag do botão é ' + InttoStr((Sender as TButton).Tag)); ShowMessage('O nome do botão é ' + (Sender as TButton).Name); end else ShowMessage('Não é um botão'); end; Ai pra usar CheckButton(Button1); CheckButton(Edit1); //Vai retornar a mensagem que não é um botão Você pode adquirir qualquer propriedade do objeto assim... entendeu mais ou menos? abs

opa Tenta assim DBEdit1Change(Self);

opa eheh de começo achei que fosse PHP, pelo post do Renato... Seguinte, no OpenPictureDialog que você fica sabendo o tipo de imagem exemplo: var extensao: String; begin if OpenPictureDialog.Execute then begin extensao := ExtractFileExt(OpenPictureDialog.Filename); e na hora de salvar só você fazer image2.Picture.SaveToFile('c:\fichario\foto\'+dbedit1.text+ extensao); Talvez seja necessário colocar a variavel que armazena a extensão como global e não na rotina em si já que pra carregar e salvar são duas rotinas diferentes... abs