robinhocne

Jhonas descobri o meu problema, fazendo um projeto de teste até mesmo para mandar no tópico para verem, o problema é que eu utilizo o componente VclSkin para mudar a aparencia do meu sistema e com isso quando eu abro a tela do login pelo evento onActive do formulario principal o campo edit não fica focada. Vou deixar esse Tópico em aberto, para saber se você teria alguma ideia ou ajuda, caso contrario já agradeço pela atenção e lhe peço por gentileza em concluir esse tópico para mim. Obrigado.

Olá pessoal, Quando eu abro o meu sistema, atraves do evento OnActive eu mostro a tela de Login, mas essa minha janela de login não fica focada, fica focada a tela principal enquanto eu não clico na tela de login ai que ela fica focada, sabe aquela pratica de abrir o sistema e já ter a tela de login com o campo do Login já para o usuário digitar, então queria isso, pois pelo evento OnShow abre a tela de login primeiro depois que passo por ela que ai abre o sistema. então como faço para que ao Abrir o sistema e abre o formulario principal e ai a tela de login já focada, pois também coloquei no evento onShow do formulario de login ai dá erro porque ela não está focada. procedure TFrmPrincipal.FormActivate(Sender: TObject); begin with TFLogin.Create(Application) do begin try ShowModal; finally; free; end; end; end;

Sim, mas é que sempre eu vou e mudo para o tamanho 20, mas muito obrigado já foi muito boa sua ajuda.......

Vá em Menu > Component > Install Component > Into new Package clique no botão < Browse... > para procurar os arquivos .pas ou .dcu Em Package file name: coloque o nome do seu pacote de componentes Clique em OK ... mas não instale ainda feche a janela onde aparece o arquivo .pas de seu componente Na janela menor do package, clique em < Add > Procure pelos outros .pas ( outros componentes que voce criou ) Clique em < OK > para ir adicionando a lista Depois clique em < Install > para instalar todos os componentes desse pacote abraço Muito bom Jhonas, deu certinho..... só mais uma duvida.... Eu quero já deixar a propriedade Heigth do TEdit com o valor 20, como faço isso ? tentei aqui e não deu nada.... desde já agradeço

depois que montar um por um, voce pode adiciona-los a um unico package para instalar abraço E como eu faço para adicionar em um só package ?

Pessoal, Procurei mas não achei, mas creio que procurei errado, mas vamos la..... Estou criando um TEdit com a cor no OnExit e OnEnter: unit Texto; interface uses SysUtils, Classes, Controls, StdCtrls, Graphics; type TTexto = class(TEdit) private OnEnterColor: TColor; OnExitColor: TColor; protected Procedure ColocaCor(Sender: TObject); Procedure RetiraCor(Sender: TObject); Procedure ImportaCor(Value: TColor); Procedure ExportaCor(Value: TColor); public Constructor Create(Aowner: TComponent);override; published property CorOnEnter: TColor read OnEnterColor write ImportaCor; property CorOnExit: TColor read OnExitColor write ExportaCor; end; procedure Register; implementation procedure Register; begin RegisterComponents('Robinho', [TTexto]); end; procedure TTexto.ColocaCor(Sender: TObject); begin if Sender is TEdit then begin TEdit(Sender).Color := OnEnterColor; end; end; constructor TTexto.Create(Aowner: TComponent); begin inherited; OnEnterColor := clSkyBlue; OnExitColor := clWindow; OnEnter := ColocaCor; OnExit := RetiraCor; end; procedure TTexto.ExportaCor(Value: TColor); begin OnExitColor := Value; end; procedure TTexto.ImportaCor(Value: TColor); begin OnEnterColor := Value; end; procedure TTexto.RetiraCor(Sender: TObject); begin if Sender is TEdit then begin TEdit(Sender).Color := OnExitColor; end; end; end. Mas queria colocar só mais uma propriedade nele, para que automaticamente já fica com o heigth com valor 20, mas ai que vem a duvida, estou querendo fazer isso para o TComboBox, TMemo, TCurrencyEdit, TDateEdit, mas ai eu tenho que fazer um por um....não posso fazer tudo nesse mesmo package ? e como posso fazer ? Desde já agradeço.

