New Memo in BasicScript

mtp1985

Hello,
How can I add new Memo object by BasicScript code?

I'm trying to draw couple of Memo object (quantity and width of memos will be depending on parameters) - I will use a loop for that.

Slashmaster

Hello,

probably not the best way but its work.
I use it in an AfterCalc-Height-Event (PageHeader1OnAfterCalcHeight):

sub PageHeader1OnAfterCalcHeight(Sender)  
  Dim Memox as TfrxMemoView
  Memox = TfrxMemoView.Create(Sender)  
  Memox.SetBounds(600,25,75,20)                                                                                         
  Memox.Font.Name = "Courier New"
  Memox.Text = "Hallo Welt"                                                           
end sub

Hope it helps.

greets