/trunk_win95/Main.dfm |
---|
Cannot display: file marked as a binary type. |
svn:mime-type = application/octet-stream |
/trunk_win95/Main.pas |
---|
226,10 → 226,19 |
finally |
ini.Free; |
end; |
Edit1.Text := ''; |
end; |
if TreeView1.Selected.Text = TITLE_OID then PageControl1.ActivePage := TabSheet3; |
if TreeView1.Selected.Text = TITLE_RA then PageControl1.ActivePage := TabSheet4; |
if TreeView1.Selected.Text = TITLE_OID then |
begin |
PageControl1.ActivePage := TabSheet3; |
Edit2.Text := ''; |
end; |
if TreeView1.Selected.Text = TITLE_RA then |
begin |
PageControl1.ActivePage := TabSheet4; |
Edit8.Text := ''; |
end; |
end; |
procedure TForm1.FormShow(Sender: TObject); |
var |