Re: Popup Color Picker

Return to index

Author

Message

Sergey Tkachenko

Posted: 01/30/2004 19:55:01

Hello,

You need to assign FColorPicker.OnDestroy.

procedure TMyForm.ColorPickerDestroy(Sender: TObject);

begin

  if TfrmColor(Sender).Chosen then begin

    Color := TfrmColor(Sender).ChosenColor;

  end;

end;

> Hello,

>

> I am trying to use TRV native color picker(popup) in my program.

> To execute it I do this

>

> var FColorPicker: TForm;

> begin

> FColorPicker := TfrmColor.Create(MainForm.Owner);

> TfrmColor(FColorPicker).Init(clNone, RVA_ColorDialog, clNone);

> TfrmColor(FColorPicker).PopupAtMouse;

>

> But I don't understand how to get OnClose form notification. Any

> suggestions?

>

> p.s.  Sergey, I suggest you to create Color Picker popup menu component

and

> add it to

> RichView Misc palette.

May be