没有合适的资源?快使用搜索试试~ 我知道了~
资源推荐
资源详情
资源评论
##############################################################################
# File generated by HDevelop
##############################################################################
# Procedures
# External procedures
# Chapter: Graphics / Text
# Short Description: This procedure displays 'Click 'Run' to continue' in the lower right corner of the screen.
procedure disp_continue_message (: : WindowHandle, Color, Box: )
* This procedure displays 'Press Run (F5) to continue' in the
* lower right corner of the screen.
* It uses the procedure disp_message.
*
* Input parameters:
* WindowHandle: The window, where the text shall be displayed
* Color: defines the text color.
* If set to '' or 'auto', the currently set color is used.
* Box: If set to 'true', the text is displayed in a box.
*
ContinueMessage := 'Press Run (F5) to continue'
get_window_extents (WindowHandle, Row, Column, Width, Height)
get_string_extents (WindowHandle, ' ' + ContinueMessage + ' ', Ascent, Descent, TextWidth, TextHeight)
disp_message (WindowHandle, ContinueMessage, 'window', Height - TextHeight - 12, Width - TextWidth - 12, Color, Box)
return ()
# Chapter: Graphics / Text
# Short Description: This procedure writes a text message.
procedure disp_message (: : WindowHandle, String, CoordSystem, Row, Column, Color,
Box: )
* This procedure displays text in a graphics window.
# File generated by HDevelop
##############################################################################
# Procedures
# External procedures
# Chapter: Graphics / Text
# Short Description: This procedure displays 'Click 'Run' to continue' in the lower right corner of the screen.
procedure disp_continue_message (: : WindowHandle, Color, Box: )
* This procedure displays 'Press Run (F5) to continue' in the
* lower right corner of the screen.
* It uses the procedure disp_message.
*
* Input parameters:
* WindowHandle: The window, where the text shall be displayed
* Color: defines the text color.
* If set to '' or 'auto', the currently set color is used.
* Box: If set to 'true', the text is displayed in a box.
*
ContinueMessage := 'Press Run (F5) to continue'
get_window_extents (WindowHandle, Row, Column, Width, Height)
get_string_extents (WindowHandle, ' ' + ContinueMessage + ' ', Ascent, Descent, TextWidth, TextHeight)
disp_message (WindowHandle, ContinueMessage, 'window', Height - TextHeight - 12, Width - TextWidth - 12, Color, Box)
return ()
# Chapter: Graphics / Text
# Short Description: This procedure writes a text message.
procedure disp_message (: : WindowHandle, String, CoordSystem, Row, Column, Color,
Box: )
* This procedure displays text in a graphics window.
*
* Input parameters:
* WindowHandle: The WindowHandle of the graphics window, where
* the message should be displayed
* String: A tuple of strings containing the text message to be displayed
* CoordSystem: If set to 'window', the text position is given
* with respect to the window coordinate system.
* If set to 'image', image coordinates are used.
* (This may be useful in zoomed images.)
* Row: The row coordinate of the desired text position
* If set to -1, a default value of 12 is used.
* Column: The column coordinate of the desired text position
* If set to -1, a default value of 12 is used.
* Color: defines the color of the text as string.
* If set to [], '' or 'auto' the currently set color is used.
* If a tuple of strings is passed, the colors are used cyclically
* for each new textline.
* Box: If Box[0] is set to 'true', the text is written within an orange box.
* If set to' false', no box is displayed.
* If set to a color string (e.g. 'white', '#FF00CC', etc.),
* the text is written in a box of that color.
* An optional second value for Box (Box[1]) controls if a shadow is displayed:
* 'true' -> display a shadow in a default color
* 'false' -> display no shadow (same as if no second value is given)
* otherwise -> use given string as color string for the shadow color
*
* Prepare window
get_rgb (WindowHandle, Red, Green, Blue)
get_part (WindowHandle, Row1Part, Column1Part, Row2Part, Column2Part)
get_window_extents (WindowHandle, RowWin, ColumnWin, WidthWin, HeightWin)
* Input parameters:
* WindowHandle: The WindowHandle of the graphics window, where
* the message should be displayed
* String: A tuple of strings containing the text message to be displayed
* CoordSystem: If set to 'window', the text position is given
* with respect to the window coordinate system.
* If set to 'image', image coordinates are used.
* (This may be useful in zoomed images.)
* Row: The row coordinate of the desired text position
* If set to -1, a default value of 12 is used.
* Column: The column coordinate of the desired text position
* If set to -1, a default value of 12 is used.
* Color: defines the color of the text as string.
* If set to [], '' or 'auto' the currently set color is used.
* If a tuple of strings is passed, the colors are used cyclically
* for each new textline.
* Box: If Box[0] is set to 'true', the text is written within an orange box.
* If set to' false', no box is displayed.
* If set to a color string (e.g. 'white', '#FF00CC', etc.),
* the text is written in a box of that color.
* An optional second value for Box (Box[1]) controls if a shadow is displayed:
* 'true' -> display a shadow in a default color
* 'false' -> display no shadow (same as if no second value is given)
* otherwise -> use given string as color string for the shadow color
*
* Prepare window
get_rgb (WindowHandle, Red, Green, Blue)
get_part (WindowHandle, Row1Part, Column1Part, Row2Part, Column2Part)
get_window_extents (WindowHandle, RowWin, ColumnWin, WidthWin, HeightWin)
剩余17页未读,继续阅读
资源评论
mingaiminghao
- 粉丝: 0
- 资源: 3
上传资源 快速赚钱
- 我的内容管理 展开
- 我的资源 快来上传第一个资源
- 我的收益 登录查看自己的收益
- 我的积分 登录查看自己的积分
- 我的C币 登录后查看C币余额
- 我的收藏
- 我的下载
- 下载帮助
安全验证
文档复制为VIP权益,开通VIP直接复制
信息提交成功