Re: Insert TOleContainer - Background

Return to index

Author

Message

SALPAY

Posted: 03/12/2005 4:21:27

I have finally found the solution with long searching in the WEB.

Here is the solution.

Replace

  DrawEdge(Canvas.Handle, CR, EDGE_SUNKEN, Flags or BF_MIDDLE);

With

  DrawEdge(Canvas.Handle, CR, EDGE_SUNKEN, Flags);

in ToleContainer.paint routine of the OleCtnrs.pas unit which is placed in

Borland Source Directory.

>As far as I know, it's not possible without modification of Delphi VCL

>source

>(but may be I am wrong)

>

>> I Create TOleContainer and insert into then RichViewEdit.

>> But background color is gray (clBtnFace) (For OLE: MS Diagrams and other).

>> I try to set: OleConntainer.Color = clWindows (but not change)

>>

>> How I can change back color?

>>

>>

>

>