Jhonas e assim..... pelo programa Printer Utility eu faco um download da imagem, esse download serve para eu enviar a imagem para a porta lpt1 que esta conecta na impressora, mas ela não imprime, como a imagem fica ali virtualmente ai na configuracao da etiqueta eu chamo a etiqueta pelo nome, mas eu tenho que utilizar esse programinha, eu queria fazer um programinha no delphi para colocar no inicializar do windows, com a seguinte funcao: (De fazer o download dessa imagem para a porta LPT1) o que eu não sei fazer e esse codigo em delphi.

exemplos: http://inforum.insite.com.br/delphi-passo-...sso/421925.html http://scriptbrasil.com.br/forum/index.php...st&p=550341 http://www.activedelphi.com.br/forum/viewt...43023b1af42ea4a abraço Ok, Jhonas, para chamar o arquivo bat tudo bem, mas o que eu queria já era faze direto no meu sistema os codigos do arquivo bat, mas o que eu não sei e como vou fazer o download dessa imagem na porta LPT e não chamar o arquivo bat.

Bom dia Pessoal, Estou com uma questao que esta deixando eu de cabelo branco....... Fiz uma configuracao minha impressao de etiqueta de uma impressora OS214 Plus Argox, que imprime a imagem que esta na porta LPT1. para fazer ess download eu estou um programinha chamado Printer Utility, onde consigo gazer o download da imagem para a porta LPT1, mas quando eu reinicio o computador toda hora tenho que fazer isso....de ir la no Printer Utility e fazer o download para a porta LPT1. então gostaria de fazer um pequeno codigo para eu colocar numa aplicacao para que na hora de reiniciar o computador ai essa aplicacao já inicia do lado do relogio e faz o download da imagem para a porta LTP1 e ai já fecha, para que eu não preciso ficar fazendo isso pelo Printer Utility. então.......alguém sabe como faco um download da imgem para a porta LTP ?

verifica nesse tópico que eu abri, pois eu fiz com bmp e comprimi. http://scriptbrasil.com.br/forum/index.php?showtopic=154667 Acho que também pode te ajudar..... exemplo 1 exemplo 2

Bom consegui resolver no ultimo minuto, mas tenho um outro problema e vou abrir outro tópico, aparentemente foi simples...usei esse codigo var Lista: TStringList; iRetorno:Integer; a : integer; iRetorno := ExtractStrings([','],[' '],PChar(Memo1.Lines.Strings[a]),Lista); ai ele percorreu a linha e colocou em uma lista pulando por linha.......

Ok, otimo resolvido, Obrigado Douglas

Pessoal estou totalmente perdido, preciso de uma ajuda de vocês do Forum, já é 01:20 da manha e não consegui resolver.....então recorro a todos........ Primeiramente...... Em um memo eu coloco as seguintes informações: Quero percorrer dentro desse memo1 cada linha e copiar as informações que estão entre as virgulas e jogar em outro memo2 no campo certo: ai ma informação do memo1 7890001012828 eu colocaria no memo2 onde está escrito codigo de barra e na informação DIAMANTINA 34 Ref.: 1282 eu colocaria no memo2 onde está escrito Descricao e onde está 27.02 eu coloco no memo2 onde está escrito Valor e ai o ultimo numero do memo 1 de cada linha é o total de etiquetas se no caso fosse 3 em vez de 1 ai seria daquele produto em 3 etiquetas......e ai os outros 1 e 1 seria para as proximas duas..... alguém pode me ajudar ?

Boa noite Pessoal, Tenho um programinha chamado DOSPRINT ele serve para emular a porta USB para LPT1, é um programinha de terceiro, ai eu queria no delphi verificar se esse programa está executando, pois como ele fica do lado do relogio e ainda oculto, eu queria só saber se ele esta executando se não tiver ai pelo delphi eu mandar abrir ele. alguém pode me ajudar ?

