Delphi 5 for Professionals/DELPHI5.iso/Runimage/Delphi50/Demos/Teechart/udemutil.pas

Pascal/Delphi Source File | 1999-08-11 | 382 b | 24 lines

unit udemutil;

interface

Uses Classes,Graphics,Dialogs;

Function EditColor(AOwner:TComponent; AColor:TColor):TColor;

implementation

Function EditColor(AOwner:TComponent; AColor:TColor):TColor;
Begin
  With TColorDialog.Create(AOwner) do
  try
    Color:=AColor;
    if Execute then AColor:=Color;
  finally
    Free;
  end;
  result:=AColor;
end;

end.