Hintergrundfarbe

Gespeichert von Gast am
im Forum ArcView 3.x classic
Hallo Forum,
wie bringt man in avenue eine Polygon-Farbe dazu, z.b. rot und transparent zu erscheinen??
setbgcolor ...???
Kay

Gespeichert von Kay Krueger am Fr., 13.08.2004 - 08:01

Permalink
Hallo Forum, wie bringt man in avenue eine Polygon-Farbe dazu, z.B. rot und transparent zu erscheinen?
setbgcolor ... ???
Kay

Gespeichert von Maxilla am Fr., 13.08.2004 - 10:30

Permalink
In dem Codeschnipsel unten ist der Umgang mit den Vorder- und Hintergrundfarben und -symbolen ganz gut ablesbar, denk ich:

theView = av.getActiveDoc
theTheme = theView.GetActiveThemes.get(0)
theLegend = theTheme.GetLegend

thePalette = Palette.MakeFromFile("$AVHOME\symbols\default.avp".AsFileName)
theSymbolList = thePalette.GetList(#PALETTE_LIST_FILL)

theFill = theSymbolList.Get(6) 'hier Nr. des RasterFills angeben

if (theFill.Is(Rasterfill)) then
theStipple = theFill.GetStipple
for each theSymbol in theLegend.getSymbols
transp = Color.Make
transp.SetTransparent(true)
aColor = theSymbol.GetColor
theSymbol.SetStipple(theStipple)
theSymbol.SetStyle(#RASTERFILL_STYLE_STIPPLE)
theSymbol.SetOutlined(TRUE)
theSymbol.setColor(aColor)
theSymbol.SetBgColor(transp)
theTheme.SetLegendVisible(TRUE)
theTheme.UpdateLegend
end
end

Ich glaube das Skript stammt in der Hauptsache von Michiel Boelhouwer...