Memo Filltype by Code

Slashmaster

Hello,

i want to set the Filltype in "OnBeforePrint". I tried alot and searched online but couldnt find a solution.

It seems that only 2 propertys are possible?

ftGlass = 2
ftgradient = 1

tfrxmemoview(sender).filltype = ftGlass

But how can i Change the Color? Show Hatch? Configure Blend? [img]style_emoticons/<#EMO_DIR#>/unsure.gif" style="vertical-align:middle" emoid=":unsure:" border="0" alt="unsure.gif" /> Thx in advance *edit* its possible to inherit the style from another Memo. But the Problem still exists... how can i Change Color and so on dynamicly?[/img]

tfrxmemoview(sender).fill.assign(OtherMemo.fill)

gpi

Use

TfrxGlassFill(TfrxMemoView(Sender)).Hatch := True;

Slashmaster

Hello gpi,

thx for your answer. But it doesnt work. Nothing happened (w/o error).

if i use this code, and Memo-Edit-Fill-Setting is "Brush" then the Memo Change the Color to Blue if u run the Report but no Blend and no Hatch.

      TfrxGlassFill(tfrxmemoview(sender)).Blend := 0.5;   
      TfrxGlassFill(tfrxmemoview(sender)).Hatch := True;                 
      TfrxGlassFill(tfrxmemoview(sender)).Color := clblue;

if i use

tfrxmemoview(sender).filltype := 2;

befor the other 3 Lines, the Memo will be with Blend, but with Standard-Grey (blue is ignored). No Hatch, too.

What do i wrong? [img]style_emoticons/<#EMO_DIR#>/unsure.gif" style="vertical-align:middle" emoid=":unsure:" border="0" alt="unsure.gif" /> thx for ur Help![/img]

gpi

Try

TfrxMemoView(Sender).FillType := ftGlass;
TfrxGlassFill(TfrxMemoView(Sender)).Hatch := True;

Slashmaster

gpi wrote: »

Try

TfrxMemoView(Sender).FillType := ftGlass;
TfrxGlassFill(TfrxMemoView(Sender)).Hatch := True;

Hello gpi,

thx for your answer. But it doesnt work, too. Other ideas? [img]style_emoticons/<#EMO_DIR#>/unsure.gif" style="vertical-align:middle" emoid=":unsure:" border="0" alt="unsure.gif" /> Greetz[/img]

gpi

Create small demo project with error and send it to support@fast-report.com