HDevelop中显示多行文本

1. dev_get_window (WindowHandle)
   
2. set_display_font (WindowHandle, 16, 'mono', 'true', 'false')
   
3. 
   
4. *第一种方式
   
5. Text := '这是一个多行文本演示Demo：'
   
6. Text[|Text|] := '我是出现的第一行'
   
7. Text[|Text|] := '我是出现的第二行'
   
8. Text[|Text|] := '下面将出现空行'
   
9. Text[|Text|] := ''
   
10. Text[|Text|] := '我是出现的最后一行.'
    
11. 
    
12. *第二种方式
    
13. * Text:=['这是一个多行文本演示Demo：','我是出现的第一行', '我是出现的第二行','下面将出现空行','','我是出现的最后一行.']
    
14. 
    
15. dev_set_window (WindowHandle)
    
16. dev_clear_window ()
    
17. dev_disp_text (Text, 'window', 'center', 'center', 'black', 'box', 'true')
    
18. 
    
19. *第二种显示
    
20. * disp_message (WindowHandle, Text, 'window', 12, 12, 'black', 'true')

复制代码