Problem with changing font style

Juhas

Hi, I've got DBCrossTab, and I check the value in order to change font style:
(in OnPrintCell event handler)

if value = 1 then Memo.Font.Style:=[fsBold];

I get the error: Could not convert variant of type (Array Variant) into type (Integer).

When I do:

if value = 1 then Memo.Font.Style:=Memo.Font.Style + [fsBold];

I get: Invalid variant operation.


But when I write:

if value = 1 then Memo.Font.Style:=fsBold;

I don't get any error, but of course the font isn't bolded.

When I write:

if value = 1 then Memo.Font.Color:=clBlue;

I don't get any error and font changes its color.

WTF with its style?

gordk

works fine for me 4.7.184

Juhas

gordk wrote: »

works fine for me 4.7.184

Damn, my version is: 4.7.138
So I think, I found a bug.

gordk

it works fine for me in that version also
correct syntax no []
if value = 1 then Memo.Font.Style := fsBold;

mcinwg

gordk wrote: »

it works fine for me in that version also
correct syntax no []
if value = 1 then Memo.Font.Style := fsBold;

Somewhat non-Delphi syntax, but it does work.

However, how do you remove the fsBold (ie: Font.Style := [] in Delphi) ?

I'm stuck with using
Memo.Font.Style := AnotherMemo.Font.Style;
which isn't very elegant.

gpi

Fast Script isn't a Delphi. FastScript doesn't support sets, so you should use
if value = 1 then Memo.Font.Style := fsBold + fsItalic;

hsm

mcinwg wrote: »

mcinwg wrote: »

it works fine for me in that version also
correct syntax no []
if value = 1 then Memo.Font.Style := fsBold;

Somewhat non-Delphi syntax, but it does work.

However, how do you remove the fsBold (ie: Font.Style := [] in Delphi) ?

I'm stuck with using
Memo.Font.Style := AnotherMemo.Font.Style;
which isn't very elegant.

Its probably a bit late now but I have found setting Memo.Font.Style := 0 seems to work to remove bolding (sometimes!)

marcioco

Memo.Font.Style := 0;

joeanderson

I am currently fixing the cement patio and check your problem. Works perfectly fine with me. dude.