Morphadron

Axo q não sei mais programar em delphi!!!!!!!!!!!!!!!!!

Falow RogerBlower, qualquer coisa.... Abraços!!!!!!

Tipo se você quiser Quiser dimensionar é um comando Strech, do tipo Imagem.Strech:=true; ou assim: If(Imagem.Align = alClient)Then begin Imagem.Align:=alNone; Imagem.Stretch:=False end else begin Imagem.Align := alClient; Imagem.Stretch:=True end E para você converter essa imagem para a extensão BMP, o código é assim: If(SaveDialog.Execute)Then Image.Picture.SaveToFile(SaveDialog.FileName) Exite outros exemplos, postei esse código, porque não entendi muito bem, okhe você quis dizer... Abraços!!!!!!!!

Cara você vai ter q configurar o BDE, para esse acesso, eu nuca tentei fazer com Access, mas se você migrar os registros, não ficaria mais fácil, pois existe o componente para isso chamado BathMove, assim, era só configurar os drivers, e pronto... Qualquer dúvida, meu e-mail é iter.vinicius@sinos.net Abraços!!!!!!!

também tem um lanche em banco de dados, chamado ClientDataSet, esse cara também faz mta coisa interessante, mas q não faz mta importancia, para iniciantes, quero mencionar isso, pois o Delphi 7, estah mais voltado para internet, e seria legal tu acompanhar, entende... já estaum lançaram o Delphi 8, hehehehe.... O negócio é se atualizar, e não fikar de fora..... Abraços!!!!!!!!

Dê um PrintScreen....

Cara deixa eu ver se eu entendi, você estah tratando a impressora como um arquivo texto????? é que >>FD00J8<< no delphi podemos tratar a impressora como se ela fosse um arquivo do tipo TextFile, e isso como você já sabe facilita a impressão, pois não requer uma formatação mais sofisticada. Para fazer isso precisamos de uma variavel TextFile. Por exemplo: Var Arq: TextFile; Para associar essa variavel à impressora, devemos usar o procedimento AssignPrn, da seguinte forma: AssignPrn(Arq); Entaum vemos o código desse jeito: procedure Tform.BtnImprimirClick (Sender: TObject); var Arq: TextFile; I: Integer; Begin AssignPrn(Arq); Rewrite(Arq); Printer.canvas.font.Assign(Memo.Font); for I:= 0 to Memo1.Lines.count -1 do Writeln(Arq, Memo1.Lines); CloseFile(Arq); End; No exemplo acima, o texto contido em um Memo está sendo impresso. O Delphi possui uma variável global chamada Printer, também declarada na Unit Printer. Printer possui a propriedade canvas q por sua vez possui a propriedade Font. Cara espero ter ajudado... Além de ser meio confuso o código acima, hehehe Abraços!!!!!!!!!!

Cara primeiramente, você quer imprimir direto para a porta da impressora, ou mais fácil ainda.. Usando o gerenciador de impressão do Windows??????? Se for esta a tarefa de imprimir a Base de Dados, é simples... Gere um relatório em QuickReport, e chame o formulário: Tabela.QRPrinter.Print;

Cara eu tenho um componente, para exportar os registros, tanto formatado como normal.... Qualquer coisa meu e-mail é: iter.vinicius@sinos.net

AnãoScript, cara não é fácil, pois você terá q usar um tipo de GrayScale, para converter os padrões de cores, não estou certo disso, mas vou tentar desenvolver alguma coisa, parecida.... Meu e-mail é iter.vinicius@sinos.net Abraços!!!!!!!! E ateh....

