Jhonas

Exemplo procedure TForm1.StatusBar1DrawPanel(StatusBar: TStatusBar; Panel: TStatusPanel; const Rect: TRect); begin if Panel.Index=0 then begin StatusBar1.Canvas.Font.Color := clBlue; StatusBar1.Canvas.brush.Color:=$D1D1D1; StatusBar1.Canvas.FillRect(Rect); StatusBar1.Canvas.TextOut(Rect.Left + Font.Size, Rect.Top + 1, Panel.Text ); end; if Panel.Index=1 then begin StatusBar1.Canvas.Font.Color := clRed; StatusBar1.Canvas.brush.Color:= clYellow; StatusBar1.Canvas.FillRect(Rect); StatusBar1.Canvas.TextOut(Rect.Left + Font.Size, Rect.Top + 1, Panel.Text ); end; if Panel.Index=2 then begin StatusBar1.Canvas.Font.Color := clWhite; StatusBar1.Canvas.brush.Color:= clLime; StatusBar1.Canvas.FillRect(Rect); StatusBar1.Canvas.TextOut(Rect.Left + Font.Size, Rect.Top + 1, Panel.Text ); end; if Panel.Index=3 then begin StatusBar1.Canvas.Font.Color := clBlack; StatusBar1.Canvas.brush.Color:= clWhite; StatusBar1.Canvas.FillRect(Rect); StatusBar1.Canvas.TextOut(Rect.Left + Font.Size, Rect.Top + 1, Panel.Text ); end; end; OBS: mude a propriedade Style = psOwnerDraw para cada panel abraço

O operador Between pode ser usado para especificar um critério de seleção, por exemplo: SELECT Campo 1 FROM Nome_Da_Tabela WHERE Campo 2 BETWEEN Valor 1 AND Valor 2. SELECT ITEM_NUM, DATA, DESCRICAO, QUANT, VAL_UNIT FROM Produtos WHERE DATA BETWEEN '01/07/2009' AND '10/07/2009' observe como deverá estar a instrução SQL ... se voce for passar um valor de data para a SQL , veja que há a necessidade de se imprimir um apostrofe abrindo e fechando a string da data então ficaria algo assim query1.SQL.Clear; query1.SQL.append('SELECT ITEM_NUM, DATA, DESCRICAO, QUANT, VAL_UNIT ' + 'FROM Produtos ' + 'WHERE DATA BETWEEN ' + '''' + MaskEdit1.text + '''' + ' AND ' + '''' + MaskEdit2.text + '''' ); abraço

Não fale... Não é viavel ... eu já fiz dessa maneira e funciona muito bem ... é tudo uma questão de mudar a lógica de funcionamento Pode ficar tranquilo que não ocorrerá interferencia deles. Se puder perder um tempo voce vai descobrir que dá pra fazer. abraço

O componente ScrollBar está na paleta Standard coloque o componente junto com o dbgrid ... mude a propriedade Kind = sbVertical arraste o componente e coloque-o em cima da barra de rolagem do dbgrid ... ela é que será a sua nova barra de rolagem dos dbgrids coloque o código no evento OnScrioll do ScrollBar1 ( como eu disse é uma gambiarra que funciona ) abraço

Qual é o erro ?

Veja este http://www.babooforum.com.br/forum/index.p...howtopic=535692 abraço

Trabalhe com o componente PageControl da paleta Win32 ... o formulário da nota fica em uma aba e o de produtos em outra .. e os dois ficam em um unico form. O commit deverá ser dado em um botão OK somente quando finalizar a operação. abraço

Este tipo de programa deverá ser iniciado junto com o windows, caso contrário não irá funcionar corretamente. exemplo: http://scriptbrasil.com.br/forum/index.php...st&p=507339 Caso não seja o que está procurando, faça uma pesquisa no forum pela palavra TIMER abraço

Leia todos os posts deste tópico http://scriptbrasil.com.br/forum/index.php...st&p=507339 abraço

Use este como exemplo http://www.guiadohardware.net/tutoriais/inno-setup/ abraço

Já tentou o forum de VB ? abraço

Veja estas outras opções componente SPBina102a.ZIP http://www.planetadelphi.com.br/delphi/exe...os/00000443.zip ( PROJETO BINA ) http://produto.mercadolivre.com.br/MLB-916...mplo-delphi-_JM http://www.shapephone.com.br/soundbina/micDTMF1.html http://www.netdownloads.com.br/novo/Downlo...+para+Comp.html http://www.istf.com.br/vb/archive/index.php/t-7331.html abraço

Voce pode usar Table ou Query ... basta definir os campos que receberão os valores das celulas do stringgrid ... depois passo um exemplo abraço

Como voce pode ver se trata de um outro sistema, e não serve para este que voce esta usando abraço

veja no google http://www.google.com.br/search?hl=pt-BR&a...mp;aq=f&o que= abraço

Veja novamente aquele exemplo.... ( olhe os fontes ) dá pra fazer isso abraço

É uma solução .... esta semana está meio apertado ... na semana que vem estarei mais livre, vou verificar pra voce abraço

Robinhocne favor ao editar o seu tópico, colocar ( Resolvido ) no início e não no final do tópico obrigado abraço

Usando StringGrid seria o mesmo que usar uma matriz de linha e coluna ... neste caso os updates de tabela devem ser feitos usando um comando FOR NEXT acessando a sua tabela ( inserindo ou editando os campos dos registros ) para depois dar o comando Post e ApplayUpdates. Fica mais trabalhoso ... prefira usar o DBgrid é muito mais fácil e pratico abraço

Que tipo de consumo está falando ? espaço livre no HD ?

Veja alguns topicos que abordam o assunto ( Sintegra ) http://scriptbrasil.com.br/forum/index.php...ghlite=sintegra se não achar nada avise... abraço

Nino ... voce não conseguiu entender o exemplo que te passei ? http://scriptbrasil.com.br/forum/index.php...st&p=552477 abraço

Se quiser ir por esse lado, veja estes posts http://scriptbrasil.com.br/forum/index.php...ghlite=tcomport vou ver se acho algo mais facil para voce usar abraço

Está quase certo. procedure TForm1.Button1Click(Sender: TObject); begin Memo1.Lines.Text := Memo1.Lines.Text + Memo2.Lines.Text; end; abraço

Endereço de um tutorial sobre DBGrid http://www.macoratti.net/dbg_ext.htm Outras dicas http://www.edudelphipage.com.br/dicas_titu...php?categoria=7 abraço