AdvstringGrid and Registry Demo

unit regedit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ImgList, Grids, BaseGrid, AdvGrid,registry, asgcheck,
  Menus;

type
  TForm1 = class(TForm)
    AdvStringGrid1: TAdvStringGrid;
    ImageList1: TImageList;
    Button1: TButton;
    Button2: TButton;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    haiou3271: TMenuItem;
    N2: TMenuItem;
    Label1: TLabel;
    Label2: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure AdvStringGrid1GetEditorType(Sender: TObject; ACol,
      ARow: Integer; var AEditor: TEditorType);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  Reg:TRegistry;
implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
i:integer;
begin
for i:=0 to 2 do
begin
AdvStringGrid1.Cells[0,0]:='序号';
AdvStringGrid1.Cells[1,0]:='数值名称';
AdvStringGrid1.Cells[2,0]:='数值数据';
AdvStringGrid1.Cells[0,1]:='00';
AdvStringGrid1.Cells[1,1]:='请选择右边注册表项';
//AdvStringGrid1.AddImageIdx(1,1,2,haBeforeText,vatop);
AdvStringGrid1.Alignments[0,i]:=taCenter;
AdvStringGrid1.FontStyles[i,0]:=AdvStringGrid1.FontStyles[i,0]+[fsBold];
AdvStringGrid1.FontColors[i,0]:=clblue;
AdvStringGrid1.FontColors[1,1]:=clred;
end
end;

procedure TForm1.Button1Click(Sender: TObject);
var
i,d:integer;
List:TstringList;
begin
List:=TstringList.Create;
//S:=TstringList.Create;
try
d:=AdvStringGrid1.Combobox.ItemIndex;
Reg:=Tregistry.Create;
Reg.RootKey:=HKEY_LOCAL_MACHINE;
Reg.OpenKey(AdvStringGrid1.Combobox.Items[d],false);
Reg.GetValueNames(List);
for i:=0 to list.Count-1 do
begin
AdvStringGrid1.Cells[0,i+2]:='0'+inttostr(i+1);
AdvStringGrid1.RowCount:=List.Count+2;
AdvStringGrid1.Cells[1,i+2]:=list[i];
AdvStringGrid1.Cells[2,i+2]:=Reg.ReadString(List[i]);
AdvStringGrid1.FontColors[1,i+2]:=Clblue;
AdvStringGrid1.FontColors[2,i+2]:=ClFuchsia;
AdvStringGrid1.Alignments[0,i+2]:=taCenter;
AdvStringGrid1.AddImageIdx(1,i+2,0,haBeforeText,vatop);
AdvStringGrid1.AddImageIdx(2,i+2,1,haBeforeText,vatop);
end
finally
Reg.CloseKey;
Reg.Free;
list.Free;
end
end;

procedure TForm1.Button2Click(Sender: TObject);
var
i:integer;
s:Tstringlist;
begin
s:=Tstringlist.Create;
for i:= 1 to AdvStringGrid1.RowCount do
begin
AdvStringGrid1.Cells[2,i+1]:='';
AdvStringGrid1.Cells[1,i+1]:='';
AdvStringGrid1.AddImageIdx(1,i,255,haBeforeText,vatop);
AdvStringGrid1.AddImageIdx(2,i,255,haBeforeText,vatop);
end
end;

procedure TForm1.AdvStringGrid1GetEditorType(Sender: TObject; ACol,
  ARow: Integer; var AEditor: TEditorType);
begin
  if   (arow = 1) and (acol=2)  then
      begin
            aeditor:= edComboList;
            advstringgrid1.Combobox.Clear;
            advstringgrid1.AddComboString('SOFTWARE/Microsoft/Windows/CurrentVersion/Run');
            advstringgrid1.AddComboString('SOFTWARE/Microsoft/Windows/CurrentVersion/RunOnce');
            advstringgrid1.AddComboString('SOFTWARE/Microsoft/Windows/CurrentVersion/RunOnceEx');
      end;

end;

end.