Jhonas

use essa fonte http://lista.mercadolivre.com.br/fonte-corsair-430-w-builderseries-cmpsu-430cx-pfc-ativo-430w_NoIndex_True abraço

o C++ faz isso .... veja o ultimo link da pagina https://www.google.com.br/search?q=reset+impressora+samsung&ie=utf-8&oe=utf-8&gws_rd=cr&ei=7dLpVoiZBYv8wQSn4KmYCQ ou http://baixarprogamasfacil.blogspot.com.br/2011/08/como-resetar-impressora-samsung-ml-1665.html abraço

esta funciona bem GEFORCE GTX 650 abraço

solução http://pcdoctorkiev.blogspot.com.br/2012/11/powerpoint-crash-when-scrolling-through.html abraço

vou te dar um exemplo onde a criação do Menu e do Submenu do PopUp são dinamicos. voce deve entender a lógica dos comandos e fazer as alterações necessarias no seu código .. ok ? unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, DB, Grids, DBGrids, DBTables, Menus; type TForm1 = class(TForm) PopupMenu1: TPopupMenu; Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } procedure PopupClick(Sender: TObject); end; var Form1: TForm1; cc : integer = 0; implementation {$R *.dfm} procedure TForm1.PopupClick(Sender: TObject); var SubmenuItem, Item: TMenuItem; i : integer; begin cc := 0; SubmenuItem := Sender as TMenuItem; while SubmenuItem.Count > 1 do SubmenuItem.Items[SubmenuItem.Count - 1].Free; while SubmenuItem.Count < 3 do begin Item := TMenuItem.Create(SubmenuItem); inc(cc); Item.Caption := Format('Novo item de submenu criado %d', [cc]); SubmenuItem.Add(Item); end; // aqui o item selecionado do menu popup será marcado como Checked with (Sender as TMenuItem) do begin for i := 0 to (GetParentComponent as TPopupMenu).Items.Count - 1 do begin (GetParentComponent as TPopupMenu).Items[ i ].Checked := (i = MenuIndex); end; end; // aqui o primeiro subitem do item do menu popup será marcado como Checked with (Sender as TMenuItem) do begin for i := 0 to (GetParentComponent as TPopupMenu).Items.Count - 1 do begin (GetParentComponent as TPopupMenu).Items[ i ].Items[0].Checked := (i = MenuIndex); end; end; end; procedure TForm1.Button1Click(Sender: TObject); var Popup: TPopupMenu; Item, SubItem: TMenuItem; i : integer; begin Popup := TPopupMenu.Create(Self); PopupMenu := Popup; for i := 1 to 3 do begin Item := TMenuItem.Create(Popup); Item.Caption := 'Teste PopUp Menu '; Item.OnClick := PopupClick; Popup.Items.Add(Item); SubItem := TMenuItem.Create(Item); SubItem.Caption := 'Submenu '+inttostr(i); Item.Add(SubItem); end; end; end. abraço

eu tinha feito isso a algum tempo no meu micro ... tive que corrigir o código para funcionar no delphi 3 ( mas já o desinstalei do micro ) mas depois optei por usar o delphi 5 e hoje estou no delphi 7 e delphi 8 se voce puder migrar para outra versão do delphi, vai descobrir muitos outros recursos que o delphi 3 não tem abraço

até valores voce definiu como string ?? se são só strings e voce quer jogar em um memo , então não precisa fazer nenhuma conversão basta jogar os campos no memo ... exemplo: Memo1.Lines.Append( Ibtable1.Fieldbyname('Lanche').ASString + ' - ' + Ibtable1.Fieldbyname('Valor_Lanche').ASString ); abraço

não entendi .... voce quer jogar o conteudo do campo da tabela no memo ? primeiro voce deve dizer como definiu os campos da tabela ( string, integer, float, etc )

Surgiu uma dúvida aqui no meu memo tem como por exemplo aparecer os preços dos produtos com seus respectivos Nomes dos Produtos. sim , voce pode jogar no memo, a descrição do produto e os preços voce tem que converter integer ou float para string para colocar no Memo exemplo procedure TForm1.Button1Click(Sender: TObject); var produto : string; quant : integer; preço : real; begin produto := 'Refrigerante '; quant := 2; preço := 2.30; Memo1.Lines.Append(produto + ' - ' + inttostr(quant) + ' - ' + formatfloat('0.00',preço)); end; abraço

crie um novo atalho, procure onde esta o arquivo .exe e siga os demais passos e pronto abraço

