home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 September / Chip_2002-09_cd1.bin / zkuste / delphi / kompon / d6 / YPPARSER.ZIP / Graph / AboutForm.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2002-06-14  |  4.0 KB  |  109 lines
  1. {********************************************************}
  2. {                                                        }
  3. {                      Graph                             }
  4. {             IMPORTANT-READ CAREFULLY:                  }
  5. {                                                        }
  6. {    This End-User License Agreement is a legal          }
  7. {    agreement between you (either an individual         }
  8. {    or a single entity) and Pisarev Yuriy for           }
  9. {    the software product identified above, which        }
  10. {    includes computer software and may include          }
  11. {    associated media, printed materials, and "online"   }
  12. {    or electronic documentation ("SOFTWARE PRODUCT").   }
  13. {    By installing, copying, or otherwise using the      }
  14. {    SOFTWARE PRODUCT, you agree to be bound by the      }
  15. {    terms of this LICENSE AGREEMENT.                    }
  16. {                                                        }
  17. {    If you do not agree to the terms of this            }
  18. {    LICENSE AGREEMENT, do not install or use            }
  19. {    the SOFTWARE PRODUCT.                               }
  20. {                                                        }
  21. {    License conditions                                  }
  22. {                                                        }
  23. {    No part of the software or the manual may be        }
  24. {    multiplied, disseminated or processed in any        }
  25. {    way without the written consent of Pisarev          }
  26. {    Yuriy. Violations of these conditions will be       }
  27. {    prosecuted in every case.                           }
  28. {                                                        }
  29. {    The use of the software is done at your own         }
  30. {    risk. The manufacturer and developer accepts        }
  31. {    no liability for any damages, either as direct      }
  32. {    or indirect consequence of the use of this          }
  33. {    product or software.                                }
  34. {                                                        }
  35. {    Only observance of these conditions allows you      }
  36. {    to use the hardware and software in your computer   }
  37. {    system.                                             }
  38. {                                                        }
  39. {    All rights reserved.                                }
  40. {    Copyright 2002 Pisarev Yuriy                        }
  41. {                                                        }
  42. {                 yuriy_mbox@hotmail.com                 }
  43. {                                                        }
  44. {********************************************************}
  45.  
  46. unit AboutForm;
  47.  
  48. interface
  49.  
  50. uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,
  51.   Buttons, ExtCtrls, ShellApi;
  52.  
  53. type
  54.   TAboutDlg = class(TForm)
  55.     Panel1: TPanel;
  56.     ProductName: TLabel;
  57.     Version: TLabel;
  58.     Copyright: TLabel;
  59.     OKButton: TButton;
  60.     Comments: TLabel;
  61.     procedure FormCreate(Sender: TObject);
  62.     procedure FormKeyDown(Sender: TObject; var Key: Word;
  63.       Shift: TShiftState);
  64.     procedure CommentsClick(Sender: TObject);
  65.     procedure CommentsMouseEnter(Sender: TObject);
  66.     procedure CommentsMouseLeave(Sender: TObject);
  67.   private
  68.     FSaved: TColor;
  69.   end;
  70.  
  71. var
  72.   AboutDlg: TAboutDlg;
  73.  
  74. implementation
  75.  
  76. {$R *.dfm}
  77.  
  78. procedure TAboutDlg.FormCreate(Sender: TObject);
  79. begin
  80.   FSaved := Comments.Font.Color;
  81. end;
  82.  
  83. procedure TAboutDlg.FormKeyDown(Sender: TObject; var Key: Word;
  84.   Shift: TShiftState);
  85. begin
  86.   if Key = VK_ESCAPE then Close;
  87. end;
  88.  
  89. procedure TAboutDlg.CommentsClick(Sender: TObject);
  90. var
  91.   Value: string;
  92. begin
  93.   Value := Format('mailto:%s?Subject=Graph; %s',
  94.     [TLabel(Sender).Caption, LowerCase(Version.Caption)]);
  95.   ShellExecute(Handle, 'open', PChar(Value), '', '', SW_SHOWNORMAL);
  96. end;
  97.  
  98. procedure TAboutDlg.CommentsMouseEnter(Sender: TObject);
  99. begin
  100.   Comments.Font.Color := clRed;
  101. end;
  102.  
  103. procedure TAboutDlg.CommentsMouseLeave(Sender: TObject);
  104. begin
  105.   Comments.Font.Color := FSaved;
  106. end;
  107.  
  108. end.
  109.