RE: [DUG]: Polymorphic assignment to Color - How? (sometime it's a Property, sometimes not)

[Kyley Harris]

Maybe I should outline this a bit more in your context :)


function SetObjectColour (AObject:TObject;newColour : TColor);
Begin
  result := IsPublishedProp(AObject,'Color');
  If result then
    SetOrdProp(AObject,'Color',newColor);
End;

function GetObjectColour (AObject:TObject;DefaultColour :
TColor):Tcolor;
Begin
  if IsPublishedProp(AObject,'Color') then
    result := GetOrdProp(AObject,'Color') else
    result := DefaultColor;
End;

Hope this helps.

---------------------------------------------------------------------------
    New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
                  Website: http://www.delphi.org.nz
To UnSub, send email to: [EMAIL PROTECTED] 
with body of "unsubscribe delphi"
Web Archive at: http://www.mail-archive.com/delphi%40delphi.org.nz/