txtobj 的前景背景mbr.mb

来自「很多的MAPINFO的常见问题下载后可以学习很有帮助」· MB 代码 · 共 16 行

Include "c:\program files\mapinfo\mapbasic\mapbasic.def"
Include "c:\program files\mapinfo\mapbasic\menu.def"

Open Table "C:\Program Files\MapInfo\Professional\Data\test.TAB" Interactive
Map From test
Set Table  test useredit on

Dim o_title As Object
Create Text   Into Variable o_title   "Your message could go HERE"   (73.5, 42.6) (73.67, 42.9)   Font MakeFont("Helvetica",1,12,BLACK,WHITE) 

insert into test(object) values(o_title)

note "FONT_FORECOLOR="+StyleAttr(CurrentFont(), FONT_FORECOLOR)+" ; FONT_BACKCOLOR="+StyleAttr(CurrentFont(), FONT_BACKCOLOR)

note "MBR minimum x coordinate="+ObjectGeography(o_title , OBJ_GEO_MINX)+" ; MBR minimum Y coordinate="+ObjectGeography(o_title , OBJ_GEO_MINY)
note "MBR maximum x coordinate="+ObjectGeography(o_title , OBJ_GEO_MAXX)+" ; MBR maximum Y coordinate="+ObjectGeography(o_title , OBJ_GEO_MAXY)