How can one control Font during Runtime? 2

[delphiman]

I need to control the font of contents of a particular field in a unique situation during RunTime.

I expect I need something like ...

 if tblMyTablePNo.value = 2 then
 begin
   fldOurInit.FontSize := 22;
   fldOurInit.FontStyle := BoldItalic;
   fldOurInit.FontColor := Red;
 end;

.... which needless to say doesn't work.

Anyone? Thanks in advance.

 

[DelphiAaron]

this is how its done
i put this in the onchange event of a dbtext box

var FontSet: TFontStyles;
begin
FontSet:=[fsBold,FsItalic];
if DBEdit.Text='Hello' then
begin
DBEdit.Font.Size := 22;
DBEdit.Font.Style := FontSet;
DBEdit.Font.Color := clRed;
end;
end;

Aaron Taylor
John Mutch Electronics

http://www.jme.com.au

 

[DelphiAaron]

remember when dealing with properties of properties you need the dot.

label has property font (label.font)
font has property size (font.size)
all together (label.font.size)

font.style is a tstyleset so you need to assign a the set first set1:=[fsBold,fsItalic] or set1:=[fsBold] ect...



Aaron Taylor
John Mutch Electronics

http://www.jme.com.au

 

[hilfy]

Also, after you change the font in your code, you may need to include this:

application.processmessages;

for the change to appear.

-Dell