nilegor

Bom, tenho um form (Flogin) e um (Fprinciapl). No delphi, coloquei o Flogin como main form. O problema é que ao clicar em ok no Flogin e abrir a tela do form Fprincipal, ele não aparece na barra de tarefas, apenas o Flogin aparece na barra de tarefas, ao abrir o form Fprincipal já não fica mais na barra. Ao clicar em ok no form Flogin, o Flogin fica invisivel e da um showmodal no Fprincipal, mas ai acontece isso que mencionei. Teria como deixar o Fprincipal como main form depois que ele é aberto ? Ou teria outra forma de resolver isso ?

Ok, é que eu pensei que daria para adicionar a coluna na primeira condição do IF. Obrigado.

Ola Jhonas, deu certo. Porem vou precisar deixar o valor de outra coluna tambem na cor vermelha, exemplo, o valor das colunas SALDO e DESCRICAO, é possivel fazer isso usando a mesma condição que me passou ?

sim, pode repetir, por exemplo, na coluna grupo de mercadoria existem varias linhas com o mesmo grupo. Apenas as informações que estão nas linhas ficando em vermelho já é o suficiente, não preciso mudar a cor da linha em si. Isso eu consegui, porem o alinhamento das informações que estão nessa linha com as informações em vermelho ficam desalinhadas, e tambem gostaria de deixar em vermelho apenas algumas colunas dessa linha, exemplo, apenas a nome, valor, quantidade... E não todas as informações da linha.

Jhonas, perfeito. Esta funcionando perfeitamente, obrigado., só vou pedir mais uma coisa referente a isso, poderia apenas me explicar exatamente o que acontece nesse código : strtoint(trim(copy(aTexto,pos(',',aTexto)+1,2))). Obrigado pela ajuda, abraço.

Jhonas, desculpe. Na verdade acabei me atrapalhando no titulo. Preciso mudar a cor de apenas um registro no dbGrid, exemplo, tenho os campos código, descrição, preço.. etc. Gostaria de mudar a cor apenas da descrição, mas de apenas uma linha e apenas na coluna descrição.

Eu Gostaria de alterar apenas a cor da descrição de apenas um registro no dbGrid, por exemplo, na linha do item CELULAR, apenas a palavra celular ficar em vermelho, estou usando o código abaixo, porem todos os registros da linha ficam na cor vermelha. #Código if (condição...) then begin DBGrid1.Canvas.Brush.color := clGradientInactiveCaption; DBGrid1.Canvas.font.color := clRed; DBGrid1.Canvas.FillRect(Rect); DBGrid1.Canvas.TextOut(Rect.Left+2,Rect.Top,Column.Field.AsString); end; E também por que quando coloco algo no evento OnDrawColumnCell alguns registros da linha ficam alinhados de forma diferente, exemplo, as informações que antes estavam alinhadas a direita ficam alinhadas para a esquerda e tambem os campos de valores, ex(2,00) perdem a virgula ficando apenas o 2 !

Compreendi Jhonas. Entendi a forma que funciona, vou tentar sozinho, mas caso não conseguir, posso pedir sua ajuda aqui novamente ? Ou criar novo tópico ?

Jhonas, 99%. Seguinte, usando <ClientDataSet1.RecNo := TStringGrid(DBGrid1).Row;> pegou a posição da forma correta, porem esta acontecendo algo estranho, pois qualquer registro que seleciono e leio, funciona somente se a posição estiver até a 10ª coluna do dbGrid apenas, depois da 10ª a leitura da posição não funciana, se eu salvar a posição da coluna 12 por exemplo e linha 3, ao ler a posição volta para a primeira coluna ou para a segunda as vezes, mas a linha selecionada ainda continua a 3, achei estranho pois até a 10ª coluna esta funcionando perfeitamente.

Estou usando os seguintes componentes: SQLQuery,DataSetProvider,ClientDataSet e DataSource.

Jhonas, não deu certo, esta da mesma forma, teria como lhe enviar a unit para dar uma olhada talvez ?

