?? code.txt
字號:
fFtrFactory := Map1.FeatureFactory;
pItem := CreateOleObject('MapX.Point.5');
pItem.Set(X1,Y1);
fNewSymbol := fFtrFactory.CreateSymbol(pItem, Map1.DefaultStyle);
//(fNewSymbol);
fMapSymbol := lyrMyLayer.AddFeature(fNewSymbol,EmptyParam);
FID := IntToStr(fMapSymbol.FeatureID);
showmessage(FID);
self.suiForm1.Caption := ('x1=' + FloatToStr(x1) + ' y1=' + FloatToStr(y1) );
try
frmInput := TfrmInput.Create(self);
frmInput.strFID := FID;
frmInput.strX := FloatToStr(x1);
frmInput.strY := FloatToStr(y1);
frmInput.bytTool := Map1.CurrentTool;
frmInput.ShowModal;
finally
FreeAndNil(frmInput);
end;
if self.bytYESNO = 1 then
begin
a := Map1.Annotations.AddText(strName,x1,y1 - 0.0002,miPositionBC);
strName := '';
end;
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -