在 delphi 中设置样式

在 delphi 中设置样式

发表时间：2002 九月 5 15:03


--------------------------------------------------------------------------------

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;