home *** CD-ROM | disk | FTP | other *** search
/ PC Expert 29 / Pce29cd.iso / RUNIMAGE / DELPHI40 / DEMOS / TEECHART / UDEMUTIL.PAS < prev    next >
Pascal/Delphi Source File  |  1998-06-16  |  382b  |  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.