home *** CD-ROM | disk | FTP | other *** search
/ Delphi 5 for Professionals / DELPHI5.iso / AddOns / Components / TEECHART / Delphi1_And_Delphi2 / EXAMPLES / STANDARD / UDEMUTIL.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1998-10-24  |  382 b   |  24 lines
  1. unit udemutil;
  2.  
  3. interface
  4.  
  5. Uses Classes,Graphics,Dialogs;
  6.  
  7. Function EditColor(AOwner:TComponent; AColor:TColor):TColor;
  8.  
  9. implementation
  10.  
  11. Function EditColor(AOwner:TComponent; AColor:TColor):TColor;
  12. Begin
  13.   With TColorDialog.Create(AOwner) do
  14.   try
  15.     Color:=AColor;
  16.     if Execute then AColor:=Color;
  17.   finally
  18.     Free;
  19.   end;
  20.   result:=AColor;
  21. end;
  22.  
  23. end.
  24.