AboutUnit.pas 1022 B

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455
  1. unit AboutUnit;
  2. interface
  3. uses
  4. Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,
  5. Buttons, ExtCtrls, URLLabelUnit;
  6. type
  7. TAboutForm = class(TForm)
  8. FramePanel: TPanel;
  9. ProgramIcon: TImage;
  10. ProductNameLabel: TLabel;
  11. VersionLabel: TLabel;
  12. OKButton: TButton;
  13. Label2: TLabel;
  14. Label3: TLabel;
  15. Label4: TLabel;
  16. Label5: TLabel;
  17. Label6: TLabel;
  18. URLLabel1: TURLLabel;
  19. URLLabel2: TURLLabel;
  20. URLLabel3: TURLLabel;
  21. URLLabel4: TURLLabel;
  22. URLLabel5: TURLLabel;
  23. Label1: TLabel;
  24. URLLabel6: TURLLabel;
  25. CopyrightLabel: TLabel;
  26. Label8: TLabel;
  27. Label9: TLabel;
  28. URLLabel7: TURLLabel;
  29. Label10: TLabel;
  30. URLLabel8: TURLLabel;
  31. Label7: TLabel;
  32. URLLabel9: TURLLabel;
  33. procedure FormCreate(Sender: TObject);
  34. private
  35. public
  36. end;
  37. implementation
  38. {$R *.DFM}
  39. uses
  40. VersionUnit;
  41. procedure TAboutForm.FormCreate(Sender: TObject);
  42. begin
  43. PixelsPerInch := 96;
  44. VersionLabel.Caption := 'Version ' + TIGCCLongVersion;
  45. end;
  46. end.