home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 January / Chip_1999-01_cd.bin / zkuste / delphi / D1 / GRABBAR.ZIP / DFSAbout.pas < prev    next >
Pascal/Delphi Source File  |  1998-06-02  |  3KB  |  70 lines
  1. {$I DFS.INC}  { Standard defines for all Delphi Free Stuff components }
  2.  
  3. {-----------------------------------------------------------------------------}
  4. { DFSAbout unit v1.00                                                         }
  5. {-----------------------------------------------------------------------------}
  6. { This unit provides a property editor that I use for the version property in }
  7. { all of my components.                                                       }
  8. { Copyright 1998, Brad Stowers.  All Rights Reserved.                         }
  9. { This unit can be freely used and distributed in commercial and private      }
  10. { environments, provied this notice is not modified in any way and there is   }
  11. { no charge for it other than nomial handling fees.  Contact me directly for  }
  12. { modifications to this agreement.                                            }
  13. {-----------------------------------------------------------------------------}
  14. { Feel free to contact me if you have any questions, comments or suggestions  }
  15. { at bstowers@pobox.com.                                                      }
  16. { The lateset version of my components are always available on the web at:    }
  17. {   http://www.pobox.com/~bstowers/delphi/                                    }
  18. {-----------------------------------------------------------------------------}
  19. { Date last modified:  June 2, 1998                                           }
  20. {-----------------------------------------------------------------------------}
  21.  
  22. unit DFSAbout;
  23.  
  24. interface
  25.  
  26. uses
  27.   DsgnIntf;
  28.  
  29. type
  30.   TDFSVersion = {$IFNDEF DFS_DELPHI_1} type {$ENDIF} string;
  31.  
  32.   TDFSVersionProperty = class(TStringProperty)
  33.   public
  34.     procedure Edit; override;
  35.     function GetValue: string; override;
  36.     function GetAttributes: TPropertyAttributes; override;
  37.   end;
  38.  
  39. implementation
  40.  
  41. uses
  42.   Dialogs, SysUtils;
  43.  
  44. procedure TDFSVersionProperty.Edit;
  45. const
  46.   ABOUT_TEXT = '%s'#13#13 +
  47.      'Copyright 1998, Brad Stowers, All Rights Reserved.'#13 +
  48.      'This component is distributed as freeware.'#13#13 +
  49.      'The latest version of this component can be found on'#13 +
  50.      'my web site, Delphi Free Stuff, at:'#13 +
  51.      '  http://www.pobox.com/~bstowers/delphi/'#13;
  52. begin
  53.   MessageDlg(Format(ABOUT_TEXT, [GetStrValue]), mtInformation, [mbOK], 0);
  54. end;
  55.  
  56. function TDFSVersionProperty.GetValue: string;
  57. var
  58.   i: integer;
  59. begin
  60.   i := Pos(' v', GetStrValue);
  61.   Result := Copy(GetStrValue, i + 2, Length(GetStrValue)-i);
  62. end;
  63.  
  64. function TDFSVersionProperty.GetAttributes: TPropertyAttributes;
  65. begin
  66.   Result := inherited GetAttributes + [paDialog, paReadOnly];
  67. end;
  68.  
  69. end.
  70.