jhonas, era exatamente isso que eu iria fazer, ler de um arquivo ini. Bom, esta quase 100%. Da forma que me passou, funciona perfeitamente para ler o arquivo.ini, porem não posso usar dessa forma, então coloquei no evento OnShow do form a leitura do arquivo: var aTexto: string; begin LeIni(aTexto); TStringGrid(DBGrid1).Row := strtoint(copy(aTexto,1,1)); DBGrid1.SelectedIndex := strtoint(copy(aTexto,3,1)); DBGrid1.SetFocus; end; A posição é lida perfeitamente, porem, parece que 'buga' o dbGrid, pois se eu tentar clicar "selecionar" qualquer outra linha, não deixa, parece que trava na ultima linha onde esta selecionado pela ultima vez. O que eu percebi é que o indicador do dbGrid ">" fica sempre na primeira linha, independente se o campo que esta selecionado esta em outro linha, acho que é por isso que esta dando esse problema. O indicador teria que acompanhar a campo selecionado, sera que é por isso que esta dando esse pequeno problema ?

Seguinte, ao clicar no dbGrid vai salvar nas variáveis linha e coluna a posição do campo em que foi clicado, exatamente como esta abaixo: procedure TfEstoque.DBGrid1CellClick(Column: TColumn); var Linha, Coluna : Integer; begin Linha:= TStringGrid(DBGrid1).Row; Coluna := DBGrid1.SelectedIndex; Edit1.Text := IntToStr( Linha ); Edit2.Text := IntToStr( Coluna ); end; até ai tudo ok, digamos que a variável linha receba a posição 2 e a coluna 4; A questão é, como faço para que ao abrir esse form onde tem a dbGrid, a posição da linha receba a posição 2 e a da coluna 4, para que fique selecionado o ultimo campo que estava selecionado antes de fechar o form.

Olá Jhonas, deu certo quanto a 'pegar' a posição do campo selecionado. Mas como eu faço agora para que ao abrir o form por exemplo fique selecionado o campo no dbGrid conforme a posição que esta nas variáveis ?

Olá, gostaria de saber como pegar a posição da coluna e da linha de um dbGrid e então gravar esse valor em uma variável, que provavelmente vai ser do tipo integer. Pois ao abrir o form, a dbGrid vai receber a posição que esta nas variáveis,retornando ao campo que estava antes. Alguém poderia me ajudar como poderia fazer isso ?

Olá, estou começando a trabalhar com vendas no meu sistema, porem estou com duvidas de como fazer o vinculo com essas tabelas, exemplo, ao dar dois clicks na tabela de venda, vai abrir a venda que foi selecionada com as informações da venda e informações dos itens que estão na venda que vem de outra tabela. Acredito que todas as tabelas teriam de estar em mesmo clientdataset. Como poderia fazer isso ?

Certo, vou dar uma olhado nos exemplos e materiais disponíveis na internet. Obrigado.

Seria possível trabalhar com essa situação através de uma view no banco de dados também ?

Tenho um ClientDataSet_estoque do qual exibe as informações do fornecedor de outro ClientDataSet, do ClientDataSet_forncedor, fiz isso através de um campo virtual no ClientDataSet_estoque, porem não consigo fazer filtro nesse campo virtual do fornecedor, acredito que por motivo de estar em outro ClientDataSet, mas tentei de varias formas e não deu certo, nos outros campos que são do próprio ClientDataSet_estoque consigo filtrar normal, apenas o campo virtual do fornecedor que não. Alguém sabe como poderia ser feito esse filtro ?

ok. abrigado pela ajuda.

ok, abrigado, deu certo

Alguém sabe como seria um algoritmo de ordenação de letras e outro para data ?

Jhonas, muito abrigado, deu certo, perfeito. Poderia só me esclarecer qual foi a função exata do 'Assign' ?

Estou com dificuldade para colocar as barras de rolagem, procurei em vários sites, porém todos informam que basta colocar o ScrollBox, alinhar ele como alClient, então colocar os componentes nele, mas fiz isso e as barras de rolagem não aparecem, e a opção autoScroll esta ativa. Estou usando Delphi XE6, agradeço se conseguirem me ajudar

Olá, preciso gravar algumas informações que estão na variável (arquivo) do tipo TStringList para o banco de dados, no banco de dados esta como Blob. Estou com dificuldades para fazer essa conversão. Veja o código: var arquivo:TStringList; begin arquivo := TSTringList.Create; arquivo.Add('.........'); ClientDataSet_teste.Insert; ClientDataSet_teste.FieldByName('info'). .. >> depois disso, como poderia fazer para que o ClientDataSet receba o valor da variável arquivo ! ClientDataSet_teste.post; ClientDataSet_teste.ApplyUpdates(0);