Milhouse, o negócio é o seguinte, você quer cadastrar usuários, e senhas, para q os caras tenham acesso só com um nível de previlégio????? Cara mais ou menos eu entendi okhe você quis dizer, acontece que você terá que criar um form de cadastro de usuários, e senhas, criar uma tabela q receberá os dados, que no exemplo abaixo é TSenhas, certo??? E se algum usuários malandro quiser saber as senhas de seus colegas, basta entrar no DataBase Desktop, e acessar, não é 100% seguro esses códigos, mas valem para enganar os leigos.... Aqui tem um função Encriptar.... Botão Nova Ficha: Tsenha.append; DBEdit1.Text:= ''; DBEdit2.Text:= ''; Botão Gravar: if Tsenha.State in [dsedit, dsinsert] then begin Tsenhanome.value:= edit1.text; Tsenhasenha.value:= encrypt(edit2.text); Tsenha.post; end; Botão deletar: Tsenha.delete; DBEedit1.Text:= Tsenhanome.value; DBEdit2.Text:= Encrypt(Tsenhasenha.value); Acrescentar ao programa, logo após a programação abaixo: {$R *.dfm} Colar a programação abaixo: function Encrypt( Senha:String ): String; {Permite Encriptar uma String} Const Chave : String = 'Morphadron’; Var x,y : Integer; NovaSenha : String; begin for x := 1 to Length( Chave ) do begin NovaSenha := ''; for y := 1 to Length( Senha ) do NovaSenha := NovaSenha + chr( (Ord(Chave[x]) xor Ord(Senha[y]))); Senha := NovaSenha; end; result := Senha; end; Programação do botão confirma da tela de abertura: procedure TFabertura.ConfirmaClick(Sender: TObject); begin 1 Tsenha.IndexName := ''; Tsenha.setkey; if not Tsenha.findkey([edit1.text]) then showmessage('usuario não localizado') else if edit2.Text = encrypt(Tsenhasenha.value) then Finicial.show else showmessage('senha não confere'); end;

****** Pesquisas************** table1.IndexName := 'Indice_q_vc_Criou'; table1.setkey; table1['nome'] := inputbox('Procura por nome','Digite o nome a ser localizado',''); if not table1.gotokey then showmessage('nome não localizado'); ******* Relacionamento de Dados*********** Tem como fazer, tipo pegue o Código da Fita, e relacione com o Cód do Cliente, fazendo com q a tabela Fitas seje escravo da Tab Clientes, vá em MasterSource da tabela Fitas, e indique quem é o mestre, no caso Tabelas Clientes, e depois em MasterFields, indique o Cod Fita, e Selecione o Cod Cliente, pronto já relacionou os dados..... Espero ter Ajudado!!!!!! Abraços!!!!!!!!!!

E ae MilHouse!!!! Tipo, e se você quiser pesquisar com Sql por campo edit pesquisando pelo nome, ou qualquer outro campo de uma base de dados query1.active := false; query1.sql.clear; query1.sql.add('select * from teste where nome = "' + edit1.Text + '"'); query1.active:= true; Cara espero poder ter ajudado, foi só um implemento da gurizada aí.... Abraços!!!!!!

Cara olha só, pega um DbGrid, para a visualização dos dados da tabela certo? Coloque um Edit - e logo após um dbGrid... Dê um duplo clique no Edit e insira esse código: Tabela.FindNearest([Edit.Text]); -> Esse é o jeito mais fácil para fazer uma pesquisa, e o Ponteiro Leitura/Gravação se posicionar no Registro... Abraços...

Nunca Ocorreu, este erro, nos "Ini's" que criei, tente usar um software do tipo RegClean, para deletar as chaves inválidas, e logo após, tente novamente...

Cara, se eu te entendi é uma coisa simples, basta você abrir o DataBase Desktop, abrir a tabela q você quer inserir os campos e pronto... Vá no menu Table - Info Structure... E insira os campos, depois salve!!!!!! Se foi assim q entendi, é barbada...

Uma barra de Progresso????? É bem simples, trata-se de abrir por código todas as tabelas na entrada do programa, portanto deixe todas as tabelas fechadas no datamodule. procedure DataModule.OnCreate; var Tabela, i: Integer; begin Tabela := 0; for I := 0 to ComponentCount -1 do if Components is TTable then with TTable(Components) do if (Tag = 9) and not Active then try Inc(Tabela); lblInfo.Caption := Format('Carregando Processos (%d/%d)', [Tabela, Total]); lblInfo.Refresh; Application.ProcessMessages; Open; except Raise; end;

Cara, é simples... Vá em Project - Options - Na guia Application... Clique em Load Icon Se entendi era isso q você queria mudar. Abraços