home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 August / Chip_1999-08_cd.bin / tema / Ozogan / RUNTIME / APLIKACE.EXE / ADRESY / _START.KL3 < prev    next >
Text File  |  1999-06-17  |  735b  |  45 lines
  1. Program Start;
  2.  
  3. procedure TForm.FormCreate(Sender: TObject);
  4. begin
  5.   RunPrg('INI');
  6.   lbVerze.Caption := 'verze ze dne ' + SysVarGet('svVerze');
  7. end;
  8.  
  9. procedure TForm.bbKonecClick(Sender: TObject);
  10. begin
  11.   Form.Close;
  12. end;
  13.  
  14. procedure TForm.sbIndexyClick(Sender: TObject);
  15. begin
  16.   ShowForm('Indexy');
  17. end;
  18.  
  19. procedure TForm.sbAdresarClick(Sender: TObject);
  20. begin
  21.   ShowForm('ADV');
  22. end;
  23.  
  24. procedure TForm.sbFakturaceClick(Sender: TObject);
  25. begin
  26.   ShowForm('OFV');
  27. end;
  28.  
  29. procedure TForm.sbSeznamyClick(Sender: TObject);
  30. begin
  31.   ShowForm('Sez');
  32. end;
  33.  
  34. procedure TForm.sbAboutClick(Sender: TObject);
  35. begin
  36.   RunForm('About');
  37. end;
  38.  
  39. procedure TForm.Label1Click(Sender: TObject);
  40. begin
  41.  
  42. end;
  43.  
  44. end.
  45.