[delphi-br] Re: Tratamento de bitmap com resultados diferentes e m diferentes configurações de videos.
Pessoal, alguém conhece algo a este respeito? Trabalha com processamento de imagem? Ainda não consegui resolver este problema até hoje. []s Alemao Em 21 de fevereiro de 2010 15:47, Alemão forumdel...@gmail.com escreveu: Encontrei a sigla... o tipo de bmp é DIB (Device Independent Bitmap). O Delphi suporta este tipo de bitmap? Isto resolveria o problema? []s Alemão. Em 21 de fevereiro de 2010 15:41, Alemão forumdel...@gmail.com escreveu: Pessoal, estou com um problema, recebo uma imagem em JPG e a converto para bitmap no delphi normalmente usando o assign BMP.Assign(JPG). A partir deste bitmap, faço vários tratamentos, baseado em suas cores, por exemplo: if bmp.canvas.pixels[i] = clblue then bmp.canvas.pixels[i] := clwhite. Tudo OK, fuciona perfeitamente na minha máquina, que possui configuração de cores True Color de 32 bits, mas quando executo em maquinas com intensidade de cores diferentes: 16 ou 8 bits por exemplo, o resultado sai bastante diferente. Andei pesquisando na internet e vi que o bitmap tem uma relação de dependência com a intensidade de cores do windows, porém vi que existe um tipo de bitmap que é independente dessa configuração do windows, tem até uma sigla pra esse tipo de imagem, só não me lembro agora qual é... Alguem tem uma idéia de como posso contornar este problema? Trabalhar com o bitmap independente das configurações do windows? Obrigado. [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Abreviar nomes de Componentes
Não existe uma lista padronizada, o que existe é um padrão de nomenclatura, chamado trigramação, que consiste em utilizar as iniciais mais significativas de uma entidade (ou classe) para compor o nome de um atributo (ou de um objeto). Existem na Internet sugestões de nomenclatura de componentes, mas nenhuma delas é padronizada, oficializada por assim dizer. Portanto, o que você quer, na realidade, não é uma lista com nomes abreviados de componentes Delphi, e sim um padrão para nomenclatura. Sendo assim, sugiro que informe-se mais sobre o tema trigramação na Internet e monte seu próprio padrão de nomenclatura de componentes. Boa sorte. Sds. De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Dimas Enviada em: quarta-feira, 21 de abril de 2010 10:29 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Abreviar nomes de Componentes Oi pessoal Preciso de uma lista com os nomes abreviados dos componentes em Delphi. Exemplo: TComboBox = Cbx Sei que tem uma lista com todos os nomes Abreviados para seguir uma padronizaão. Obrigado. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Duplicar FORM
Como o Alexandre disse, não faz muito sentido fazer isso. Qual a finalidade de se fazer dois formPrincipal?? Murilo Cunha escreveu: Pessoal, Como eu posso duplicar um form? O que eu quero é criar o FORM_PRINCIPAL duas vezes. Nesta segunda vez eu crio a tela, MAS SEM EXIBI-LA, e pego todos os nomes de botoes que estao contidos nela. Depois, eu destruo esta copia e continuo usando o sistema. NO ENTANTO, quando destruo esta copia, o meu FORM_PRINCIPAL tb é destruido!!! Como criar uma COPIA INDEPENDENTE?? Obrigado. MuriloCunha -- -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: delphi-br-ow...@yahoogrupos.com.br Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: delphi-br-unsubscr...@yahoogrupos.com.br * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Duplicar FORM
Pessoal, Meu objetivo eh o seguinte: Tenho um form para definir direitos dos usuarios no meu sistema. Quando abre esta tela, vc define qual usuario e qual tela irah configurar os direitos. Suponhamos que vc quer definir os direito para a tela principal do sistema, entao, no lado direito da tela tem um grid que lista todos os nome dos botoes e opcoes de menu para vc definir se aquele usuario pode ou nao ver a opcao, pode acessar o botao adicionar, excluir Estou fazendo desta forma: var frm_Tela: TForm; begin case cbxTelas.ItemIndex of 0: begin if frmPrincipal = nil then frmPrincipal := TfrmPrincipal.Create(Application.MainForm); frm_Tela := frmPrincipal; if frm_Tela = nil then frm_Tela := frm_Tela.Create(Application.MainForm); end; 1: begin if frmPermissoesUsuarios = nil then frmPermissoesUsuarios := TfrmPermissoesUsuarios.Create(Self); frm_Tela := frmPermissoesUsuarios; end; end; ... Vem o codigo para jogar os nomes dos componentes no grid .. finally FreeAndNil(frm_Tela); // -- Aqui ele destroi meu formulario principal, nao tem como eu continuar a trabalhar com o sistema!!! end; Obrigado. MuriloCunha On 20/04/2010 22:18, Alexandre wrote: Desculpa a intromissão mais qual seria o objetivo disso? E como você está fazendo a cópia agora? Depois da sua resposta te digo o que vc deve fazer. Em 20 de abril de 2010 13:46, Murilo Cunhamcscu...@yahoo.com.br escreveu: Pessoal, Como eu posso duplicar um form? O que eu quero é criar o FORM_PRINCIPAL duas vezes. Nesta segunda vez eu crio a tela, MAS SEM EXIBI-LA, e pego todos os nomes de botoes que estao contidos nela. Depois, eu destruo esta copia e continuo usando o sistema. NO ENTANTO, quando destruo esta copia, o meu FORM_PRINCIPAL tb é destruido!!! Como criar uma COPIA INDEPENDENTE?? Obrigado. MuriloCunha [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Preciso de Ajuda para desenvolver um novo TEdit
Cara não o que você fez ai na programação, mas é pra funcionar normalmente... eu tenho um caso aqui em um componente onde eu preciso excluir o texto de um caption e faço o que te passei e funciona numa boa... -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Fábio Thomaz Enviada em: quarta-feira, 21 de abril de 2010 21:02 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Preciso de Ajuda para desenvolver um novo TEdit Valeu Ricardo mas não deu certo não, agora quando eu coloco o componente na tela ele fica com a propriedade ecUpperCase como eu quero, mas quando executo o programa ele volta sua propriedade para ecNormal. Fábio Em 20 de abril de 2010 12:16, Ricardo Pascoal ricardo.pasc...@ig.com.brescreveu: Pelo que sei o CreateWnd, sobreescre o metodo contrutor Create da classe. Assim algumas propriedades só surtem efeito no momento da renderização do componente. -Mensagem original- De: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br [mailto: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br] Em nome de Fábio Thomaz Enviada em: terça-feira, 20 de abril de 2010 10:34 Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Assunto: Re: [delphi-br] Preciso de Ajuda para desenvolver um novo TEdit Valeu amigo, vou testar hoje a noite, mas só uma dúvida, o que faz este CreateWnd? Ele seta as propriedades default quando o componente é colocado no form? Att, Fábio Thomaz Em 19 de abril de 2010 23:35, Ricardo Pascoal ricardo.pasc...@ig.com.br ricardo.pascoal%40ig.com.brescreveu: Fabio, tenta fazer o seguinte... Logo depois da declaração do método create do componente, declare o método abaixo : procedure CreateWnd ; override ; em seguida coloque a implementação desse método como segue : procedure TSuaClasse.CreateWnd ; begin inherited ; Self.CharCase := ecUpperCase ; end; Obs : Não testei mas acredito que isso deva resolver...blz De: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.brdelphi-br% 40yahoogrupos.com.br [mailto: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.brdelphi-br% 40yahoogrupos.com.br] Em nome de Rubem Nascimento da Rocha Enviada em: segunda-feira, 19 de abril de 2010 23:09 Para: delphi-br Assunto: RE: [delphi-br] Preciso de Ajuda para desenvolver um novo TEdit Prioridade: Alta A lista não aceita anexos nas msgs. Sds. To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.brdelphi-br% 40yahoogrupos.com.br mailto: delphi-br%40yahoogrupos.com.br delphi-br%2540yahoogrupos.com.br From: fabio_...@yahoo.com.br fabio_thz%40yahoo.com.br fabio_thz% 40yahoo.com.br mailto: fabio_thz%40yahoo.com.br fabio_thz%2540yahoo.com.br Date: Mon, 19 Apr 2010 21:32:58 -0300 Subject: [delphi-br] Preciso de Ajuda para desenvolver um novo TEdit Olá amigos do grupo, estou tendanto desenvolver um novo TEdit que já venha com algumas propriedades pessoais para desenvolvimento que eu defini, mas não consigo deixar a propriedade CharCase com o padrão ecUpperCase, mesmo definindo como default na propriedade, se eu colocar para que ele receba ecUpperCase no OnCreate do componente funciona, mas quando eu preciso que não tenha esta propriedade, fica complicado, eu coloco ecNormal e ele coloca no OnCreate o ecUpperCase, segue em anexo a unit com o componente. Desde já agradeço, Att, Fábio Thomaz __ O Internet Explorer 8 quer te ajudar a navegar seguro. Entre aqui para ler as dicas. http://www.microsoft.com/brasil/windows/internet-explorer/?WT.mc_id=1500 [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Re: RES: [delphi-br] Re: [MAF] Banco de dados free
EMS for PostgreSQL 10, muito bom. Tem ele free no baixaki. Suelio Santos
Re: [delphi-br] Preciso de Ajuda para desenvolver um novo TEdit
Olá Marcos, Se eu definir a propriedade no Create do componente, esta sempre terá o valor que eu defini, mas terá casos que a propriedade deve ser ecNormal, como por exemplo em um campo que armazena senha, o que eu queria é apenas que a propriedade default fosse ecUpeerCase, mas que não me impedisse de alterar-la posteriormente. Att, Fábio Thomaz Em 21 de abril de 2010 22:33, Marcos Douglas m...@delfire.net escreveu: 2010/4/21 Fábio Thomaz fabio_...@yahoo.com.br fabio_thz%40yahoo.com.br : Valeu Ricardo mas não deu certo não, agora quando eu coloco o componente na tela ele fica com a propriedade ecUpperCase como eu quero, mas quando executo o programa ele volta sua propriedade para ecNormal. Defina o valor da propriedade no construtor: constructor Create(AOwner: TComponent); Marcos Douglas [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: delphi-br-ow...@yahoogrupos.com.br Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: delphi-br-unsubscr...@yahoogrupos.com.br * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Duplicar FORM
Entendi o que vc quer fazer. Não sei se esta é a melhor estratégia, mas o que você precisa é percorrer todos os campos do form e jogar numa tabela, e aí atribuir visibilidade, entre outras propriedades como cores, fonte, etc. No oncreate ou onshow de cada form você chama a função passando o id do usuário e o sistema irá ler na tabela os componentes e setar as propriedades. Caso encontre componentes novos, ele adicionará na tabela para que possa ser configurado também. Quanto a configuração dos campos de telas em si, poderá haver um popup em cada componente que abrirá uma janela com as configurações e a possibilidade de atualização. Por outro lado, existe um componente que já ouvi falar por aqui na lista, que fazia exatamente isso, inclusive tratava a questão das tabelas e tudo mais. Talvez alguém lembre e seja mais prático pra você usar o componente. Não posto códigos do FindComponent porque estou sem o Delphi aqui agora. Alexandre Em 22 de abril de 2010 08:56, Murilo Cunha mcscu...@yahoo.com.br escreveu: Pessoal, Meu objetivo eh o seguinte: Tenho um form para definir direitos dos usuarios no meu sistema. Quando abre esta tela, vc define qual usuario e qual tela irah configurar os direitos. Suponhamos que vc quer definir os direito para a tela principal do sistema, entao, no lado direito da tela tem um grid que lista todos os nome dos botoes e opcoes de menu para vc definir se aquele usuario pode ou nao ver a opcao, pode acessar o botao adicionar, excluir Estou fazendo desta forma: var frm_Tela : TForm; begin case cbxTelas.ItemIndex of 0: begin if frmPrincipal = nil then frmPrincipal := TfrmPrincipal.Create(Application.MainForm); frm_Tela := frmPrincipal; if frm_Tela = nil then frm_Tela := frm_Tela.Create(Application.MainForm); end; 1: begin if frmPermissoesUsuarios = nil then frmPermissoesUsuarios := TfrmPermissoesUsuarios.Create(Self); frm_Tela := frmPermissoesUsuarios; end; end; ... Vem o codigo para jogar os nomes dos componentes no grid .. finally FreeAndNil(frm_Tela); // -- Aqui ele destroi meu formulario principal, nao tem como eu continuar a trabalhar com o sistema!!! end; Obrigado. MuriloCunha On 20/04/2010 22:18, Alexandre wrote: Desculpa a intromissão mais qual seria o objetivo disso? E como você está fazendo a cópia agora? Depois da sua resposta te digo o que vc deve fazer. Em 20 de abril de 2010 13:46, Murilo Cunhamcscu...@yahoo.com.brmcscunha%40yahoo.com.br escreveu: Pessoal, Como eu posso duplicar um form? O que eu quero é criar o FORM_PRINCIPAL duas vezes. Nesta segunda vez eu crio a tela, MAS SEM EXIBI-LA, e pego todos os nomes de botoes que estao contidos nela. Depois, eu destruo esta copia e continuo usando o sistema. NO ENTANTO, quando destruo esta copia, o meu FORM_PRINCIPAL tb é destruido!!! Como criar uma COPIA INDEPENDENTE?? Obrigado. MuriloCunha [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: delphi-br-ow...@yahoogrupos.com.br Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: delphi-br-unsubscr...@yahoogrupos.com.br * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Preciso de Ajuda para desenvolver um novo TEdit
2010/4/22 Fábio Thomaz fabio_...@yahoo.com.br: Olá Marcos, Se eu definir a propriedade no Create do componente, esta sempre terá o valor que eu defini, mas terá casos que a propriedade deve ser ecNormal, como por exemplo em um campo que armazena senha, o que eu queria é apenas que a propriedade default fosse ecUpeerCase, mas que não me impedisse de alterar-la posteriormente. Mas o default é definir no Create! Se o campo for para senha, ou seja, se o usuário alterar qq propriedade no seu componente para dizer que o campo é para senha, nesta mesma rotina vc altera a propriedade para ecNormal. A diretiva default não tem nada a ver com valor default que a propriedade deve ter. Esta diretiva é para informar ao Delphi qual o valor padrão da propriedade mas isso tudo tem relação com o .DFM Veja mais sobre isso no help do Delphi, procurando por default e stored. Marcos Douglas
Re: [delphi-br] Re: Tratamento de bitmap com resultados diferentes em diferentes configura ções de videos.
Sugestão meio boba... mas você deu uma olhada nesses links? Uma luz pode surgir no fim desse túnel (vamos torcer para não ser um trêm vindo em nossa direção, heheheh) http://www.efg2.com/Lab/Library/Delphi/Graphics/BMP.htm http://stackoverflow.com/questions/2163949/delphi-dib-with-dib-header-into-tbitmap Atte, Ricardo. 1) Evite escrever suas mensagens usando somente LETRAS MAIÚSCULAS. 2) Revise o texto de sua mensagem. Uma mensagem bem escrita é melhor compreendida. 3) Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante! --- Em qui, 22/4/10, Alemão forumdel...@gmail.com escreveu: De: Alemão forumdel...@gmail.com Assunto: [delphi-br] Re: Tratamento de bitmap com resultados diferentes em diferentes configurações de videos. Para: delphi-br delphi-br@yahoogrupos.com.br Data: Quinta-feira, 22 de Abril de 2010, 11:43 Pessoal, alguém conhece algo a este respeito? Trabalha com processamento de imagem? Ainda não consegui resolver este problema até hoje. []s Alemao Em 21 de fevereiro de 2010 15:47, Alemão forumdelphi@ gmail.com escreveu: Encontrei a sigla... o tipo de bmp é DIB (Device Independent Bitmap). O Delphi suporta este tipo de bitmap? Isto resolveria o problema? []s Alemão. Em 21 de fevereiro de 2010 15:41, Alemão forumdelphi@ gmail.com escreveu: Pessoal, estou com um problema, recebo uma imagem em JPG e a converto para bitmap no delphi normalmente usando o assign BMP.Assign(JPG) . A partir deste bitmap, faço vários tratamentos, baseado em suas cores, por exemplo: if bmp.canvas.pixels[ i] = clblue then bmp.canvas.pixels[ i] := clwhite. Tudo OK, fuciona perfeitamente na minha máquina, que possui configuração de cores True Color de 32 bits, mas quando executo em maquinas com intensidade de cores diferentes: 16 ou 8 bits por exemplo, o resultado sai bastante diferente. Andei pesquisando na internet e vi que o bitmap tem uma relação de dependência com a intensidade de cores do windows, porém vi que existe um tipo de bitmap que é independente dessa configuração do windows, tem até uma sigla pra esse tipo de imagem, só não me lembro agora qual é... Alguem tem uma idéia de como posso contornar este problema? Trabalhar com o bitmap independente das configurações do windows? Obrigado. [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Problema no ADOTable com Delphi 2010
if Operacao='incluir' then begin frmFornecedor.ADOTable1.Append; frmFornecedor.ADOTable1Codigo.Value := Codigo; frmFornecedor.PageControl1.ActivePageIndex := end coloque o post no botão gravar. _ De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Eduardo Enviada em: quarta-feira, 21 de abril de 2010 16:48 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Problema no ADOTable com Delphi 2010 Boa tarde, Pessoal Montei um formulário com um PageControl e 3 TabSheets, na primeira coloquei um DBGrid, DBNavigator(invisivel) e criei um botão incluir, quando clicado ele seta a TabSheet2, onde eu tenho vários DBEdit's, nessa hora eu crio um código (tenho uma função SOMA1) e preencho o DBEdit do código, seto o foco para o próximo campo e continuo preenchendo os demais, quando clico no botão gravar, dá um erro no banco pq não é permitido gravar nulo. Como eu devo atribuir esse valor? Olha o código aqui... Tem um monte de linhas que eram testes para tentar fazer funcionar... unit uFornecedor; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons, Grids, DBGrids, ExtCtrls, ComCtrls, DBCtrls, Mask, DB, ADODB; type TfrmFornecedor = class(TForm) PageControl1: TPageControl; TabSheet1: TTabSheet; TabSheet2: TTabSheet; TabSheet3: TTabSheet; Panel1: TPanel; Panel2: TPanel; DBGrid1: TDBGrid; Panel3: TPanel; Excluir: TBitBtn; Alterar: TBitBtn; Incluir: TBitBtn; ComboBox1: TComboBox; Edit1: TEdit; BitBtn4: TBitBtn; Label1: TLabel; Label2: TLabel; Panel4: TPanel; Memo1: TMemo; DataSource1: TDataSource; ADOConnection1: TADOConnection; ADOTable1: TADOTable; DBNavigator1: TDBNavigator; ADOTable1Filial: TStringField; ADOTable1Codigo: TStringField; ADOTable1Razao: TStringField; ADOTable1CNPJ: TStringField; ADOTable1IE: TStringField; ADOTable1Endereco: TStringField; ADOTable1Complemento: TStringField; ADOTable1Bairro: TStringField; ADOTable1Municipio: TStringField; ADOTable1Estado: TStringField; ADOTable1CEP: TStringField; ADOTable1Email: TStringField; ADOTable1Obs: TMemoField; Label3: TLabel; DBEdit1: TDBEdit; Label4: TLabel; DBEdit2: TDBEdit; Label5: TLabel; DBEdit3: TDBEdit; Label6: TLabel; DBEdit4: TDBEdit; Label7: TLabel; DBEdit5: TDBEdit; Label8: TLabel; DBEdit6: TDBEdit; Label9: TLabel; DBEdit7: TDBEdit; Label10: TLabel; DBEdit8: TDBEdit; Label11: TLabel; DBEdit9: TDBEdit; Label12: TLabel; DBEdit10: TDBEdit; Label13: TLabel; DBEdit11: TDBEdit; Label14: TLabel; DBMemo1: TDBMemo; BitBtn1: TBitBtn; procedure IncluirClick(Sender: TObject); procedure FormKeyPress(Sender: TObject; var Key: Char); procedure DBMemo1Exit(Sender: TObject); procedure BitBtn1Click(Sender: TObject); // O erro é aqui !!! //Function TfrmFornecedor.Soma1(Num:Integer):String; // O erro é aqui !!! private { Private declarations } public { Public declarations } end; var frmFornecedor: TfrmFornecedor; Operacao,Codigo: String; implementation {$R *.dfm} Function Soma1(Num:integer):String; //Var Result : String; Begin // O Tamanho do numero de saida sempre será 9 digitos Num := Num + 1; if Length(IntToStr(Num))=1 then Result := ''+IntToStr(Num); if Length(IntToStr(Num))=2 then Result := '000'+IntToStr(Num); if Length(IntToStr(Num))=3 then Result := '00'+IntToStr(Num); if Length(IntToStr(Num))=4 then Result := '0'+IntToStr(Num); if Length(IntToStr(Num))=5 then Result := ''+IntToStr(Num); if Length(IntToStr(Num))=6 then Result := '000'+IntToStr(Num); if Length(IntToStr(Num))=7 then Result := '00'+IntToStr(Num); if Length(IntToStr(Num))=8 then Result := '0'+IntToStr(Num); if Length(IntToStr(Num))=9 then Result := IntToStr(Num); if Length(IntToStr(Num))9 then Begin ShowMessage('Erro função SOMA1'); Result := '*' End; End; procedure TfrmFornecedor.BitBtn1Click(Sender: TObject); begin if Operacao='incluir' then begin frmFornecedor.ADOTable1Codigo.Value := Codigo; frmFornecedor.ADOTable1.Append; frmFornecedor.ADOTable1.Post; frmFornecedor.PageControl1.ActivePageIndex := 0; end; end; procedure TfrmFornecedor.DBMemo1Exit(Sender: TObject); begin frmFornecedor.BitBtn1.Enabled := True; end; procedure TfrmFornecedor.FormKeyPress(Sender: TObject; var Key: Char); begin //verifica se a tecla pressionada é a tecla ENTER, conhecida pelo Delphi como #13 If key = #13 then Begin //se for, passa o foco para o próximo campo, zerando o valor da variável Key Key:= #0; Perform(Wm_NextDlgCtl,0,0); end; end; procedure TfrmFornecedor.IncluirClick(Sender: TObject); Var CodFor: integer; begin Operacao := 'incluir'; // Inclusão de Fornecedor //** // dar foco a página do registro frmFornecedor.PageControl1.ActivePageIndex := 1; frmFornecedor.BitBtn1.Enabled := false; // Calcular o código do novo registro if frmFornecedor.ADOTable1.IsEmpty then Begin CodFor := 0; frmFornecedor.DBEdit1.Text :=
Re: [delphi-br] Re: Tratamento de bitmap com resultado s diferentes em diferentes configurações de videos.
Mas qual é o problema especificamente? Que erro tá dando? []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil wchag...@bol.com.br http://delphitocorporerm.blogspot.com/ http://twitter.com/wchagas MSN: whitesock...@hotmail.com SKYPE: WalterChagasJr - Original Message - From: Alemão To: delphi-br Sent: Thursday, April 22, 2010 11:43 AM Subject: [delphi-br] Re: Tratamento de bitmap com resultados diferentes em diferentes configurações de videos. Pessoal, alguém conhece algo a este respeito? Trabalha com processamento de imagem? Ainda não consegui resolver este problema até hoje. []s Alemao Em 21 de fevereiro de 2010 15:47, Alemão forumdel...@gmail.com escreveu: Encontrei a sigla... o tipo de bmp é DIB (Device Independent Bitmap). O Delphi suporta este tipo de bitmap? Isto resolveria o problema? []s Alemão. Em 21 de fevereiro de 2010 15:41, Alemão forumdel...@gmail.com escreveu: Pessoal, estou com um problema, recebo uma imagem em JPG e a converto para bitmap no delphi normalmente usando o assign BMP.Assign(JPG). A partir deste bitmap, faço vários tratamentos, baseado em suas cores, por exemplo: if bmp.canvas.pixels[i] = clblue then bmp.canvas.pixels[i] := clwhite. Tudo OK, fuciona perfeitamente na minha máquina, que possui configuração de cores True Color de 32 bits, mas quando executo em maquinas com intensidade de cores diferentes: 16 ou 8 bits por exemplo, o resultado sai bastante diferente. Andei pesquisando na internet e vi que o bitmap tem uma relação de dependência com a intensidade de cores do windows, porém vi que existe um tipo de bitmap que é independente dessa configuração do windows, tem até uma sigla pra esse tipo de imagem, só não me lembro agora qual é... Alguem tem uma idéia de como posso contornar este problema? Trabalhar com o bitmap independente das configurações do windows? Obrigado. [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Cupom fiscal e NF-e: o que precisa?
É necessário fazer a homologação do sistema junto a sefaz do seu estado. De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Fabiano Almeida Enviada em: segunda-feira, 19 de abril de 2010 19:51 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Cupom fiscal e NF-e: o que precisa? Olá, para a emissão de Cupom fiscal e NF-e, o que é necessário ter no software? É necessário algum tipo de licensa especial? [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Duplicar FORM
Suelio, Pensando bem, acho que vc e o Alexandre tem razao! Posso verificar se este form estah criado e percorrer todos os componentes jogando os nomes no grid. Se nao estiver criado, eu crio e depois destruo. Pensando bem, acho q isso eh mais logico. ;-))) Obrigado MuriloCunha On 22/04/2010 08:52, Suélio Santos wrote: Como o Alexandre disse, não faz muito sentido fazer isso. Qual a finalidade de se fazer dois formPrincipal?? Murilo Cunha escreveu: Pessoal, Como eu posso duplicar um form? O que eu quero é criar o FORM_PRINCIPAL duas vezes. Nesta segunda vez eu crio a tela, MAS SEM EXIBI-LA, e pego todos os nomes de botoes que estao contidos nela. Depois, eu destruo esta copia e continuo usando o sistema. NO ENTANTO, quando destruo esta copia, o meu FORM_PRINCIPAL tb é destruido!!! Como criar uma COPIA INDEPENDENTE?? Obrigado. MuriloCunha -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: delphi-br-ow...@yahoogrupos.com.br Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: delphi-br-unsubscr...@yahoogrupos.com.br * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Duplicar FORM
Outra boa opção tambem seia UserControl, agora um pouco diferente do que vc quer, ele controla apenas action list e menus. Em 22 de abril de 2010 14:03, Alexandre alexandre.pedr...@gmail.comescreveu: Entendi o que vc quer fazer. Não sei se esta é a melhor estratégia, mas o que você precisa é percorrer todos os campos do form e jogar numa tabela, e aí atribuir visibilidade, entre outras propriedades como cores, fonte, etc. No oncreate ou onshow de cada form você chama a função passando o id do usuário e o sistema irá ler na tabela os componentes e setar as propriedades. Caso encontre componentes novos, ele adicionará na tabela para que possa ser configurado também. Quanto a configuração dos campos de telas em si, poderá haver um popup em cada componente que abrirá uma janela com as configurações e a possibilidade de atualização. Por outro lado, existe um componente que já ouvi falar por aqui na lista, que fazia exatamente isso, inclusive tratava a questão das tabelas e tudo mais. Talvez alguém lembre e seja mais prático pra você usar o componente. Não posto códigos do FindComponent porque estou sem o Delphi aqui agora. Alexandre Em 22 de abril de 2010 08:56, Murilo Cunha mcscu...@yahoo.com.br escreveu: Pessoal, Meu objetivo eh o seguinte: Tenho um form para definir direitos dos usuarios no meu sistema. Quando abre esta tela, vc define qual usuario e qual tela irah configurar os direitos. Suponhamos que vc quer definir os direito para a tela principal do sistema, entao, no lado direito da tela tem um grid que lista todos os nome dos botoes e opcoes de menu para vc definir se aquele usuario pode ou nao ver a opcao, pode acessar o botao adicionar, excluir Estou fazendo desta forma: var frm_Tela : TForm; begin case cbxTelas.ItemIndex of 0: begin if frmPrincipal = nil then frmPrincipal := TfrmPrincipal.Create(Application.MainForm); frm_Tela := frmPrincipal; if frm_Tela = nil then frm_Tela := frm_Tela.Create(Application.MainForm); end; 1: begin if frmPermissoesUsuarios = nil then frmPermissoesUsuarios := TfrmPermissoesUsuarios.Create(Self); frm_Tela := frmPermissoesUsuarios; end; end; ... Vem o codigo para jogar os nomes dos componentes no grid .. finally FreeAndNil(frm_Tela); // -- Aqui ele destroi meu formulario principal, nao tem como eu continuar a trabalhar com o sistema!!! end; Obrigado. MuriloCunha On 20/04/2010 22:18, Alexandre wrote: Desculpa a intromissão mais qual seria o objetivo disso? E como você está fazendo a cópia agora? Depois da sua resposta te digo o que vc deve fazer. Em 20 de abril de 2010 13:46, Murilo Cunhamcscu...@yahoo.com.br mcscunha%40yahoo.com.br escreveu: Pessoal, Como eu posso duplicar um form? O que eu quero é criar o FORM_PRINCIPAL duas vezes. Nesta segunda vez eu crio a tela, MAS SEM EXIBI-LA, e pego todos os nomes de botoes que estao contidos nela. Depois, eu destruo esta copia e continuo usando o sistema. NO ENTANTO, quando destruo esta copia, o meu FORM_PRINCIPAL tb é destruido!!! Como criar uma COPIA INDEPENDENTE?? Obrigado. MuriloCunha [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM -- Nazareno Neto #507685 Desenvolvedor Delphi e Firebird http://www.delphisistemas.com.br nazarenon...@delphisistemas.com.br nazareno.nobr...@gmail.com [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] TDBGrid delphi 2010
Putz, se assim é que está, irei preferir conviver com esta horrível borda preta até que seja corrigido isto. Valeu pela explicação. Em 20 de abril de 2010 12:24, Ricardo Augusto ricardo250...@yahoo.com.brescreveu: Realmente não existe essa propriedade e, infelizmente, essa borda preta no editor do DBGrid no Delphi 2010 não é resolvido simplesmente setando uma propriedade, pois é um bug. O problema já foi apontado pelo Marco Cantu no seu livro Delphi 2010 Handbook (pg 203). A solução (gambiarra) que ele sugere é herdar um componente do DBGrid (ou usar uma classe interceptora) e alterar o método Paint para algo como: uses Rtti; procedure TDBGrid.Paint; var oldEditorMode: TValue; context: TRttiCOntext; editorModeField: TRttiField; begin editorModeField := context.GetType(TDbGrid). GetField('FEditorMode'); if Assigned (editorModeField) then begin oldEditorMode := editorModeField.GetValue(self); editorModeField.SetValue(self, TValue.From(False)); end; // now paint inherited; if Assigned (editorModeField) then editorModeField.SetValue(self, oldEditorMode); end; Eu não gostei muito da solução, pois vc acessa informações de run-time toda vez que o grid é atualizado (o que às vezes é lento) e ao adicionar a unit Rtti no projeto vc adiciona um monte de informação que talvez não fosse usar. Eu prefiro conviver com a borda preta em volta da célula até sair uma correção disso. Em 19 de abril de 2010 14:11, Carlos Aquino duar...@gmail.com escreveu: Camarada, sinceramente, não vejo nenhuma propriedade Layout no TDBGrid. Em 17 de abril de 2010 00:40, Andreano Lanusse andreano.lanu...@embarcadero.com andreano.lanusse%40embarcadero.com escreveu: Configura a propriedade de layout do DBGrid, isso é novo no Delphi 2010. From: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br delphi-br% 40yahoogrupos.com.br[mailto: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br delphi-br% 40yahoogrupos.com.br] On Behalf Of Carlos Aquino Sent: Friday, April 16, 2010 9:33 AM To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br delphi-br% 40yahoogrupos.com.br Subject: [delphi-br] TDBGrid delphi 2010 Galera, o TDBGrid do delphi 2010 quando editando um campo, tem uma borda preta em volta da célula horrorosa, alguém sabe como eu tiro aquela borda ? Lembrando que é o TDBGrid original do próprio delphi. -- __ : grato e sem mais, : Carlos Aquino, Uberaba/MG __ : http://duard.com.br//bloghttp://duard.com.br/blog : Msn-Messenger : duar...@hotmail.com duardbr%40hotmail.com duardbr% 40hotmail.commailto: duardbr%40hotmail.com duardbr%2540hotmail.com __ : Uberaba-MG / Brasil __ [As partes desta mensagem que não continham texto foram removidas] CONFIDENTIALITY NOTICE: This email message is for the sole use of the intended recipient(s) and may contain confidential and privileged information. Any unauthorized review, use, disclosure or distribution is prohibited. If you are not the intended recipient, please contact the sender by reply email and destroy all copies of the original message. [As partes desta mensagem que não continham texto foram removidas] -- __ : grato e sem mais, : Carlos Aquino, Uberaba/MG __ : http://duard.com.br//blog : Msn-Messenger : duar...@hotmail.com duardbr%40hotmail.com __ : Uberaba-MG / Brasil __ [As partes desta mensagem que não continham texto foram removidas] -- _ Ricardo Augusto Muitos dos problemas do mundo devem-se ao fato de que os ignorantes estão completamente seguros e os inteligentes cheios de dúvidas (Bertrand Russel) [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM -- __ : grato e sem mais, : Carlos Aquino, Uberaba/MG __ : http://duard.com.br//blog : Msn-Messenger : duar...@hotmail.com __ : Uberaba-MG / Brasil __ [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Re: Tratamento de bitmap com resultados diferentes em diferent es configurações de videos.
Encontrei uma rotina, não sei se vai te servir: If you know what sort of size you're using for drawing it, you can in many cases significantly speed up the loading if the displayed jpeg is much smaller than the original. Check out TJPEGImage.Scale. Here's some sample code: procedure LoadScaledJpeg(Stream: TStream; MaxWidth, MaxHeight: integer; Dest: TBitmap); var jpg: TJPEGImage; aspect, maxaspect: single; width, height, scale: integer; begin jpg:= TJPEGImage.Create; try jpg.LoadFromStream(Stream); // find the width and height which fits inside // the maximum rectangle while preserving // the aspect ratio aspect:= jpg.Width / jpg.Height; maxaspect:= MaxWidth / MaxHeight; if (aspect maxaspect) then begin width:= MaxWidth; height:= round(MaxWidth / aspect); end else begin width:= round(MaxHeight * aspect); height:= MaxHeight; end; // find the scale that causes the jpg to be as small // as possible while still larger than the destination // width and height. This ensures that when we // resample the image we dont scale up any // dimention, only down. scale:= floor(min(jpg.Width / width, jpg.Height / height)); case scale of 0..1: jpg.Scale:= jsFullSize; 2..3: jpg.Scale:= jsHalf; 4..7: jpg.Scale:= jsQuarter; else jpg.Scale:= jsEighth; end; // decode and assign Dest.Assign(jpg); finally jpg.Free; end; end; Em 22/04/2010 11:43, Alemão escreveu: Pessoal, alguém conhece algo a este respeito? Trabalha com processamento de imagem? Ainda não consegui resolver este problema até hoje. []s Alemao Em 21 de fevereiro de 2010 15:47, Alemão forumdel...@gmail.com mailto:forumdelphi%40gmail.com escreveu: Encontrei a sigla... o tipo de bmp é DIB (Device Independent Bitmap). O Delphi suporta este tipo de bitmap? Isto resolveria o problema? []s Alemão. Em 21 de fevereiro de 2010 15:41, Alemão forumdel...@gmail.com mailto:forumdelphi%40gmail.com escreveu: Pessoal, estou com um problema, recebo uma imagem em JPG e a converto para bitmap no delphi normalmente usando o assign BMP.Assign(JPG). A partir deste bitmap, faço vários tratamentos, baseado em suas cores, por exemplo: if bmp.canvas.pixels[i] = clblue then bmp.canvas.pixels[i] := clwhite. Tudo OK, fuciona perfeitamente na minha máquina, que possui configuração de cores True Color de 32 bits, mas quando executo em maquinas com intensidade de cores diferentes: 16 ou 8 bits por exemplo, o resultado sai bastante diferente. Andei pesquisando na internet e vi que o bitmap tem uma relação de dependência com a intensidade de cores do windows, porém vi que existe um tipo de bitmap que é independente dessa configuração do windows, tem até uma sigla pra esse tipo de imagem, só não me lembro agora qual é... Alguem tem uma idéia de como posso contornar este problema? Trabalhar com o bitmap independente das configurações do windows? Obrigado. [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Re: Tratamento de bitmap com resultad os diferentes em diferentes configurações de videos.
Segundo o help do Delphi, a classe TBitmap suporta DIB (device-independent bitmap) e DDB (device-dependent bitmap). Informe-se também no help do Delphi sobre a propriedade HandleType. Sds. De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Walter Chagas (Bol) Enviada em: quinta-feira, 22 de abril de 2010 15:31 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Re: Tratamento de bitmap com resultados diferentes em diferentes configurações de videos. Mas qual é o problema especificamente? Que erro tá dando? []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil wchag...@bol.com.br mailto:wchagasj%40bol.com.br http://delphitocorporerm.blogspot.com/ http://twitter.com/wchagas MSN: whitesock...@hotmail.com mailto:whitesockets%40hotmail.com SKYPE: WalterChagasJr - Original Message - From: Alemão To: delphi-br Sent: Thursday, April 22, 2010 11:43 AM Subject: [delphi-br] Re: Tratamento de bitmap com resultados diferentes em diferentes configurações de videos. Pessoal, alguém conhece algo a este respeito? Trabalha com processamento de imagem? Ainda não consegui resolver este problema até hoje. []s Alemao Em 21 de fevereiro de 2010 15:47, Alemão forumdel...@gmail.com mailto:forumdelphi%40gmail.com escreveu: Encontrei a sigla... o tipo de bmp é DIB (Device Independent Bitmap). O Delphi suporta este tipo de bitmap? Isto resolveria o problema? []s Alemão. Em 21 de fevereiro de 2010 15:41, Alemão forumdel...@gmail.com mailto:forumdelphi%40gmail.com escreveu: Pessoal, estou com um problema, recebo uma imagem em JPG e a converto para bitmap no delphi normalmente usando o assign BMP.Assign(JPG). A partir deste bitmap, faço vários tratamentos, baseado em suas cores, por exemplo: if bmp.canvas.pixels[i] = clblue then bmp.canvas.pixels[i] := clwhite. Tudo OK, fuciona perfeitamente na minha máquina, que possui configuração de cores True Color de 32 bits, mas quando executo em maquinas com intensidade de cores diferentes: 16 ou 8 bits por exemplo, o resultado sai bastante diferente. Andei pesquisando na internet e vi que o bitmap tem uma relação de dependência com a intensidade de cores do windows, porém vi que existe um tipo de bitmap que é independente dessa configuração do windows, tem até uma sigla pra esse tipo de imagem, só não me lembro agora qual é... Alguem tem uma idéia de como posso contornar este problema? Trabalhar com o bitmap independente das configurações do windows? Obrigado. [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Abreviar nomes de Componentes
Obrigado pela resposta. Seguindo uma mesma nomenclatura é mais facil para outros Programadores entenderem o código fonte. Seguir uma padronização facilita muito posteriormente. Até maiss. _ De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Rubem Rocha Enviada em: quinta-feira, 22 de abril de 2010 11:51 Para: delphi-br@yahoogrupos.com.br Assunto: RES: [delphi-br] Abreviar nomes de Componentes Prioridade: Alta Não existe uma lista padronizada, o que existe é um padrão de nomenclatura, chamado trigramação, que consiste em utilizar as iniciais mais significativas de uma entidade (ou classe) para compor o nome de um atributo (ou de um objeto). Existem na Internet sugestões de nomenclatura de componentes, mas nenhuma delas é padronizada, oficializada por assim dizer. Portanto, o que você quer, na realidade, não é uma lista com nomes abreviados de componentes Delphi, e sim um padrão para nomenclatura. Sendo assim, sugiro que informe-se mais sobre o tema trigramação na Internet e monte seu próprio padrão de nomenclatura de componentes. Boa sorte. Sds. De: delphi...@yahoogrup mailto:delphi-br%40yahoogrupos.com.br os.com.br [mailto:delphi...@yahoogrup mailto:delphi-br%40yahoogrupos.com.br os.com.br] Em nome de Dimas Enviada em: quarta-feira, 21 de abril de 2010 10:29 Para: delphi...@yahoogrup mailto:delphi-br%40yahoogrupos.com.br os.com.br Assunto: [delphi-br] Abreviar nomes de Componentes Oi pessoal Preciso de uma lista com os nomes abreviados dos componentes em Delphi. Exemplo: TComboBox = Cbx Sei que tem uma lista com todos os nomes Abreviados para seguir uma padronizaão. Obrigado. [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Preciso de Ajuda para desenvolver um novo TEdit
Descobri uma coisa interessante agora, se eu colocar no Create para o componente receber ecUpperCase acontece o seguinte: Coloco o componente no form, mudo a propriedade CharCase para ecUpperCase, funciona perfeitamente; Coloco um outro componente no form, mudo a propriedade CharCase para ecLowerCase, funciona perfeitamente; Coloco um outro componente no form, mudo a propriedade CharCase para ecNormal, não fuciona, o componente comparta-se como se a propriedade fosse ecUpperCase que é a que informei no Create; Tudo isto quando executo o programa e tento digitar algo no Edit. Vai entender! Att, Fábio Thomaz Em 22 de abril de 2010 14:27, Marcos Douglas m...@delfire.net escreveu: 2010/4/22 Fábio Thomaz fabio_...@yahoo.com.br fabio_thz%40yahoo.com.br : Olá Marcos, Se eu definir a propriedade no Create do componente, esta sempre terá o valor que eu defini, mas terá casos que a propriedade deve ser ecNormal, como por exemplo em um campo que armazena senha, o que eu queria é apenas que a propriedade default fosse ecUpeerCase, mas que não me impedisse de alterar-la posteriormente. Mas o default é definir no Create! Se o campo for para senha, ou seja, se o usuário alterar qq propriedade no seu componente para dizer que o campo é para senha, nesta mesma rotina vc altera a propriedade para ecNormal. A diretiva default não tem nada a ver com valor default que a propriedade deve ter. Esta diretiva é para informar ao Delphi qual o valor padrão da propriedade mas isso tudo tem relação com o .DFM Veja mais sobre isso no help do Delphi, procurando por default e stored. Marcos Douglas [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: delphi-br-ow...@yahoogrupos.com.br Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: delphi-br-unsubscr...@yahoogrupos.com.br * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RES: [delphi-br] Duplicar FORM
Ele controla tambem os controles dentro do form. (buttons, Edit, action list, etc) De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Nazareno Neto Enviada em: quinta-feira, 22 de abril de 2010 14:36 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Duplicar FORM Outra boa opção tambem seia UserControl, agora um pouco diferente do que vc quer, ele controla apenas action list e menus. Em 22 de abril de 2010 14:03, Alexandre alexandre.pedr...@gmail.com mailto:alexandre.pedroto%40gmail.com escreveu: Entendi o que vc quer fazer. Não sei se esta é a melhor estratégia, mas o que você precisa é percorrer todos os campos do form e jogar numa tabela, e aí atribuir visibilidade, entre outras propriedades como cores, fonte, etc. No oncreate ou onshow de cada form você chama a função passando o id do usuário e o sistema irá ler na tabela os componentes e setar as propriedades. Caso encontre componentes novos, ele adicionará na tabela para que possa ser configurado também. Quanto a configuração dos campos de telas em si, poderá haver um popup em cada componente que abrirá uma janela com as configurações e a possibilidade de atualização. Por outro lado, existe um componente que já ouvi falar por aqui na lista, que fazia exatamente isso, inclusive tratava a questão das tabelas e tudo mais. Talvez alguém lembre e seja mais prático pra você usar o componente. Não posto códigos do FindComponent porque estou sem o Delphi aqui agora. Alexandre Em 22 de abril de 2010 08:56, Murilo Cunha mcscu...@yahoo.com.br mailto:mcscunha%40yahoo.com.br escreveu: Pessoal, Meu objetivo eh o seguinte: Tenho um form para definir direitos dos usuarios no meu sistema. Quando abre esta tela, vc define qual usuario e qual tela irah configurar os direitos. Suponhamos que vc quer definir os direito para a tela principal do sistema, entao, no lado direito da tela tem um grid que lista todos os nome dos botoes e opcoes de menu para vc definir se aquele usuario pode ou nao ver a opcao, pode acessar o botao adicionar, excluir Estou fazendo desta forma: var frm_Tela : TForm; begin case cbxTelas.ItemIndex of 0: begin if frmPrincipal = nil then frmPrincipal := TfrmPrincipal.Create(Application.MainForm); frm_Tela := frmPrincipal; if frm_Tela = nil then frm_Tela := frm_Tela.Create(Application.MainForm); end; 1: begin if frmPermissoesUsuarios = nil then frmPermissoesUsuarios := TfrmPermissoesUsuarios.Create(Self); frm_Tela := frmPermissoesUsuarios; end; end; ... Vem o codigo para jogar os nomes dos componentes no grid .. finally FreeAndNil(frm_Tela); // -- Aqui ele destroi meu formulario principal, nao tem como eu continuar a trabalhar com o sistema!!! end; Obrigado. MuriloCunha On 20/04/2010 22:18, Alexandre wrote: Desculpa a intromissão mais qual seria o objetivo disso? E como você está fazendo a cópia agora? Depois da sua resposta te digo o que vc deve fazer. Em 20 de abril de 2010 13:46, Murilo Cunhamcscu...@yahoo.com.br mailto:mcscunha%40yahoo.com.br mcscunha%40yahoo.com.br escreveu: Pessoal, Como eu posso duplicar um form? O que eu quero é criar o FORM_PRINCIPAL duas vezes. Nesta segunda vez eu crio a tela, MAS SEM EXIBI-LA, e pego todos os nomes de botoes que estao contidos nela. Depois, eu destruo esta copia e continuo usando o sistema. NO ENTANTO, quando destruo esta copia, o meu FORM_PRINCIPAL tb é destruido!!! Como criar uma COPIA INDEPENDENTE?? Obrigado. MuriloCunha [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM -- Nazareno Neto #507685 Desenvolvedor Delphi e Firebird http://www.delphisistemas.com.br nazarenon...@delphisistemas.com.br mailto:nazarenoneto%40delphisistemas.com.br nazareno.nobr...@gmail.com mailto:nazareno.nobrega%40gmail.com [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] TcxGrid
Pessoal, Quem manja de mexer com o componente TcxGrid, do pacote da DevExpress?? Nao estou conseguindo inserir dados nele. Nao quero liga-lo a um DataSource, quero inserir dados como se fosse um TStringGrid. Ha como fazer isso via programacao? Se souberem me passe o e-mail para enviar um sisteminha de testes para me ajudar a trabalhar com este componente. Obrigado. MuriloCunha
Re: [delphi-br] TcxGrid
Quem manja de mexer com o componente TcxGrid, do pacote da DevExpress?? Nao estou conseguindo inserir dados nele. Nao quero liga-lo a um DataSource, quero inserir dados como se fosse um TStringGrid. Ha como fazer isso via programacao? Alimente seus dados em um ClientDataset. Mesmo que nao queira dados do banco, fica mto mais simples trabalhar assim... Jackson Gomes ToolsComps - Controle de Usuários para Desenvolvedores CodeGear Web Site: http://www.toolsandcomps.com Nosso Fórum: http://groups.yahoo.com/group/toolsandcomps e-mail: jack...@toolsandcomps.com Fone: 27 3389 1138 - 8811 0324 http://jacklovesdelphi.blogspot.com - Delphi, Intraweb, etc Devhost - Webhost para desenvolvedores Delphi http://www.devhost.com.br devh...@devhost.com.br
[delphi-br] MySQL Web, Conexão via Zeus, procedimentos
Pessoal boa noite, Fiz um pequeno teste com Delphi 7+Zeus, grid para listar todos os registros da tabela de um banco MySQL (5.1) que esta na internet, minhas perguntas são: 1) qual protocolo devo selecionar ? (no Zeus/TZConnection) 2) o que eu preciso instalar para rodar ? DLLs Apesar que consegui fazer funcionar, talvez foi de forma forçada, gostaria de saber o procedimento correto. Grato Eric
Re: [delphi-br] Re: Procuro sistema ERP completo com fontes
500 reais os fontes do seu sistema ? Desculpe me, mas seu sistema deve ser uma merda. Em 20 de abril de 2010 10:00, Erick | TI Sprinter Cargo t...@sprintercargo.com.br escreveu: Sem problemas amigão ! me add no msn - er...@bluon.com.br erick%40bluon.com.br abraco ! - Original Message - From: Paulo Coutinho pa...@prsolucoes.com paulo%40prsolucoes.com To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Sent: Tuesday, April 20, 2010 9:51 AM Subject: Re: [delphi-br] Re: Procuro sistema ERP completo com fontes Olá Erick, Você negocia ele somente por dinheiro? Pois tenho 3 outros ERPs que comprei pelo mercado livre, mas não me atendem pois não tem as funcionalidades que eu queria, então derrepente poeriamos trocar esses 3 sistemas com fontes e tudo pelo seu, e se quiser ainda faço um serviço relacionado a web para você pela minha empresa. O que acha? -- Atenciosamente, Paulo Coutinho. Blog: www.prsolucoes.com/blog Site: www.prsolucoes.com Msn: pa...@prsolucoes.com paulo%40prsolucoes.com Skype: paulo.prsolucoes Consultor Certificado Bindows Em 19 de abril de 2010 08:53, Erick | TI Sprinter Cargo t...@sprintercargo.com.br ti%40sprintercargo.com.br escreveu: Amigo tenho um erp porem nao tem paf nem nf-e. As demais tem tudo..peco 500 reais se tiver interesse me add msn - er...@bluon.com.brerick%40bluon.com.brerick% 40bluon.com.br abs - Original Message - From: Paulo Coutinho To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.brdelphi-br% 40yahoogrupos.com.br Sent: Sunday, April 18, 2010 5:14 AM Subject: [delphi-br] Re: Procuro sistema ERP completo com fontes Este sistema parece ser o ideal. http://produto.mercadolivre.com.br/MLB-130445515-vision-erp-ecf-tef-nfepaf-fonte-delphi-2007-e-fireb-_JM Alguém tem ele ou algum outro parecido, que tenha estas funcionalidades? Alguém indica? -- Atenciosamente, Paulo Coutinho. Blog: www.prsolucoes.com/blog Site: www.prsolucoes.com Msn: pa...@prsolucoes.com paulo%40prsolucoes.com paulo% 40prsolucoes.com Skype: paulo.prsolucoes Consultor Certificado Bindows Em 18 de abril de 2010 04:47, Paulo Coutinho pa...@prsolucoes.com paulo%40prsolucoes.compaulo%40prsolucoes.com escreveu: Olá, Estou procurando um sistema ERP completo que tenha os fontes, pago ou não. Deverá conter as seguintes funcionalidades: 1 - PDV com ECF 2 - Permitir vender e dividir o valor em diferentes formas de pagamento. Exemplo: 2.1 - Vendi 1 PC de 3 mil reais, então ne mesma venda o clinte pagar assim: 2.1.1 - 1mil em dinheiro 2.1.2 - 500 reais em cartão 2.1.3 - 500 reais em boleto 2.1.4 - 500 reais em um cheque 2.1.5 - 500 reais em um outro cheque 3 - Tabela de preço, onde eu possa escolher qual preço usar para aquele produto. Exemplo: 3.1 - Produto: MOUSE 3.1.1 - Preço 1 - 10,00 3.1.2 - Preço 2 - 12,50 3.1.1 - Preço 3 - 13,00 3.2 - O nome do preço na tabela de preço poderá ser qualquer texto, como preço em dinheiro, preço cartão 3x, preço cartão 6x Se posuir NF-e melhor ainda. Eu achei vários sistemas, mas o problema é que sempre fica faltando algumas destas funcionalidades. -- Atenciosamente, Paulo Coutinho. Blog: www.prsolucoes.com/blog Site: www.prsolucoes.com Msn: pa...@prsolucoes.com paulo%40prsolucoes.com paulo% 40prsolucoes.com Skype: paulo.prsolucoes Consultor Certificado Bindows [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM -- __ : grato e sem mais, : Carlos Aquino, Uberaba/MG __ : http://duard.com.br//blog : Msn-Messenger : duar...@hotmail.com __ : Uberaba-MG / Brasil __ [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Zeos ou IBO?
Conectar Delphi 2007 com Firebird 2.0, melhor Zeos ou IBO? atualmente uso o Zeos e gostei da simplicidade e não necessidade de distribuir infindáveis DLLs pra funcionar, apenas a aplicação em si. Porém tenho lido que IBO tem performance muito superior, que é rápido, lava, passa e faz café num instante... E aí, qual vcs me recomendam? Sds, Fabiano
[delphi-br] hi. %-
hi! I find a good website: www.besark.com http://www.besark.com They mainly sell new and original electronic products. Now they are holding sales promotion activity, all the product are sold at a discount. low cost and good quality ,and the delivery is on time . It is a good chance that you should not lose. If you need some, visit this website . Hope everything goes well. Greetings! o- [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Zeos ou IBO?
Ambos são muito bons. O que define mesmo é o seu bolso: * Se você tem uma graninha pra gastar, pode ir de IBO. Apesar de que existe a licença Trustware que aparentemente não te obriga a gastar já de cara (informe-se sobre diretamente no site do IBO) * Se você não tem grana pra investir e não pretende repassar mais um custo do produto para o seu cliente, fique com o ZEOS. Atte, Ricardo. 1) Evite escrever suas mensagens usando somente LETRAS MAIÚSCULAS. 2) Revise o texto de sua mensagem. Uma mensagem bem escrita é melhor compreendida. 3) Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante! --- Em qui, 22/4/10, Fabiano Almeida fa.gru...@yahoo.com.br escreveu: De: Fabiano Almeida fa.gru...@yahoo.com.br Assunto: [delphi-br] Zeos ou IBO? Para: delphi-br@yahoogrupos.com.br Data: Quinta-feira, 22 de Abril de 2010, 21:38 Conectar Delphi 2007 com Firebird 2.0, melhor Zeos ou IBO? atualmente uso o Zeos e gostei da simplicidade e não necessidade de distribuir infindáveis DLLs pra funcionar, apenas a aplicação em si. Porém tenho lido que IBO tem performance muito superior, que é rápido, lava, passa e faz café num instante... E aí, qual vcs me recomendam? Sds, Fabiano [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Zeos ou IBO?
Nee esse IBO não rola. Já usei uma vez e odiei. Complicado de configurar, lento, pesadão.. Sai fora!! []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil wchag...@bol.com.br http://delphitocorporerm.blogspot.com/ http://twitter.com/wchagas MSN: whitesock...@hotmail.com SKYPE: WalterChagasJr - Original Message - From: Fabiano Almeida To: delphi-br@yahoogrupos.com.br Sent: Thursday, April 22, 2010 9:38 PM Subject: [delphi-br] Zeos ou IBO? Conectar Delphi 2007 com Firebird 2.0, melhor Zeos ou IBO? atualmente uso o Zeos e gostei da simplicidade e não necessidade de distribuir infindáveis DLLs pra funcionar, apenas a aplicação em si. Porém tenho lido que IBO tem performance muito superior, que é rápido, lava, passa e faz café num instante... E aí, qual vcs me recomendam? Sds, Fabiano [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] MySQL Web, Conexão via Zeus , procedimentos
ZeosDBO, na versão 6.6 (a última estavel) não necessita de DLLs para conexão Em 22/04/2010 20:54, eric_developer escreveu: Pessoal boa noite, Fiz um pequeno teste com Delphi 7+Zeus, grid para listar todos os registros da tabela de um banco MySQL (5.1) que esta na internet, minhas perguntas são: 1) qual protocolo devo selecionar ? (no Zeus/TZConnection) 2) o que eu preciso instalar para rodar ? DLLs Apesar que consegui fazer funcionar, talvez foi de forma forçada, gostaria de saber o procedimento correto. Grato Eric [As partes desta mensagem que não continham texto foram removidas]