Subversion Repositories oidplus

Compare Revisions

Regard whitespace Rev 232 → Rev 233

/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