|
在 delphi 中设置样式
--------------------------------------------------------------------------------
var
SetStyle:variant;
begin
SetStyle:= MapStyleSetup.defaultstyle ;
SetStyle.SymbolType:= miSymbolTypeTrueTypeFont;
SetStyle.SymbolFont.Name:=CharacterName;
SetStyle.SymbolCharacter:=index;
SetStyle.SymbolFont.size:=36;
SetStyle.SymbolFontOpaque := False;
end; |
|