How to set TMemoView Frame Types in script

Comments

• Slashmaster

  October 2016 edited 3:19PM

  Hello,
  
  i use Basic-Script:
  

  'set Font-Style
  Memo.font.Style = fsBold + fsitalic
  'Remove Font-Style
  Memo.font.style = 0
  'Set Borderstyle                               
  Memo.frame.typ =  ftTop + ftBottom + ftLeft + ftRight
  'Remove Borderstyle
  Memo.frame.typ = 0
  

  
  In Pascal
  

  Memo.Font.Style := fsBold+fsItalic
  

  
  Greetz
• BarrySA

  October 2016 edited 3:19PM

  Thanks SlashMaster
  
  I tried the equivalent in C++
  
  Memo->Frame->Typ = ftTop + ftBottom + ftLeft + ftRight;
  
  but it would not compile with error message
  
  [bcc32 Error] OSSMainFRReport.cpp(1264): E2034 Cannot convert 'int' to 'TfrxFrameTypes'
  
  and the same for the Style Setting
  
  Memo->Font->Style = fsBold;
  
  gave the following compile error
  
  [bcc32 Error] OSSMainFRReport.cpp(1212): E2034 Cannot convert 'TFontStyle' to 'TFontStyles'
  
  I would have thought the same method would work in Pascal as C++.
  
  
  
• BarrySA

  October 2016 edited 3:19PM

  Ive got an answer on the Font Styles.
  
  This works for C++
  
  Memo->Font->Style = TFontStyles();
  Memo->Font->Style = Font->Style << fsBold;
  
  But I still can't get the Frame Types to work in C++
  
  Any help would be appreciated.
• gpi

  October 2016 edited 3:19PM

  wrote:

  But I still can't get the Frame Types to work in C++

  Use

  TfrxMemoView * Memo;
  Memo = (TfrxMemoView *)frxReport1->FindObject("Memo1");
  Memo->Frame->Typ = TfrxFrameTypes();
  Memo->Frame->Typ = Memo->Frame->Typ << ftTop << ftBottom;