Changing Font size during runtime
All this code never work.
procedure TForm1.frReport1BeforePrint(Memo: TStringList; View: TfrView);
begin
if View.Name = 'PRICE' then
begin
if Length(TFrMemoView(View).Memo.Text) <= 3 then
begin
TFrMemoView(View).Font.size := 24; //failed
//TFrMemoView(View).Prop := 24; //failed
end;
end;
end;
Any help appreciated.
procedure TForm1.frReport1BeforePrint(Memo: TStringList; View: TfrView);
begin
if View.Name = 'PRICE' then
begin
if Length(TFrMemoView(View).Memo.Text) <= 3 then
begin
TFrMemoView(View).Font.size := 24; //failed
//TFrMemoView(View).Prop := 24; //failed
end;
end;
end;
Any help appreciated.