Queria saber se tem como a cada venda que eu finalizar ele criar um novo Arquivo Txt. Assim eu visualizo cada venda feita amigo, isso é contraproducente ( o que não é produtivo ) voce até pode achar isso legal, mas para um cliente isso é não é. no final de um dia voce pode ter por exemplo: 300 arquivos txt... e para visualizar as suas vendas voce teria que abrir um por um ... imagine isso em um mês voce pode continuar mandando tudo que e vendido para o Memo ou pode criar um campo de controle , onde voce pode jogar para um quickreport todas as vendas do dia ( ou uma data especifica ou um periodo especifico ) mas se ainda quiser continuar com essa idéia, basta trocar o nome do arquivo cada vez que salvar exemplo: var Form1: TForm1; venda : Integer =0; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var Arq : string; Local : TextFile; begin inc(venda); Arq := 'C:\Venda'+inttostr(venda)+'.txt' ; AssignFile(Local, Arq); if not FileExists(Arq) then //Verifica se existe o arquivo begin Rewrite(Local, Arq); Append(Local); //Cria o arquivo WriteLn(Local, Memo1.Lines.Text); end; CloseFile(Local); end; abraço

voce pode tentar instalar o vclskinD5 ( delphi 5 ) no delphi 3 e corrigir os erros que ocorrerem e compilar novamente ou pode tentar isso http://www.planetadelphi.com.br/download/4677/arquivo/form-com-um-visual-diferente abraço

fiz pesquisa na Net e não encontrei até agora nada que podesse me ajudar Para trocar as cores dos botões do radiogroup Código //No Object Inspector na propriedade Font coloque a cor verde. procedure TForm1.RADIOGROUP1Click(Sender: TObject); Var i : Integer; begin // Para trocar as cores dos botoes do RadioGroup for i := 0 to RADIOGROUP1.Items.Count-1 do begin TRadioButton(RADIOGROUP1.Controls).Font.Color := clGreen; TRadioButton(RADIOGROUP1.Controls).Font.Style := [fsBold]; end; TRadioButton(RADIOGROUP1.Controls[RADIOGROUP1.ItemIndex]).Font.Color := clRed; TRadioButton(RADIOGROUP1.Controls[RADIOGROUP1.ItemIndex]).Font.Style := [fsBold]; end; ====================================================================== componente TColorButton http://delphi.about.com/od/vclwriteenhance/l/aa061104a.htm http://www.swissdelphicenter.ch/torry/showcode.php?id=1100 ====================================================================== Alternativas para os TButton, TBitBtn, TSpeedButton property "color" http://www.festra.com/wwwboard/messages/1006.html ======================================================================= Panel: usando-o como Botão Voce já deve ter notado que os componentes Button e BitBtn não possuem a propriedade Color, comum aos demais objetos, o que impede de se utilizar um botao colorido. Caso seja necessário colorir o botao, experimente utilizar um Panel em seu lugar. Selecione a cor desejada para o Panel e, em seus eventos OnMouseDown e OnMouseUp escreva os códigos abaixo: //evento OnMouseDown procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin Panel1.BevelInner := bvRaised; Panel1.BevelOuter := bvRaised; end; //evento OnMouseUp procedure TForm1.Panel1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin Panel1.BevelInner := bvNone; Panel1.BevelOuter := bvRaised; end ; As propriedades BevelInner e BevelOuter dizem respeito a maneira como a borda do Panel deve aparecer. Sua modificação em código dá a impressão de que o panel clicado foi "afundado", como ocorre com um botão durante o clique. Lembre-se de substituir o nome Panel1 pelo nome verdadeiro que você atribuiu ao seu Panel. ==================================================================================== Outra forma http://www.activedelphi.com.br/forum/viewtopic.php?t=337&sid=3a4b6782ecd8fbc0ef97cab24e646f99 ==================================================================================== Outros componentes de Botões http://www.edudelphipage.com.br/componentes_downloads.php?categoria=5 ==================================================================================== abraço

CodeIgniter é um framework PHP para a criação rápida de aplicações web. se quiser aprender veja: https://www.google.com.br/search?q=codeigniter+tutorial&ie=utf-8&oe=utf-8&gws_rd=cr&ei=8B3eVq_AF4eswATmgI6YCQ abraço

se voce tem uma tabela de produtos, as vendas devem estrar em outra tabela... isso facilita na hora de efetuar as vendas e outras coisas. não sei se voce reparou, mas usando DbLookupComboBox, voce pode tirar registros de uma tabela e nele mesmo ( componente ) voce pode direcionar os registros selecionados para outra tabela com os mesmos campos tenho um sistema de vendas, onde seleciono os produtos que quero de uma tabela, mostro em um dbgrid, e depois salvo os registros selecionados em outra tabela. se precisar fazer alterações na tabela de vendas, fica mais facil selecionar a venda especifica, alterar e salvar novamente os registros ... e se precisar deletar alguma venda, ou imprimir fica facil tambem. se quiser, olhe esses programas prontos ( vendas e lanchonete ) para tirar algumas ideias para o seu sistema http://www.planetadelphi.com.br/download/4722/arquivo/sistema-de-vendas http://www.planetadelphi.com.br/download/3947/arquivo/rd-gourmet-sistema-para-restaurantes-e-similares abraço

