Como criar um editor de Parâmetros com ListView???
03/04/2006
0
Pessoal, tem como criar um editor de parâmetros usando um ListView??
tipo, quando vai-se ajustar a propriedade Filter de algum OpenDialog, aparece um componente semelhante ao listview onde vc tem duas colunas, uma pra colocar o nome da mascara e a outra a mascara.
tem como fazer um, pois quero colocar no meu projeto o editor de parametros para configurações do sistema, banco etc...
tipo
abraço a todos
tipo, quando vai-se ajustar a propriedade Filter de algum OpenDialog, aparece um componente semelhante ao listview onde vc tem duas colunas, uma pra colocar o nome da mascara e a outra a mascara.
tem como fazer um, pois quero colocar no meu projeto o editor de parametros para configurações do sistema, banco etc...
tipo
NomeDoParametro Valor
Host localhost
Banco alias_sistema
CommitRetain true
abraço a todos
Eniorm
Curtir tópico
+ 0
Responder
Posts
04/04/2006
Eniorm
Montei o editor de parâmetros da seguinte forma, no OnShow do form, ele carrega as informações de um arquivo INI.
é exibido num ListView, configurado com 2 colunas, e a propriedade [b:dea9f8b72f]ViewStyle [/b:dea9f8b72f]como [b:dea9f8b72f]vsReport[/b:dea9f8b72f]
para gravas as modificações feitas no listview eu uso o procedimento:
e o arquivo INI com os parâmetros são usados com o SQLConnection.Params.LoadFromFile
abraço
procedure TF_BancoDeDados.FormShow(Sender: TObject); var i, tam, Inicio, Fim : integer; s : TStringList; valor, parametro : string; begin inherited; s := TStringList.Create; s.LoadFromFile(´config_db.ini´); inicio := 1; for i := 0 to s.Count -1 do begin tam := Length(s[i]); fim := Pos(´=´,s[i]); parametro := Copy(s[i],inicio,fim-1); valor := Copy(s[i],fim+1,tam-fim); with ListView1.Items.Add do begin Caption := Trim(parametro); SubItems.Add(Trim(valor)); end; end; s.Free; end;
é exibido num ListView, configurado com 2 colunas, e a propriedade [b:dea9f8b72f]ViewStyle [/b:dea9f8b72f]como [b:dea9f8b72f]vsReport[/b:dea9f8b72f]
para gravas as modificações feitas no listview eu uso o procedimento:
procedure TF_BancoDeDados.act_GravarExecute(Sender: TObject); var s : TStringList; i : integer; texto : string; begin inherited; s := TStringList.Create; for i := 0 to ListView1.Items.Count -1 do begin texto := ListView1.Items[i].Caption + ´=´ + ListView1.Items[i].SubItems.Text; s.Add(Trim(texto)); end; s.SaveToFile(´config_db.ini´); s.Free; Close; end;
e o arquivo INI com os parâmetros são usados com o SQLConnection.Params.LoadFromFile
abraço
Responder
Clique aqui para fazer login e interagir na Comunidade :)