acho que isso ajuda....... procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char); var i : Integer; begin if key = #32 then begin for i := 1 to 272 do begin Sleep(10); Application.ProcessMessages; img.Top := img.Top - 1; end; end; end;

Depende de qual estrutura seria, If ou For ou while e dentro disso você pode colocar verificando dentro, mas vocë pode sim outra condicao dentro do loop.....

Se voce não percebeu, quando voce faz compressão da imagem, ela diminue de tamanho voce controla o nivel de compressão nesse comando jpg.CompressionQuality := 50; uma imagem de 1.5 Mb pode ficar com 50 Kb sem perder muito a definição abraço Ok, resolvido, Obrigado Jhonas......

Jhonas gostei dessa opção, vai ser util também, mas eu estava querendo também redimensionar a imagem para 180x180, pois creio que ai fica melhor ainda, mas não muito perder a qualidade dela, e já salvar no banco de dados.

Olha é possivel sim, tudo na promação é possivel, mas creio que ficaria uma coisa meia maluca, vamos pensar bem........e quando atingir 1000 clientes seria 1000 bancos criados, imagina 10000 ????? nossa acho inviavel, (vou entrar nessa ideia)........você poderia criar o banco de dados com o mesmo código do cliente, onde buscar o codigo do cliente ? seria sempre verificar qual o ultimo banco criado, ai ficaria tipo assim.....00001.fdb (para banco de dados firebird), mas ai e os dados como a gestao contabil mesmo.....você ira sempre linkar dois bancos no seu sistema ?????

Pessoal eu utilizo hoje o codigo abaixo para salvar a Imagem no banco de dados Firebird...... procedure TFrmNovProdutos.GravarImagem; var msFoto: TMemoryStream; begin if CaminhoFoto = '' then begin exit; end; msFoto := TMemoryStream.Create; Foto.Picture.Graphic.SaveToStream(msFoto); msFoto.Position := 0; // IBTransaction1.StartTransaction; with DtmLoja.QryProdutos do begin close; Sql.Clear; Sql.Add('update Produtos SET Imagem = :ParFoto Where Codigo =' + QuotedStr(TxtCod.Text)); Prepare; ParamByName('ParFoto').LoadFromStream(msFoto, ftBlob); ExecSql; end; end; .... o que eu quero é por exemplo se eu carrego uma imagem de uns 2 mb, na hora de salvar eu queria deixar ela mais pequena deixar tipo com uns 50 kb ou até em menos, mas que a imagem não fica ruim. :blink:

procedure Tfrm_CLIENTES.Edit_Consulta_NomeChange(Sender: TObject); begin with IBQuery do begin if Edit_Consulta_Nome.Text <>'' then begin Cursor:=crHourGlass; IBQuery.Close; IBQuery.SQL.Clear; IBQuery.sql.add ('select * from clientes where Upper(CLIENTE_NOME)'); IBQuery.sql.add ('Like Upper('''+Edit_Consulta_Nome.Text+'%'')'); IBQuery.Prepare; IBQuery.Open; Cursor:=crDefault; end else begin close; end; end; end; tenta assim......e ai amarra o DataSourcer no DbGrid.... espero ter ajudado .....

tenta buscar o caminho no banco de dados primeiro, reserva em uma string, busca a foto no caminho e joga num campo de imagem do RaveReport! pesquisa algo no google sobre imagem no rave http://www.google.com.br/#hl=pt-BR&&am...66728f8e9bd1a07 ou no forum mesmo.... http://scriptbrasil.com.br/forum/index.php...p;hl=ravereport

Thuago, peço que os tópicos resolvidos você edite e informa que está resolvido.

tem sim Gustavo....eu faço da seguinte maneira..... criei uma unit.....ai salvei com o nome de Funcoes, ai dentro dela está todas as minhas funcoes e procedures......ai nos Form q eu vou usar eu declaro ela na uses do Form, ai é só você chamar pelo nome da Funcao ou procedure, não precisa chamar pelo nome da unit, é mais bacana ser pela unit do q o Form.......