A minha dúvida e na questão de acrescentar mais alguma venda no mesmo código da venda. ou seja somar o total da venda anterior com o total de uma nova venda e ai por diante.Fiz um código para ele editar a tabela, só que ele não soma com uma nova venda que eu fizer. se voce esta usando uma tabela para registrar as vendas, então suas vendas deve ter um campo ID ( identificador ) então imaginando algo hipotético: ID - PRODUTO - QUANTIDADE - VALOR UNITÁRIO - VALOR TOTAL 001 - Cerveja - 3 - 2,50 - 7,50 001 - XBurguer - 2 - 6,00 - 12,00 001 - Pizza - 1 - 18,00 - 18,00 resultado para uma mesma venda ( id - 001 ) será mostrar um somatório da QUANTIDADE - VALOR UNITÁRIO - VALOR TOTAL OBS: o resultado desse somatório, não precisa necessariamente constar do banco de dados, apenas mostrar o resultado na tela ou no impresso. se a venda já foi salva no banco de dados, e ocorre de ter que incluir mais alguma venda para o mesmo id ( 001 ), então voce deve proceder da seguinte maneira: se voce ainda esta no mesmo registro de venda, basta incluir o novo registro e efetuar novamente o somatório dos registros.... para isso basta posicionar o cursor no primeiro registro e com um comando de loop ( For, While ou outro ) proceder ao somatório dos campos. ( Usando um DBGrid ) se voce não estiver mais no mesmo registro de venda, então voce deve pesquisar qual registro de venda voce quer, trazer os registros para o DBGrid e depois usar a mesma rotina de somatório descrito acima Conseguiu entender esse raciocínio ? abraço

o que ocorre quando ultrapassa 250 linhas ?

use o evento DBGrid1DrawColumnCel somente para zebrar os campos do DBGrid ou para marcar ( colorir ) campos especificos ( tipo valores negativos, saldo, datas ...etc ) No evento DBGrid1DrawColumnCel vinculei todos os edits do form para que apareça os dados do dbgrid nos mesmos. isso não deve ser feito e nem tem necessidade, para que os dados apareçam no DBGrid basta apenas liga-lo ao DataSource que estará ligado a outro componente de banco de dados crie uma rotina para que os campos da tabela sejam jogados para os Edits e dos Edits para os campos da tabela exemplo Edit1.Text := qry.FieldByName('<nome do teu campo>').AsString; Para o Edit receber o valor do Campo Edit1.Text := qry.FieldByName('COD').AsString; Para o Campo receber o valor do Edit qry.FieldByName('COD').AsString := Edit1.Text; OBS: Existem outras maneiras mais simples de se fazer isso ao clicar num registro do DBGrid e digitar alguma coisa num dos campos, automaticamente ele já entra em modo de edição bastando a voce somente dar o comando para salvar o registro depois. abraço

ok... lembre-se que o evento DBGrid1DrawColumnCel é um loop infinito Edit1.Text := Form18.IBTable1.FieldByname('Nome').AsString; nesse código, voce esta somente atribuindo ao Edit o valor do campo "Nome" se esta funcionando do jeito que voce quer então esta certo. OBS: como regra, use um botão para adicionar um novo registro, um para alterar um registro escolhido, um para deletar o registro escolhido, um para imprimir o registro escolhido e um botão de OK para finalizar as ações e outro Cancel para cancelar as ações. abraço

amigo, não tenho o NetBeans instalado em minha maquina, então só posso indicar o caminho a seguir veja esse link https://www.jetbrains.com/phpstorm/help/configuring-local-php-interpreters.html ou esse https://www.google.com.br/?ion=1&espv=2#q=please+check+your+php+interpreter+settings+on+options abraço

voce tem que posicionar o cursor no registro atual coloque o seu código ( Editar ) para ver o que voce esta fazendo OBS: como voce esta selecionando o nome do DBGrid ? abraço

Tente dessas maneiras: ADOQuery1.Close; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Add('insert into tbclientes (cliempresa) values ('+ edtempresacli.text +' )); ADOQuery1.ExecSQL; ========================================================================== ADOQuery1.Close; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Add(Format('insert into tbclientes (cliempresa) values (%s)',[QuotedStr( edtempresacli.text )])); ADOQuery1.ExecSQL; ========================================================================== ADOQuery1.Close; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Add('INSERT INTO tbclientes (cliempresa) VALUES (:a)'); ADOQuery1.Parameters.ParamByName('a').Value := edtempresacli.text ; ADOQuery1.ExecSQL; abraço

no exemplo é usando MySQL com dbExpress mas voce pode substituir pelo Zeos OBS: ao usar o quick report voce pode definir o tamanho do papel abraço

qual a versão do seu delphi ? qual é o seu nivel de experiencia no delphi ? veja esse exemplo https://www.facebook.com/permalink.php?id=233246096734426&story_fbid=411510682192302 abraço